ENARY102.m

ENARX102 ;(WIRMFO)/SAW/DH/SAB-WORK ORDER ARCHIVE ;2.10.97

 ;;7.0;ENGINEERING;**40**;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.1,46,0)=TOTAL LABOR COST^NJ8,2^^4;6^S:X["$" X=$P(X,"$",2) K:X'=+X&(X'?.N1"."2N)!(X>99999)!(X<0) X

 ;;^DD(6919.1,46,3)=TYPE A NUMBER BETWEEN 0 AND 99999

 ;;^DD(6919.1,47,0)=VENDOR SERVICE COST^NJ12,2^^4;7^S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999999)!(X<0) X

 ;;^DD(6919.1,47,3)=TYPE A NUMBER BETWEEN 0 AND 99999

 ;;^DD(6919.1,48,0)=DATE COMPLETE^D^^4;8^S %DT="ETX" D ^%DT S X=Y K:Y<1 X

 ;;^DD(6919.1,51,0)=COMMENTS^6919.12^^5;0

 ;;^DD(6919.1,60,0)=STATUS^F^^6;1^K:$L(X)>20!($L(X)<2)!'(X?.ANP) X

 ;;^DD(6919.1,60,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH

 ;;^DD(6919.1,61,0)=PM STATUS^F^^6;2^K:$L(X)>20!($L(X)<2)!'(X?.ANP) X

 ;;^DD(6919.1,61,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH

 ;;^DD(6919.1,62,0)=WORK PERFORMED^F^^6;3^K:$L(X)>140!($L(X)<3)!'(X?.ANP) X

 ;;^DD(6919.1,62,3)=ANSWER MUST BE 3-140 CHARACTERS

 ;;^DD(6919.11,0)=TECHNICIANS ASSIGNED SUB-FIELD^NL^2^3

 ;;^DD(6919.11,0,"NM","TECHNICIANS ASSIGNED")=

 ;;^DD(6919.11,0,"UP")=6919.1

 ;;^DD(6919.11,.01,0)=ASSIGNED TECH^F^^0;1^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X

 ;;^DD(6919.11,.01,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH

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

 ;;^DD(6919.11,1,3)=TYPE A NUMBER BETWEEN .1 AND 2080

 ;;^DD(6919.11,2,0)=SHOP^F^^0;3^K:$L(X)>21!($L(X)<1)!'(X?.ANP) X

 ;;^DD(6919.11,2,3)=ANSWER MUST BE 1-21 CHARACTERS IN LENGTH

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

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

 ;;^DD(6919.12,0,"UP")=6919.1

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

 ;;^DD(6919.13,0)=WORK ACTION SUB-FIELD^NL^.01^1

 ;;^DD(6919.13,0,"NM","WORK ACTION")=

 ;;^DD(6919.13,0,"UP")=6919.1

 ;;^DD(6919.13,.01,0)=WORK ACTION^F^^0;1^K:$L(X)>40!($L(X)<1)!'(X?.ANP) X

 ;;^DD(6919.13,.01,3)=ANSWER MUST BE 1-40 CHARACTERS IN LENGTH

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENARY102   2035     printed  Apr 09, 2024@21:00:52                                                                                                                                                                                                    Page 2

ENARX102  ;(WIRMFO)/SAW/DH/SAB-WORK ORDER ARCHIVE ;2.10.97

 +1       ;;7.0;ENGINEERING;**40**;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.1,46,0)=TOTAL LABOR COST^NJ8,2^^4;6^S:X["$" X=$P(X,"$",2) K:X'=+X&(X'?.N1"."2N)!(X>99999)!(X<0) X

 +2       ;;^DD(6919.1,46,3)=TYPE A NUMBER BETWEEN 0 AND 99999

 +3       ;;^DD(6919.1,47,0)=VENDOR SERVICE COST^NJ12,2^^4;7^S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999999999)!(X<0) X

 +4       ;;^DD(6919.1,47,3)=TYPE A NUMBER BETWEEN 0 AND 99999

 +5       ;;^DD(6919.1,48,0)=DATE COMPLETE^D^^4;8^S %DT="ETX" D ^%DT S X=Y K:Y<1 X

 +6       ;;^DD(6919.1,51,0)=COMMENTS^6919.12^^5;0

 +7       ;;^DD(6919.1,60,0)=STATUS^F^^6;1^K:$L(X)>20!($L(X)<2)!'(X?.ANP) X

 +8       ;;^DD(6919.1,60,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH

 +9       ;;^DD(6919.1,61,0)=PM STATUS^F^^6;2^K:$L(X)>20!($L(X)<2)!'(X?.ANP) X

 +10      ;;^DD(6919.1,61,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH

 +11      ;;^DD(6919.1,62,0)=WORK PERFORMED^F^^6;3^K:$L(X)>140!($L(X)<3)!'(X?.ANP) X

 +12      ;;^DD(6919.1,62,3)=ANSWER MUST BE 3-140 CHARACTERS

 +13      ;;^DD(6919.11,0)=TECHNICIANS ASSIGNED SUB-FIELD^NL^2^3

 +14      ;;^DD(6919.11,0,"NM","TECHNICIANS ASSIGNED")=

 +15      ;;^DD(6919.11,0,"UP")=6919.1

 +16      ;;^DD(6919.11,.01,0)=ASSIGNED TECH^F^^0;1^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X

 +17      ;;^DD(6919.11,.01,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH

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

 +19      ;;^DD(6919.11,1,3)=TYPE A NUMBER BETWEEN .1 AND 2080

 +20      ;;^DD(6919.11,2,0)=SHOP^F^^0;3^K:$L(X)>21!($L(X)<1)!'(X?.ANP) X

 +21      ;;^DD(6919.11,2,3)=ANSWER MUST BE 1-21 CHARACTERS IN LENGTH

 +22      ;;^DD(6919.12,0)=COMMENTS SUB-FIELD^NL^.01^1

 +23      ;;^DD(6919.12,0,"NM","COMMENTS")=

 +24      ;;^DD(6919.12,0,"UP")=6919.1

 +25      ;;^DD(6919.12,.01,0)=COMMENTS^W^^0;1^Q

 +26      ;;^DD(6919.13,0)=WORK ACTION SUB-FIELD^NL^.01^1

 +27      ;;^DD(6919.13,0,"NM","WORK ACTION")=

 +28      ;;^DD(6919.13,0,"UP")=6919.1

 +29      ;;^DD(6919.13,.01,0)=WORK ACTION^F^^0;1^K:$L(X)>40!($L(X)<1)!'(X?.ANP) X

 +30      ;;^DD(6919.13,.01,3)=ANSWER MUST BE 1-40 CHARACTERS IN LENGTH