OOPSCA2 ;WIOFO/CAH-CA2 DISPLAY ;12/02/99
;;2.0;ASISTS;;Jun 03, 2002
CA2(IEN,CALL) ;
CA2PG1 N LIN S PG=0,EX="",LIN=$S(($E(IOST,1,2)="C-"):IOSL-2,1:IOSL-6)
K DIQ,DA,DR
S DIC="^OOPS(2260,"
S DR=".01;1;5:12;15;16;17;60:63;70;207:220;223:227;230:265;267:270",DA=IEN,DIQ="OOPS" D EN^DIQ1
D HDR
W !,"NAME OF EMPLOYEE...............: ",OOPS(2260,IEN,1) D P Q:EX=U
W !,"SSN............................: ",OOPS(2260,IEN,5) D P Q:EX=U
W !,"DOB............................: ",OOPS(2260,IEN,6) D P Q:EX=U
W !,"SEX............................: ",OOPS(2260,IEN,7) D P Q:EX=U
W !,"HOME TELEPHONE.................: ",OOPS(2260,IEN,12) D P Q:EX=U
W !,"GRADE/STEP.....................: ",OOPS(2260,IEN,16) W:OOPS(2260,IEN,16)'="" "/" W OOPS(2260,IEN,17) D P Q:EX=U
W !,"PAY PLAN.......................: ",OOPS(2260,IEN,63) D P Q:EX=U
W !,"EMPLOYEE'S ADDRESS.............: ",OOPS(2260,IEN,8) D P Q:EX=U
W !,"CITY...........................: ",OOPS(2260,IEN,9) D P Q:EX=U
W !,"STATE..........................: ",OOPS(2260,IEN,10) D P Q:EX=U
W !,"ZIP............................: ",OOPS(2260,IEN,11) D P Q:EX=U
W !,"DEPENDENTS.....................: ",OOPS(2260,IEN,207) D P Q:EX=U
W !,"EMPLOYEE'S OCCUPATION..........: ",OOPS(2260,IEN,208) D P Q:EX=U
D:$D(OOPS(2260,IEN,209)) Q:EX=U
.W !,"ILLNESS OCCURRED (LOCATION)....: ",OOPS(2260,IEN,209) D P Q:EX=U
.W !,"ILLNESS OCCURRED ADDRESS.......: ",OOPS(2260,IEN,210) D P Q:EX=U
.W !,"ILLNESS OCCURRED CITY..........: ",OOPS(2260,IEN,211) D P Q:EX=U
.W !,"ILLNESS OCCURRED STATE.........: ",OOPS(2260,IEN,212) D P Q:EX=U
.W !,"ILLNESS OCCURRED ZIP CODE......: ",OOPS(2260,IEN,213) D P Q:EX=U
W !,"DATE FIRST AWARE OF ILLNESS....: ",OOPS(2260,IEN,214) D P Q:EX=U
W !,"DATE FIRST REALIZED CAUSE.......: ",OOPS(2260,IEN,215) D P Q:EX=U
W !,"RELATIONSHIP OF ILLNESS TO EMP.: "
S OPFLD=216 D WP K OPFLD Q:EX=U
W !,"NATURE OF DISEASE/ILLNESS......: "
S OPFLD=217 D WP K OPFLD Q:EX=U
W !,"REASON CLAIM NOT FILED.........: "
S OPFLD=218 D WP K OPFLD Q:EX=U
W !,"EMPLOYEE STATEMENT DELAY.......: "
S OPFLD=219 D WP K OPFLD Q:EX=U
W !,"REASON MEDICAL REPORT DELAYED..: "
S OPFLD=220 D WP K OPFLD Q:EX=U
W !,"DATE OF EMPLOYEE SIGNATURE.....: ",OOPS(2260,IEN,223) D P Q:EX=U
I CALL="E" D G KILL
.I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E" D ^DIR W @IOF
CA2PG2 ;
; Changed from 122 to 15 - Use Occ Code from PAID
W !,"OCCUPATION CODE................: ",OOPS(2260,IEN,15) D P Q:EX=U
W !,"NOI CODE.......................: ",OOPS(2260,IEN,62) D P Q:EX=U
W !,"TYPE CODE......................: ",OOPS(2260,IEN,226) D P Q:EX=U
W !,"SOURCE CODE....................: ",OOPS(2260,IEN,227) D P Q:EX=U
W !,"OWCP CHARGEBACK CODE...........: ",OOPS(2260,IEN,70) D P Q:EX=U
D:$D(OOPS(2260,IEN,230)) Q:EX=U
.W !,"AGENCY NAME....................: ",OOPS(2260,IEN,230) D P Q:EX=U
.W !,"AGENCY ADDRESS.................: ",OOPS(2260,IEN,231) D P Q:EX=U
.W !,"AGENCY CITY....................: ",OOPS(2260,IEN,232) D P Q:EX=U
.W !,"AGENCY STATE...................: ",OOPS(2260,IEN,233) D P Q:EX=U
.W !,"AGENCY ZIP CODE................: ",OOPS(2260,IEN,234) D P Q:EX=U
D:$D(OOPS(2260,IEN,237)) Q:EX=U
.W !,"EMPLOYEE'S DUTY STATION........: ",OOPS(2260,IEN,237) D P Q:EX=U
.W !,"DUTY STATION ADDRESS...........: ",OOPS(2260,IEN,238) D P Q:EX=U
.W !,"DUTY STATION CITY..............: ",OOPS(2260,IEN,239) D P Q:EX=U
.W !,"DUTY STATION STATE.............: ",OOPS(2260,IEN,240) D P Q:EX=U
.W !,"DUTY STATION ZIP CODE..........: ",OOPS(2260,IEN,241) D P Q:EX=U
W !,"REGULAR HRS FROM TIME..........: ",OOPS(2260,IEN,242) D P Q:EX=U
W !,"REGULAR HRS TO TIME............: ",OOPS(2260,IEN,243) D P Q:EX=U
W !,"REGULAR WORK SCHEDULE..........: ",OOPS(2260,IEN,244) D P Q:EX=U
D:$D(OOPS(2260,IEN,245)) Q:EX=U
.W !,"1ST PROVIDING PHYSICAN NAME....: ",OOPS(2260,IEN,245) D P Q:EX=U
.W !,"1ST PROVIDING PHYS. ADDRESS....: ",OOPS(2260,IEN,246) D P Q:EX=U
.W !,"1ST PROVIDING PHYS. CITY.......: ",OOPS(2260,IEN,247) D P Q:EX=U
.W !,"1ST PROVIDING PHYS. STATE......: ",OOPS(2260,IEN,248) D P Q:EX=U
.W !,"1ST PROVIDING PHYS. ZIP CODE...: ",OOPS(2260,IEN,249) D P Q:EX=U
.W !,"1ST PROVIDING PHYS. TITLE......: ",OOPS(2260,IEN,270) D P Q:EX=U
W !,"FIRST DATE OF MEDICAL CARE.....: ",OOPS(2260,IEN,250) D P Q:EX=U
W !,"DISABLED FOR WORK..............: ",OOPS(2260,IEN,251) D P Q:EX=U
W !,"DATE 1ST REPORTED TO SUPERVISOR: ",OOPS(2260,IEN,252) D P Q:EX=U
W !,"DATE/TIME WORK STOPPED.........: ",OOPS(2260,IEN,253) D P Q:EX=U
W !,"DATE PAY STOPPED...............: ",OOPS(2260,IEN,254) D P Q:EX=U
W !,"DATE OF LAST EXPOSURE..........: ",OOPS(2260,IEN,255) D P Q:EX=U
W !,"DATE/TIME RETURNED TO WORK.....: ",OOPS(2260,IEN,256) D P Q:EX=U
W !,"WORK DUTY CHANGED..............: "
S OPFLD=257 D WP K OPFLD Q:EX=U
W !,"EMPLOYEE RETIREMENT COVERAGE...: ",OOPS(2260,IEN,60) D P Q:EX=U
I $D(OOPS(2260,IEN,61)) D Q:EX=U
. W !,"EMP RETIREMENT COVERAGE DESC.: ",OOPS(2260,IEN,61) D P Q:EX=U
W !,"INJURY CAUSED BY 3RD PARTY.....: ",OOPS(2260,IEN,258) D P Q:EX=U
D:$D(OOPS(2260,IEN,259)) Q:EX=U
.W !,"3RD PARTY NAME.................: ",OOPS(2260,IEN,259) D P Q:EX=U
.W !,"3RD PARTY ADDRESS..............: ",OOPS(2260,IEN,260) D P Q:EX=U
.W !,"3RD PARTY CITY.................: ",OOPS(2260,IEN,261) D P Q:EX=U
.W !,"3RD PARTY STATE................: ",OOPS(2260,IEN,262) D P Q:EX=U
.W !,"3RD PARTY ZIP CODE.............: ",OOPS(2260,IEN,263) D P Q:EX=U
W !,"SUPERVISOR EXCEPTION...........: ",OOPS(2260,IEN,264) D P Q:EX=U
W !,"NAME OF SUPERVISOR.............: ",OOPS(2260,IEN,265) D P Q:EX=U
W !,"SUPERVISOR'S DATE OF SIGNATURE.: ",OOPS(2260,IEN,267) D P Q:EX=U
W !,"SUPERVISOR'S TITLE.............: ",OOPS(2260,IEN,268) D P Q:EX=U
W !,"SUPERVISOR'S OFFICE PHONE......: ",OOPS(2260,IEN,269) D P Q:EX=U
I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E" D ^DIR W @IOF
KILL ;Kill Variables and Exit
S:$D(ZTQUEUED) ZTREQ="@"
K DIR,DIROUT,DIRUT,DTOUT,DUOUT,IEN,DASHES,OOPS,DA,DO,EX
K DO,DIQ,DISYS,DIW,DIWI,DIWT,DIWTC,DIWX,DN,DR,I,Z,POP
Q
P ;Print
I ($Y'<(LIN-3)) D Q:EX=U
.I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
.D HDR Q
Q
WP ;Process Word Processing Fields
N DIWL,DIWR,DIWF,OPGLB,OPI,OPNODE,OPT,OPC
K ^UTILITY($J,"W")
S DIWL=1,DIWR="",DIWF="|C76"
S OPNODE=$P($$GET1^DID(2260,OPFLD,"","GLOBAL SUBSCRIPT LOCATION"),";")
S OPGLB="^OOPS(2260,IEN,OPNODE,OPI)"
S OPI=0 F S OPI=$O(@OPGLB) Q:'OPI S X=$G(^(OPI,0)) D:X]"" ^DIWP
S OPT=$G(^UTILITY($J,"W",1))+0
I OPT S OPI=0 F OPC=1:1 S OPI=$O(^UTILITY($J,"W",1,OPI)) Q:'OPI!(EX=U) D
.W !?1,^UTILITY($J,"W",1,OPI,0) D P Q:EX=U
K ^UTILITY($J,"W"),X
Q
HDR ;HEADER
W @IOF S PG=PG+1 K DASHES S $P(DASHES,"-",80)="-"
W !,"Case # ",OOPS(2260,IEN,.01),?73,"Page ",PG
W !,DASHES
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSCA2 6826 printed Apr 09, 2024@20:45:01 Page 2
OOPSCA2 ;WIOFO/CAH-CA2 DISPLAY ;12/02/99
+1 ;;2.0;ASISTS;;Jun 03, 2002
CA2(IEN,CALL) ;
CA2PG1 NEW LIN
SET PG=0
SET EX=""
SET LIN=$SELECT(($EXTRACT(IOST,1,2)="C-"):IOSL-2,1:IOSL-6)
+1 KILL DIQ,DA,DR
+2 SET DIC="^OOPS(2260,"
+3 SET DR=".01;1;5:12;15;16;17;60:63;70;207:220;223:227;230:265;267:270"
SET DA=IEN
SET DIQ="OOPS"
DO EN^DIQ1
+4 DO HDR
+5 WRITE !,"NAME OF EMPLOYEE...............: ",OOPS(2260,IEN,1)
DO P
if EX=U
QUIT
+6 WRITE !,"SSN............................: ",OOPS(2260,IEN,5)
DO P
if EX=U
QUIT
+7 WRITE !,"DOB............................: ",OOPS(2260,IEN,6)
DO P
if EX=U
QUIT
+8 WRITE !,"SEX............................: ",OOPS(2260,IEN,7)
DO P
if EX=U
QUIT
+9 WRITE !,"HOME TELEPHONE.................: ",OOPS(2260,IEN,12)
DO P
if EX=U
QUIT
+10 WRITE !,"GRADE/STEP.....................: ",OOPS(2260,IEN,16)
if OOPS(2260,IEN,16)'=""
WRITE "/"
WRITE OOPS(2260,IEN,17)
DO P
if EX=U
QUIT
+11 WRITE !,"PAY PLAN.......................: ",OOPS(2260,IEN,63)
DO P
if EX=U
QUIT
+12 WRITE !,"EMPLOYEE'S ADDRESS.............: ",OOPS(2260,IEN,8)
DO P
if EX=U
QUIT
+13 WRITE !,"CITY...........................: ",OOPS(2260,IEN,9)
DO P
if EX=U
QUIT
+14 WRITE !,"STATE..........................: ",OOPS(2260,IEN,10)
DO P
if EX=U
QUIT
+15 WRITE !,"ZIP............................: ",OOPS(2260,IEN,11)
DO P
if EX=U
QUIT
+16 WRITE !,"DEPENDENTS.....................: ",OOPS(2260,IEN,207)
DO P
if EX=U
QUIT
+17 WRITE !,"EMPLOYEE'S OCCUPATION..........: ",OOPS(2260,IEN,208)
DO P
if EX=U
QUIT
+18 if $DATA(OOPS(2260,IEN,209))
Begin DoDot:1
+19 WRITE !,"ILLNESS OCCURRED (LOCATION)....: ",OOPS(2260,IEN,209)
DO P
if EX=U
QUIT
+20 WRITE !,"ILLNESS OCCURRED ADDRESS.......: ",OOPS(2260,IEN,210)
DO P
if EX=U
QUIT
+21 WRITE !,"ILLNESS OCCURRED CITY..........: ",OOPS(2260,IEN,211)
DO P
if EX=U
QUIT
+22 WRITE !,"ILLNESS OCCURRED STATE.........: ",OOPS(2260,IEN,212)
DO P
if EX=U
QUIT
+23 WRITE !,"ILLNESS OCCURRED ZIP CODE......: ",OOPS(2260,IEN,213)
DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
+24 WRITE !,"DATE FIRST AWARE OF ILLNESS....: ",OOPS(2260,IEN,214)
DO P
if EX=U
QUIT
+25 WRITE !,"DATE FIRST REALIZED CAUSE.......: ",OOPS(2260,IEN,215)
DO P
if EX=U
QUIT
+26 WRITE !,"RELATIONSHIP OF ILLNESS TO EMP.: "
+27 SET OPFLD=216
DO WP
KILL OPFLD
if EX=U
QUIT
+28 WRITE !,"NATURE OF DISEASE/ILLNESS......: "
+29 SET OPFLD=217
DO WP
KILL OPFLD
if EX=U
QUIT
+30 WRITE !,"REASON CLAIM NOT FILED.........: "
+31 SET OPFLD=218
DO WP
KILL OPFLD
if EX=U
QUIT
+32 WRITE !,"EMPLOYEE STATEMENT DELAY.......: "
+33 SET OPFLD=219
DO WP
KILL OPFLD
if EX=U
QUIT
+34 WRITE !,"REASON MEDICAL REPORT DELAYED..: "
+35 SET OPFLD=220
DO WP
KILL OPFLD
if EX=U
QUIT
+36 WRITE !,"DATE OF EMPLOYEE SIGNATURE.....: ",OOPS(2260,IEN,223)
DO P
if EX=U
QUIT
+37 IF CALL="E"
Begin DoDot:1
+38 IF $EXTRACT(IOST,1,2)="C-"
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
WRITE @IOF
End DoDot:1
GOTO KILL
CA2PG2 ;
+1 ; Changed from 122 to 15 - Use Occ Code from PAID
+2 WRITE !,"OCCUPATION CODE................: ",OOPS(2260,IEN,15)
DO P
if EX=U
QUIT
+3 WRITE !,"NOI CODE.......................: ",OOPS(2260,IEN,62)
DO P
if EX=U
QUIT
+4 WRITE !,"TYPE CODE......................: ",OOPS(2260,IEN,226)
DO P
if EX=U
QUIT
+5 WRITE !,"SOURCE CODE....................: ",OOPS(2260,IEN,227)
DO P
if EX=U
QUIT
+6 WRITE !,"OWCP CHARGEBACK CODE...........: ",OOPS(2260,IEN,70)
DO P
if EX=U
QUIT
+7 if $DATA(OOPS(2260,IEN,230))
Begin DoDot:1
+8 WRITE !,"AGENCY NAME....................: ",OOPS(2260,IEN,230)
DO P
if EX=U
QUIT
+9 WRITE !,"AGENCY ADDRESS.................: ",OOPS(2260,IEN,231)
DO P
if EX=U
QUIT
+10 WRITE !,"AGENCY CITY....................: ",OOPS(2260,IEN,232)
DO P
if EX=U
QUIT
+11 WRITE !,"AGENCY STATE...................: ",OOPS(2260,IEN,233)
DO P
if EX=U
QUIT
+12 WRITE !,"AGENCY ZIP CODE................: ",OOPS(2260,IEN,234)
DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
+13 if $DATA(OOPS(2260,IEN,237))
Begin DoDot:1
+14 WRITE !,"EMPLOYEE'S DUTY STATION........: ",OOPS(2260,IEN,237)
DO P
if EX=U
QUIT
+15 WRITE !,"DUTY STATION ADDRESS...........: ",OOPS(2260,IEN,238)
DO P
if EX=U
QUIT
+16 WRITE !,"DUTY STATION CITY..............: ",OOPS(2260,IEN,239)
DO P
if EX=U
QUIT
+17 WRITE !,"DUTY STATION STATE.............: ",OOPS(2260,IEN,240)
DO P
if EX=U
QUIT
+18 WRITE !,"DUTY STATION ZIP CODE..........: ",OOPS(2260,IEN,241)
DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
+19 WRITE !,"REGULAR HRS FROM TIME..........: ",OOPS(2260,IEN,242)
DO P
if EX=U
QUIT
+20 WRITE !,"REGULAR HRS TO TIME............: ",OOPS(2260,IEN,243)
DO P
if EX=U
QUIT
+21 WRITE !,"REGULAR WORK SCHEDULE..........: ",OOPS(2260,IEN,244)
DO P
if EX=U
QUIT
+22 if $DATA(OOPS(2260,IEN,245))
Begin DoDot:1
+23 WRITE !,"1ST PROVIDING PHYSICAN NAME....: ",OOPS(2260,IEN,245)
DO P
if EX=U
QUIT
+24 WRITE !,"1ST PROVIDING PHYS. ADDRESS....: ",OOPS(2260,IEN,246)
DO P
if EX=U
QUIT
+25 WRITE !,"1ST PROVIDING PHYS. CITY.......: ",OOPS(2260,IEN,247)
DO P
if EX=U
QUIT
+26 WRITE !,"1ST PROVIDING PHYS. STATE......: ",OOPS(2260,IEN,248)
DO P
if EX=U
QUIT
+27 WRITE !,"1ST PROVIDING PHYS. ZIP CODE...: ",OOPS(2260,IEN,249)
DO P
if EX=U
QUIT
+28 WRITE !,"1ST PROVIDING PHYS. TITLE......: ",OOPS(2260,IEN,270)
DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
+29 WRITE !,"FIRST DATE OF MEDICAL CARE.....: ",OOPS(2260,IEN,250)
DO P
if EX=U
QUIT
+30 WRITE !,"DISABLED FOR WORK..............: ",OOPS(2260,IEN,251)
DO P
if EX=U
QUIT
+31 WRITE !,"DATE 1ST REPORTED TO SUPERVISOR: ",OOPS(2260,IEN,252)
DO P
if EX=U
QUIT
+32 WRITE !,"DATE/TIME WORK STOPPED.........: ",OOPS(2260,IEN,253)
DO P
if EX=U
QUIT
+33 WRITE !,"DATE PAY STOPPED...............: ",OOPS(2260,IEN,254)
DO P
if EX=U
QUIT
+34 WRITE !,"DATE OF LAST EXPOSURE..........: ",OOPS(2260,IEN,255)
DO P
if EX=U
QUIT
+35 WRITE !,"DATE/TIME RETURNED TO WORK.....: ",OOPS(2260,IEN,256)
DO P
if EX=U
QUIT
+36 WRITE !,"WORK DUTY CHANGED..............: "
+37 SET OPFLD=257
DO WP
KILL OPFLD
if EX=U
QUIT
+38 WRITE !,"EMPLOYEE RETIREMENT COVERAGE...: ",OOPS(2260,IEN,60)
DO P
if EX=U
QUIT
+39 IF $DATA(OOPS(2260,IEN,61))
Begin DoDot:1
+40 WRITE !,"EMP RETIREMENT COVERAGE DESC.: ",OOPS(2260,IEN,61)
DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
+41 WRITE !,"INJURY CAUSED BY 3RD PARTY.....: ",OOPS(2260,IEN,258)
DO P
if EX=U
QUIT
+42 if $DATA(OOPS(2260,IEN,259))
Begin DoDot:1
+43 WRITE !,"3RD PARTY NAME.................: ",OOPS(2260,IEN,259)
DO P
if EX=U
QUIT
+44 WRITE !,"3RD PARTY ADDRESS..............: ",OOPS(2260,IEN,260)
DO P
if EX=U
QUIT
+45 WRITE !,"3RD PARTY CITY.................: ",OOPS(2260,IEN,261)
DO P
if EX=U
QUIT
+46 WRITE !,"3RD PARTY STATE................: ",OOPS(2260,IEN,262)
DO P
if EX=U
QUIT
+47 WRITE !,"3RD PARTY ZIP CODE.............: ",OOPS(2260,IEN,263)
DO P
if EX=U
QUIT
End DoDot:1
if EX=U
QUIT
+48 WRITE !,"SUPERVISOR EXCEPTION...........: ",OOPS(2260,IEN,264)
DO P
if EX=U
QUIT
+49 WRITE !,"NAME OF SUPERVISOR.............: ",OOPS(2260,IEN,265)
DO P
if EX=U
QUIT
+50 WRITE !,"SUPERVISOR'S DATE OF SIGNATURE.: ",OOPS(2260,IEN,267)
DO P
if EX=U
QUIT
+51 WRITE !,"SUPERVISOR'S TITLE.............: ",OOPS(2260,IEN,268)
DO P
if EX=U
QUIT
+52 WRITE !,"SUPERVISOR'S OFFICE PHONE......: ",OOPS(2260,IEN,269)
DO P
if EX=U
QUIT
+53 IF $EXTRACT(IOST,1,2)="C-"
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
WRITE @IOF
KILL ;Kill Variables and Exit
+1 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+2 KILL DIR,DIROUT,DIRUT,DTOUT,DUOUT,IEN,DASHES,OOPS,DA,DO,EX
+3 KILL DO,DIQ,DISYS,DIW,DIWI,DIWT,DIWTC,DIWX,DN,DR,I,Z,POP
+4 QUIT
P ;Print
+1 IF ($Y'<(LIN-3))
Begin DoDot:1
+2 IF $EXTRACT(IOST,1,2)="C-"
WRITE !
KILL DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET EX=U
QUIT
+3 DO HDR
QUIT
End DoDot:1
if EX=U
QUIT
+4 QUIT
WP ;Process Word Processing Fields
+1 NEW DIWL,DIWR,DIWF,OPGLB,OPI,OPNODE,OPT,OPC
+2 KILL ^UTILITY($JOB,"W")
+3 SET DIWL=1
SET DIWR=""
SET DIWF="|C76"
+4 SET OPNODE=$PIECE($$GET1^DID(2260,OPFLD,"","GLOBAL SUBSCRIPT LOCATION"),";")
+5 SET OPGLB="^OOPS(2260,IEN,OPNODE,OPI)"
+6 SET OPI=0
FOR
SET OPI=$ORDER(@OPGLB)
if 'OPI
QUIT
SET X=$GET(^(OPI,0))
if X]""
DO ^DIWP
+7 SET OPT=$GET(^UTILITY($JOB,"W",1))+0
+8 IF OPT
SET OPI=0
FOR OPC=1:1
SET OPI=$ORDER(^UTILITY($JOB,"W",1,OPI))
if 'OPI!(EX=U)
QUIT
Begin DoDot:1
+9 WRITE !?1,^UTILITY($JOB,"W",1,OPI,0)
DO P
if EX=U
QUIT
End DoDot:1
+10 KILL ^UTILITY($JOB,"W"),X
+11 QUIT
HDR ;HEADER
+1 WRITE @IOF
SET PG=PG+1
KILL DASHES
SET $PIECE(DASHES,"-",80)="-"
+2 WRITE !,"Case # ",OOPS(2260,IEN,.01),?73,"Page ",PG
+3 WRITE !,DASHES
+4 QUIT
