OOPSSUP3.m

OOPSSUP3 ;HINES/WAA-S/E Supervisor Edit routine 2162 ;04/15/1998

 ;;2.0;ASISTS;;Jun 03, 2002

 ;;

ASIST ;  2162 FORM

 N INCID,SUP,CAT,OBJ,IEN200

 S INCID=$$GET1^DIQ(2260,IEN,3,"I")

 S:INCID'="" INCID=$$GET1^DIQ(2261.2,INCID,.01,"E") ; Getting the type of incident

 S INCID=U_INCID_U

 ; Allow edit of supervisor, secondary supervisor

 ; Also, include logic for Non-PAID employee

 S CAT=$$GET1^DIQ(2260,IEN,2,"I")

 ; Patch 5 - added logic for employee CAT >6

 S SUP=$S((CAT=1!(CAT>6)):" SUPERVISOR...............",CAT=2:" VOLUNTARY SVC SUPERVISOR.",CAT=3:" CONTRACT ADMINISTRATOR...",1:" SAFETY OFFICER...........")

 ; Patch 11 - get service, renumber DR array, add new prompts

 S IEN200=$$GET1^DIQ(2260,IEN,5,"I"),SER=""

 I $G(IEN200)'="" S IEN200=$O(^VA(200,"SSN",IEN200,""))

 I $G(IEN200)'="" S SER=$$GET1^DIQ(200,IEN200,29,"I")

 S DR=""

 S DR(1,2260,1)="86////^S X=SER"

 S DR(1,2260,2)="53"_SUP

 S DR(1,2260,5)="53.1 SECONDARY SUPERVISOR....."

 S DR(1,2260,10)="26 GENERAL SETTING OF INCIDENT........;S X=X;"

 S DR(1,2260,15)="27 LOCATION OF INJURY.................;S X=X;D CARE2^OOPSUTL2(IEN);"

 S DR(1,2260,20)="28 DESCRIPTION OF INCIDENT............"

 ; Patch 5 - added line below

 S DR(1,2260,25)="29.5 HOW IS INCIDENT RELATED TO MEDICAL EMERGENCY"

 S DR(1,2260,30)="29 CHARACTERIZATION OF INJURY........."

 S DR(1,2260,35)="30 BODY PART MOST AFFECTED............"

 S DR(1,2260,40)="30.1 ADDITIONAL BODY PART AFFECTED......"

 S DR(1,2260,45)="31 SIDE OF BODY AFFECTED..............;S X=X;"

SHARPS ; SHARPS DATA

 ; Patch 5 - added Suture Needlestick

 I "^Sharps Exposure^Hollow Bore Needlestick^Suture Needlestick^"'[INCID G FLUID

 S DR(1,2260,50)="34 PATIENT SOURCE....................."

 S DR(1,2260,55)="35 CONTAMINATION......................"

 S DR(1,2260,60)="36 PURPOSE OF SHARP OBJECT..........."

 S DR(1,2260,65)="37 ACTIVITY AT TIME OF INJURY........"

 S DR(1,2260,70)="38 OBJECT CAUSING INJURY.............;S X=X;"

 S DR(1,2260,80)="S OBJ=$$GET1^DIQ(2260,IEN,""38:2"",""I"")"

 S DR(1,2260,85)="I OBJ'=""N"" S Y=""@1"""

 S DR(1,2260,90)="83 DEVICE SIZE......................."

 S DR(1,2260,95)="S Y=""@2"""

 S DR(1,2260,100)="@1"

 S DR(1,2260,105)="83////@"               ; delete if OBJ'="N" or "S"

 S DR(1,2260,110)="@2"

 S DR(1,2260,115)="82 BRAND............................."

 G ALL

FLUID ; Body Fluid Exposer

 I "^Exposure to Body Fluids/Splash^"'[INCID G EVERY

 S DR(1,2260,115)="34 PATIENT SOURCE....................."

 S DR(1,2260,120)="39"                  ; Multiple, DD prompt used - P5

 S DR(1,2260,125)="40"                  ; Multiple, DD prompt used - P5

 S DR(1,2260,130)="41 BODILY FLUID EXPOSURE SOURCE......."

