STANDARD DATA DICTIONARY #6914 -- EQUIPMENT INV. FILE 3/24/25 PAGE 1
STORED IN ^ENG(6914, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 7.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Repository of all capital assets. Typically used by Engineering and Acquisition and Materiel Management Services. Capitalized
nonexpendable equipment records in this file are electronically ported to the centralized VA data base (Fixed Assets Package) in
Austin.
DD ACCESS: #
WR ACCESS: E
DEL ACCESS: #e
LAYGO ACCESS: #e
IDENTIFIED BY: SERIAL # (#5), EQUIPMENT CATEGORY (#6), USE STATUS (#20), VA PM NUMBER (#25), LOCAL IDENTIFIER (#26)
POINTED TO BY: REPLACEMENT ITEM NUMBER field (#.01) of the TURN-IN LINE ITEM sub-field (#413.11) of the TURN-IN REQUEST File
(#413.1)
PARENT SYSTEM field (#2) of the EQUIPMENT INV. File (#6914)
REPLACING (ENTRY NUMBER) field (#51) of the EQUIPMENT INV. File (#6914)
EQUIPMENT RECORD field (#.01) of the FA DOCUMENT LOG File (#6915.2)
EQUIPMENT RECORD field (#.01) of the FB DOCUMENT LOG File (#6915.3)
EQUIPMENT RECORD field (#.01) of the FC DOCUMENT LOG File (#6915.4)
EQUIPMENT RECORD field (#.01) of the FD DOCUMENT LOG File (#6915.5)
EQUIPMENT RECORD field (#.01) of the FR DOCUMENT LOG File (#6915.6)
EQUIPMENT field (#.01) of the IT ASSIGNMENT File (#6916.3)
EQUIPMENT ENTRY field (#.01) of the Y2K CATEGORY LOG File (#6918)
EQUIPMENT ID# field (#18) of the WORK ORDER # File (#6920)
CROSS
REFERENCED BY: ACQUISITION DATE(A1), DISPOSITION DATE(A10), CATEGORY STOCK NUMBER(A2), CMR(A3), USE STATUS(A4),
SERVICE POINTER(A5), RESPONSIBLE SHOP(A6), STATION NUMBER(A7), PARENT SYSTEM(A8), MFGR. EQUIPMENT NAME(A9),
RESPONSIBLE SHOP(AB), SERVICE POINTER(AC), CMR(AD), PARENT SYSTEM(AE), ACQUISITION DATE(AF), LIFE EXPECTANCY(AG),
PURCHASE ORDER #(AH), TYPE OF ENTRY(AI), LOCKOUT REQUIRED?(AJ), Y2K CATEGORY(AK),
Y2K COMPLIANCE WORK ORDER (TEXT)(AL), Y2K CATEGORY(AM), LOCATION(AN), NON-SPACE FILE LOCATION(ANSP),
REPLACING (ENTRY NUMBER)(AO), Y2K CATEGORY(AP), Y2K UTILITY SYSTEM(AQ), TYPE OF ENTRY(AR), ENTRY NUMBER(AS),
MANUFACTURER(AT), MODEL(AU), SERIAL #(AV), EQUIPMENT CATEGORY(AW), TYPE OF ENTRY(AX), PURCHASE ORDER #(AY),
TOTAL ASSET VALUE(AZ), ENTRY NUMBER(B), VA PM NUMBER(C), LOCATION(D), MODEL(E), MODEL(C)(EC), ENTRY NUMBER(EE),
SERIAL #(F), SERIAL #(C)(FC), EQUIPMENT CATEGORY(G), MFGR. EQUIPMENT NAME(H), NXRN #(I),
CATEGORY STOCK NUMBER(J), MANUFACTURER(K), LOCAL IDENTIFIER(L), PURCHASE ORDER #(M), ORIGINAL BAR CODE ID(OEE)
INDEXED BY: CMR (ACMR), LOCATION (ALNSP), NON-SPACE FILE LOCATION (ANSPB), NON-SPACE FILE LOCATION (ANSPT)
LAST MODIFIED: NOV 21,2024@17:31:39
6914,.01 ENTRY NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X I $D(X) K:$L(X)>($L($P(^ENG(6914,0),U,3))+1) X I $D(X
) S DINUM=+X
LAST EDITED: JUL 24, 2013
HELP-PROMPT: Enter a whole number between 1 and 9999999999.
DESCRIPTION: Changed to a sequential number with Version 6.4 so that file can be used during the equipment
request process; before manufacturer, model, and serial number are established.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Can't delete until FD Document sent.
","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^B
1)= S ^ENG(6914,"B",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^EE^MUMPS
1)= S ^ENG(6914,"EE",$P(^DIC(6910,1,0),U,2)_" EE"_DA,DA)=""
2)= K ^ENG(6914,"EE",$P(^DIC(6910,1,0),U,2)_" EE"_DA,DA)
Equipment bar code label.
CROSS-REFERENCE: ^^TRIGGER^6914^.5
1)= X ^DD(6914,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X
=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6914,.01,1,3,1.4)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$S('$D(^V
A(200,+$P(Y(1),U,6),0)):"",1:$P(^(0),U,1))=""
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=6914,DIG=.5 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= #.5=""
CREATE VALUE)= S X=DUZ
DELETE VALUE)= NO EFFECT
FIELD)= #.5
CROSS-REFERENCE: ^^TRIGGER^6914^.6
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,7
)="" I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV
N %I,%H,% D NOW^%DTC X ^DD(6914,.01,1,4,1.4)
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,7)=DIV,DIH=6914,DIG=.6 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= #.6=""
CREATE VALUE)= TODAY
DELETE VALUE)= NO EFFECT
FIELD)= #.6
CROSS-REFERENCE: 6914^AS^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the ENTRY NUMBER is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,.5 ENTERED BY 0;6 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: NOV 07, 1996
DESCRIPTION:
Person that initially entered the equipment record. Automatically populated.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ENTRY NUMBER field of the EQUIPMENT INV. File
6914,.6 DATE ENTERED 0;7 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 07, 1996
DESCRIPTION:
Date the equipment record was initially entered. Automatically populated.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the ENTRY NUMBER field of the EQUIPMENT INV. File
6914,1 MANUFACTURER 1;4 POINTER TO MANUFACTURER LIST FILE FILE (#6912) (Required)
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Select the equipment manufacturer.
DESCRIPTION: Firm that actually manufactured this equipment, not necessarily the company from which it was
purchased.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^K
1)= S ^ENG(6914,"K",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"K",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^AT^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the MANUFACTURER is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,2 PARENT SYSTEM 0;3 POINTER TO EQUIPMENT INV. FILE (#6914)
INPUT TRANSFORM: K:X=DA X
LAST EDITED: SEP 19, 2013
HELP-PROMPT: Select an existing record as a parent.
DESCRIPTION: If Item A is a component of Item B, then the PARENT field of Item A should contain the CONTROL
NUMBER of Item B. If Item B is, in turn, a component of an even larger Item C; then the PARENT
field of Item B should contain the CONTROL NUMBER of Item C, and so on. Inventory items with no
entry in the PARENT field are either free standing devices or major systems with one or more levels
of components beneath them. An item must already be in the EQUIPMENT file before it can be named
as the PARENT of another item.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^AE
1)= S ^ENG(6914,"AE",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AE",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^6914^82
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,12),X=X S
DIU=X K Y X ^DD(6914,2,1,2,1.1) X ^DD(6914,2,1,2,1.4)
1.1)= S X=DIV X ^DD(6914,2,1,2,49.2) S X=$S('$D(^ENG(6918.1,+$P(Y(101),U,12),0)):"",1:$P(^(0),U,1))
S D0=I(0,0)
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""),DIV=X S $P(^(9),U,12)=DIV,DIH=6914,DIG=82 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= Q
49.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG(6914,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6914,D0
,9)):^(9),1:"")
CREATE VALUE)= #2:#82
DELETE VALUE)= NO EFFECT
FIELD)= #82
Will populate the Y2K UTILITY SYSTEMS field when a Y2K UTILITY SYSTEMS field exists for a newly
defined PARENT SYSTEM.
CROSS-REFERENCE: 6914^A8^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the PARENT SYSTEM is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,3 MFGR. EQUIPMENT NAME 0;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1)!'(X?.ANP) X
LAST EDITED: SEP 19, 2013
HELP-PROMPT: Enter the manufacturer equipment name, 1-80 characters in length.
DESCRIPTION: Brief narrative description of item. For NX (non-expendable) equipment, this data element can be
triggered in from the Category Stock Number file if your site chooses to do so.
CROSS-REFERENCE: 6914^H
1)= S ^ENG(6914,"H",$E(X,1,40),DA)=""
2)= K ^ENG(6914,"H",$E(X,1,40),DA)
CROSS-REFERENCE: 6914^A9^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the MFGR. EQUIPMENT NAME is changed a notification is sent out to update the Real Time
Location System (RTLS) database.
6914,4 MODEL 1;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X?.ANP)!($E(X)'?1AN) X
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Enter a model, 1-30 characters in length.
DESCRIPTION: Model number or designation, normally assigned by manufacturer. Spaces and punctuation may be
included.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^E
1)= S ^ENG(6914,"E",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"E",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^6914^4.1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S D
IU=X K Y X ^DD(6914,4,1,2,1.1) X ^DD(6914,4,1,2,1.4)
1.1)= S X=DIV X ^DD(6914,4,1,2,49.3) X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(
X,%+1,999)" S X=X_" "
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=6914,DIG=4.1 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"") S X=$P(Y(1),U,5),X=X S D
IU=X K Y S X="" X ^DD(6914,4,1,2,2.4)
2.4)= S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,5)=DIV,DIH=6914,DIG=4.1 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
49.2)= S X=DIV,Y(1)=X S X=" ~!@#$%^&*()_+|`-=\{}[]:"";'<>?,./",Y(2)=X S X=""
49.3)= X ^DD(6914,4,1,2,49.2) S X1=Y(2) S X2=Y(1) X "F %=1:1:$L(X1) F %Y=0:0 S %Y=$F(X2,$E(X1,%),%Y
) Q:'%Y S I=$E(X,%),X2=$E(X2,1,%Y-2)_I_$E(X2,%Y,999) S:I="""" %Y=%Y-1" S X=X2 S X=X
CREATE VALUE)= UPPERCASE(TRANSLATE(#4," ~!@#$%^&*()_+|`-=\{}[]:"";'<>?,./",""))_" "
DELETE VALUE)= @
FIELD)= #4.1
Compressed version of MODEL. Spaces and punctuation stripped away. One space concatenated on end
for consistency in sorting.
CROSS-REFERENCE: 6914^AU^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the MODEL is changed a notification is sent out to update the Real Time Location System
(RTLS) database.
6914,4.1 MODEL(C) 1;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>31!($L(X)<1) X
LAST EDITED: FEB 24, 1997
HELP-PROMPT: Answer must be 1-31 characters in length.
DESCRIPTION: This field contains a compressed value of the MODEL field. The computer automatically populates
this field by stripping the MODEL of punctuation and spaces and changing any lowercase characters
to uppercase.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the MODEL field of the EQUIPMENT INV. File
CROSS-REFERENCE: 6914^EC
1)= S ^ENG(6914,"EC",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"EC",$E(X,1,30),DA)
6914,5 SERIAL # 1;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1)!'(X?.NAP) X I $D(X),$G(DIUTIL)'="VERIFY FIELDS",$D(^ENG(6914,"F",X)) D EN^DDIO
L($C(7)_"NOTE: This serial number already in use.","","!?15") I $D(DJSC) H 3
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Enter a serial #, 1-30 characters in length.
DESCRIPTION: Serial number. Assigned by manufacturer. Should be unique within model and manufacturer. Use
numbers, upper case letters, punctuation, and spaces as needed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^F
1)= S ^ENG(6914,"F",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"F",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^6914^5.1
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S D
IU=X K Y X ^DD(6914,5,1,2,1.1) X ^DD(6914,5,1,2,1.4)
1.1)= S X=DIV X ^DD(6914,5,1,2,49.3) X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(
X,%+1,999)" S X=X_" "
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,6)=DIV,DIH=6914,DIG=5.1 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"") S X=$P(Y(1),U,6),X=X S D
IU=X K Y S X="" X ^DD(6914,5,1,2,2.4)
2.4)= S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,6)=DIV,DIH=6914,DIG=5.1 D ^DICR
:$O(^DD(DIH,DIG,1,0))>0
49.2)= S X=DIV,Y(1)=X S X=" ~!@#$%^&*()_+|`{}[]:"";'<>?,./-=\",Y(2)=X S X=""
49.3)= X ^DD(6914,5,1,2,49.2) S X1=Y(2) S X2=Y(1) X "F %=1:1:$L(X1) F %Y=0:0 S %Y=$F(X2,$E(X1,%),%Y
) Q:'%Y S I=$E(X,%),X2=$E(X2,1,%Y-2)_I_$E(X2,%Y,999) S:I="""" %Y=%Y-1" S X=X2 S X=X
CREATE VALUE)= UPPERCASE(TRANSLATE(#5," ~!@#$%^&*()_+|`{}[]:"";'<>?,./-=\",""))_" "
DELETE VALUE)= @
FIELD)= #5.1
Compressed version of SERIAL #. Spaces and punctuation stripped away. One space added for
consistency in sorting.
CROSS-REFERENCE: 6914^AV^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the SERIAL # is changed a notification is sent out to update the Real Time Location System
(RTLS) database.
6914,5.1 SERIAL #(C) 1;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>31!($L(X)<1) X
LAST EDITED: FEB 24, 1997
HELP-PROMPT: Answer must be 1-31 characters in length.
DESCRIPTION: This field contains a compressed value of the SERIAL # field. The computer automatically populates
this field by stripping the SERIAL # of punctuation and spaces and changing any lowercase
characters to uppercase.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the SERIAL # field of the EQUIPMENT INV. File
CROSS-REFERENCE: 6914^FC
1)= S ^ENG(6914,"FC",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"FC",$E(X,1,30),DA)
6914,6 EQUIPMENT CATEGORY 1;1 POINTER TO EQUIPMENT CATEGORY FILE (#6911)
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Select the equipment category.
DESCRIPTION: Category of device (ex: DEFIBRILLATOR, AIR CONDITIONER, etc.) to which this piece of equipment
belongs. Useful in establishing and maintaining preventive maintenance schedules.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^G
1)= S ^ENG(6914,"G",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"G",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^6914^27
1)= X ^DD(6914,6,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"") S X=$P(Y(1),U,9),X=X
S DIU=X K Y X ^DD(6914,6,1,2,1.1) X ^DD(6914,6,1,2,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(
6911,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,6,1,2,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(10
1),U,3)_":",2),$C(59),1)]"" S D0=I(0,0)
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,9)=DIV,DIH=6914,DIG=27 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(
6911,3,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^ENG(6911,D0,0)):^(0),1:"")
CREATE CONDITION)= #6:#3]""
CREATE VALUE)= INTERNAL(#6:#3)
DELETE VALUE)= NO EFFECT
FIELD)= JCAHO
This is a convenience trigger. It will only be executed if the JCAHO field in the EQUIPMENT
CATEGORY File (#6911) has a value.
CROSS-REFERENCE: ^^TRIGGER^6914^9
1)= X ^DD(6914,6,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X
S DIU=X K Y X ^DD(6914,6,1,3,1.1) X ^DD(6914,6,1,3,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(
6911,D0,0)):^(0),1:"") S X=$P(Y(101),U,2),X=X S X=X S D0=I(0,0)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,6,1,3,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(10
1),U,2)_":",2),$C(59),1)]"" S D0=I(0,0)
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=6914,DIG=9 D ^DICR:$
O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(
6911,2,0)):$P(^(0),U,3),1:""),Y(101)=$S($D(^ENG(6911,D0,0)):^(0),1:"")
CREATE CONDITION)= #6:#2]""
CREATE VALUE)= INTERNAL(#6:#2)
DELETE VALUE)= NO EFFECT
FIELD)= lock
Makes it possible for sites to maintain the 'LOCKOUT REQUIRED?' fields in their Equipment File
(#6914) by maintaining the 'LOCKOUT REQUIRED?' fields in their Equipment Category File (#6911),
which has fewer records.
CROSS-REFERENCE: 6914^AW^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the EQUIPMENT CATEGORY is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,7 TYPE OF ENTRY 0;4 SET
'NX' FOR NON-EXPENDABLE EQPT;
'BSE' FOR BUILDING SERVICE EQPT;
'EXP' FOR EXPENDABLE EQPT;
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS" D TYPE^ENLIB3
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Select the type of entry.
DESCRIPTION: Discriminates between entries for which a CMR Official is legally responsible and those that are
accounted for in other ways.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Can't change this field until FD Doc
ument sent.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^AI^MUMPS
1)= I $P(^ENG(6914,DA,0),U,4)="NX",$P($G(^(2)),U,3)>4999.99,$P($G(^(8)),U,2)="" S $P(^(8),U,2)=$S($
P($G(^(2)),U,3)>99999.99:1,1:"A")
2)= Q
Populate a blank INVESTMENT CATEGORY for NX equipment with a value of $5,000 or more.
CROSS-REFERENCE: 6914^AR
1)= S ^ENG(6914,"AR",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AR",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^AX^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the TYPE OF ENTRY is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,8 *FEDERAL SUPPLY CLASSIFICATION 2;11 POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2)
LAST EDITED: FEB 14, 1997
DESCRIPTION: Federal supply classification. Please enter the FSC that most closely categorizes this item. NOTE:
This field is not used and it will be deleted by a future version.
6914,9 LOCKOUT REQUIRED? 0;5 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: SEP 13, 1996
HELP-PROMPT: Must this equipment be rendered inoperative prior to service.
DESCRIPTION: OSHA requires employers to establish energy control procedures to ensure that employees do not
attempt to service equipment where the unexpected energizing, start up, or release of stored energy
could occur and cause injury until the equipment has been isolated and rendered inoperative.
This field should be set to YES if this procedure (commonly called LOCKOUT/TAGOUT) is required.
NOTES: TRIGGERED by the EQUIPMENT CATEGORY field of the EQUIPMENT INV. File
CROSS-REFERENCE: 6914^AJ
1)= S ^ENG(6914,"AJ",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AJ",$E(X,1,30),DA)
6914,10 VENDOR POINTER 2;1 POINTER TO VENDOR FILE (#440)
LAST EDITED: JUN 19, 1995
DESCRIPTION:
Vendor from whom unit was actually purchased.
6914,11 PURCHASE ORDER # 2;2 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:X[""""!(X'?.ANP) X I $D(X) K:$L(X)>12!($L(X)<1) X
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Enter a purchase order #, 1-12 characters in length.
DESCRIPTION: VA Purchase Order number. May be assigned by the facility or perhaps by a centralized purchasing
unit of the Office of Acquisitions and Material Management.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^M
1)= S ^ENG(6914,"M",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"M",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^AH^MUMPS
1)= D ^ENLIB3
2)= Q
CROSS-REFERENCE: 6914^AY^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the PURCHASE ORDER # is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,12 TOTAL ASSET VALUE 2;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999999)!(X<0) X I $G(DIUTIL)'="VERIFY FIELDS",$D(X
),$P(^ENG(6914,DA,0),U,4)="NX" D NX^ENLIB3
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Enter the total asset value between 0 and 99999999.
DESCRIPTION: Cost of this equipment at the time of purchase. This field is likely to become the basis for
estimating depreciated value and replacement cost.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FC Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^AZ^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the TOTAL ASSET VALUE is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,12.5 LEASE COST 2;12 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: JUN 19, 1995
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION:
Annual lease cost.
6914,13 ACQUISITION DATE 2;4 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$P(^ENG(6914,DA,0),U,4)="NX" D N
X^ENLIB3
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Enter the acquisition date.
DESCRIPTION:
Date of acceptance of this equipment by the agency. Month and year are generally sufficient.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FC Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^AF^MUMPS
1)= I $P(^ENG(6914,DA,2),U,6)]"",$P(^(2),U,10)="" S $P(^(2),U,10)=($E(X,1,3)+$P(^(2),U,6))_$S($E(X,
4,7)="0229":"0228",1:$E(X,4,7))
2)= Q
Determine initial replacement date from acquisition date and life expectancy.
CROSS-REFERENCE: 6914^A1^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the AQUISITION DATE is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,13.5 ACQUISITION SOURCE 2;14 POINTER TO SOURCE CODE FILE (#420.8)
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS",$P(^ENG(6914,DA,0),U,4)="NX" D NX^ENLIB3
LAST EDITED: OCT 31, 1996
DESCRIPTION:
Source of acquisition for this piece of equipment.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,14 WARRANTY EXP. DATE 2;5 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
DESCRIPTION: Date on which repairs to this item become the sole responsibility of the government. Generally
stipulated in the contract or sales agreement.
6914,15 LIFE EXPECTANCY 2;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$P(^ENG(6914,DA,0),U,4)="
NX" D NX^ENLIB3
LAST EDITED: OCT 31, 1996
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 99
DESCRIPTION: Number of years for which this device is expected to provide useful and economical service.
Generally determined by Supply Service on the basis of cumulative experience.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FC Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the CATEGORY STOCK NUMBER field of the EQUIPMENT INV. File
CROSS-REFERENCE: 6914^AG^MUMPS
1)= I $P(^ENG(6914,DA,2),U,4)]"",$P(^(2),U,10)="" S $P(^(2),U,10)=($E($P(^(2),U,4),1,3)+X)_$S($E($P
(^(2),U,4),4,7)="0229":"0228",1:$E($P(^(2),U,4),4,7))
2)= Q
Determine initial replacement date from acquisition date and life expectancy.
6914,16 REPLACEMENT DATE 2;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) D DTCHK^ENLIB3(16) I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$D(^E
NG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: OCT 31, 1996
DESCRIPTION: Date on which this equipment is scheduled for replacement. Month and year are sufficient. When
equipment is entered, this field should be the ACQUISITION DATE plus the LIFE EXPECTANCY. As
scheduled REPLACEMENT DATE is approached, however, it may be necessary to revise it. Such revisions
do not always alter the official LIFE EXPECTANCY.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FC Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,17 NXRN # 2;7 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 21, 1988
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999
DESCRIPTION: Sequential number assigned by centralized CMR management system in Austin. Should be unique within
the facility.
CROSS-REFERENCE: 6914^I
1)= S ^ENG(6914,"I",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"I",$E(X,1,30),DA)
6914,18 CATEGORY STOCK NUMBER 2;8 POINTER TO CATEGORY STOCK NUMBER FILE (#6917)
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS",$D(^ENG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Select the category stock number.
DESCRIPTION: Pointer to Category Stock Number File. This file was introduced to DHCP with Version 6.5 of the
Engineering Package, and is maintained by Acquisition and Materiel Management (Cataloging).
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FC Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^J
1)= S ^ENG(6914,"J",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"J",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^6914^15
1)= X ^DD(6914,18,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"") S X=$P(Y(1),U,6),X=
X S DIU=X K Y X ^DD(6914,18,1,2,1.1) X ^DD(6914,18,1,2,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENCSN(6917,+D0,0)) D0=-1 S Y(101)=$S($D(^EN
CSN(6917,D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,18,1,2,69.2) S X=X>0,Y(102)=X S X=Y(2)=0,Y=
X,X=Y(102),X=X&Y S D0=I(0,0)
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),2)):^(2),1:""),DIV=X S $P(^(2),U,6)=DIV,DIH=6914,DIG=15 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= X $P(^DD(6914,66,0),U,5,99) S Y(2)=X S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^ENCSN(6917,+
D0,0)) D0=-1 S Y(101)=$S($D(^ENCSN(6917,D0,0)):^(0),1:"") S X=$P(Y(101),U,2)
CREATE CONDITION)= (#18:#1)>0&(#66=0)
CREATE VALUE)= #18:#1
DELETE VALUE)= NO EFFECT
FIELD)= #15
Brings in a value from the Category Stock Number. User may manually overwrite after the fact, but
selection of a Category Stock Number is designed to automatically update the LIFE EXPECTANCY.
Assets which are currently reported to FAP won't be changed.
CROSS-REFERENCE: 6914^A2^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the CATEGORY STOCK NUMBER is changed a notification is sent out to update the Real Time
Location System (RTLS) database.
6914,19 CMR 2;9 POINTER TO CMR FILE (#6914.1)
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS" K:$$CMRCHK^ENTIDD(DA,X) X I $D(X) D NX^ENLIB3
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Select the consolidated memorandum of receipt (CMR).
DESCRIPTION: Consolidated Memorandum of Receipt. The basic instrument by which accountability for capital
equipment is established.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FR Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^AD
1)= S ^ENG(6914,"AD",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AD",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^6914^60
1)= X ^DD(6914,19,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,5),X=
X S DIU=X K Y X ^DD(6914,19,1,2,1.1) X ^DD(6914,19,1,2,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG(6914.1,+D0,0)) D0=-1 S Y(101)=$S($D(^EN
G(6914.1,D0,0)):^(0),1:"") S X=$P(Y(101),U,7) S D0=I(0,0)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,19,1,2,69.2) S X=$L(X)>2,Y(102)=X S X=Y(2)=
0,Y=X,X=Y(102),X=X&Y S D0=I(0,0)
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""),DIV=X S $P(^(9),U,5)=DIV,DIH=6914,DIG=60 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
2)= Q
69.2)= X $P(^DD(6914,66,0),U,5,99) S Y(2)=X S I(0,0)=$S($D(D0):D0,1:""),D0=Y(0) S:'$D(^ENG(6914.1,+
D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6914.1,D0,0)):^(0),1:"") S X=$P(Y(101),U,7)
CREATE CONDITION)= $L(#19:#5)>2&(#66=0)
CREATE VALUE)= #19:#5
DELETE VALUE)= NO EFFECT
FIELD)= #60
Pick up accounting station from CMR when possible. Don't change if asset if currently reported to
FAP.
CROSS-REFERENCE: ^^TRIGGER^6914^21
1)= X ^DD(6914,19,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"") S X=$P(Y(1),U,2),X=
X S DIU=X K Y X ^DD(6914,19,1,3,1.1) X ^DD(6914,19,1,3,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG(6914.1,+D0,0)) D0=-1 S Y(101)=$S($D(^EN
G(6914.1,D0,0)):^(0),1:"") S X=$P(Y(101),U,5),X=X S X=X S D0=I(0,0)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"") S X=$S('$D(^D
IC(49,+$P(Y(1),U,2),0)):"",1:$P(^(0),U,1))=""
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,2)=DIV,DIH=6914,DIG=21 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= SERVICE POINTER=""
CREATE VALUE)= INTERNAL(CMR:SERVICE)
DELETE VALUE)= NO EFFECT
FIELD)= SERVICE POINTER
Picks up the SERVICE POINTER field from the CMR when possible.
CROSS-REFERENCE: 6914^A3^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the CMR is changed a notification is sent out to update the Real Time Location System (RTLS)
database.
FIELD INDEX: ACMR (#783) MUMPS ACTION
Short Descr: Terminate IT assignments when appropriate.
Description: Automatically terminate active IT assignments of responsibility when the equipment CMR is deleted
or changed to one that does not have IT TRACKING = YES. A message is sent to mail group G.EN IT
EQUIPMENT if any assignments are terminated.
Set Logic: Q
Kill Logic: D CMRUPD^ENTIDD(DA,X1(1),X2(1))
Kill Cond: S X=$S(X2(1)'=X1(1):1,1:0)
X(1): CMR (6914,19) (forwards)
6914,19.5 SERVICE CONTRACT 7;1 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: JUN 25, 1988
DESCRIPTION: YES indicates that device in question is under a service contract with an entity outside the
medical center. A more comprehensive module for service contracts is being developed jointly by
AEMS/MERS and IFCAP and will appear in a future release.
6914,19.6 SERVICE CONTRACT COST 7;2 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>500000)!(X<0) X
LAST EDITED: JUN 25, 1988
HELP-PROMPT: Type a Dollar Amount between 0 and 500000, 2 Decimal Digits
DESCRIPTION: Annual cost of service contract on this item. If contract involves one fixed amount for a number of
like devices, you should prorate the cost among the covered items.
6914,20 USE STATUS 3;1 SET
'1' FOR IN USE;
'2' FOR OUT OF SERVICE;
'3' FOR LOANED OUT;
'4' FOR TURNED IN;
'5' FOR LOST OR STOLEN;
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Select the use status.
DESCRIPTION:
Tells the user whether or not the equipment is currently in active use.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^A4^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the USE STATUS is changed a notification is sent out to update the Real Time Location System
(RTLS) database.
6914,20.1 ACQUISITION METHOD 3;4 SET
'C' FOR CONSTRUCTED;
'G' FOR GIFT/BEQUEST/DONATION;
'L' FOR LEASED;
'M' FOR CAPITAL LEASE;
'O' FOR OTHER;
'P' FOR PURCHASED;
'R' FOR TRANSFERRED;
'T' FOR TRADED;
'X' FOR EXCESS;
'1' FOR ON LOAN TO VAMC;
LAST EDITED: DEC 04, 1997
DESCRIPTION:
Set of codes which establishes whether or not the facility legally owns the equipment.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FC Document to change this field
.","","!?5") I 1
6914,20.5 TURN-IN DATE 3;3 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) D DTCHK^ENLIB3(20.5) I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$D(
^ENG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: OCT 31, 1996
DESCRIPTION: Date on which item is turned over to A&MM for disposition. At this point it should be removed from
the using service CMR.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FD Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,21 SERVICE POINTER 3;2 POINTER TO SERVICE/SECTION FILE (#49)
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Select the service/section.
DESCRIPTION:
The functional entity (generally a service) within the facility that uses the device.
NOTES: TRIGGERED by the CMR field of the EQUIPMENT INV. File
CROSS-REFERENCE: 6914^AC
1)= S ^ENG(6914,"AC",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AC",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^A5^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the SERVICE POINTER is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,22 DISPOSITION DATE 3;11 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) D DTCHK^ENLIB3(22) I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$D(^E
NG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: SEP 19, 2013
HELP-PROMPT: Enter the disposition date.
DESCRIPTION: Date on which item is physically disposed of by Materiel Management. Items may be excessed,
scrapped, etc. Item is removed from asset account on this date.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FD Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^A10^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the DISPOSITION DATE is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,23 PHYSICAL INVENTORY DATE 2;13 DATE
INPUT TRANSFORM: S %DT="E",%DT(0)="-NOW" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: SEP 24, 2013
HELP-PROMPT: Future dates are not allowed.
DESCRIPTION: Date of last physical inventory of this item (CMR reconciliation). Intent is to populate this
field automatically via physical inventory software using bar code technologies. Completion of a
Preventive Maintenance Inspection will also update this field, provided that the PM STATUS does not
contain 'DEFERRED'.
For equipment with an RTLS tag ID defined, the physical inventory date is generated by RTLS tag
readers.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,24 LOCATION 3;5 POINTER TO ENG SPACE FILE (#6928)
LAST EDITED: SEP 24, 2013
HELP-PROMPT: Enter as ROOM-BUILDING (or select a SYNONYM).
DESCRIPTION: Physical location of this item at the facility. For equipment being tracked by RTLS, the location
is populated by the AEMS-MERS RTLS interface.
CROSS-REFERENCE: 6914^D
1)= S ^ENG(6914,"D",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"D",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^AN^MUMPS
1)= S:$P($P($G(^ENG("SP",X,0)),U),"-",2)]"" ^ENG(6914,"N",$P($P(^ENG("SP",X,0),U),"-",2),DA)=""
2)= K:$P($P($G(^ENG("SP",X,0)),U),"-",2)]"" ^ENG(6914,"N",$P($P(^ENG("SP",X,0),U),"-",2),DA)
Facilitates equipment lookup by BUILDING.
CROSS-REFERENCE: ^^TRIGGER^6914^24.5
1)= Q
2)= X ^DD(6914,24,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"") S X=$P(Y(1),U,8),X=
X S DIU=X K Y X ^DD(6914,24,1,3,2.1) X ^DD(6914,24,1,3,2.4)
2.1)= S X=DIV S X=$S('$D(^ENG("SP",+X,0)):"",1:$P(^(0),U,1))
2.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"") S X=$S('$D(^E
NG("SP",+$P(Y(1),U,5),0)):"",1:$P(^(0),U,1))'=$S('$D(^ENG("SP",+X,0)):"",1:$P(^(0),U,1))
2.4)= S DIH=$S($D(^ENG(6914,DIV(0),3)):^(3),1:""),DIV=X S $P(^(3),U,8)=DIV,DIH=6914,DIG=24.5 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= LOCATION'=OLD LOCATION
DELETE VALUE)= OLD LOCATION
FIELD)= PREVIOUS LOCATION
Save old value when changed. Maintains previous location chain.
FIELD INDEX: ALNSP (#784) MUMPS ACTION
Short Descr: Deletes the NON-SPACE FILE LOCATION field.
Description: This cross-reference deletes the NON-SPACE FILE LOCATION value whenever a new LOCATION value is
entered.
Set Logic: D DELNSP^ENTINSD(DA)
Set Cond: S X=$S((X2(1)'=X1(1))&(X2(1)'=""):1,1:0)
Kill Logic: Q
X(1): LOCATION (6914,24) (Subscr 1) (forwards)
6914,24.5 PREVIOUS LOCATION 3;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: SEP 04, 1996
HELP-PROMPT: ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
DESCRIPTION: Physical location of device immediately prior to its present location. This field is intended to
be maintained by inventory control software rather than by explicit data entry. Format should be
same as LOCATION.
UNEDITABLE
NOTES: TRIGGERED by the LOCATION field of the EQUIPMENT INV. File
CROSS-REFERENCE: ^^TRIGGER^6914^29
1)= Q
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"") S X=$P(Y(1),U,8
)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV
S X=X X ^DD(6914,24.5,1,1,2.4)
2.4)= S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""),DIV=X S $P(^(9),U,1)=DIV,DIH=6914,DIG=29 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= PREVIOUS LOCATION'=OLD PREVIOUS LOCATION
DELETE VALUE)= OLD PREVIOUS LOCATION
FIELD)= SECOND PREVIOUS LOCATION
Save old value when changed.
6914,25 VA PM NUMBER 3;6 FREE TEXT
INPUT TRANSFORM: K:X[""""!(X[" ")!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'(X?.ANP) X I $G(DIUTIL)'="VERIFY FIELDS
",$D(X),$D(^ENG(6914,"C",X)) D EN^DDIOL($C(7)_"IN USE (Entry #: "_$O(^ENG(6914,"C",X,0))_").","","!
?15") K X
LAST EDITED: APR 24, 1998
HELP-PROMPT: ANSWER MUST BE 9 OR 10 CHARACTERS IN LENGTH, NO SPACES
DESCRIPTION: Property management number. Assigned by Supply Service upon receipt of new equipment. Should be
unique within the facility. First four digits correspond to the Federal Supply Classification
number.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^C
1)= S ^ENG(6914,"C",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"C",$E(X,1,30),DA)
6914,26 LOCAL IDENTIFIER 3;7 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$D(^ENG(69
14,"L",X)) D EN^DDIOL($C(7)_"NOTE: This LOCAL ID is already in use.","","!?15") I $D(DJSC) H 3
LAST EDITED: APR 24, 1998
HELP-PROMPT: ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
DESCRIPTION: An optional identifier that has meaning to the facility. Most sites prefer to make these
identifiers unique.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^L
1)= S ^ENG(6914,"L",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"L",$E(X,1,30),DA)
6914,27 JCAHO 3;9 SET
'Y' FOR YES;
'N' FOR NO;
LAST EDITED: OCT 06, 1988
DESCRIPTION: New Joint Commission standards for accreditation of health care facilities require (in part) that a
"separable inventory" of equipment be maintained. This flag should be set to 'YES' for items
subject to review by Joint Commission surveyors.
NOTES: TRIGGERED by the EQUIPMENT CATEGORY field of the EQUIPMENT INV. File
6914,28 BAR CODE LABEL DATE 3;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 16, 1990
DESCRIPTION: Whenever a bar code label is produced, the current date is stored in this field. The Engineering
Package does not use this information, but individual sites may find it helpful during the
equipment lablelling process.
6914,28.2 ORIGINAL BAR CODE ID 12;0 Multiple #6914.05
6914.05,.01 ORIGINAL BAR CODE ID 0;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<3) X
LAST EDITED: JAN 10, 2001
HELP-PROMPT: Answer must be 3-15 characters in length.
DESCRIPTION: The original bar code identifier. This field is normally populated only in cases where a site
undergoes consolidation with another facility. In such a case, the routines used to merge the
site's equipment records with those of the primary site will record an image of the original bar
code label so that the Engineering Package will still be able to recognize it. This will enable
sites affected by merger to continue to use their bar coded inventory and preventive maintenance
functions without replacing existing bar coded equipment labels.
The format of this field is of the form 'SSS EENNNN', where SSS is the station number and NNNN is
the Equipment ID# (also the internal entry number) prior to consolidation. ' EE' is a literal
character string used in bar coding all equipment labels.
UNEDITABLE
CROSS-REFERENCE: 6914.05^B
1)= S ^ENG(6914,DA(1),12,"B",$E(X,1,30),DA)=""
2)= K ^ENG(6914,DA(1),12,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^OEE
1)= S ^ENG(6914,"OEE",$E(X,1,30),DA(1),DA)=""
2)= K ^ENG(6914,"OEE",$E(X,1,30),DA(1),DA)
Used for quick lookup by original bar code label at sites that have experienced a change in
station number.
6914,29 SECOND PREVIOUS LOCATION 9;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 04, 1996
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Previous location. Maintained automatically.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the PREVIOUS LOCATION field of the EQUIPMENT INV. File
CROSS-REFERENCE: ^^TRIGGER^6914^29.1
1)= Q
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,1
)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV
S X=X X ^DD(6914,29,1,1,2.4)
2.4)= S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""),DIV=X S $P(^(9),U,2)=DIV,DIH=6914,DIG=29.1 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= SECOND PREVIOUS LOCATION'=OLD SECOND PREVIOUS LOCATION
DELETE VALUE)= OLD SECOND PREVIOUS LOCATION
FIELD)= THIRD PREVIOUS LOCATION
Save old value when changed.
6914,29.1 THIRD PREVIOUS LOCATION 9;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 04, 1996
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Previous location. Automatically maintained.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the SECOND PREVIOUS LOCATION field of the EQUIPMENT INV. File
CROSS-REFERENCE: ^^TRIGGER^6914^29.2
1)= Q
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,2
)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV
S X=X X ^DD(6914,29.1,1,1,2.4)
2.4)= S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""),DIV=X S $P(^(9),U,3)=DIV,DIH=6914,DIG=29.2 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= THIRD PREVIOUS LOCATION'=OLD THIRD PREVIOUS LOCATION
DELETE VALUE)= OLD THIRD PREVIOUS LOCATION
FIELD)= FOURTH PREVIOUS LOCATION
Save old value when changed.
6914,29.2 FOURTH PREVIOUS LOCATION 9;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: SEP 04, 1996
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Previous location. Automatically maintained.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the THIRD PREVIOUS LOCATION field of the EQUIPMENT INV. File
CROSS-REFERENCE: ^^TRIGGER^6914^29.3
1)= Q
2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,3
)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV
S X=X X ^DD(6914,29.2,1,1,2.4)
2.4)= S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""),DIV=X S $P(^(9),U,4)=DIV,DIH=6914,DIG=29.3 D ^DIC
R:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= NO EFFECT
DELETE CONDITION)= FOURTH PREVIOUS LOCATION'=OLD FOURTH PREVIOUS LOCATION
DELETE VALUE)= OLD FOURTH PREVIOUS LOCATION
FIELD)= FIFTH PREVIOUS LOCATION
Save old value when changed.
6914,29.3 FIFTH PREVIOUS LOCATION 9;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: JAN 26, 1993
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION:
Previous location. Maintained automatically.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the FOURTH PREVIOUS LOCATION field of the EQUIPMENT INV. File
6914,30 RESPONSIBLE SHOP 4;0 POINTER Multiple #6914.04 (Add New Entry without Asking)
DESCRIPTION: Any shop having maintenance responsibility for this item should be entered here. The principal use
of this field is in generating preventive maintenance worklists. If there is no RESPONSIBLE SHOP,
the item will be ignored by the PM module.
6914.04,.01 RESPONSIBLE SHOP 0;1 POINTER TO ENGINEERING SECTION LIST FILE (#6922) (Multiply asked)
LAST EDITED: FEB 05, 2016
HELP-PROMPT: Select the responsible shop.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914.04^B
1)= S ^ENG(6914,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^ENG(6914,DA(1),4,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^AB
1)= S ^ENG(6914,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^ENG(6914,"AB",$E(X,1,30),DA(1),DA)
This cross reference keeps track of the Engineering Section shop responsible for performing
maintenance on a given piece of equipment.
CROSS-REFERENCE: 6914^A6^MUMPS
1)= D WC^VIAATRI(6914,DA(1))
2)= D WC^VIAATRI(6914,DA(1))
NOREINDEX)= 1
After the RESPONSIBLE SHOP is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914.04,1 TECHNICIAN 0;2 POINTER TO ENG EMPLOYEE FILE (#6929)
LAST EDITED: DEC 21, 1987
DESCRIPTION: The Engineering Service employee who normally does the PM work on this piece of equipment for
this shop.
6914.04,2 STARTING MONTH 1;1 SET
'1' FOR JAN;
'2' FOR FEB;
'3' FOR MAR;
'4' FOR APR;
'5' FOR MAY;
'6' FOR JUN;
'7' FOR JUL;
'8' FOR AUG;
'9' FOR SEP;
'10' FOR OCT;
'11' FOR NOV;
'12' FOR DEC;
LAST EDITED: JUN 27, 1995
DESCRIPTION: STARTING MONTH is used by the PM module as a criterion for determining when a PM is due. Let's
consider a fairly complex example: an item subject to MONTHLY, QUARTERLY, and ANNUAL PM
inspections. If STARTING MONTH were set to FEB; an ANNUAL inspection would be scheduled in FEB;
QUARTERLY inspections in MAY, AUG, and NOV; and MONTHLY inspections in MAR, APR, JUN, JUL, SEP,
OCT, DEC, and JAN.
If STARTING MONTH is left blank, JAN will be assumed.
6914.04,2.6 SKIP MONTHS 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<7)!'(X?3U1"-"3U) X I $D(X) D SKPCK^ENEQPMP1 K:ENA["ERR" X
LAST EDITED: AUG 29, 1988
HELP-PROMPT: ANSWER MUST BE 7 CHARACTERS IN LENGTH
DESCRIPTION: A range of months (inclusive) during which PMI's are to be suspended. For example, an entry of
'NOV-MAR' for an air-conditioner would suppress the scheduling of any PMI's in NOV, DEC, JAN,
FEB, and MAR.
Some care needs to be taken when using this field. If you want an ANNUAL inspecton, for
instance, be sure that the STARTING MONTH is not within the range specified by the SKIP MONTHS;
otherwise the ANNUAL PMI will never be scheduled.
Entries must take the form 'MMM-NNN', where MMM is a three character abbreviation of the first
month for which PMiI's are to be suspended and NNN is a three character abbreviation for the last
month for which PMI's are to be suspended. Valid abbreviations are: JAN, FEB, MAR, APR, MAY, JUN,
JUL, AUG, SEP, OCT, NOV, and DEC.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914.04,2.7 CRITICALITY 0;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAR 05, 1997
HELP-PROMPT: Type a Number between 1 and 99, 0 Decimal Digits
DESCRIPTION: An index of the importance of performing PMI's on this device. Enter an integer between 1 and
some upper limit not greater than 99 (most sites use 10 or 20). The closer the values are to the
upper limit the more critical the PMI's become. A value of 1 would indicate that PMI's are
desireable but far from essential (least critical).
When PM worklists are generated, the system will ask if all devices should be included or just
those whose CRITICALITY is within a certain user selectable range (say, 7 to 10). This is
intended as a means of adjusting workload to match available resources.
Use of this feature is left entirely to the discretion of each site. If a CRITICALITY range is
selected, the system will ask the user whether devices having no CRITICALITY should be included
or excluded.
6914.04,3 FREQUENCY 2;0 SET Multiple #6914.43
6914.43,.01 FREQUENCY 0;1 SET (Multiply asked) (audited)
'A' FOR ANNUAL;
'S' FOR SEMI-ANNUAL;
'Q' FOR QUARTERLY;
'M' FOR MONTHLY;
'BM' FOR BI-MONTHLY;
'W' FOR WEEKLY;
'BW' FOR BI-WEEKLY;
'N' FOR NONE;
'BA' FOR BI-ANNUAL;
'TA' FOR TRI-ANNUAL;
'PA' FOR PENT-ANNUAL;
'QA' FOR QUAD-ANNUAL;
LAST EDITED: JAN 29, 2024
HELP-PROMPT: Please select the frequency when preventive maintenance will be performed.
DESCRIPTION: Make a separate entry for each category (MONTHLY, QUARTERLY, etc.) of PMI that is to be
scheduled for this device. The PM module looks at this field in conjunction with the STARTING
MONTH when PM lists are generated.
Let's consider a fairly complex example: a device with SEMI-ANNUAL, QUARTERLY, and MONTHLY
PMI's and a STARTING MONTH of MAR. Assuming no entry for SKIP MONTHS, the following PMI's will
be scheduled:
SEMI-ANNUAL in MAR and SEP;
QUARTERLY in JUN and DEC;
MONTHLY in APR, MAY, JUL, AUG, OCT, NOV, JAN and FEB.
AUDIT: YES, ALWAYS
6914.43,1 HOURS (Estimated) 0;2 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: DEC 21, 1987
HELP-PROMPT: Type a Number between .1 and 200, 1 Decimal Digit
DESCRIPTION: Approximate amount of time required for this PMI(standard hours), to the nearest tenth of an
hour. This value will be recorded in the EQUIPMENT HISTORY field when a PM is closed out unless
the user chooses to explicitly enter another (more precise) value.
6914.43,2 MATERIAL COST (Estimated) 0;3 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20000)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 17, 1988
HELP-PROMPT: Type a Number between 0 and 20000, 0 Decimal Digits
DESCRIPTION: Estimated material cost for this PMI (standard cost). This cost will be charged to the piece of
equipment whenever a PM of this type is closed out unless another (more precise) value is
entered at close-out time.
6914.43,3 LEVEL 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>12!($L(X)<1)!'(X?1N.",1".",2".",3".",4".",5".",6") X
LAST EDITED: JAN 25, 1988
HELP-PROMPT: ANSWER MUST BE 1-12 CHARACTERS IN LENGTH. IF MORE THAN ONE NUMBER APPLIES, SEPARATE NUMBERS
WITH A COMMA.
DESCRIPTION: Each scheduled PMI may be composed of some combination of one or more of the following
discrete levels of activity:
Level 1 - Visual inspection only;
Level 2 - Check and adjust operator controls;
Level 3 - Electrical safety analysis;
Level 4 - Minor parts replacement;
Level 5 - Major parts replacement;
Level 6 - Complete overhaul.
LEVEL is an optional field and is intended to accommodate the needs of certain facilities with
highly developed PM programs. Entries for LEVEL (if any) will be printed on the PM worklist as
a reminder to the responsible technician.
If more than one number applies, separate numbers a comma.
6914.43,4 PROCEDURE 0;5 POINTER TO PM PROCEDURES FILE (#6914.2)
LAST EDITED: APR 20, 1988
DESCRIPTION: Enter the abbreviation (4 to 10 characters) of the PROCEDURE to be followed in performing this
category of PMI on this device. The title (as well as the abreviation) of the PM PROCEDURE will
appear on PM worksheets for reference.
If disk space permits, the actual procedure itself may be entered in the TEXT field of the PM
PROCEDURES file (Number 6914.2) and printed on demand. In any event, the procedure should be
on file and readily accessible to the technician performing the work.
6914.43,5 STARTING YEAR (4 numerics) 0;6 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>2100)!(X<1900)!(X?.E1"."1N.N) X
LAST EDITED: JAN 09, 1997
HELP-PROMPT: Enter year as four numeric characters, 1900 thru 2100 are allowed.
DESCRIPTION: This field has meaning only for BI-ANNUAL and TRI-ANNUAL frequencies. STARTING YEAR must be
entered as four numeric characters (ex: 1998, 2002, etc.).
6914,31 DISPOSITION METHOD 3;12 POINTER TO NX DISPOSITION METHOD FILE (#6914.8)
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS",$D(^ENG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: OCT 31, 1996
DESCRIPTION: The means by which Materiel Management finally disposes of a piece of equipment that has been
'turned in'.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FD Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,31.5 ORIGINAL ASSET VALUE 3;15 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X
LAST EDITED: OCT 21, 1996
HELP-PROMPT: Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits
DESCRIPTION: The historical asset value of capitalized nonexpendable (NX) equipment which has been turned-in.
This field is automatically populated with the current asset value when a FD Document for Turn-In
is generated. This value is necessary for disposition reports.
UNEDITABLE
6914,32 DISPOSITION VALUE 3;13 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$P(^E
NG(6914,DA,0),U,4)="NX" D NX^ENLIB3
LAST EDITED: OCT 31, 1996
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: Monetary value realized by the VA from the disposition of used equipment. May be in the form of
trade-in value, resale value, or scrap value.
Not required if DISPOSITION METHOD is EXCHANGE/SALE, VA EXCESS TO OGA, ABANDONED/DESTROYED, or
STATION EXCESS REASSIGNED WITHIN VA.
Enter proceeds realized from VA EXCESS TO SCRAP or VA EXCESS SOLD BY VA.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FD Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,33 CONTROLLED ITEM? 8;1 SET
'0' FOR NO;
'1' FOR YES;
LAST EDITED: JUN 19, 1995
DESCRIPTION:
Prior approval of VACO is required.
6914,34 INVESTMENT CATEGORY 8;2 SET
'1' FOR CAPITALIZED/ACCOUNTABLE;
'A' FOR NOT CAPITALIZED/ACCOUNTABLE;
'0' FOR EXPENSED/OPTIONALLY ACCOUNTABLE;
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS" D CAP^ENLIB3
LAST EDITED: MAY 29, 2002
DESCRIPTION: This field identifies the capitalization status and accountability of nonexpendable equipment. In
general, equipment with an asset value of $100,000 or more is capitalized. In general, equipment
with an asset value of $5,000 or more must be inventoried (accountable) per VHA directive. In
general, equipment with asset an value less than $5,000 is not required to be inventoried by VHA
directive, but may have to be inventoried per VISN or Medical Center requirements (optionally
accountable).
Accountable equipment (capitalized and not capitalized) will be included on the Equipment Inventory
Listing (EIL) report. Other equipment will be included on the Non-EIL Inventory report.
TECHNICAL DESCR: The internal value of the field must evaluate as false when an equipment item is not capitalized.
Some existing programs identify equipment as capitalized when the internal value of this field is
true. Other programs identify equipment as capitalized when the internal value of this field is 1.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Can't change this field until FD Doc
ument sent.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,35 FUND CONTROL POINT 8;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$D(^ENG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: OCT 31, 1996
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
Fund Control Point from which item was originally procured. If unknown, leave blank.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FR Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,36 *COST CENTER 8;4 POINTER TO COST CENTER FILE (#420.1)
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS",$D(^ENG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: APR 14, 1997
DESCRIPTION: This field is no longer used. The cost center of an equipment item is now computed based on the
first two characters of the CMR field. See the COST CENTER field in the CMR file for more
information. The cost center can be printed in equipment reports by using CMR:COST CENTER.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FR Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,37 *SUBACCOUNT 8;5 POINTER TO BUDGET OBJECT CODE FILE (#420.2)
LAST EDITED: FEB 14, 1997
DESCRIPTION:
NOTE: This field is not used and it will be deleted by a future version.
6914,38 STANDARD GENERAL LEDGER 8;6 POINTER TO NX SGL FILE (#6914.3)
INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U,5)=""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""VERIFY FIELDS"")" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DIUTIL)'="VERIFY FIELDS" D NX^ENLIB3
LAST EDITED: OCT 21, 1997
DESCRIPTION: In accordance with the VA administrative accounting system. Only a limited number of Standard
General Ledger Accounts are appropriate for use with non-expendable equipment.
SCREEN: S DIC("S")="I $P($G(^(0)),U,5)=""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""VERIFY FIELDS"")"
EXPLANATION: Only active SGLs can be selected.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Can't change this field until FD Doc
ument sent.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the BUDGET OBJECT CODE field of the EQUIPMENT INV. File
6914,39 *YALD CODE 8;7 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X
LAST EDITED: FEB 14, 1997
HELP-PROMPT: ANSWER MUST BE 3-10 CHARACTERS IN LENGTH
DESCRIPTION:
NOTE: This field is not used and it will be deleted by a future version.
6914,40 COMMENTS 5;0 WORD-PROCESSING #6914.01
DESCRIPTION:
Any information that may be of value to Engineering or Supply Service in managing this equipment.
6914,50 EQUIPMENT HISTORY 6;0 Multiple #6914.02 (Add New Entry without Asking)
DESCRIPTION: History of all maintenance performed on this equipment. Maintained automatically by the Work Order
module of AEMS/MERS. Under normal circumstances, this field should not be edited via File Manager.
6914.02,.01 HISTORY REFERENCE 0;1 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<5)!'(X?.ANP) X I $G(DIUTIL)'="VERIFY FIELDS" S DINU
M=9999999-DT*10 I $D(^ENG(6914,DA,6,DINUM,0)) F S DINUM=DINUM-1 Q:'$D(^ENG(6914,DA,6,DINUM))
OUTPUT TRANSFORM:S Y=$E(Y,2,20)
LAST EDITED: FEB 24, 1998
HELP-PROMPT: ANSWER MUST BE 5-12 CHARACTERS IN LENGTH
DESCRIPTION:
Reflects date on which Work Order was posted to EQUIPMENT INV. file, and type of work performed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914.02,1 W.O. REFERENCE 0;2 FREE TEXT
INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5)!'(X?.ANP) X
LAST EDITED: SEP 11, 1996
HELP-PROMPT: Answer must be 5-17 characters in length.
DESCRIPTION:
The number of the Engineering work order that resulted in this posting.
6914.02,2 PM STATUS 0;3 SET
'P' FOR PASS;
'C' FOR CORRECTIVE ACTION TAKEN/REQUESTED;
'D0' FOR DEFERRED;
'D1' FOR DEFERRED, COULD NOT LOCATE;
'D2' FOR DEFERRED, IN USE;
'D3' FOR DEFERRED, OUT OF SERVICE OR LOANED OUT;
LAST EDITED: APR 26, 1989
DESCRIPTION: If this posting is the result of a preventive maintenance (PM) inspection, this field should be
used to indicate the outcome of that PM. Field should be left blank in cases of regular
(unscheduled) work action.
6914.02,3 HOURS SPENT 0;4 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>2080)!(X<0)!(X?.E1"."3N.N) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 2080
DESCRIPTION: Total hours spent in completion of subject work order. Calculated by a routine that runs
automatically when work orders are closed out.
6914.02,4 LABOR $ 0;5 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
DESCRIPTION: Labor cost associated with subject work order. Calculated on the basis of wage information from
the Engineering Employee File by a routine that runs automatically when work orders are closed out.
6914.02,5 MATERIAL $ 0;6 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
DESCRIPTION: Cost of materials used in performing this work action. Data is manually entered into the Work
Order File and automatically extracted from the work order into the Equipment History when the work
order is closed out.
6914.02,6 VENDOR $ 0;7 NUMBER
INPUT TRANSFORM:S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999)!(X<0) X
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999999
DESCRIPTION: Amount paid to vendor on account of subject work action. Entered manually (if applicable) when
work orders are closed out.
6914.02,7 WORKER 0;8 FREE TEXT
INPUT TRANSFORM:K:$L(X)>15!($L(X)<3)!'(X?.ANP) X
HELP-PROMPT: ANSWER MUST BE 3-15 CHARACTERS IN LENGTH
DESCRIPTION: First 15 characters of the name of the PRIMARY TECHNICIAN as it appears in the Engineering Employee
File.
6914.02,8 TOTAL COST ; COMPUTED
MUMPS CODE: S Y(6914.02,8,1)=$S($D(^ENG(6914,D0,6,D1,0)):^(0),1:"") S X=$P(Y(6914.02,8,1),U,5)+$P(Y(6914.02,8,1
),U,6)+$P(Y(6914.02,8,1),U,7)
ALGORITHM: LABOR $+MATERIAL $+VENDOR $
DESCRIPTION:
Total cost of work action being posted. Computed field.
6914.02,9 WORK PERFORMED 0;9 FREE TEXT
INPUT TRANSFORM:K:$L(X)>140!($L(X)<3) X
LAST EDITED: JUN 26, 1996
HELP-PROMPT: Answer must be 3-140 characters in length.
DESCRIPTION: Brief description of what was done via subject work action. Automatically extracted from the Work
Order File.
6914,51 REPLACING (ENTRY NUMBER) 8;8 POINTER TO EQUIPMENT INV. FILE (#6914)
LAST EDITED: APR 13, 1998
DESCRIPTION: If this item was acquired as REPLACEMENT EQUIPMENT, then the old ENTRY NUMBER of the item which it
replaced should appear in this field.
CROSS-REFERENCE: 6914^AO
1)= S ^ENG(6914,"AO",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AO",$E(X,1,30),DA)
6914,52 REPLACEMENT UPDATE CODE 8;9 SET
'4' FOR NOT TO BE REPLACED;
'5' FOR TO BE REPLACED UNDER ACTIVATION PROJECT;
'6' FOR ON ORDER;
LAST EDITED: OCT 30, 1992
DESCRIPTION:
Replacement information needed by A&MM.
6914,53 CONDITION CODE 3;16 SET
'1' FOR LIKE NEW;
'2' FOR GOOD;
'3' FOR POOR;
LAST EDITED: FEB 11, 1997
HELP-PROMPT: Enter code that corresponds to condition of equipment.
DESCRIPTION: Condition code of equipment is normally determined by an Engineering technician and entered during
close out of a work order. The code are:
(1) LIKE NEW - Like new condition, good performance record,
low service cost.
(2) GOOD - Middle of service life, fair performance record,
increasing service cost.
(3) POOR - Approaching end of service life, poor performance record,
high service cost, consider budgeting for replacement.
6914,60 STATION NUMBER 9;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>5!($L(X)<3)!'(X?3N.NU) X I $G(DIUTIL)'="VERIFY FIELDS",$D(X),$D(^ENG(6915.2,"B",DA)) D NX^E
NLIB3
LAST EDITED: JUL 25, 2013
HELP-PROMPT: Enter the station number, 3-5 characters in length.
DESCRIPTION: Station number of the facility that owns this equipment. If this equipment is owned by a national
cemetery that is serviced by a VAMC, then the station number of the cemetery should appear in this
field.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Can't change this field until FD Doc
ument sent.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
TRIGGERED by the CMR field of the EQUIPMENT INV. File
CROSS-REFERENCE: 6914^A7^MUMPS
1)= D WC^VIAATRI(6914,DA)
2)= D WC^VIAATRI(6914,DA)
NOREINDEX)= 1
After the STATION NUMBER is changed a notification is sent out to update the Real Time Location
System (RTLS) database.
6914,61 BUDGET OBJECT CODE 9;6 POINTER TO NX BOC FILE (#6914.4)
INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U,5)=""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""VERIFY FIELDS"")" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DIUTIL)'="VERIFY FIELDS" D NX^ENLIB3
LAST EDITED: OCT 21, 1997
DESCRIPTION:
An accounting classification.
SCREEN: S DIC("S")="I $P($G(^(0)),U,5)=""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""VERIFY FIELDS"")"
EXPLANATION: Only active budget object codes can be selected.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FR Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: ^^TRIGGER^6914^38
1)= X ^DD(6914,61,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,8)):^(8),1:"") S X=$P(Y(1),U,6),X=
X S DIU=X K Y X ^DD(6914,61,1,1,1.1) X ^DD(6914,61,1,1,1.4)
1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ENG(6914.4,+D0,0)) D0=-1 S Y(101)=$S($D(^EN
G(6914.4,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)
1.3)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X "N Y S Y=$G(^ENG(6914,DA,3)) S X=$P(Y,U)<4&($P(Y,U,3
)="""")&($P(Y,U,11)="""")&('+$$CHKFA^ENFAUTL(DA)) Q"
1.4)= S DIH=$S($D(^ENG(6914,DIV(0),8)):^(8),1:""),DIV=X S $P(^(8),U,6)=DIV,DIH=6914,DIG=38 D ^DICR:
$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= X "N Y S Y=$G(^ENG(6914,DA,3)) S X=$P(Y,U)<4&($P(Y,U,3)="""")&($P(Y,U,11)="""")&
('+$$CHKFA^ENFAUTL(DA)) Q"
CREATE VALUE)= INTERNAL(#61:#2)
DELETE VALUE)= NO EFFECT
FIELD)= #38
Set the standard general ledger to a value which corresponds to the budget object code for assets
which have not been turned-in or dispositioned and are not currently reported to FAP.
6914,62 FUND 9;7 POINTER TO NX FUND FILE (#6914.6)
INPUT TRANSFORM: S DIC("S")="I $P($G(^(0)),U,5)=""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""VERIFY FIELDS"")" D ^DIC K
DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DIUTIL)'="VERIFY FIELDS" D NX^ENLIB3
LAST EDITED: OCT 21, 1997
DESCRIPTION:
The Fund Code (from the Treasury Symbol) under which this equipment was procured.
SCREEN: S DIC("S")="I $P($G(^(0)),U,5)=""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""VERIFY FIELDS"")"
EXPLANATION: Only active FUNDs can be selected.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FR Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,63 ADMINISTRATION/OFFICE 9;8 POINTER TO NX A/O FILE (#6914.7)
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS",$D(^ENG(6915.2,"B",DA)) D NX^ENLIB3
LAST EDITED: OCT 31, 1996
DESCRIPTION:
An accounting classification.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Use FR Document to change this field
.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,64 EQUITY ACCOUNT 9;9 SET
'3299' FOR MEDICAL;
'3210' FOR NON-MEDICAL;
'3402' FOR DONATED;
INPUT TRANSFORM: I $G(DIUTIL)'="VERIFY FIELDS",$P(^ENG(6914,DA,0),U,4)="NX" D NX^ENLIB3
LAST EDITED: OCT 31, 1996
DESCRIPTION:
An accounting classification used primarily in cost distribution reports.
DELETE TEST: 1,0)= I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL("Item reported to FAP. Can't change this field until FD Doc
ument sent.","","!?5") I 1
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,65 DATE OF FAP CONVERSION 9;10 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 09, 1995
DESCRIPTION: Date on which this equipment record was converted to Fixed Asset Package format. It is generally
unnecessary to convert any record more than once.
6914,66 REPORTED TO FAP ; COMPUTED
MUMPS CODE: S X=+$$CHKFA^ENFAUTL(D0)
ALGORITHM: S X=+$$CHKFA^ENFAUTL(D0)
DESCRIPTION: This field will equal 1 when the equipment item is currently reported to the Fixed Assets package
in Austin. Otherwise it will equal 0.
6914,70 SPEX 10;0 WORD-PROCESSING #6914.03
LAST EDITED: JAN 07, 1997
HELP-PROMPT: Enter A&MM comments.
DESCRIPTION: This field is normally used to store comments by A&MM (PPM) peronnel. It is shown on the
Equipment Inventory Listing (EIL) report.
6914,71 Y2K CATEGORY 11;1 SET
'FC' FOR FULLY COMPLIANT;
'CC' FOR CONDITIONALLY COMPLIANT;
'NC' FOR NON-COMPLIANT;
'NA' FOR NOT APPLICABLE;
INPUT TRANSFORM: D EDITY2^ENLIB4
LAST EDITED: SEP 22, 1998
DESCRIPTION: FC => Fully compliant. Device will function properly in all respects on
January 1, 2000 without user intervention. CC => Conditionally compliant. Device requires
user intervention to
function properly in all respects on January 1, 2000. This may
include a manufacturer software and/or hardware update or other
one-time user action. NC => Non-compliant. Device will not function properly on January 1,
2000
and no known remedy is available. NA => Not applicable. There are no Y2K implications for
this device.
DELETE TEST: 1,0)= I $P($G(DJJ(25)),U,3)=71
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 6914^AK
1)= S ^ENG(6914,"AK",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AK",$E(X,1,30),DA)
CROSS-REFERENCE: 6914^AM^MUMPS
1)= D:'$D(DIU(0)) LOG^ENY2UTL
2)= Q
Maintains the Y2K log file.
CROSS-REFERENCE: 6914^AP^MUMPS
1)= D:'$D(DIU(0)) COST^ENY2UTL
2)= Q
Delete Y2K expectancies if Y2K CATEGORY changed to NC or NA.
6914,71.5 SOURCE OF Y2K CATEGORY 11;11 SET (Required)
'VA' FOR VA WEB SITE;
'MAN' FOR MANUFACTURER WEB SITE OR LETTER;
'LOC' FOR LOCAL ASSESSMENT;
LAST EDITED: MAY 18, 1998
DESCRIPTION: The source of the Y2K categorization for this item. This required field will default to "Local
assessment" and will not appear on any packaged reports. You may access the information via VA
FileMan if you need it.
"Local assessment" generally means that specific information from the VA web site and/or the device
manufacturer is unavailable (and perhaps unnecessary). In these cases, Y2K categorization is made
on the basis of the professional opinion of facility management staff.
Sites are cautioned against attempting to perform actual Y2K compliance tests on equipment that may
have Y2K problems because advanced date simulation in systems with embedded microprocessors may be
very difficult to achieve.
6914,72 ESTIMATED Y2K COMPLIANCE DATE 11;2 DATE
INPUT TRANSFORM: S %DT="EF" D ^%DT S X=Y K:3101231X) X
LAST EDITED: MAY 21, 1998
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1990 AND 12/31/2010
DESCRIPTION: This field is to be populated only for Y2K CONDITIONALLY COMPLIANT devices. It is the date by which
a Y2K remedy is expected to be available and installable. This field will be automatically deleted
upon closeout of an appropriate Y2K work order.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
6914,72.1 ACTUAL Y2K COMPLIANCE DATE 11;10 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3091231X) X
LAST EDITED: MAR 05, 1998
HELP-PROMPT: TYPE A DATE BETWEEN 1/1/1980 AND 12/31/2009
DESCRIPTION:
Date (month & year is enough) when device was made Y2K compliant.
6914,73 ESTIMATED Y2K COMPLIANCE COST 11;3 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: FEB 23, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: This field is to be populated for Y2K CONDITIONALLY COMPLIANT devices only. It is the estimated
cost of whatever it will take to make each subject piece of equipment Y2K compliant; including
station labor, materials, and/or contractor assistance.
6914,74 ACTUAL Y2K COMPLIANCE COST 11;4 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
LAST EDITED: FEB 23, 1998
HELP-PROMPT: Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
DESCRIPTION: The actual cost of making the device Y2K compliant. This field will be populated automatically upon
closeout of an appropriate Y2K work order.
6914,75 Y2K TECHNICIAN 11;5 POINTER TO ENG EMPLOYEE FILE (#6929)
LAST EDITED: FEB 23, 1998
DESCRIPTION: The engineering employee who is personally responsible for implementation of the Y2K upgrade. This
field should be populated only for Y2K CONDITIONALLY COMPLIANT devices and will be used (if it
exists) by the system whenever Y2K worklists are printed.
6914,76 Y2K ACTION 11;6 SET
'RET' FOR Retire;
'REP' FOR Replace;
'USE' FOR Use Without an Update;
LAST EDITED: APR 02, 1998
DESCRIPTION: This field should be populated only for devices that are Y2K NON-COMPLIANT. It indicates the plan
of action.
6914,76.1 Y2K ESTIMATED REPLACEMENT DATE 11;13 DATE
INPUT TRANSFORM: S %DT="E" D ^%DT S X=Y K:3200000X) X
LAST EDITED: AUG 19, 1998
HELP-PROMPT: TYPE A DATE BETWEEN 1990 AND 2020
DESCRIPTION:
Date by which site plans to replace this item with something that is Y2K compliant.
6914,77 Y2K ASSIGNED SHOP 11;7 POINTER TO ENGINEERING SECTION LIST FILE (#6922)
LAST EDITED: FEB 26, 1998
DESCRIPTION: The ENGINEERING SECTION that has been assigned responsibility for making this device Y2K compliant.
This is the section to which the Y2K work order will be assigned. If this field is not populated
then Y2K work orders will be assigned to the RESPONSIBLE SHOP (first entry) if one exists. If their
is neither a Y2K ASSIGNED SHOP nor a RESPONSIBLE SHOP, then the Y2K work order will be assigned to
the primary biomedical engineering section.
6914,78 Y2K COMPLIANCE WORK ORDER (POINTER) 11;8 POINTER TO WORK ORDER # FILE (#6920)
INPUT TRANSFORM: I $E(X,1,3)="Y2-" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUN 17, 1998
DESCRIPTION: Whenever a Y2K work order is created (in routine ENY2K5) this field (and its regular
cross-reference) in the Equipment File is populated via hard code. THIS FIELD SHOULD NEVER BE
DELETED AS LONG AS Y2K IS AN ISSUE.
To avert possible confusion, no Y2K work order number will ever be assigned to more than one piece
of equipment. In like manner, no piece of equipment will ever have more than one Y2K work order
number. If more than one shop needs to work on the same piece of equipment for Y2K compliance, then
the work order will be assigned to the primary shop and other shops will charge their time and
materials to this primary work order.
If a Y2K work order is closed inappropriately, it can always be re-opened and corrected via the
Edit Work Order option [ENWOEDIT].
SCREEN: I $E(X,1,3)="Y2-"
EXPLANATION: Y2K work orders only.
6914,79 Y2K COMPLIANCE WORK ORDER (TEXT) 11;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<12) X
LAST EDITED: JUN 17, 1998
HELP-PROMPT: Answer must be 12-16 characters in length.
DESCRIPTION:
Automatically populated with original Y2K work order number.
CROSS-REFERENCE: 6914^AL
1)= S ^ENG(6914,"AL",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"AL",$E(X,1,30),DA)
3)= Referred to in generation of Y2K work orders.
6914,80 Y2K NOTES 11;12 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<3) X
LAST EDITED: MAY 18, 1998
HELP-PROMPT: Answer must be 3-80 characters in length.
DESCRIPTION: This free text field (80 char max) is intended for use with conditionally compliant and
non-compliant devices only. If populated, it will be appended to the COMMENTS field and printed on
the Y2K worklist (for conditionally compliant equipment).
Sites are not required to use this field.
6914,81 Y2K FUNCTIONAL CLASSIFICATION 9;11 SET
'PC' FOR General purpose workstation;
'MED' FOR Medical device;
'FS' FOR Facility equipment;
'TEL' FOR Telecommunications equipment;
LAST EDITED: JUN 17, 1998
DESCRIPTION: A classification agreed on by the VA and its oversight agencies for Y2K compliance reporting.
PC => A general purpose personal computer or workstation used for office
applications. Not an integral part of a medical device or of a
facility management system.
MED => Medical devices are pieces of equipment (or equipment systems)
that are dedicated to the diagnosis and/or treatment of patients.
Includes anything that requires Food and Drug Administration (FDA)
approval as a medical device before it can be commercially marketed
to health care providers in the United States.
FS => Facility systems (or facility equipment) are devices (or equipment
systems) used to manage the environment of care within health care
facilities. Includes building service equipment of all types, such
as:
o Emergency communications management systems
o Security systems
o Alarm systems
o Fire detection and control systems
o Environmental control systems
o Water management
o Electrical energy management and control systems
o Building transport systems (people and/or material)
TEL => Telecommunications equipment, broadly defined. This classification
includes PBX systems, voice mail, radio frequency communication
systems, faxes, routers, switches, bridges, servers, modems,
satellite communication systems, video conferencing, and wireless
LAN.
6914,82 Y2K UTILITY SYSTEM 9;12 POINTER TO UTILITY SYSTEMS FILE (#6918.1)
LAST EDITED: AUG 26, 1998
DESCRIPTION: Indicate which devices in a facilities equipment inventory are included in some kind of Facility
Management System.
Whenever a user enters a Y2K UTILITY SYSTEM for an entry that is a PARENT of other equipment
entries, then AEMS/MERS will automatically assign that Y2K UTILITY SYSTEM to all descendents of
that parent entry.
The Y2K UTILITY SYSTEM field will have special significance in centralized reporting of Y2K
compliance activities, but the utility of this classification scheme is expected to outlive the Y2K
compliance effort.
Some specific examples of utility systems are as follows:
ALARM o Hazardous Materials
o X-Rays and Nuclear Radiation
o Biomedical Hazards
o Operating Room Gases
o Infectious Disease Controls
o Biohazard Detection and Control
o Gas Detection (carbon monoxide, radon, ozone, etc.)
COMM o Emergency Dispatching and Communications
o Nurse Call Systems
ELECT o Uninterruptible Power Supplies
o Emergency Generators
o Power Distribution Units
o Lighting Controls
o Emergency Lighting
ENVRN o Heating
o Ventilating
o Air Conditioning
o Load Balancing
o Humidification and Dehumidification
o Programmable Thermostats
FIRE o Fire Alarms
o Sprinklers
o Halon Systems
OTHER o Laboratory Controls
o Remote Data Collection
o Traffic Management
o Automotive Systems
o Machine Controls
o Clock Systems
o Mail Handling Systems
o Microfilming
o Records Control
o Document Imaging
o Copiers
SCRTY o Passkey Systems
o Access Control
o Intrusion Detection
o Traffic Monitoring
o Gates, Doors, Vaults
o Employee/Client Identification and Verification
o Patient Tracking Systems
o Video Monitoring and Time Stamping
o Time Card and Check-in Systems
o Communications to Security Agencies
TRANS o Elevators
o Escalators
o Slideways
o Pneumatic Tube Systems
o Robotic Devices
o Moving Walkways
WATER o Heating
o Cooling
o Purification
o Pumping
o Storage
NOTES: TRIGGERED by the PARENT SYSTEM field of the EQUIPMENT INV. File
CROSS-REFERENCE: 6914^AQ^MUMPS
1)= D:'$D(DIU(0)) ADDUS^ENLIB4
2)= D:'$D(DIU(0)) KILLUS^ENLIB4
Maintains consistence in the parent/child hierarchy.
6914,90 NON-SPACE FILE LOCATION NSP;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<3) X
LAST EDITED: FEB 04, 2008
HELP-PROMPT: Answer must be 3-20 characters in length.
DESCRIPTION: The purpose of this field is to allow IT users to enter a free-text value when there is not a
suitable location in the ENG SPACE (#6928) file to select. The intention is that entry of a
free-text location value will result in engineering automatically being notified via e-mail of the
need for a new location. After the new location is added to the ENG SPACE file, the engineering
user should respond on the mail message that the location has been added and then the requester can
use an IT edit option to update the equipment location and delete the non-space file location.
CROSS-REFERENCE: 6914^ANSP
1)= S ^ENG(6914,"ANSP",$E(X,1,30),DA)=""
2)= K ^ENG(6914,"ANSP",$E(X,1,30),DA)
This is an index of all equipment with a current value in the NON-SPACE FILE LOCATION field.
FIELD INDEX: ANSPT (#786) MUMPS ACTION
Short Descr: NON-SPACE FILE LOCATION field triggers
Description: This cross-reference triggers the NON-SPACE FILE PERSON and NON-SPACE FILE DATE/TIME fields when
the value of the NON-SPACE FILE LOCATION changes.
Set Logic: D NSPT^ENTINSD(DA,"S")
Set Cond: S X=$S(X2(1)'=X1(1):1,1:0)
Kill Logic: D NSPT^ENTINSD(DA,"K")
Kill Cond: S X=$S(X2(1)'=X1(1):1,1:0)
X(1): NON-SPACE FILE LOCATION (6914,90) (Subscr 1) (forwards)
RECORD INDEXES: ANSPB (#785)
6914,90.1 NON-SPACE FILE PERSON NSP;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: OCT 25, 2007
DESCRIPTION: This field is automatically populated with the user that entered a value in the NON-SPACE FILE
LOCATION field.
WRITE AUTHORITY: ^
UNEDITABLE
6914,90.2 NON-SPACE FILE DATE/TIME NSP;3 DATE
INPUT TRANSFORM: S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 25, 2007
DESCRIPTION: This field is automatically populated with the current date/time when a value is entered in the
NON-SPACE FILE LOCATION field.
WRITE AUTHORITY: ^
UNEDITABLE
6914,91 IT REMOTE LOCATION ITR;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>120!($L(X)<3) X
LAST EDITED: OCT 23, 2007
HELP-PROMPT: Answer must be 3-120 characters in length.
DESCRIPTION: This field contains information such as the address or phone number for IT equipment that is taken
off-site.
6914,92 IT COMMENTS ITC;0 WORD-PROCESSING #6914.092
DESCRIPTION:
This field contains comments entered by IT staff concerning an IT equipment record.
LAST EDITED: OCT 23, 2007
DESCRIPTION:
This field contains comments entered by IT staff concerning an IT equipment record.
6914,99 REMAIN CAPITALIZED SET BY RC;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: MAY 29, 2002
DESCRIPTION: This field has been temporarily added to the EQUIPMENT INV file by patch EN*7*71 for management of
the one-time capitalization threshold task. This task will expense equipment that is currently
capitalized and reported to Fixed Assets/FMS, but does not meet the new capitalization threshold of
$100,000. After the one-time task has run on July 24, 2002, this field will be obsolete and it will
be deleted by a subsequent patch.
This field can be updated by the Adjust List of Equipment to be Expensed by Task option. If this
field is populated then the associated equipment item will not be expensed even though it meets the
other criteria to be expensed.
FILES POINTED TO FIELDS
BUDGET OBJECT CODE (#420.2) *SUBACCOUNT (#37)
CATEGORY STOCK NUMBER (#6917) CATEGORY STOCK NUMBER (#18)
CMR (#6914.1) CMR (#19)
COST CENTER (#420.1) *COST CENTER (#36)
ENG EMPLOYEE (#6929) Y2K TECHNICIAN (#75)
RESPONSIBLE SHOP:TECHNICIAN (#1)
ENG SPACE (#6928) LOCATION (#24)
ENGINEERING SECTION LIST
(#6922) Y2K ASSIGNED SHOP (#77)
RESPONSIBLE SHOP:RESPONSIBLE SHOP (#.01)
EQUIPMENT CATEGORY (#6911) EQUIPMENT CATEGORY (#6)
EQUIPMENT INV. (#6914) PARENT SYSTEM (#2)
REPLACING (ENTRY NUMBER) (#51)
FEDERAL SUPPLY CLASSIFICATION
(#441.2) *FEDERAL SUPPLY CLASSIFICATION (#8)
MANUFACTURER LIST FILE (#6912) MANUFACTURER (#1)
NEW PERSON (#200) ENTERED BY (#.5)
NON-SPACE FILE PERSON (#90.1)
REMAIN CAPITALIZED SET BY (#99)
NX A/O (#6914.7) ADMINISTRATION/OFFICE (#63)
NX BOC (#6914.4) BUDGET OBJECT CODE (#61)
NX DISPOSITION METHOD (#6914.8) DISPOSITION METHOD (#31)
NX FUND (#6914.6) FUND (#62)
NX SGL (#6914.3) STANDARD GENERAL LEDGER (#38)
PM PROCEDURES (#6914.2) FREQUENCY:PROCEDURE (#4)
SERVICE/SECTION (#49) SERVICE POINTER (#21)
SOURCE CODE (#420.8) ACQUISITION SOURCE (#13.5)
UTILITY SYSTEMS (#6918.1) Y2K UTILITY SYSTEM (#82)
VENDOR (#440) VENDOR POINTER (#10)
WORK ORDER # (#6920) Y2K COMPLIANCE WORK ORDER (POINTER) (#78)
File #6914
Record Indexes:
ANSPB (#785) RECORD MUMPS ACTION
Short Descr: Send a bulletin
Description: This x-ref sends a bulletin when a new value is entered in the NON-SPACE FILE LOCATION field.
Set Logic: D BUL^ENTINSD(DA)
Set Cond: S X=$S(X2(1)'=X1(1):1,1:0)
Kill Logic: Q
X(1): NON-SPACE FILE LOCATION (6914,90) (Subscr 1) (forwards)
INPUT TEMPLATE(S):
ENEQDISP APR 14, 1997@15:25 USER #0
This template is used by option ENEQTD to update equipment records for
final disposition. Some fields are automatically changed (///) and then
appropriate fields are asked. If local template ENZEQDISP exists, it will
be used in place of this template.
ENEQENTER SEP 24, 1998@12:21 USER #0
ENEQPMP JUN 03, 1997@09:58 USER #0
ENEQTURN APR 14, 1997@15:25 USER #0
This template is used by option ENEQTD to update equipment records for
turn-in. Some fields are automatically changed (///) and then appropriate
fields are asked. If local template ENZEQTURN exists, it will be used in
place of this template.
PRINT TEMPLATE(S):
EN RESEARCH EXTRACT DEC 28, 2005@15:35 USER #0 @@
ENCMR APR 16, 1997@14:35 USER #0 EQUIPMENT INVENTORY LISTING
ENCMR HD APR 16, 1997@14:33 USER #0 @
ENCMRC APR 16, 1997@14:40 USER #0 EQUIPMENT INVENTORY LISTING
ENEQ EQUIP. LIST DEC 12, 1996@13:16 USER #0 EQUIPMENT INV. LIST
ENEQ REPLACEMENT DEC 12, 1996@13:12 USER #0 REPLACEMENT LISTING
ENEQ WARRANTY APR 27, 1992@09:01 USER #1 WARRANTY EXPIRATION LIST
ENEXP APR 16, 1997@14:44 USER #0 NONEXPENDABLE EXPENSED INVENTORY LISTING
ENEXP HD OCT 12, 1999@11:27 USER #0 @
ENEXPC APR 16, 1997@14:46 USER #0 NONEXPENDABLE EXPENSED INVENTORY LISTING
ENXKFAP FEB 22, 1996@14:31 USER #0 EQUIPMENT OF POSSIBLE INTEREST TO FAP
SORT TEMPLATE(S):
EN LOCATION APR 27, 1992@08:53 USER #1
SORT BY: @$P(LOCATION,"-",3)// From '@' To 'z^'
WITHIN $P(LOCATION,"-",3), SORT BY: @#$P(LOCATION,"-",2)// From '@' To 'z^'
WITHIN $P(LOCATION,"-",2), SORT BY: @$P(LOCATION,"-")//
ENCMR JAN 07, 1997@11:24 USER #0
SORT BY: 'CMR// (User is asked range)
WITHIN CMR, SORT BY: @CATEGORY STOCK NUMBER// (All CATEGORY STOCK NUMBER (includes nulls))
WITHIN CATEGORY STOCK NUMBER, SORT BY: @$P(LOCATION,"-",3)_":"_$P(LOCATION,"-",2)_":"_$P(LOCATION,"-")// (All $P(LOCATION,""-"",3)_"":""_$P(LOCATION,""-"",2)_"":""_$P(LOCATION,""-"") (includes nulls))
ENXKBLANK FEB 14, 1996@17:04 USER #0
SORT BY: 'INTERNAL(TYPE)="";L1// (INTERNAL(TYPE)="""")
WITHIN INTERNAL(TYPE)="", SORT BY: 'ACQUISITION VALUE>4999.99;L1// (ACQUISITION VALUE>4999.99)
WITHIN ACQUISITION VALUE>4999.99, SORT BY: 'DISPOSITION DATE="";L1// (DISPOSITION DATE="""")
ENXKNX FEB 14, 1996@15:40 USER #0
SORT BY: 'INTERNAL(TYPE)="NX";L1// (INTERNAL(TYPE)=""NX"")
WITHIN INTERNAL(TYPE)="NX", SORT BY: 'ACQUISITION VALUE>4999.99;L1// (ACQUISITION VALUE>4999.99)
WITHIN ACQUISITION VALUE>4999.99, SORT BY: 'DISPOSITION DATE="";L1// (DISPOSITION DATE="""")
FORM(S)/BLOCK(S):
ENIT EDIT OCT 29, 2007@11:56 USER #0
ENIT EQHD DD #6914
ENIT EQED DD #6914