source: FOIAVistA/trunk/r/ENGINEERING-EN/ENARY101.m@ 1397

ENARX101 ;(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
 ;;^DIC(6919.1,0,"DD")=@
 ;;^DIC(6919.1,0,"GL")=^ENAR(6919.1,
 ;;^DIC(6919.1,0,"WR")=@
 ;;^DIC("B","WO ARCHIVE",6919.1)=
 ;;^DD(6919.1,0)=FIELD^^51^29
 ;;^DD(6919.1,0,"IX","B",6919.1,.01)=
 ;;^DD(6919.1,0,"NM","WO ARCHIVE")=
 ;;^DD(6919.1,.01,0)=WORK ORDER #^RF^^0;1^K:$L(X)>17!($L(X)<5)!'(X'?2P.E)!(X'?.ANP)!($D(^ENAR(6919.1,"B",X))) X
 ;;^DD(6919.1,.01,1,0)=^.1
 ;;^DD(6919.1,.01,1,1,0)=6919.1^B
 ;;^DD(6919.1,.01,1,1,1)=S ^ENAR(6919.1,"B",$E(X,1,30),DA)=""
 ;;^DD(6919.1,.01,1,1,2)=K ^ENAR(6919.1,"B",$E(X,1,30),DA)
 ;;^DD(6919.1,.01,3)=ANSWER MUST BE 5-17 CHARACTERS IN LENGTH
 ;;^DD(6919.1,.03,0)=ENTERED BY^F^^0;3^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,.03,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
 ;;^DD(6919.1,.02,0)=ORIGINAL WORK ORDER #^F^^0;2^K:$L(X)>17!($L(X)<5)! X
 ;;^DD(6919.1,1,0)=REQUEST DATE^D^^1;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
 ;;^DD(6919.1,2,0)=REQUEST MODE^S^P:PHONE;W:WRITTEN;D:DELIVERED;V:VERBAL;C:COMPUTER;^1;2^Q
 ;;^DD(6919.1,3,0)=LOCATION^F^^1;3^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,3,3)=ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
 ;;^DD(6919.1,4,0)=BED #^F^^1;4^K:$L(X)>10!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,4,3)=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
 ;;^DD(6919.1,5,0)=TASK DESCRIPTION^F^^1;5^K:$L(X)>60!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,5,3)=ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
 ;;^DD(6919.1,6,0)=CONTACT PERSON^F^^1;6^K:$L(X)>15!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,6,3)=ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
 ;;^DD(6919.1,7,0)=PHONE^F^^1;7^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,7,3)=ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
 ;;^DD(6919.1,8,0)=OWNER/DEPARTMENT^F^^1;8^K:$L(X)>40!($L(X)<3)!'(X?.ANP) X
 ;;^DD(6919.1,9,0)=SHOP^F^^1;9^K:$L(X)>21!($L(X)<2)!'(X?.ANP) X
 ;;^DD(6919.1,9,3)=ANSWER MUST BE 2-21 CHARACTERS IN LENGTH
 ;;^DD(6919.1,10,0)=PRIMARY TECH ASSIGNED^F^^1;10^K:$L(X)>30!($L(X)<2)!'(X?.ANP) X
 ;;^DD(6919.1,10,3)=ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
 ;;^DD(6919.1,11,0)=PRIORITY^S^E:EMERGEMCY;H:HIGH;A:AVERAGE;L:LOW;M:MODIFICATION;^1;11^Q
 ;;^DD(6919.1,12,0)=DATE ASSIGNED^D^^1;12^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
 ;;^DD(6919.1,18,0)=EQUIPMENT ID#^N^^2;7^K:X<1!'(X?.N) X
 ;;^DD(6919.1,21,0)=PMI NUMBER^F^^2;1^K:$L(X)>11!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,21,3)=ANSWER MUST BE 1-11 CHARACTERS IN LENGTH
 ;;^DD(6919.1,22,0)=EQUIPMENT CATEGORY^F^^2;2^K:$L(X)>50!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,23,0)=MANUFACTURER^F^^2;3^K:$L(X)>60!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,23,3)=ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
 ;;^DD(6919.1,24,0)=MODEL^F^^2;4^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,24,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
 ;;^DD(6919.1,25,0)=SERIAL NUMBER^F^^2;5^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,25,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
 ;;^DD(6919.1,26,0)=LOCAL IDENTIFIER^F^^2;6^K:$L(X)>15!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,26,3)=ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
 ;;^DD(6919.1,31,0)=TECHNICIANS ASSIGNED^6919.11A^^3;0
 ;;^DD(6919.1,35,0)=WORK ACTION^6919.13^^8;0
 ;;^DD(6919.1,42,0)=WORK CENTER CODE^F^^4;2^K:$L(X)>40!($L(X)<3)!'(X?.ANP) X
 ;;^DD(6919.1,42,3)=ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
 ;;^DD(6919.1,43,0)=PARTS ORDERED ACCT. #^F^^4;3^K:$L(X)>16!($L(X)<1)!'(X?.ANP) X
 ;;^DD(6919.1,43,3)=ANSWER MUST BE 1-16 CHARACTERS IN LENGTH
 ;;^DD(6919.1,44,0)=TOTAL HOURS^NJ7,2^^4;4^K:+X'=X!(X>2080)!(X<0)!(X?.E1"."3N.N) X
 ;;^DD(6919.1,44,3)=TYPE A NUMBER BETWEEN 0 AND 2080
 ;;^DD(6919.1,45,0)=TOTAL MATERIAL COST^NJ11,2^^4;5^S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999999)!(X<0) X
 ;;^DD(6919.1,45,3)=TYPE A NUMBER BETWEEN 0 AND 99999