source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENARY203.m@ 699

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

initial load of WorldVistAEHR

File size: 3.4 KB
Line 
1ENARX203 ;(WASH ISC)/SAW/DH-2162 Archive ;10-26-88
2 ;;7.0;ENGINEERING;;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.2,41,3)=LEAVE BLANK IF FIRE NOT INVOLVED
6 ;;^DD(6919.2,42,0)=FIRE..MATERIAL BURNED^S^11:GAS;21:LIQUID;31:SOLID;41:LIQUID & GAS;71:SOLID & GAS;81:SOLID & LIQUID;^6;6^Q
7 ;;^DD(6919.2,42,3)=LEAVE BLANK IF NO FIRE
8 ;;^DD(6919.2,43,0)=FIRE..MATERIAL FORM^S^GZ:ALL FIRES;^6;7^Q
9 ;;^DD(6919.2,43,3)=ENTER 'GZ' FOR ALL FIRES, OTHERWISE LEAVE BLANK
10 ;;%=BEST PREVENTATIVE^S^A:TRAINING;B:MORE STAFF;C:MOTIVATION;D:BETTER EQUIPMENT/MATERIAL;E:BETTER PLANNING & COORDINATION;F:IMPROVED WRITTEN PROCEEDURES;G:MORE FUND
11 ;;=^DD(6919.2,44,0)=S FOR HAZARD ELIMINATION;H:PERSONNEL ACTION;I:PREVENTATIVE N.E.C.;Z:NONE;^6;8^Q
12 ;;^DD(6919.2,45,0)=CORRECTIVE ACTION^S^A:TAKEN;B:REQUIRED & ANTICIPATED;C:REQUESTED;D:NONE;^6;9^Q
13 ;;^DD(6919.2,46,0)=ACCIDENT NARRATIVE^6919.22^^7;0
14 ;;^DD(6919.2,47,0)=WITNESSES^F^^6;10^K:$L(X)>65!($L(X)<3)!'(X'?.C) X
15 ;;^DD(6919.2,47,3)=ANSWER MUST BE 3-65 CHARACTERS IN LENGTH
16 ;;^DD(6919.2,48,0)=CORRECTIVE NARRATION^6919.23^^8;0
17 ;;^DD(6919.2,49,0)=INITATOR NAME^F^^9;1^K:$L(X)>20!($L(X)<3)!'(X'?.C) X
18 ;;^DD(6919.2,49,3)=ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
19 ;;^DD(6919.2,50,0)=INITIATOR TITLE^F^^9;2^K:$L(X)>20!($L(X)<2)!'(X'?.C) X
20 ;;^DD(6919.2,50,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
21 ;;^DD(6919.2,51,0)=INITIATOR DATE SIGNED^D^^9;3^S %DT="E" D ^%DT S X=Y K:3000000<X!(2800000>X) X
22 ;;^DD(6919.2,51,3)=TYPE A DATE BETWEEN 1980 AND 2000 (e.g. 6/25/85)
23 ;;^DD(6919.2,52,0)=INITIATOR PHONE #^F^^9;4^K:$L(X)>12!($L(X)<3)!'(X'?.C) X
24 ;;^DD(6919.2,52,3)=ANSWER MUST BE 3-12 CHARACTERS IN LENGTH
25 ;;^DD(6919.2,53,0)=REVIEW AUTHORITY NAME^F^^9;5^K:$L(X)>20!($L(X)<3)!'(X'?.C) X
26 ;;^DD(6919.2,53,3)=ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
27 ;;^DD(6919.2,54,0)=REVIEW AUTHORITY TITLE^F^^9;6^K:$L(X)>20!($L(X)<3)!'(X'?.C) X
28 ;;^DD(6919.2,54,3)=ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
29 ;;^DD(6919.2,55,0)=REVIEW AUTHORITY DATE^D^^9;7^S %DT="E" D ^%DT S X=Y K:3000000<X!(2800000>X) X
30 ;;^DD(6919.2,55,3)=TYPE A DATE BETWEEN 1980 AND 2000 (e.g. 6/25/85)
31 ;;^DD(6919.2,56,0)=REVIEW AUTHORITY PHONE^F^^9;8^K:$L(X)>12!($L(X)<3)!'(X'?.C) X
32 ;;^DD(6919.2,56,3)=ANSWER MUST BE 3-12 DIGITS IN LENGTH
33 ;;^DD(6919.2,57,0)=EVALUATION OF REPORT^6919.24^^10;0
34 ;;^DD(6919.2,57.5,0)=REPORT STATUS^S^Y:YES, 2162 REPORT COMPLETED;N:NO 2162 REPORT NOT COMPLETED;^9;9^Q
35 ;;^DD(6919.21,0)=HOME ADDRESS SUB-FIELD^NL^.01^1
36 ;;^DD(6919.21,0,"NM","HOME ADDRESS")=
37 ;;^DD(6919.21,0,"UP")=6919.2
38 ;;^DD(6919.21,.01,0)=HOME ADDRESS^W^^0;1^Q
39 ;;^DD(6919.21,.01,3)=ENTER STREET, CITY, STATE, AND ZIP CODE
40 ;;^DD(6919.22,0)=ACCIDENT NARRATIVE SUB-FIELD^NL^.01^1
41 ;;^DD(6919.22,0,"NM","ACCIDENT NARRATIVE")=
42 ;;^DD(6919.22,0,"UP")=6919.2
43 ;;^DD(6919.22,.01,0)=ACCIDENT NARRATIVE^W^^0;1^Q
44 ;;^DD(6919.22,.01,3)=PROVIDE INFORMATION TO FULLY DESCRIBE INCIDENT
45 ;;^DD(6919.23,0)=CORRECTIVE NARRATION SUB-FIELD^NL^.01^1
46 ;;^DD(6919.23,0,"NM","CORRECTIVE NARRATION")=
47 ;;^DD(6919.23,0,"UP")=6919.2
48 ;;^DD(6919.23,.01,0)=CORRECTIVE NARRATION^W^^0;1^Q
49 ;;^DD(6919.23,.01,3)=DESCRIBE CORRECTIVE ACTION TAKEN OR PLANNED
50 ;;^DD(6919.24,0)=EVALUATION OF REPORT SUB-FIELD^NL^.01^1
51 ;;^DD(6919.24,0,"NM","EVALUATION OF REPORT")=
52 ;;^DD(6919.24,0,"UP")=6919.2
53 ;;^DD(6919.24,.01,0)=EVALUATION OF REPORT^W^^0;1^Q
54 ;;^DD(6919.24,.01,3)=SAFETY PERSON'S EVALUATION, BE BRIEF PLEASE
Note: See TracBrowser for help on using the repository browser.