ENARY203.m

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 ---ENARY203   3530     printed  Apr 09, 2024@20:58:56                                                                                                                                                                                                    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