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 ---[H[J[2J[HOOPSSUP3 3916 printed Nov 22, 2024@16:49:55 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