ENARY302.m

ENARX302 ;(WCIOFO)/SAW/DH/SAB-EQUIPMENT INV. ARCHIVE ;1/10/2001

 ;;7.0;ENGINEERING;**40,63,68**;Aug 17, 1993

 F I=1:1 S X=$T(Q+I) Q:X=""  S Y=$P(X,"=",2,99),X=$P($E(X,4,99),"=",1) S:X="" X=$P(Y,"=",1),Y=%_$P(Y,"=",2,99) X NO E  S @X=Y

Q Q

 ;;^DD(6919.3,24.5,0)=PREVIOUS LOCATION^F^^3;8^K:$L(X)>20!($L(X)<3) X

 ;;^DD(6919.3,24.5,3)=Answer must be 3-20 characters in length.

 ;;^DD(6919.3,25,0)=VA PM NUMBER^F^^3;6^K:$L(X)>10!($L(X)<9) X

 ;;^DD(6919.3,25,3)=Answer must be 9-10 characters in length.

 ;;^DD(6919.3,26,0)=LOCAL IDENTIFIER^F^^3;7^K:$L(X)>15!($L(X)<3) X

 ;;^DD(6919.3,26,3)=Answer must be 3-15 characters in length.

 ;;^DD(6919.3,27,0)=JCAHO^S^Y:YES;N:NO;^3;9^Q

 ;;^DD(6919.3,28,0)=BAR CODE LABEL DATE^D^^3;10^S %DT="E" D ^%DT S X=Y K:Y<1 X

 ;;^DD(6919.3,28.2,0)=ORIGINAL BAR CODE ID^6919.35^^12;0

 ;;^DD(6919.3,29,0)=SECOND PREVIOUS LOCATION^F^^9;1^K:$L(X)>30!($L(X)<1) X

 ;;^DD(6919.3,29,3)=Answer must be 1-30 characters in length.

 ;;^DD(6919.3,29.1,0)=THIRD PREVIOUS LOCATION^F^^9;2^K:$L(X)>30!($L(X)<1) X

 ;;^DD(6919.3,29.1,3)=Answer must be 1-30 characters in length.

 ;;^DD(6919.3,29.2,0)=FOURTH PREVIOUS LOCATION^F^^9;3^K:$L(X)>30!($L(X)<1) X

 ;;^DD(6919.3,29.2,3)=Answer must be 1-30 characters in length.

 ;;^DD(6919.3,29.3,0)=FIFTH PREVIOUS LOCATION^F^^9;4^K:$L(X)>30!($L(X)<1) X

 ;;^DD(6919.3,29.3,3)=Answer must be 1-30 characters in length.

 ;;^DD(6919.3,30,0)=RESPONSIBLE SHOP^6919.31^^4;0

 ;;^DD(6919.3,31,0)=DISPOSITION METHOD^F^^3;12^K:$L(X)>30!($L(X)<3) X

 ;;^DD(6919.3,31,3)=Answer must be 3-30 characters in length.

 ;;^DD(6919.3,31.5,0)=ORIGINAL ASSET VALUE^NJ11,2^^3;15^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X

 ;;^DD(6919.3,31.5,3)=Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits

 ;;^DD(6919.3,32,0)=DISPOSITION VALUE^NJ10,2^^3;13^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X

 ;;^DD(6919.3,32,3)=Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits

 ;;^DD(6919.3,33,0)=CONTROLLED ITEM?^S^0:NO;1:YES;^8;1^Q

 ;;^DD(6919.3,34,0)=CAPITALIZED?^S^1:CAPITALIZED/ACCOUNTABLE;A:NOT CAPITALIZED/ACCOUNTABLE;0:EXPENSED/OPTIONALLY ACCOUNTABLE;^8;2^Q

 ;;^DD(6919.3,35,0)=FUND CONTROL POINT^F^^8;3^K:$L(X)>30!($L(X)<3) X

 ;;^DD(6919.3,35,3)=Answer must be 3-30 characters in length.

 ;;^DD(6919.3,36,0)=COST CENTER^F^^8;4^K:$L(X)>79!($L(X)<4) X

 ;;^DD(6919.3,36,3)=Answer must be 4-79 characters in length.

 ;;^DD(6919.3,38,0)=STANDARD GENERAL LEDGER^F^^8;6^K:$L(X)>4!($L(X)<4) X

 ;;^DD(6919.3,38,3)=Answer must be 4 characters in length.

 ;;^DD(6919.3,40,0)=COMMENTS^6919.32^^5;0

 ;;^DD(6919.3,50,0)=EQUIPMENT HISTORY^6919.33A^^6;0

 ;;^DD(6919.3,51,0)=REPLACING (ENTRY NUMBER)^NJ15,0^^8;8^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X

 ;;^DD(6919.3,51,3)=Type a Number between 1 and 999999999999999, 0 Decimal Digits

 ;;^DD(6919.3,52,0)=REPLACEMENT UPDATE CODE^S^4:NO TO BE REPLACED;5:TO BE REPLACED UNDER ACTIVATION PROJECT;6:ON ORDER;^8;9^Q

 ;;^DD(6919.3,53,0)=CONDITION CODE^S^1:LIKE NEW;2:GOOD;3:POOR;^3;16^Q

 ;;^DD(6919.3,60,0)=STATION NUMBER^F^^9;5^K:$L(X)>5!($L(X)<3) X

 ;;^DD(6919.3,60,3)=Answer must be 3-5 characters in length.

 ;;^DD(6919.3,61,0)=BUDGET OBJECT CODE^F^^9;6^K:$L(X)>4!($L(X)<4) X

 ;;^DD(6919.3,61,3)=Answer must be 4 characters in length.

 ;;^DD(6919.3,62,0)=FUND^F^^9;7^K:$L(X)>6!($L(X)<4) X

 ;;^DD(6919.3,62,3)=Answer must be 4-6 characters in length.

 ;;^DD(6919.3,63,0)=ADMINISTRATIVE/OFFICE^F^^9;8^K:$L(X)>4!($L(X)<2) X

 ;;^DD(6919.3,63,3)=Answer must be 2-4 characters in length.

 ;;^DD(6919.3,64,0)=EQUITY ACCOUNT^S^3299:MEDICAL;3210:NON-MEDICAL;3402:DONATED;^9;9^Q

 ;;^DD(6919.3,70,0)=SPEX^6919.34^^10;0

 ;;^DD(6919.31,0)=RESPONSIBLE SHOP SUB-FIELD^^3^6

 ;;^DD(6919.31,0,"IX","B",6919.31,.01)=

 ;;^DD(6919.31,0,"NM","RESPONSIBLE SHOP")=

 ;;^DD(6919.31,0,"UP")=6919.3

 ;;^DD(6919.31,.01,0)=RESPONSIBLE SHOP^MF^^0;1^K:$L(X)>21!($L(X)<3) X

 ;;^DD(6919.31,.01,1,0)=^.1

 ;;^DD(6919.31,.01,1,1,0)=6919.31^B

 ;;^DD(6919.31,.01,1,1,1)=S ^ENAR(6919.3,DA(1),4,"B",$E(X,1,30),DA)=""

 ;;^DD(6919.31,.01,1,1,2)=K ^ENAR(6919.3,DA(1),4,"B",$E(X,1,30),DA)

 ;;^DD(6919.31,.01,3)=Answer must be 3-21 characters in length.

 ;;^DD(6919.31,1,0)=TECHNICIAN^F^^0;2^K:$L(X)>30!($L(X)<3) X

 ;;^DD(6919.31,1,3)=Answer must be 3-30 characters in length.

 ;;^DD(6919.31,2,0)=STARTING MONTH^S^1:JAN;2:FEB;3:MAR;4:APR;5:MAY;6:JUN;7:JUL;8:AUG;9:SEP;10:OCT;11:NOV;12:DEC;^1;1^Q

 ;;^DD(6919.31,2.6,0)=SKIP MONTHS^F^^0;3^K:$L(X)>7!($L(X)<7) X

 ;;^DD(6919.31,2.6,3)=Answer must be 7 characters in length.

 ;;^DD(6919.31,2.7,0)=CRITICALITY^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENARY302   4636     printed  Apr 23, 2025@18:06:23                                                                                                                                                                                                    Page 2

