Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^ENG(6914

Package: Engineering

Global: ^ENG(6914


Information

FileMan FileNo FileMan Filename Package
6914 EQUIPMENT INV. Engineering

Description

Accessed By FileMan Db Calls, Total: 104

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    

Pointed To By FileMan Files, Total: 10

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)]    

Pointer To FileMan Files, Total: 23

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 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.

ICR, Total: 3

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
    		•
    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR  | All