source: FOIAVistA/tag/r/ENGINEERING-EN/ENARY102.m@ 719

Last change on this file since 719 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.0 KB
Line 
1ENARX102 ;(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
4Q 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
Note: See TracBrowser for help on using the repository browser.