OOPSDIS ;HIRMFO/GWB-Display 2162 ;3/5/98
;;2.0;ASISTS;;Jun 03, 2002
W @IOF
S CAT=$$GET1^DIQ(2260,IEN,2,"I")
;Include logic for Non_PAID employee, CAT=6
; Patch 5 - added logic for employee CAT >6
S SUP=$S((CAT=1!(CAT>6)):" SUPERVISOR.............: ",CAT=2:" VOLUNTARY SVC SUP......: ",CAT=3:" CONTRACT ADMINISTRATOR.: ",1:" SAFETY OFFICER.........: ")
K DIQ,DA,DR S DIC="^OOPS(2260,",DR=".01:99",DA=IEN,DIQ="OOPS" D EN^DIQ1
W !,"----------------------------------------------------------------------------"
W !," CASE NUMBER............: ",OOPS(2260,IEN,.01)
W !," PERSONNEL STATUS.......: ",OOPS(2260,IEN,2)
W !," TYPE OF INCIDENT.......: ",OOPS(2260,IEN,3)
W !," CASE STATUS............: ",OOPS(2260,IEN,51)
W !," INJURY/ILLNESS.........: ",OOPS(2260,IEN,52)
W !," PERSON INVOLVED........: ",OOPS(2260,IEN,1)
W !," SSN....................: ",OOPS(2260,IEN,5)
W !," DATE OF BIRTH..........: ",OOPS(2260,IEN,6)
W !," SEX....................: ",OOPS(2260,IEN,7)
W !," HOME ADDRESS...........: ",OOPS(2260,IEN,8)
I (OOPS(2260,IEN,9)'="")!(OOPS(2260,IEN,10)'="")!(OOPS(2260,IEN,11)'="") W !," ",OOPS(2260,IEN,9),", ",OOPS(2260,IEN,10)," ",OOPS(2260,IEN,11)
W !," HOME PHONE NUMBER......: ",OOPS(2260,IEN,12)
W !," STATION NUMBER.........: ",OOPS(2260,IEN,13)
W !," COST CENTER/ORG........: ",OOPS(2260,IEN,14)
W !," OCCUPATION.............: ",OOPS(2260,IEN,15)
W !," GRADE/STEP.............: ",OOPS(2260,IEN,16) W:OOPS(2260,IEN,16)'="" "/" W OOPS(2260,IEN,17)
W !," EDUCATION..............: ",OOPS(2260,IEN,18)
W !,SUP,OOPS(2260,IEN,53)
W !," SECONDARY SUPERVISOR...: ",OOPS(2260,IEN,53.1)
W !," DATE/TIME OF OCCURRENCE: ",OOPS(2260,IEN,4)
W !,"----------------------------------------------------------------------------"
; Patch 8 - leave this code, other routines rely on it, clean up
; in other routines.
S SUP=OOPS(2260,IEN,53)
K OOPS,DIQ,DIC,DR,DA,CAT Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSDIS 1959 printed Dec 13, 2024@01:38:44 Page 2
OOPSDIS ;HIRMFO/GWB-Display 2162 ;3/5/98
+1 ;;2.0;ASISTS;;Jun 03, 2002
+2 WRITE @IOF
+3 SET CAT=$$GET1^DIQ(2260,IEN,2,"I")
+4 ;Include logic for Non_PAID employee, CAT=6
+5 ; Patch 5 - added logic for employee CAT >6
+6 SET SUP=$SELECT((CAT=1!(CAT>6)):" SUPERVISOR.............: ",CAT=2:" VOLUNTARY SVC SUP......: ",CAT=3:" CONTRACT ADMINISTRATOR.: ",1:" SAFETY OFFICER.........: ")
+7 KILL DIQ,DA,DR
SET DIC="^OOPS(2260,"
SET DR=".01:99"
SET DA=IEN
SET DIQ="OOPS"
DO EN^DIQ1
+8 WRITE !,"----------------------------------------------------------------------------"
+9 WRITE !," CASE NUMBER............: ",OOPS(2260,IEN,.01)
+10 WRITE !," PERSONNEL STATUS.......: ",OOPS(2260,IEN,2)
+11 WRITE !," TYPE OF INCIDENT.......: ",OOPS(2260,IEN,3)
+12 WRITE !," CASE STATUS............: ",OOPS(2260,IEN,51)
+13 WRITE !," INJURY/ILLNESS.........: ",OOPS(2260,IEN,52)
+14 WRITE !," PERSON INVOLVED........: ",OOPS(2260,IEN,1)
+15 WRITE !," SSN....................: ",OOPS(2260,IEN,5)
+16 WRITE !," DATE OF BIRTH..........: ",OOPS(2260,IEN,6)
+17 WRITE !," SEX....................: ",OOPS(2260,IEN,7)
+18 WRITE !," HOME ADDRESS...........: ",OOPS(2260,IEN,8)
+19 IF (OOPS(2260,IEN,9)'="")!(OOPS(2260,IEN,10)'="")!(OOPS(2260,IEN,11)'="")
WRITE !," ",OOPS(2260,IEN,9),", ",OOPS(2260,IEN,10)," ",OOPS(2260,IEN,11)
+20 WRITE !," HOME PHONE NUMBER......: ",OOPS(2260,IEN,12)
+21 WRITE !," STATION NUMBER.........: ",OOPS(2260,IEN,13)
+22 WRITE !," COST CENTER/ORG........: ",OOPS(2260,IEN,14)
+23 WRITE !," OCCUPATION.............: ",OOPS(2260,IEN,15)
+24 WRITE !," GRADE/STEP.............: ",OOPS(2260,IEN,16)
if OOPS(2260,IEN,16)'=""
WRITE "/"
WRITE OOPS(2260,IEN,17)
+25 WRITE !," EDUCATION..............: ",OOPS(2260,IEN,18)
+26 WRITE !,SUP,OOPS(2260,IEN,53)
+27 WRITE !," SECONDARY SUPERVISOR...: ",OOPS(2260,IEN,53.1)
+28 WRITE !," DATE/TIME OF OCCURRENCE: ",OOPS(2260,IEN,4)
+29 WRITE !,"----------------------------------------------------------------------------"
+30 ; Patch 8 - leave this code, other routines rely on it, clean up
+31 ; in other routines.
+32 SET SUP=OOPS(2260,IEN,53)
+33 KILL OOPS,DIQ,DIC,DR,DA,CAT
QUIT