| 1 | ENARX102 ;(WIRMFO)/SAW/DH/SAB-WORK ORDER ARCHIVE ;2.10.97
|
|---|
| 2 | ;;7.0;ENGINEERING;**40**;Aug 17, 1993
|
|---|
| 3 | 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
|
|---|
| 4 | Q Q
|
|---|
| 5 | ;;^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
|
|---|
| 6 | ;;^DD(6919.1,46,3)=TYPE A NUMBER BETWEEN 0 AND 99999
|
|---|
| 7 | ;;^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
|
|---|
| 8 | ;;^DD(6919.1,47,3)=TYPE A NUMBER BETWEEN 0 AND 99999
|
|---|
| 9 | ;;^DD(6919.1,48,0)=DATE COMPLETE^D^^4;8^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
|
|---|
| 10 | ;;^DD(6919.1,51,0)=COMMENTS^6919.12^^5;0
|
|---|
| 11 | ;;^DD(6919.1,60,0)=STATUS^F^^6;1^K:$L(X)>20!($L(X)<2)!'(X?.ANP) X
|
|---|
| 12 | ;;^DD(6919.1,60,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
|
|---|
| 13 | ;;^DD(6919.1,61,0)=PM STATUS^F^^6;2^K:$L(X)>20!($L(X)<2)!'(X?.ANP) X
|
|---|
| 14 | ;;^DD(6919.1,61,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
|
|---|
| 15 | ;;^DD(6919.1,62,0)=WORK PERFORMED^F^^6;3^K:$L(X)>140!($L(X)<3)!'(X?.ANP) X
|
|---|
| 16 | ;;^DD(6919.1,62,3)=ANSWER MUST BE 3-140 CHARACTERS
|
|---|
| 17 | ;;^DD(6919.11,0)=TECHNICIANS ASSIGNED SUB-FIELD^NL^2^3
|
|---|
| 18 | ;;^DD(6919.11,0,"NM","TECHNICIANS ASSIGNED")=
|
|---|
| 19 | ;;^DD(6919.11,0,"UP")=6919.1
|
|---|
| 20 | ;;^DD(6919.11,.01,0)=ASSIGNED TECH^F^^0;1^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
|
|---|
| 21 | ;;^DD(6919.11,.01,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
|
|---|
| 22 | ;;^DD(6919.11,1,0)=HOURS^NJ7,2^^0;2^K:+X'=X!(X>2080)!(X<.1)!(X?.E1"."3N.N) X
|
|---|
| 23 | ;;^DD(6919.11,1,3)=TYPE A NUMBER BETWEEN .1 AND 2080
|
|---|
| 24 | ;;^DD(6919.11,2,0)=SHOP^F^^0;3^K:$L(X)>21!($L(X)<1)!'(X?.ANP) X
|
|---|
| 25 | ;;^DD(6919.11,2,3)=ANSWER MUST BE 1-21 CHARACTERS IN LENGTH
|
|---|
| 26 | ;;^DD(6919.12,0)=COMMENTS SUB-FIELD^NL^.01^1
|
|---|
| 27 | ;;^DD(6919.12,0,"NM","COMMENTS")=
|
|---|
| 28 | ;;^DD(6919.12,0,"UP")=6919.1
|
|---|
| 29 | ;;^DD(6919.12,.01,0)=COMMENTS^W^^0;1^Q
|
|---|
| 30 | ;;^DD(6919.13,0)=WORK ACTION SUB-FIELD^NL^.01^1
|
|---|
| 31 | ;;^DD(6919.13,0,"NM","WORK ACTION")=
|
|---|
| 32 | ;;^DD(6919.13,0,"UP")=6919.1
|
|---|
| 33 | ;;^DD(6919.13,.01,0)=WORK ACTION^F^^0;1^K:$L(X)>40!($L(X)<1)!'(X?.ANP) X
|
|---|
| 34 | ;;^DD(6919.13,.01,3)=ANSWER MUST BE 1-40 CHARACTERS IN LENGTH
|
|---|
