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 ---[H[J[2J[HENARY102 2035 printed Dec 13, 2024@01:51:41 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
