source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENARY303.m@ 1501

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

initial load of WorldVistAEHR
File size: 4.0 KB
RevLine 
[613]1ENARX303 ;(WIRMFO)/SAW/DH/SAB-EQUIPMENT INV. ARCHIVE ;1/10/2001
2 ;;7.0;ENGINEERING;**40,68**;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.31,2.7,3)=Type a Number between 1 and 10, 0 Decimal Digits
6 ;;^DD(6919.31,3,0)=FREQUENCY^6919.313S^^2;0
7 ;;^DD(6919.313,0)=FREQUENCY SUB-FIELD^^5^6
8 ;;^DD(6919.313,0,"NM","FREQUENCY")=
9 ;;^DD(6919.313,0,"UP")=6919.31
10 ;;^DD(6919.313,.01,0)=FREQUENCY^MS^A:ANNUAL;S:SEMI-ANNUAL;Q:QUARTERLY;M:MONTHLY;BM:BI-MONTHLY;W:WEEKLY;BW:BI-WEEKLY;N:NONE;BA:BI-ANNUAL;TA:TRI-ANNUAL;^0;1^Q
11 ;;^DD(6919.313,1,0)=HOURS (Estimated)^NJ5,1^^0;2^K:+X'=X!(X>200)!(X<.1)!(X?.E1"."2N.N) X
12 ;;^DD(6919.313,1,3)=Type a Number between .1 and 200, 1 Decimal Digit
13 ;;^DD(6919.313,2,0)=MATERIAL COST (Estimated)^NJ5,0^^0;3^K:+X'=X!(X>20000)!(X<0)!(X?.E1"."1N.N) X
14 ;;^DD(6919.313,2,3)=Type a Number between 0 and 20000, 0 Decimal Digits
15 ;;^DD(6919.313,3,0)=LEVEL^F^^0;4^K:$L(X)>12!($L(X)<1) X
16 ;;^DD(6919.313,3,3)=Answer must be 1-12 characters in length.
17 ;;^DD(6919.313,4,0)=PROCEDURE^F^^0;5^K:$L(X)>20!($L(X)<2) X
18 ;;^DD(6919.313,4,3)=Answer must be 2-20 characters in length.
19 ;;^DD(6919.313,5,0)=STARTING YEAR^NJ4,0^^0;6^K:+X'=X!(X>2100)!(X<1900)!(X?.E1"."1N.N) X
20 ;;^DD(6919.313,5,3)=Type a Number between 1900 and 2100, 0 Decimal Digits
21 ;;^DD(6919.32,0)=COMMENTS SUB-FIELD^^.01^1
22 ;;^DD(6919.32,0,"NM","COMMENTS")=
23 ;;^DD(6919.32,0,"UP")=6919.3
24 ;;^DD(6919.32,.01,0)=COMMENTS^W^^0;1^Q
25 ;;^DD(6919.33,0)=EQUIPMENT HISTORY SUB-FIELD^^9^10
26 ;;^DD(6919.33,0,"NM","EQUIPMENT HISTORY")=
27 ;;^DD(6919.33,0,"UP")=6919.3
28 ;;^DD(6919.33,.01,0)=HISTORY REFERENCE^F^^0;1^K:$L(X)>12!($L(X)<5) X
29 ;;^DD(6919.33,.01,3)=Answer must be 5-12 characters in length.
30 ;;^DD(6919.33,1,0)=W.O. REFERENCE^F^^0;2^K:$L(X)>17!($L(X)<5) X
31 ;;^DD(6919.33,1,3)=Answer must be 5-17 characters in length.
32 ;;^DD(6919.33,2,0)=PM STATUS^S^P:PASS;C:CORRECTIVE ACTION TAKEN/REQUESTED;D0:DEFERRED;D1:DEFERRED, COULD NOT LOCATE;D2:DEFERRED, IN USE;D3:DEFERRED, OUT OF SERVICE OR LOANED OUT;^0;3^Q
33 ;;^DD(6919.33,3,0)=HOURS SPENT^NJ7,2^^0;4^K:+X'=X!(X>2080)!(X<0)!(X?.E1"."3N.N) X
34 ;;^DD(6919.33,3,3)=Type a Number between 0 and 2080, 2 Decimal Digits
35 ;;^DD(6919.33,4,0)=LABOR $^NJ9,2^^0;5^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
36 ;;^DD(6919.33,4,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
37 ;;^DD(6919.33,5,0)=MATERIAL $^NJ9,2^^0;6^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
38 ;;^DD(6919.33,5,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
39 ;;^DD(6919.33,6,0)=VENDOR $^NJ9,2^^0;7^S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999)!(X<0) X
40 ;;^DD(6919.33,6,3)=Type a Dollar Amount between 0 and 999999, 2 Decimal Digits
41 ;;^DD(6919.33,7,0)=WORKER^F^^0;8^K:$L(X)>15!($L(X)<3) X
42 ;;^DD(6919.33,7,3)=Answer must be 3-15 characters in length.
43 ;;^DD(6919.33,8,0)=TOTAL COST^CJ8,2^^ ; ^S Y(6919.33,8,1)=$S($D(^ENAR(6919.3,D0,6,D1,0)):^(0),1:"") S X=$P(Y(6919.33,8,1),U,5)+$P(Y(6919.33,8,1),U,6)+$P(Y(6919.33,8,1),U,7) S X=$J(X,0,2)
44 ;;^DD(6919.33,8,9)=^
45 ;;^DD(6919.33,8,9.01)=6919.33^6;6919.33^5;6919.33^4
46 ;;^DD(6919.33,8,9.1)=LABOR $+MATERIAL $+VENDOR $
47 ;;^DD(6919.33,9,0)=WORK PERFORMED^F^^0;9^K:$L(X)>140!($L(X)<3) X
48 ;;^DD(6919.33,9,3)=Answer must be 3-140 characters in length.
49 ;;^DD(6919.34,0)=SPEX SUB-FIELD^^.01^1
50 ;;^DD(6919.34,0,"NM","SPEX")=
51 ;;^DD(6919.34,0,"UP")=6919.3
52 ;;^DD(6919.34,.01,0)=SPEX^W^^0;1^Q
53 ;;^DD(6919.35,0)=ORIGINAL BAR CODE ID SUB-FIELD^^.01^1
54 ;;^DD(6919.35,0,"DT")=3010110
55 ;;^DD(6919.35,0,"IX","B",6919.35,.01)=
56 ;;^DD(6919.35,0,"NM","ORIGINAL BAR CODE ID")=
57 ;;^DD(6919.35,0,"UP")=6919.3
58 ;;^DD(6919.35,.01,0)=ORIGINAL BAR CODE ID^F^^0;1^K:$L(X)>15!($L(X)<3) X
59 ;;^DD(6919.35,.01,1,0)=^.1
60 ;;^DD(6919.35,.01,1,1,0)=6919.35^B
61 ;;^DD(6919.35,.01,1,1,1)=S ^ENAR(6919.3,DA(1),12,"B",$E(X,1,30),DA)=""
62 ;;^DD(6919.35,.01,1,1,2)=K ^ENAR(6919.3,DA(1),12,"B",$E(X,1,30),DA)
63 ;;^DD(6919.35,.01,3)=Answer must be 3-15 characters in length.
64 ;;^DD(6919.35,.01,"DT")=3010110
Note: See TracBrowser for help on using the repository browser.