ALL ; ALL TYPE OF EXPOSURES

 ; Patch 5 - Changed logic

 S FAIL=$$GET1^DIQ(2260,IEN,42.5,"E") I FAIL="" S FAIL="No"

 S DR(1,2260,135)="42.5 WAS THERE AN EQUIPMENT/DEVICE/PRODUCT FAILURE//^S X=FAIL;I X=""N"" S Y=""@3"""

 S DR(1,2260,140)="42 DESCRIBE EQUIPMENT/DEVICE/PRODUCT FAILURE.."

 S DR(1,2260,145)="S Y=43"

 S DR(1,2260,150)="@3"

 S DR(1,2260,155)="42////@"

 S DR(1,2260,160)="43 SAFETY DESIGN DEVICE USED....;S X=X;"

 ; started adding for patch 11

 S DR(1,2260,165)="S Y=$S(X=""Y"":""@4"",X=""N"":""@5"",1:""@6"")"

 S DR(1,2260,170)="@4"

 S DR(1,2260,172)="85////@"

 S DR(1,2260,175)="87 DID THE INJURY OCCUR BEFORE THE SAFETY DEVICE WAS ENGAGED.."

 S DR(1,2260,180)="84 SAFETY CHARACTERISTICS......."

 S DR(1,2260,185)="S Y=""@6"""

 S DR(1,2260,190)="@5"

 S DR(1,2260,195)="84////@"

 S DR(1,2260,197)="87////@"

 S DR(1,2260,200)="85 EXPLAIN WHY A SAFETY DEVICE WAS NOT USED..."

 S DR(1,2260,205)="@6"

EVERY ; All Employees

 ; Include CAT=6 Non-PAID employee as employee

 I $$ISEMP^OOPSUTL4(IEN) D

 .S DR(1,2260,210)="32 DUTY RETURNED TO..................."

 .S DR(1,2260,215)="33 LOST TIME..........................;S X=X;"

 .Q

 S DR(1,2260,220)="47 CORRECTIVE ACTION............"

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---OOPSSUP3   3916     printed  Apr 09, 2024@20:44:54                                                                                                                                                                                                    Page 2

OOPSSUP3  ;HINES/WAA-S/E Supervisor Edit routine 2162 ;04/15/1998

 +1       ;;2.0;ASISTS;;Jun 03, 2002

 +2       ;;

ASIST     ;  2162 FORM

 +1        NEW INCID,SUP,CAT,OBJ,IEN200

 +2        SET INCID=$$GET1^DIQ(2260,IEN,3,"I")

 +3       ; Getting the type of incident

           if INCID'=""

               SET INCID=$$GET1^DIQ(2261.2,INCID,.01,"E")

 +4        SET INCID=U_INCID_U

 +5       ; Allow edit of supervisor, secondary supervisor

 +6       ; Also, include logic for Non-PAID employee

 +7        SET CAT=$$GET1^DIQ(2260,IEN,2,"I")

 +8       ; Patch 5 - added logic for employee CAT >6

 +9        SET SUP=$SELECT((CAT=1!(CAT>6)):" SUPERVISOR...............",CAT=2:" VOLUNTARY SVC SUPERVISOR.",CAT=3:" CONTRACT ADMINISTRATOR...",1:" SAFETY OFFICER...........")

 +10      ; Patch 11 - get service, renumber DR array, add new prompts

 +11       SET IEN200=$$GET1^DIQ(2260,IEN,5,"I")

           SET SER=""

 +12       IF $GET(IEN200)'=""

               SET IEN200=$ORDER(^VA(200,"SSN",IEN200,""))

 +13       IF $GET(IEN200)'=""

               SET SER=$$GET1^DIQ(200,IEN200,29,"I")

 +14       SET DR=""

 +15       SET DR(1,2260,1)="86////^S X=SER"

 +16       SET DR(1,2260,2)="53"_SUP

 +17       SET DR(1,2260,5)="53.1 SECONDARY SUPERVISOR....."

 +18       SET DR(1,2260,10)="26 GENERAL SETTING OF INCIDENT........;S X=X;"

 +19       SET DR(1,2260,15)="27 LOCATION OF INJURY.................;S X=X;D CARE2^OOPSUTL2(IEN);"

 +20       SET DR(1,2260,20)="28 DESCRIPTION OF INCIDENT............"

 +21      ; Patch 5 - added line below

 +22       SET DR(1,2260,25)="29.5 HOW IS INCIDENT RELATED TO MEDICAL EMERGENCY"

 +23       SET DR(1,2260,30)="29 CHARACTERIZATION OF INJURY........."

 +24       SET DR(1,2260,35)="30 BODY PART MOST AFFECTED............"

 +25       SET DR(1,2260,40)="30.1 ADDITIONAL BODY PART AFFECTED......"

 +26       SET DR(1,2260,45)="31 SIDE OF BODY AFFECTED..............;S X=X;"