ENARX302  ;(WCIOFO)/SAW/DH/SAB-EQUIPMENT INV. ARCHIVE ;1/10/2001

 +1       ;;7.0;ENGINEERING;**40,63,68**;Aug 17, 1993

 +2        FOR I=1:1

               SET X=$TEXT(Q+I)

               if X=""

                   QUIT 

               SET Y=$PIECE(X,"=",2,99)

               SET X=$PIECE($EXTRACT(X,4,99),"=",1)

               if X=""

                   SET X=$PIECE(Y,"=",1)

                   SET Y=%_$PIECE(Y,"=",2,99)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT 

 +1       ;;^DD(6919.3,24.5,0)=PREVIOUS LOCATION^F^^3;8^K:$L(X)>20!($L(X)<3) X

 +2       ;;^DD(6919.3,24.5,3)=Answer must be 3-20 characters in length.

 +3       ;;^DD(6919.3,25,0)=VA PM NUMBER^F^^3;6^K:$L(X)>10!($L(X)<9) X

 +4       ;;^DD(6919.3,25,3)=Answer must be 9-10 characters in length.

 +5       ;;^DD(6919.3,26,0)=LOCAL IDENTIFIER^F^^3;7^K:$L(X)>15!($L(X)<3) X

 +6       ;;^DD(6919.3,26,3)=Answer must be 3-15 characters in length.

 +7       ;;^DD(6919.3,27,0)=JCAHO^S^Y:YES;N:NO;^3;9^Q

 +8       ;;^DD(6919.3,28,0)=BAR CODE LABEL DATE^D^^3;10^S %DT="E" D ^%DT S X=Y K:Y<1 X

 +9       ;;^DD(6919.3,28.2,0)=ORIGINAL BAR CODE ID^6919.35^^12;0

 +10      ;;^DD(6919.3,29,0)=SECOND PREVIOUS LOCATION^F^^9;1^K:$L(X)>30!($L(X)<1) X

 +11      ;;^DD(6919.3,29,3)=Answer must be 1-30 characters in length.

 +12      ;;^DD(6919.3,29.1,0)=THIRD PREVIOUS LOCATION^F^^9;2^K:$L(X)>30!($L(X)<1) X

 +13      ;;^DD(6919.3,29.1,3)=Answer must be 1-30 characters in length.

 +14      ;;^DD(6919.3,29.2,0)=FOURTH PREVIOUS LOCATION^F^^9;3^K:$L(X)>30!($L(X)<1) X

 +15      ;;^DD(6919.3,29.2,3)=Answer must be 1-30 characters in length.

 +16      ;;^DD(6919.3,29.3,0)=FIFTH PREVIOUS LOCATION^F^^9;4^K:$L(X)>30!($L(X)<1) X

 +17      ;;^DD(6919.3,29.3,3)=Answer must be 1-30 characters in length.

 +18      ;;^DD(6919.3,30,0)=RESPONSIBLE SHOP^6919.31^^4;0

 +19      ;;^DD(6919.3,31,0)=DISPOSITION METHOD^F^^3;12^K:$L(X)>30!($L(X)<3) X

 +20      ;;^DD(6919.3,31,3)=Answer must be 3-30 characters in length.

 +21      ;;^DD(6919.3,31.5,0)=ORIGINAL ASSET VALUE^NJ11,2^^3;15^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X

 +22      ;;^DD(6919.3,31.5,3)=Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits

 +23      ;;^DD(6919.3,32,0)=DISPOSITION VALUE^NJ10,2^^3;13^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X

 +24      ;;^DD(6919.3,32,3)=Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits

 +25      ;;^DD(6919.3,33,0)=CONTROLLED ITEM?^S^0:NO;1:YES;^8;1^Q

 +26      ;;^DD(6919.3,34,0)=CAPITALIZED?^S^1:CAPITALIZED/ACCOUNTABLE;A:NOT CAPITALIZED/ACCOUNTABLE;0:EXPENSED/OPTIONALLY ACCOUNTABLE;^8;2^Q

 +27      ;;^DD(6919.3,35,0)=FUND CONTROL POINT^F^^8;3^K:$L(X)>30!($L(X)<3) X

 +28      ;;^DD(6919.3,35,3)=Answer must be 3-30 characters in length.

 +29      ;;^DD(6919.3,36,0)=COST CENTER^F^^8;4^K:$L(X)>79!($L(X)<4) X

 +30      ;;^DD(6919.3,36,3)=Answer must be 4-79 characters in length.

 +31      ;;^DD(6919.3,38,0)=STANDARD GENERAL LEDGER^F^^8;6^K:$L(X)>4!($L(X)<4) X

 +32      ;;^DD(6919.3,38,3)=Answer must be 4 characters in length.

 +33      ;;^DD(6919.3,40,0)=COMMENTS^6919.32^^5;0

 +34      ;;^DD(6919.3,50,0)=EQUIPMENT HISTORY^6919.33A^^6;0

 +35      ;;^DD(6919.3,51,0)=REPLACING (ENTRY NUMBER)^NJ15,0^^8;8^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"."1N.N) X

 +36      ;;^DD(6919.3,51,3)=Type a Number between 1 and 999999999999999, 0 Decimal Digits

 +37      ;;^DD(6919.3,52,0)=REPLACEMENT UPDATE CODE^S^4:NO TO BE REPLACED;5:TO BE REPLACED UNDER ACTIVATION PROJECT;6:ON ORDER;^8;9^Q

 +38      ;;^DD(6919.3,53,0)=CONDITION CODE^S^1:LIKE NEW;2:GOOD;3:POOR;^3;16^Q

 +39      ;;^DD(6919.3,60,0)=STATION NUMBER^F^^9;5^K:$L(X)>5!($L(X)<3) X

 +40      ;;^DD(6919.3,60,3)=Answer must be 3-5 characters in length.

 +41      ;;^DD(6919.3,61,0)=BUDGET OBJECT CODE^F^^9;6^K:$L(X)>4!($L(X)<4) X

 +42      ;;^DD(6919.3,61,3)=Answer must be 4 characters in length.

 +43      ;;^DD(6919.3,62,0)=FUND^F^^9;7^K:$L(X)>6!($L(X)<4) X

 +44      ;;^DD(6919.3,62,3)=Answer must be 4-6 characters in length.

 +45      ;;^DD(6919.3,63,0)=ADMINISTRATIVE/OFFICE^F^^9;8^K:$L(X)>4!($L(X)<2) X

 +46      ;;^DD(6919.3,63,3)=Answer must be 2-4 characters in length.

 +47      ;;^DD(6919.3,64,0)=EQUITY ACCOUNT^S^3299:MEDICAL;3210:NON-MEDICAL;3402:DONATED;^9;9^Q

 +48      ;;^DD(6919.3,70,0)=SPEX^6919.34^^10;0

 +49      ;;^DD(6919.31,0)=RESPONSIBLE SHOP SUB-FIELD^^3^6

 +50      ;;^DD(6919.31,0,"IX","B",6919.31,.01)=

 +51      ;;^DD(6919.31,0,"NM","RESPONSIBLE SHOP")=

 +52      ;;^DD(6919.31,0,"UP")=6919.3

 +53      ;;^DD(6919.31,.01,0)=RESPONSIBLE SHOP^MF^^0;1^K:$L(X)>21!($L(X)<3) X

 +54      ;;^DD(6919.31,.01,1,0)=^.1

 +55      ;;^DD(6919.31,.01,1,1,0)=6919.31^B

 +56      ;;^DD(6919.31,.01,1,1,1)=S ^ENAR(6919.3,DA(1),4,"B",$E(X,1,30),DA)=""

 +57      ;;^DD(6919.31,.01,1,1,2)=K ^ENAR(6919.3,DA(1),4,"B",$E(X,1,30),DA)

 +58      ;;^DD(6919.31,.01,3)=Answer must be 3-21 characters in length.

 +59      ;;^DD(6919.31,1,0)=TECHNICIAN^F^^0;2^K:$L(X)>30!($L(X)<3) X

 +60      ;;^DD(6919.31,1,3)=Answer must be 3-30 characters in length.

 +61      ;;^DD(6919.31,2,0)=STARTING MONTH^S^1:JAN;2:FEB;3:MAR;4:APR;5:MAY;6:JUN;7:JUL;8:AUG;9:SEP;10:OCT;11:NOV;12:DEC;^1;1^Q

 +62      ;;^DD(6919.31,2.6,0)=SKIP MONTHS^F^^0;3^K:$L(X)>7!($L(X)<7) X

 +63      ;;^DD(6919.31,2.6,3)=Answer must be 7 characters in length.

 +64      ;;^DD(6919.31,2.7,0)=CRITICALITY^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"."1N.N) X