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

ENARX203 ;(WASH ISC)/SAW/DH-2162 Archive ;10-26-88
 ;;7.0;ENGINEERING;;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
 ;;^DD(6919.2,41,3)=LEAVE BLANK IF FIRE NOT INVOLVED
 ;;^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
 ;;^DD(6919.2,42,3)=LEAVE BLANK IF NO FIRE
 ;;^DD(6919.2,43,0)=FIRE..MATERIAL FORM^S^GZ:ALL FIRES;^6;7^Q
 ;;^DD(6919.2,43,3)=ENTER 'GZ' FOR ALL FIRES, OTHERWISE LEAVE BLANK
 ;;%=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
 ;;=^DD(6919.2,44,0)=S FOR HAZARD ELIMINATION;H:PERSONNEL ACTION;I:PREVENTATIVE N.E.C.;Z:NONE;^6;8^Q
 ;;^DD(6919.2,45,0)=CORRECTIVE ACTION^S^A:TAKEN;B:REQUIRED & ANTICIPATED;C:REQUESTED;D:NONE;^6;9^Q
 ;;^DD(6919.2,46,0)=ACCIDENT NARRATIVE^6919.22^^7;0
 ;;^DD(6919.2,47,0)=WITNESSES^F^^6;10^K:$L(X)>65!($L(X)<3)!'(X'?.C) X
 ;;^DD(6919.2,47,3)=ANSWER MUST BE 3-65 CHARACTERS IN LENGTH
 ;;^DD(6919.2,48,0)=CORRECTIVE NARRATION^6919.23^^8;0
 ;;^DD(6919.2,49,0)=INITATOR NAME^F^^9;1^K:$L(X)>20!($L(X)<3)!'(X'?.C) X
 ;;^DD(6919.2,49,3)=ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
 ;;^DD(6919.2,50,0)=INITIATOR TITLE^F^^9;2^K:$L(X)>20!($L(X)<2)!'(X'?.C) X
 ;;^DD(6919.2,50,3)=ANSWER MUST BE 2-20 CHARACTERS IN LENGTH
 ;;^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
 ;;^DD(6919.2,51,3)=TYPE A DATE BETWEEN 1980 AND 2000 (e.g. 6/25/85)
 ;;^DD(6919.2,52,0)=INITIATOR PHONE #^F^^9;4^K:$L(X)>12!($L(X)<3)!'(X'?.C) X
 ;;^DD(6919.2,52,3)=ANSWER MUST BE 3-12 CHARACTERS IN LENGTH
 ;;^DD(6919.2,53,0)=REVIEW AUTHORITY NAME^F^^9;5^K:$L(X)>20!($L(X)<3)!'(X'?.C) X
 ;;^DD(6919.2,53,3)=ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
 ;;^DD(6919.2,54,0)=REVIEW AUTHORITY TITLE^F^^9;6^K:$L(X)>20!($L(X)<3)!'(X'?.C) X
 ;;^DD(6919.2,54,3)=ANSWER MUST BE 3-20 CHARACTERS IN LENGTH
 ;;^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
 ;;^DD(6919.2,55,3)=TYPE A DATE BETWEEN 1980 AND 2000 (e.g. 6/25/85)
 ;;^DD(6919.2,56,0)=REVIEW AUTHORITY PHONE^F^^9;8^K:$L(X)>12!($L(X)<3)!'(X'?.C) X
 ;;^DD(6919.2,56,3)=ANSWER MUST BE 3-12 DIGITS IN LENGTH
 ;;^DD(6919.2,57,0)=EVALUATION OF REPORT^6919.24^^10;0
 ;;^DD(6919.2,57.5,0)=REPORT STATUS^S^Y:YES, 2162 REPORT COMPLETED;N:NO 2162 REPORT NOT COMPLETED;^9;9^Q
 ;;^DD(6919.21,0)=HOME ADDRESS SUB-FIELD^NL^.01^1
 ;;^DD(6919.21,0,"NM","HOME ADDRESS")=
 ;;^DD(6919.21,0,"UP")=6919.2
 ;;^DD(6919.21,.01,0)=HOME ADDRESS^W^^0;1^Q
 ;;^DD(6919.21,.01,3)=ENTER STREET, CITY, STATE, AND ZIP CODE
 ;;^DD(6919.22,0)=ACCIDENT NARRATIVE SUB-FIELD^NL^.01^1
 ;;^DD(6919.22,0,"NM","ACCIDENT NARRATIVE")=
 ;;^DD(6919.22,0,"UP")=6919.2
 ;;^DD(6919.22,.01,0)=ACCIDENT NARRATIVE^W^^0;1^Q
 ;;^DD(6919.22,.01,3)=PROVIDE INFORMATION TO FULLY DESCRIBE INCIDENT
 ;;^DD(6919.23,0)=CORRECTIVE NARRATION SUB-FIELD^NL^.01^1
 ;;^DD(6919.23,0,"NM","CORRECTIVE NARRATION")=
 ;;^DD(6919.23,0,"UP")=6919.2
 ;;^DD(6919.23,.01,0)=CORRECTIVE NARRATION^W^^0;1^Q
 ;;^DD(6919.23,.01,3)=DESCRIBE CORRECTIVE ACTION TAKEN OR PLANNED
 ;;^DD(6919.24,0)=EVALUATION OF REPORT SUB-FIELD^NL^.01^1
 ;;^DD(6919.24,0,"NM","EVALUATION OF REPORT")=
 ;;^DD(6919.24,0,"UP")=6919.2
 ;;^DD(6919.24,.01,0)=EVALUATION OF REPORT^W^^0;1^Q
 ;;^DD(6919.24,.01,3)=SAFETY PERSON'S EVALUATION, BE BRIEF PLEASE