SHARPS    ; SHARPS DATA

 +1       ; Patch 5 - added Suture Needlestick

 +2        IF "^Sharps Exposure^Hollow Bore Needlestick^Suture Needlestick^"'[INCID

               GOTO FLUID

 +3        SET DR(1,2260,50)="34 PATIENT SOURCE....................."

 +4        SET DR(1,2260,55)="35 CONTAMINATION......................"

 +5        SET DR(1,2260,60)="36 PURPOSE OF SHARP OBJECT..........."

 +6        SET DR(1,2260,65)="37 ACTIVITY AT TIME OF INJURY........"

 +7        SET DR(1,2260,70)="38 OBJECT CAUSING INJURY.............;S X=X;"

 +8        SET DR(1,2260,80)="S OBJ=$$GET1^DIQ(2260,IEN,""38:2"",""I"")"

 +9        SET DR(1,2260,85)="I OBJ'=""N"" S Y=""@1"""

 +10       SET DR(1,2260,90)="83 DEVICE SIZE......................."

 +11       SET DR(1,2260,95)="S Y=""@2"""

 +12       SET DR(1,2260,100)="@1"

 +13      ; delete if OBJ'="N" or "S"

           SET DR(1,2260,105)="83////@"

 +14       SET DR(1,2260,110)="@2"

 +15       SET DR(1,2260,115)="82 BRAND............................."

 +16       GOTO ALL

FLUID     ; Body Fluid Exposer

 +1        IF "^Exposure to Body Fluids/Splash^"'[INCID

               GOTO EVERY

 +2        SET DR(1,2260,115)="34 PATIENT SOURCE....................."

 +3       ; Multiple, DD prompt used - P5

           SET DR(1,2260,120)="39"

 +4       ; Multiple, DD prompt used - P5

           SET DR(1,2260,125)="40"

 +5        SET DR(1,2260,130)="41 BODILY FLUID EXPOSURE SOURCE......."

ALL       ; ALL TYPE OF EXPOSURES

 +1       ; Patch 5 - Changed logic

 +2        SET FAIL=$$GET1^DIQ(2260,IEN,42.5,"E")

           IF FAIL=""

               SET FAIL="No"

 +3        SET DR(1,2260,135)="42.5 WAS THERE AN EQUIPMENT/DEVICE/PRODUCT FAILURE//^S X=FAIL;I X=""N"" S Y=""@3"""

 +4        SET DR(1,2260,140)="42 DESCRIBE EQUIPMENT/DEVICE/PRODUCT FAILURE.."

 +5        SET DR(1,2260,145)="S Y=43"

 +6        SET DR(1,2260,150)="@3"

 +7        SET DR(1,2260,155)="42////@"

 +8        SET DR(1,2260,160)="43 SAFETY DESIGN DEVICE USED....;S X=X;"

 +9       ; started adding for patch 11

 +10       SET DR(1,2260,165)="S Y=$S(X=""Y"":""@4"",X=""N"":""@5"",1:""@6"")"

 +11       SET DR(1,2260,170)="@4"

 +12       SET DR(1,2260,172)="85////@"

 +13       SET DR(1,2260,175)="87 DID THE INJURY OCCUR BEFORE THE SAFETY DEVICE WAS ENGAGED.."

 +14       SET DR(1,2260,180)="84 SAFETY CHARACTERISTICS......."

 +15       SET DR(1,2260,185)="S Y=""@6"""

 +16       SET DR(1,2260,190)="@5"

 +17       SET DR(1,2260,195)="84////@"

 +18       SET DR(1,2260,197)="87////@"

 +19       SET DR(1,2260,200)="85 EXPLAIN WHY A SAFETY DEVICE WAS NOT USED..."

 +20       SET DR(1,2260,205)="@6"

EVERY     ; All Employees

 +1       ; Include CAT=6 Non-PAID employee as employee

 +2        IF $$ISEMP^OOPSUTL4(IEN)

               Begin DoDot:1

 +3                SET DR(1,2260,210)="32 DUTY RETURNED TO..................."

 +4                SET DR(1,2260,215)="33 LOST TIME..........................;S X=X;"

 +5                QUIT 

               End DoDot:1

 +6        SET DR(1,2260,220)="47 CORRECTIVE ACTION............"

 +7        QUIT