OOPSDIS.m

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 ---OOPSDIS   1959     printed  Apr 09, 2024@20:45:11                                                                                                                                                                                                     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