Routine: ENARY303

ENARX303 ;(WIRMFO)/SAW/DH/SAB-EQUIPMENT INV. ARCHIVE ;1/10/2001

 ;;7.0;ENGINEERING;**40,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.31,2.7,3)=Type a Number between 1 and 10, 0 Decimal Digits

 ;;^DD(6919.31,3,0)=FREQUENCY^6919.313S^^2;0

 ;;^DD(6919.313,0)=FREQUENCY SUB-FIELD^^5^6

 ;;^DD(6919.313,0,"NM","FREQUENCY")=

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

 ;;^DD(6919.313,.01,0)=FREQUENCY^MS^A:ANNUAL;S:SEMI-ANNUAL;Q:QUARTERLY;M:MONTHLY;BM:BI-MONTHLY;W:WEEKLY;BW:BI-WEEKLY;N:NONE;BA:BI-ANNUAL;TA:TRI-ANNUAL;^0;1^Q

 ;;^DD(6919.313,1,0)=HOURS (Estimated)^NJ5,1^^0;2^K:+X'=X!(X>200)!(X<.1)!(X?.E1"."2N.N) X

 ;;^DD(6919.313,1,3)=Type a Number between .1 and 200, 1 Decimal Digit

 ;;^DD(6919.313,2,0)=MATERIAL COST (Estimated)^NJ5,0^^0;3^K:+X'=X!(X>20000)!(X<0)!(X?.E1"."1N.N) X

 ;;^DD(6919.313,2,3)=Type a Number between 0 and 20000, 0 Decimal Digits

 ;;^DD(6919.313,3,0)=LEVEL^F^^0;4^K:$L(X)>12!($L(X)<1) X

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

 ;;^DD(6919.313,4,0)=PROCEDURE^F^^0;5^K:$L(X)>20!($L(X)<2) X

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

 ;;^DD(6919.313,5,0)=STARTING YEAR^NJ4,0^^0;6^K:+X'=X!(X>2100)!(X<1900)!(X?.E1"."1N.N) X

 ;;^DD(6919.313,5,3)=Type a Number between 1900 and 2100, 0 Decimal Digits

 ;;^DD(6919.32,0)=COMMENTS SUB-FIELD^^.01^1

 ;;^DD(6919.32,0,"NM","COMMENTS")=

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

 ;;^DD(6919.32,.01,0)=COMMENTS^W^^0;1^Q

 ;;^DD(6919.33,0)=EQUIPMENT HISTORY SUB-FIELD^^9^10

 ;;^DD(6919.33,0,"NM","EQUIPMENT HISTORY")=

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

 ;;^DD(6919.33,.01,0)=HISTORY REFERENCE^F^^0;1^K:$L(X)>12!($L(X)<5) X

 ;;^DD(6919.33,.01,3)=Answer must be 5-12 characters in length.

 ;;^DD(6919.33,1,0)=W.O. REFERENCE^F^^0;2^K:$L(X)>17!($L(X)<5) X

 ;;^DD(6919.33,1,3)=Answer must be 5-17 characters in length.

 ;;^DD(6919.33,2,0)=PM STATUS^S^P:PASS;C:CORRECTIVE ACTION TAKEN/REQUESTED;D0:DEFERRED;D1:DEFERRED, COULD NOT LOCATE;D2:DEFERRED, IN USE;D3:DEFERRED, OUT OF SERVICE OR LOANED OUT;^0;3^Q

 ;;^DD(6919.33,3,0)=HOURS SPENT^NJ7,2^^0;4^K:+X'=X!(X>2080)!(X<0)!(X?.E1"."3N.N) X

 ;;^DD(6919.33,3,3)=Type a Number between 0 and 2080, 2 Decimal Digits

 ;;^DD(6919.33,4,0)=LABOR $^NJ9,2^^0;5^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X

 ;;^DD(6919.33,4,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits

 ;;^DD(6919.33,5,0)=MATERIAL $^NJ9,2^^0;6^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X

 ;;^DD(6919.33,5,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits

 ;;^DD(6919.33,6,0)=VENDOR $^NJ9,2^^0;7^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X

 ;;^DD(6919.33,6,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits

 ;;^DD(6919.33,7,0)=WORKER^F^^0;8^K:$L(X)>15!($L(X)<3) X

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

 ;;^DD(6919.33,8,0)=TOTAL COST^CJ8,2^^ ; ^S Y(6919.33,8,1)=$S($D(^ENAR(6919.3,D0,6,D1,0)):^(0),1:"") S X=$P(Y(6919.33,8,1),U,5)+$P(Y(6919.33,8,1),U,6)+$P(Y(6919.33,8,1),U,7) S X=$J(X,0,2)

 ;;^DD(6919.33,8,9)=^

 ;;^DD(6919.33,8,9.01)=6919.33^6;6919.33^5;6919.33^4

 ;;^DD(6919.33,8,9.1)=LABOR $+MATERIAL $+VENDOR $

 ;;^DD(6919.33,9,0)=WORK PERFORMED^F^^0;9^K:$L(X)>140!($L(X)<3) X

 ;;^DD(6919.33,9,3)=Answer must be 3-140 characters in length.

 ;;^DD(6919.34,0)=SPEX SUB-FIELD^^.01^1

 ;;^DD(6919.34,0,"NM","SPEX")=

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

 ;;^DD(6919.34,.01,0)=SPEX^W^^0;1^Q

 ;;^DD(6919.35,0)=ORIGINAL BAR CODE ID SUB-FIELD^^.01^1

 ;;^DD(6919.35,0,"DT")=3010110

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

 ;;^DD(6919.35,0,"NM","ORIGINAL BAR CODE ID")=

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

 ;;^DD(6919.35,.01,0)=ORIGINAL BAR CODE ID^F^^0;1^K:$L(X)>15!($L(X)<3) X

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

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

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

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

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

 ;;^DD(6919.35,.01,"DT")=3010110

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENARY303   4113     printed  Apr 23, 2025@18:06:24                                                                                                                                                                                                    Page 2

ENARX303  ;(WIRMFO)/SAW/DH/SAB-EQUIPMENT INV. ARCHIVE ;1/10/2001

 +1       ;;7.0;ENGINEERING;**40,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.31,2.7,3)=Type a Number between 1 and 10, 0 Decimal Digits

 +2       ;;^DD(6919.31,3,0)=FREQUENCY^6919.313S^^2;0

 +3       ;;^DD(6919.313,0)=FREQUENCY SUB-FIELD^^5^6

 +4       ;;^DD(6919.313,0,"NM","FREQUENCY")=

 +5       ;;^DD(6919.313,0,"UP")=6919.31

 +6       ;;^DD(6919.313,.01,0)=FREQUENCY^MS^A:ANNUAL;S:SEMI-ANNUAL;Q:QUARTERLY;M:MONTHLY;BM:BI-MONTHLY;W:WEEKLY;BW:BI-WEEKLY;N:NONE;BA:BI-ANNUAL;TA:TRI-ANNUAL;^0;1^Q

 +7       ;;^DD(6919.313,1,0)=HOURS (Estimated)^NJ5,1^^0;2^K:+X'=X!(X>200)!(X<.1)!(X?.E1"."2N.N) X

 +8       ;;^DD(6919.313,1,3)=Type a Number between .1 and 200, 1 Decimal Digit

 +9       ;;^DD(6919.313,2,0)=MATERIAL COST (Estimated)^NJ5,0^^0;3^K:+X'=X!(X>20000)!(X<0)!(X?.E1"."1N.N) X

 +10      ;;^DD(6919.313,2,3)=Type a Number between 0 and 20000, 0 Decimal Digits

 +11      ;;^DD(6919.313,3,0)=LEVEL^F^^0;4^K:$L(X)>12!($L(X)<1) X

 +12      ;;^DD(6919.313,3,3)=Answer must be 1-12 characters in length.

 +13      ;;^DD(6919.313,4,0)=PROCEDURE^F^^0;5^K:$L(X)>20!($L(X)<2) X

 +14      ;;^DD(6919.313,4,3)=Answer must be 2-20 characters in length.

 +15      ;;^DD(6919.313,5,0)=STARTING YEAR^NJ4,0^^0;6^K:+X'=X!(X>2100)!(X<1900)!(X?.E1"."1N.N) X

 +16      ;;^DD(6919.313,5,3)=Type a Number between 1900 and 2100, 0 Decimal Digits

 +17      ;;^DD(6919.32,0)=COMMENTS SUB-FIELD^^.01^1

 +18      ;;^DD(6919.32,0,"NM","COMMENTS")=

 +19      ;;^DD(6919.32,0,"UP")=6919.3

 +20      ;;^DD(6919.32,.01,0)=COMMENTS^W^^0;1^Q

 +21      ;;^DD(6919.33,0)=EQUIPMENT HISTORY SUB-FIELD^^9^10

 +22      ;;^DD(6919.33,0,"NM","EQUIPMENT HISTORY")=

 +23      ;;^DD(6919.33,0,"UP")=6919.3

 +24      ;;^DD(6919.33,.01,0)=HISTORY REFERENCE^F^^0;1^K:$L(X)>12!($L(X)<5) X

 +25      ;;^DD(6919.33,.01,3)=Answer must be 5-12 characters in length.

 +26      ;;^DD(6919.33,1,0)=W.O. REFERENCE^F^^0;2^K:$L(X)>17!($L(X)<5) X

 +27      ;;^DD(6919.33,1,3)=Answer must be 5-17 characters in length.

 +28      ;;^DD(6919.33,2,0)=PM STATUS^S^P:PASS;C:CORRECTIVE ACTION TAKEN/REQUESTED;D0:DEFERRED;D1:DEFERRED, COULD NOT LOCATE;D2:DEFERRED, IN USE;D3:DEFERRED, OUT OF SERVICE OR LOANED OUT;^0;3^Q

 +29      ;;^DD(6919.33,3,0)=HOURS SPENT^NJ7,2^^0;4^K:+X'=X!(X>2080)!(X<0)!(X?.E1"."3N.N) X

 +30      ;;^DD(6919.33,3,3)=Type a Number between 0 and 2080, 2 Decimal Digits

 +31      ;;^DD(6919.33,4,0)=LABOR $^NJ9,2^^0;5^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X

 +32      ;;^DD(6919.33,4,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits

 +33      ;;^DD(6919.33,5,0)=MATERIAL $^NJ9,2^^0;6^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X

 +34      ;;^DD(6919.33,5,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits

 +35      ;;^DD(6919.33,6,0)=VENDOR $^NJ9,2^^0;7^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X

 +36      ;;^DD(6919.33,6,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits

 +37      ;;^DD(6919.33,7,0)=WORKER^F^^0;8^K:$L(X)>15!($L(X)<3) X

 +38      ;;^DD(6919.33,7,3)=Answer must be 3-15 characters in length.

 +39      ;;^DD(6919.33,8,0)=TOTAL COST^CJ8,2^^ ; ^S Y(6919.33,8,1)=$S($D(^ENAR(6919.3,D0,6,D1,0)):^(0),1:"") S X=$P(Y(6919.33,8,1),U,5)+$P(Y(6919.33,8,1),U,6)+$P(Y(6919.33,8,1),U,7) S X=$J(X,0,2)

 +40      ;;^DD(6919.33,8,9)=^

 +41      ;;^DD(6919.33,8,9.01)=6919.33^6;6919.33^5;6919.33^4

 +42      ;;^DD(6919.33,8,9.1)=LABOR $+MATERIAL $+VENDOR $

 +43      ;;^DD(6919.33,9,0)=WORK PERFORMED^F^^0;9^K:$L(X)>140!($L(X)<3) X

 +44      ;;^DD(6919.33,9,3)=Answer must be 3-140 characters in length.

 +45      ;;^DD(6919.34,0)=SPEX SUB-FIELD^^.01^1

 +46      ;;^DD(6919.34,0,"NM","SPEX")=

 +47      ;;^DD(6919.34,0,"UP")=6919.3

 +48      ;;^DD(6919.34,.01,0)=SPEX^W^^0;1^Q

 +49      ;;^DD(6919.35,0)=ORIGINAL BAR CODE ID SUB-FIELD^^.01^1

 +50      ;;^DD(6919.35,0,"DT")=3010110

 +51      ;;^DD(6919.35,0,"IX","B",6919.35,.01)=

 +52      ;;^DD(6919.35,0,"NM","ORIGINAL BAR CODE ID")=

 +53      ;;^DD(6919.35,0,"UP")=6919.3

 +54      ;;^DD(6919.35,.01,0)=ORIGINAL BAR CODE ID^F^^0;1^K:$L(X)>15!($L(X)<3) X

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

 +56      ;;^DD(6919.35,.01,1,1,0)=6919.35^B

 +57      ;;^DD(6919.35,.01,1,1,1)=S ^ENAR(6919.3,DA(1),12,"B",$E(X,1,30),DA)=""

 +58      ;;^DD(6919.35,.01,1,1,2)=K ^ENAR(6919.3,DA(1),12,"B",$E(X,1,30),DA)

 +59      ;;^DD(6919.35,.01,3)=Answer must be 3-15 characters in length.

 +60      ;;^DD(6919.35,.01,"DT")=3010110

ENARY303.m