Global: ^ENG(6914

FileMan FileNo	FileMan Filename	Package
6914	EQUIPMENT INV.	Engineering

Package	Total	Routines
Engineering	101	ENARG23 ENBCPM2 ENBCPM4 ENBCPM5 ENBCPM6 ENEQ1 ENEQ2 ENEQ3 ENEQ4 ENEQLT ENEQLT1 ENEQLT2 ENEQMED ENEQMED1 ENEQMED2 ENEQMED3 ENEQNX2 ENEQNX4 ENEQNX5 ENEQPMP ENEQPMP1 ENEQPMR5 ENEQPMS3 ENEQPMS7 ENEQRP1 ENEQRP2 ENEQRP6 ENEQRPI ENEQTD ENEWOD1 ENFAAV ENFABETR ENFACHG1 ENFACTE ENFACTL ENFACTR ENFACTS ENFACTT ENFACTU ENFACTX ENFADEL ENFAR1 ENFAR2 ENFAR4 ENFAR6 ENFAR8 ENFAR9 ENFARA1 ENFARC2 ENFAVAL ENFAXFR ENFAXMT ENFAXMTM ENIMPORT ENLBL12 ENLBL15 ENLBL16 ENLBL5 ENLBL7 ENLIB3 ENLIB4 ENSA2 ENTIDD ENTINSD ENTINSR ENTIRC ENTIRRE ENTIRRH ENTIRRH1 ENTIRRI ENTIRRNA ENTIRRU ENTIRRX ENTIRS ENTIRT ENTIRX ENTIUTL ENTIUTL2 ENUTL ENWO1 ENWOD ENWOD1 ENWOD2 ENWOINV ENWOME ENWOME1 ENWONEW3 ENX1IPS ENX7IPS ENXEPST ENXIP57 ENXIP60 ENXIP63 ENXIP68 ENXOIPS ENXOIPS1 ENXSIPS ENY2K1 ENY2K7 ENY2KR ENY2KR1
Equipment Turn-In Request	2	PRCNREQN PRCNUTL
Real Time Location System	1	VIAAEAD

Package	Total	FileMan Files
Engineering	9	EQUIPMENT INV.(#6914)[2, 51] FA DOCUMENT LOG(#6915.2)[.01] FB DOCUMENT LOG(#6915.3)[.01] FC DOCUMENT LOG(#6915.4)[.01] FD DOCUMENT LOG(#6915.5)[.01] FR DOCUMENT LOG(#6915.6)[.01] IT ASSIGNMENT(#6916.3)[.01] Y2K CATEGORY LOG(#6918)[.01] WORK ORDER #(#6920)[18]
Equipment Turn-In Request	1	TURN-IN REQUEST(#413.1)[#413.11(.01)]

Package	Total	FileMan Files
Engineering	16	ENGINEERING SECTION LIST(#6922)[77, #6914.04(.01)] CATEGORY STOCK NUMBER(#6917)[18] ENG EMPLOYEE(#6929)[75, #6914.04(1)] MANUFACTURER LIST FILE(#6912)[1] ENG SPACE(#6928)[24] EQUIPMENT CATEGORY(#6911)[6] EQUIPMENT INV.(#6914)[2, 51] CMR(#6914.1)[19] PM PROCEDURES(#6914.2)[#6914.43(4)] NX SGL(#6914.3)[38] NX BOC(#6914.4)[61] NX FUND(#6914.6)[62] NX A/O(#6914.7)[63] NX DISPOSITION METHOD(#6914.8)[31] UTILITY SYSTEMS(#6918.1)[82] WORK ORDER #(#6920)[78]
IFCAP	5	VENDOR(#440)[10] FEDERAL SUPPLY CLASSIFICATION(#441.2)[8] COST CENTER(#420.1)[36] BUDGET OBJECT CODE(#420.2)[37] SOURCE CODE(#420.8)[13.5]
Kernel	2	SERVICE/SECTION(#49)[21] NEW PERSON(#200)[.5, 90.1, 99]

Fields, Total: 90

Field #	Name	Loc	Type	Details
.01	ENTRY NUMBER	0;1	NUMBER	**********************REQUIRED FIELD********************** 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(^VA(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.`
.5	ENTERED BY	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
.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`
1	MANUFACTURER	1;4	POINTER TO MANUFACTURER LIST FILE FILE (#6912)	**********************REQUIRED FIELD********************** MANUFACTURER LIST FILE(#6912) 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.`
2	PARENT SYSTEM	0;3	POINTER TO EQUIPMENT INV. FILE (#6914)	EQUIPMENT INV.(#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.`
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.`
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 DIU=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 DIU=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.`
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)`
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^DDIOL($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 DIU=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 DIU=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.`
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)`
6	EQUIPMENT CATEGORY	1;1	POINTER TO EQUIPMENT CATEGORY FILE (#6911)	EQUIPMENT CATEGORY(#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(101),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(101),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.`
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 Document 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.`
8	*FEDERAL SUPPLY CLASSIFICATION	2;11	POINTER TO FEDERAL SUPPLY CLASSIFICATION FILE (#441.2)	FEDERAL SUPPLY CLASSIFICATION(#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.`
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)`
10	VENDOR POINTER	2;1	POINTER TO VENDOR FILE (#440)	VENDOR(#440) LAST EDITED: `JUN 19, 1995` DESCRIPTION: `Vendor from whom unit was actually purchased.`
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.`
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.`
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.`
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 NX^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.`
13.5	ACQUISITION SOURCE	2;14	POINTER TO SOURCE CODE FILE (#420.8)	SOURCE CODE(#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`
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.`
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.`
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(^ENG(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`
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)`
18	CATEGORY STOCK NUMBER	2;8	POINTER TO CATEGORY STOCK NUMBER FILE (#6917)	CATEGORY STOCK NUMBER(#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(^ENCSN(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.`
19	CMR	2;9	POINTER TO CMR FILE (#6914.1)	CMR(#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(^ENG(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(^ENG(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(^DIC(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)`
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.`
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.`
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.`
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`
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`
21	SERVICE POINTER	3;2	POINTER TO SERVICE/SECTION FILE (#49)	SERVICE/SECTION(#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.`
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(^ENG(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.`
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`
24	LOCATION	3;5	POINTER TO ENG SPACE FILE (#6928)	ENG SPACE(#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(^ENG("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 ^DICR:$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)`
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.`
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)`
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(6914,"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)`
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`
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.`
28.2	ORIGINAL BAR CODE ID	12;0	Multiple #6914.05	6914.05
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 ^DICR:$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.`
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 ^DICR:$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.`
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 ^DICR:$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.`
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`
30	RESPONSIBLE SHOP	4;0	POINTER Multiple #6914.04	6914.04 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.`
31	DISPOSITION METHOD	3;12	POINTER TO NX DISPOSITION METHOD FILE (#6914.8)	NX DISPOSITION METHOD(#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`
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`
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(^ENG(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`
33	CONTROLLED ITEM?	8;1	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JUN 19, 1995` DESCRIPTION: `Prior approval of VACO is required.`
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 Document sent.","","!?5") I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
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`
36	*COST CENTER	8;4	POINTER TO COST CENTER FILE (#420.1)	COST CENTER(#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`
37	*SUBACCOUNT	8;5	POINTER TO BUDGET OBJECT CODE FILE (#420.2)	BUDGET OBJECT CODE(#420.2) LAST EDITED: `FEB 14, 1997` DESCRIPTION: `NOTE: This field is not used and it will be deleted by a future version.`
38	STANDARD GENERAL LEDGER	8;6	POINTER TO NX SGL FILE (#6914.3)	NX SGL(#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 Document 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`
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.`
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.`
50	EQUIPMENT HISTORY	6;0	Multiple #6914.02	6914.02 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.`
51	REPLACING (ENTRY NUMBER)	8;8	POINTER TO EQUIPMENT INV. FILE (#6914)	EQUIPMENT INV.(#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)`
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.`
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.`
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^ENLIB3` 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 Document 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.`
61	BUDGET OBJECT CODE	9;6	POINTER TO NX BOC FILE (#6914.4)	NX BOC(#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(^ENG(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.`
62	FUND	9;7	POINTER TO NX FUND FILE (#6914.6)	NX FUND(#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`
63	ADMINISTRATION/OFFICE	9;8	POINTER TO NX A/O FILE (#6914.7)	NX A/O(#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`
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 Document sent.","","!?5") I 1` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
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.`
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.`
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.`
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.`
71.5	SOURCE OF Y2K CATEGORY	11;11	SET	**********************REQUIRED FIELD********************** '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.`
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`
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.`
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.`
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.`
75	Y2K TECHNICIAN	11;5	POINTER TO ENG EMPLOYEE FILE (#6929)	ENG EMPLOYEE(#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.`
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.`
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.`
77	Y2K ASSIGNED SHOP	11;7	POINTER TO ENGINEERING SECTION LIST FILE (#6922)	ENGINEERING SECTION LIST(#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.`
78	Y2K COMPLIANCE WORK ORDER (POINTER)	11;8	POINTER TO WORK ORDER # FILE (#6920)	WORK ORDER #(#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.`
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.`
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.`
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.`
82	Y2K UTILITY SYSTEM	9;12	POINTER TO UTILITY SYSTEMS FILE (#6918.1)	UTILITY SYSTEMS(#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.`
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)`
90.1	NON-SPACE FILE PERSON	NSP;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#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`
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`
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.`
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.`
99	REMAIN CAPITALIZED SET BY	RC;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 29, 2002` DESCRIPTION: `This field has been temporarily added to the EQUIPMENT INV file by patch EN771 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.`

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #1218	Imaging	ENTRY (.01). Access: Read w/Fileman	Inventory File.
ICR #1342	EQUIPMENT/TURN-IN REQUEST	ENTRY NUMBER (.01). Access: Pointed to MFGR. EQUIPMENT NAME (3). Access: Read w/Fileman MANUFACTURER (1). Access: Read w/Fileman MODEL (4). Access: Read w/Fileman SERIAL # (5). Access: Read w/Fileman TOTAL ASSET VALUE (12). Access: Read w/Fileman CATEGORY STOCK NUMBER (18). Access: Read w/Fileman CMR (19). Access: Read w/Fileman USE STATUS (20). Access: Read w/Fileman ACQUISITION METHOD (20.1). Access: Read w/Fileman TURN-IN DATE (20.5). Access: Both R/W w/Fileman DISPOSITION DATE (22). Access: Both R/W w/Fileman LOCATION (24). Access: Read w/Fileman DISPOSITION METHOD (31). Access: Both R/W w/Fileman DISPOSITION VALUE (32). Access: Both R/W w/Fileman LABOR $ (4). Access: Read w/Fileman MATERIAL $ (5). Access: Read w/Fileman VENDOR $ (6). Access: Read w/Fileman STANDARD GENERAL LEDGER (38). Access: Both R/W w/Fileman STATION NUMBER (60). Access: Read w/Fileman
ICR #3650	M DATA EXTRACTOR

Customize PDF page

Package: Engineering

Global: ^ENG(6914

Information

Description

Accessed By FileMan Db Calls, Total: 104

Pointed To By FileMan Files, Total: 10

Pointer To FileMan Files, Total: 23

Fields, Total: 90

ICR, Total: 3