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