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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENARY101 3886 printed Dec 13, 2024@01:51:40 Page 2
ENARX101 ;(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 ;;^DIC(6919.1,0,"DD")=@
+2 ;;^DIC(6919.1,0,"GL")=^ENAR(6919.1,
+3 ;;^DIC(6919.1,0,"WR")=@
+4 ;;^DIC("B","WO ARCHIVE",6919.1)=
+5 ;;^DD(6919.1,0)=FIELD^^51^29
+6 ;;^DD(6919.1,0,"IX","B",6919.1,.01)=
+7 ;;^DD(6919.1,0,"NM","WO ARCHIVE")=
+8 ;;^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
+9 ;;^DD(6919.1,.01,1,0)=^.1
+10 ;;^DD(6919.1,.01,1,1,0)=6919.1^B
+11 ;;^DD(6919.1,.01,1,1,1)=S ^ENAR(6919.1,"B",$E(X,1,30),DA)=""
+12 ;;^DD(6919.1,.01,1,1,2)=K ^ENAR(6919.1,"B",$E(X,1,30),DA)
+13 ;;^DD(6919.1,.01,3)=ANSWER MUST BE 5-17 CHARACTERS IN LENGTH
+14 ;;^DD(6919.1,.03,0)=ENTERED BY^F^^0;3^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
+15 ;;^DD(6919.1,.03,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
+16 ;;^DD(6919.1,.02,0)=ORIGINAL WORK ORDER #^F^^0;2^K:$L(X)>17!($L(X)<5)! X
+17 ;;^DD(6919.1,1,0)=REQUEST DATE^D^^1;1^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+18 ;;^DD(6919.1,2,0)=REQUEST MODE^S^P:PHONE;W:WRITTEN;D:DELIVERED;V:VERBAL;C:COMPUTER;^1;2^Q
+19 ;;^DD(6919.1,3,0)=LOCATION^F^^1;3^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X
+20 ;;^DD(6919.1,3,3)=ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
+21 ;;^DD(6919.1,4,0)=BED #^F^^1;4^K:$L(X)>10!($L(X)<1)!'(X?.ANP) X
+22 ;;^DD(6919.1,4,3)=ANSWER MUST BE 1-10 CHARACTERS IN LENGTH
+23 ;;^DD(6919.1,5,0)=TASK DESCRIPTION^F^^1;5^K:$L(X)>60!($L(X)<1)!'(X?.ANP) X
+24 ;;^DD(6919.1,5,3)=ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
+25 ;;^DD(6919.1,6,0)=CONTACT PERSON^F^^1;6^K:$L(X)>15!($L(X)<1)!'(X?.ANP) X
+26 ;;^DD(6919.1,6,3)=ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
+27 ;;^DD(6919.1,7,0)=PHONE^F^^1;7^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X
+28 ;;^DD(6919.1,7,3)=ANSWER MUST BE 1-20 CHARACTERS IN LENGTH
+29 ;;^DD(6919.1,8,0)=OWNER/DEPARTMENT^F^^1;8^K:$L(X)>40!($L(X)<3)!'(X?.ANP) X
+30 ;;^DD(6919.1,9,0)=SHOP^F^^1;9^K:$L(X)>21!($L(X)<2)!'(X?.ANP) X
+31 ;;^DD(6919.1,9,3)=ANSWER MUST BE 2-21 CHARACTERS IN LENGTH
+32 ;;^DD(6919.1,10,0)=PRIMARY TECH ASSIGNED^F^^1;10^K:$L(X)>30!($L(X)<2)!'(X?.ANP) X
+33 ;;^DD(6919.1,10,3)=ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
+34 ;;^DD(6919.1,11,0)=PRIORITY^S^E:EMERGEMCY;H:HIGH;A:AVERAGE;L:LOW;M:MODIFICATION;^1;11^Q
+35 ;;^DD(6919.1,12,0)=DATE ASSIGNED^D^^1;12^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+36 ;;^DD(6919.1,18,0)=EQUIPMENT ID#^N^^2;7^K:X<1!'(X?.N) X
+37 ;;^DD(6919.1,21,0)=PMI NUMBER^F^^2;1^K:$L(X)>11!($L(X)<1)!'(X?.ANP) X
+38 ;;^DD(6919.1,21,3)=ANSWER MUST BE 1-11 CHARACTERS IN LENGTH
+39 ;;^DD(6919.1,22,0)=EQUIPMENT CATEGORY^F^^2;2^K:$L(X)>50!($L(X)<1)!'(X?.ANP) X
+40 ;;^DD(6919.1,23,0)=MANUFACTURER^F^^2;3^K:$L(X)>60!($L(X)<1)!'(X?.ANP) X
+41 ;;^DD(6919.1,23,3)=ANSWER MUST BE 1-60 CHARACTERS IN LENGTH
+42 ;;^DD(6919.1,24,0)=MODEL^F^^2;4^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
+43 ;;^DD(6919.1,24,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
+44 ;;^DD(6919.1,25,0)=SERIAL NUMBER^F^^2;5^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X
+45 ;;^DD(6919.1,25,3)=ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
+46 ;;^DD(6919.1,26,0)=LOCAL IDENTIFIER^F^^2;6^K:$L(X)>15!($L(X)<1)!'(X?.ANP) X
+47 ;;^DD(6919.1,26,3)=ANSWER MUST BE 1-15 CHARACTERS IN LENGTH
+48 ;;^DD(6919.1,31,0)=TECHNICIANS ASSIGNED^6919.11A^^3;0
+49 ;;^DD(6919.1,35,0)=WORK ACTION^6919.13^^8;0
+50 ;;^DD(6919.1,42,0)=WORK CENTER CODE^F^^4;2^K:$L(X)>40!($L(X)<3)!'(X?.ANP) X
+51 ;;^DD(6919.1,42,3)=ANSWER MUST BE 3-40 CHARACTERS IN LENGTH
+52 ;;^DD(6919.1,43,0)=PARTS ORDERED ACCT. #^F^^4;3^K:$L(X)>16!($L(X)<1)!'(X?.ANP) X
+53 ;;^DD(6919.1,43,3)=ANSWER MUST BE 1-16 CHARACTERS IN LENGTH
+54 ;;^DD(6919.1,44,0)=TOTAL HOURS^NJ7,2^^4;4^K:+X'=X!(X>2080)!(X<0)!(X?.E1"."3N.N) X
+55 ;;^DD(6919.1,44,3)=TYPE A NUMBER BETWEEN 0 AND 2080
+56 ;;^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
+57 ;;^DD(6919.1,45,3)=TYPE A NUMBER BETWEEN 0 AND 99999