- 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 Mar 13, 2025@20:56:28 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
