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