- OOPSCA1 ;WIOFO/CAH-CA1 DISPLAY ;12/02/99
- ;;2.0;ASISTS;;Jun 03, 2002
- CA1(IEN,CALL) ;
- CA1PG1 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;4:12;15:17;60:63;70;107;108;110:118;121:124;126:136;138:149;150:169;171:174;175:185",DA=IEN,DIQ="OOPS"
- D EN^DIQ1
- ; Get witness data
- K DR
- N WIT,LSR
- S LSR=$P($G(^OOPS(2260,IEN,"CA1W",0)),U,3)
- S WIT=$O(^OOPS(2260,IEN,"CA1W",0))
- I $G(WIT) D
- . S DR="125",DR(2260.0125)=".01:7",DA=IEN
- . F II=WIT:1:LSR I $D(^OOPS(2260,IEN,"CA1W",II)) S DA(2260.0125)=II 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,107) D P Q:EX=U
- W !,"PLACE WHERE INJURY OCCURRED....: ",OOPS(2260,IEN,108) D P Q:EX=U
- W !,"STREET WHERE INJURY OCCURRED...: ",OOPS(2260,IEN,183) D P Q:EX=U
- W !,"CITY WHERE INJURY OCCURRED.....: ",OOPS(2260,IEN,184) D P Q:EX=U
- W !,"STATE WHERE INJURY OCCURRED....: ",OOPS(2260,IEN,185) D P Q:EX=U
- W !,"ZIP CODE WHERE INJURY OCCURRED.: ",OOPS(2260,IEN,181) D P Q:EX=U
- W !,"DATE/TIME OF OCCURRENCE........: ",OOPS(2260,IEN,4) D P Q:EX=U
- W !,"DATE OF THIS NOTICE............: ",OOPS(2260,IEN,110) D P Q:EX=U
- W !,"EMPLOYEE'S OCCUPATION..........: ",OOPS(2260,IEN,111) D P Q:EX=U
- W !,"CAUSE OF INJURY CODE...........: ",OOPS(2260,IEN,126) D P Q:EX=U
- W !,"CAUSE OF INJURY................: ",OOPS(2260,IEN,112) D P Q:EX=U
- W !,"NATURE OF INJURY...............: ",OOPS(2260,IEN,113) D P Q:EX=U
- W !,"REQUEST PAY OR LEAVE...........: ",OOPS(2260,IEN,114) D P Q:EX=U
- W !,"EMPLOYEE DATE OF SIGNATURE.....: ",OOPS(2260,IEN,121) D P Q:EX=U
- I $D(OOPS(2260.0125)) F II=WIT:1:LSR I $D(OOPS(2260.0125,II)) D Q:EX=U
- .W !,"WITNESS INFORMATION:"
- .W !,"NAME OF WITNESS................: ",OOPS(2260.0125,II,.01) D P Q:EX=U
- .W !,"WITNESS ADDRESS................: ",OOPS(2260.0125,II,1) D P Q:EX=U
- .W !,"WITNESS CITY...................: ",OOPS(2260.0125,II,2) D P Q:EX=U
- .W !,"WITNESS STATE..................: ",OOPS(2260.0125,II,3) D P Q:EX=U
- .W !,"WITNESS ZIP CODE...............: ",OOPS(2260.0125,II,4) D P Q:EX=U
- .W !,"DATE OF WITNESS SIGNATURE......: ",OOPS(2260.0125,II,5) D P Q:EX=U
- .W !,"STATEMENT OF WITNESS...........: ",OOPS(2260.0125,II,6) 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
- CA1PG2 ;
- ; Changed from field 122 to 15
- 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,123) D P Q:EX=U
- W !,"SOURCE CODE....................: ",OOPS(2260,IEN,124) D P Q:EX=U
- W !,"OWCP CHARGEBACK CODE...........: ",OOPS(2260,IEN,70) D P Q:EX=U
- D:$D(OOPS(2260,IEN,130)) Q:EX=U
- .W !,"AGENCY NAME....................: ",OOPS(2260,IEN,130) D P Q:EX=U
- .W !,"AGENCY ADDRESS.................: ",OOPS(2260,IEN,131) D P Q:EX=U
- .W !,"AGENCY CITY....................: ",OOPS(2260,IEN,132) D P Q:EX=U
- .W !,"AGENCY STATE...................: ",OOPS(2260,IEN,133) D P Q:EX=U
- .W !,"AGENCY ZIP CODE................: ",OOPS(2260,IEN,134) D P Q:EX=U
- D:$D(OOPS(2260,IEN,176)) Q:EX=U
- .W !,"EMPLOYEE'S DUTY STATION........: ",OOPS(2260,IEN,176) D P Q:EX=U
- .W !,"DUTY STATION ADDRESS...........: ",OOPS(2260,IEN,177) D P Q:EX=U
- .W !,"DUTY STATION CITY..............: ",OOPS(2260,IEN,178) D P Q:EX=U
- .W !,"DUTY STATION STATE.............: ",OOPS(2260,IEN,179) D P Q:EX=U
- .W !,"DUTY STATION ZIP CODE..........: ",OOPS(2260,IEN,180) D P 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 !,"REGULAR HRS FROM TIME..........: ",OOPS(2260,IEN,138) D P Q:EX=U
- W !,"REGULAR HRS TO TIME............: ",OOPS(2260,IEN,139) D P Q:EX=U
- W !,"REGULAR WORK SCHEDULE..........: ",OOPS(2260,IEN,140) D P Q:EX=U
- W !,"DATE OF INJURY.................: ",OOPS(2260,IEN,4) D P Q:EX=U
- W !,"DATE NOTICE RECEIVED...........: ",OOPS(2260,IEN,175) D P Q:EX=U
- W !,"DATE/TIME STOPPED WORK.........: ",OOPS(2260,IEN,142) D P Q:EX=U
- W !,"DATE PAY STOPPED...............: ",OOPS(2260,IEN,143) D P Q:EX=U
- W !,"DATE 45 DAY PERIOD BEGAN.......: ",OOPS(2260,IEN,144) D P Q:EX=U
- W !,"DATE/TIME RETURNED TO WORK.....: ",OOPS(2260,IEN,145) D P Q:EX=U
- W !,"INJURED PERFORMING DUTY........: ",OOPS(2260,IEN,146) D P Q:EX=U
- W !,"NOT INJURED PERFORMING JOB.....: ",OOPS(2260,IEN,147) D P Q:EX=U
- W !,"INJURY CAUSED BY EMPLOYEE......: ",OOPS(2260,IEN,148) D P Q:EX=U
- W !,"CAUSED BY EMPLOYEE EXPLAIN.....: ",OOPS(2260,IEN,149) D P Q:EX=U
- W !,"INJURY CAUSED BY 3RD PARTY.....: ",OOPS(2260,IEN,150) D P Q:EX=U
- D:$D(OOPS(2260,IEN,151)) Q:EX=U
- .W !,"3RD PARTY NAME.................: ",OOPS(2260,IEN,151) D P Q:EX=U
- .W !,"3RD PARTY ADDRESS..............: ",OOPS(2260,IEN,152) D P Q:EX=U
- .W !,"3RD PARTY CITY.................: ",OOPS(2260,IEN,153) D P Q:EX=U
- .W !,"3RD PARTY STATE................: ",OOPS(2260,IEN,154) D P Q:EX=U
- .W !,"3RD PARTY ZIP CODE.............: ",OOPS(2260,IEN,155) D P Q:EX=U
- D:$D(OOPS(2260,IEN,156)) Q:EX=U
- .W !,"PROVIDING PHYSICAN NAME........: ",OOPS(2260,IEN,156) D P Q:EX=U
- .W !,"PROVIDING PHYSICIAN ADDRESS....: ",OOPS(2260,IEN,157) D P Q:EX=U
- .W !,"PROVIDING PHYSICIAN CITY.......: ",OOPS(2260,IEN,158) D P Q:EX=U
- .W !,"PROVIDING PHYSICIAN STATE......: ",OOPS(2260,IEN,159) D P Q:EX=U
- .W !,"PROVIDING PHYSICIAN ZIP CODE...: ",OOPS(2260,IEN,160) D P Q:EX=U
- .W !,"PROVIDING PHYSICIAN TITLE......: ",OOPS(2260,IEN,182) D P Q:EX=U
- W !,"FIRST DATE OF MEDICAL CARE.....: ",OOPS(2260,IEN,161) D P Q:EX=U
- W !,"DISABLED FOR WORK..............: ",OOPS(2260,IEN,162) D P Q:EX=U
- W !,"SUPERVISOR AGREE/DISAGREE......: ",OOPS(2260,IEN,163) D P Q:EX=U
- W !,"SUPERVISOR NOT AGREE EXPLAIN...: "
- S OPFLD=164 D WP K OPFLD Q:EX=U
- W !,"REASON FOR CONTROVERTS COP.....: "
- S OPFLD=165 D WP K OPFLD Q:EX=U
- W !,"PAY RATE WHEN WORK STOPPED.....: ",OOPS(2260,IEN,166),"/",OOPS(2260,IEN,167) D P Q:EX=U
- W !,"SUPERVISOR EXCEPTION...........: ",OOPS(2260,IEN,168) D P Q:EX=U
- D:$D(OOPS(2260,IEN,169)) Q:EX=U
- .W !,"NAME OF SUPERVISOR.............: ",OOPS(2260,IEN,169) D P Q:EX=U
- .W !,"SUPERVISOR'S DATE OF SIGNATURE.: ",OOPS(2260,IEN,171) D P Q:EX=U
- .W !,"SUPERVISOR'S TITLE.............: ",OOPS(2260,IEN,172) D P Q:EX=U
- .W !,"SUPERVISOR'S OFFICE PHONE......: ",OOPS(2260,IEN,173) D P Q:EX=U
- W !,"FILING INSTRUCTIONS............: ",OOPS(2260,IEN,174) 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[HOOPSCA1 8309 printed Apr 23, 2025@17:53:07 Page 2
- OOPSCA1 ;WIOFO/CAH-CA1 DISPLAY ;12/02/99
- +1 ;;2.0;ASISTS;;Jun 03, 2002
- CA1(IEN,CALL) ;
- CA1PG1 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;4:12;15:17;60:63;70;107;108;110:118;121:124;126:136;138:149;150:169;171:174;175:185"
- SET DA=IEN
- SET DIQ="OOPS"
- +4 DO EN^DIQ1
- +5 ; Get witness data
- +6 KILL DR
- +7 NEW WIT,LSR
- +8 SET LSR=$PIECE($GET(^OOPS(2260,IEN,"CA1W",0)),U,3)
- +9 SET WIT=$ORDER(^OOPS(2260,IEN,"CA1W",0))
- +10 IF $GET(WIT)
- Begin DoDot:1
- +11 SET DR="125"
- SET DR(2260.0125)=".01:7"
- SET DA=IEN
- +12 FOR II=WIT:1:LSR
- IF $DATA(^OOPS(2260,IEN,"CA1W",II))
- SET DA(2260.0125)=II
- DO EN^DIQ1
- End DoDot:1
- +13 DO HDR
- +14 WRITE !,"NAME OF EMPLOYEE...............: ",OOPS(2260,IEN,1)
- DO P
- if EX=U
- QUIT
- +15 WRITE !,"SSN............................: ",OOPS(2260,IEN,5)
- DO P
- if EX=U
- QUIT
- +16 WRITE !,"DOB............................: ",OOPS(2260,IEN,6)
- DO P
- if EX=U
- QUIT
- +17 WRITE !,"SEX............................: ",OOPS(2260,IEN,7)
- DO P
- if EX=U
- QUIT
- +18 WRITE !,"HOME TELEPHONE.................: ",OOPS(2260,IEN,12)
- DO P
- if EX=U
- QUIT
- +19 WRITE !,"GRADE/STEP.....................: ",OOPS(2260,IEN,16)
- if OOPS(2260,IEN,16)'=""
- WRITE "/"
- WRITE OOPS(2260,IEN,17)
- DO P
- if EX=U
- QUIT
- +20 WRITE !,"PAY PLAN.......................: ",OOPS(2260,IEN,63)
- DO P
- if EX=U
- QUIT
- +21 WRITE !,"EMPLOYEE'S ADDRESS.............: ",OOPS(2260,IEN,8)
- DO P
- if EX=U
- QUIT
- +22 WRITE !,"CITY...........................: ",OOPS(2260,IEN,9)
- DO P
- if EX=U
- QUIT
- +23 WRITE !,"STATE..........................: ",OOPS(2260,IEN,10)
- DO P
- if EX=U
- QUIT
- +24 WRITE !,"ZIP............................: ",OOPS(2260,IEN,11)
- DO P
- if EX=U
- QUIT
- +25 WRITE !,"DEPENDENTS.....................: ",OOPS(2260,IEN,107)
- DO P
- if EX=U
- QUIT
- +26 WRITE !,"PLACE WHERE INJURY OCCURRED....: ",OOPS(2260,IEN,108)
- DO P
- if EX=U
- QUIT
- +27 WRITE !,"STREET WHERE INJURY OCCURRED...: ",OOPS(2260,IEN,183)
- DO P
- if EX=U
- QUIT
- +28 WRITE !,"CITY WHERE INJURY OCCURRED.....: ",OOPS(2260,IEN,184)
- DO P
- if EX=U
- QUIT
- +29 WRITE !,"STATE WHERE INJURY OCCURRED....: ",OOPS(2260,IEN,185)
- DO P
- if EX=U
- QUIT
- +30 WRITE !,"ZIP CODE WHERE INJURY OCCURRED.: ",OOPS(2260,IEN,181)
- DO P
- if EX=U
- QUIT
- +31 WRITE !,"DATE/TIME OF OCCURRENCE........: ",OOPS(2260,IEN,4)
- DO P
- if EX=U
- QUIT
- +32 WRITE !,"DATE OF THIS NOTICE............: ",OOPS(2260,IEN,110)
- DO P
- if EX=U
- QUIT
- +33 WRITE !,"EMPLOYEE'S OCCUPATION..........: ",OOPS(2260,IEN,111)
- DO P
- if EX=U
- QUIT
- +34 WRITE !,"CAUSE OF INJURY CODE...........: ",OOPS(2260,IEN,126)
- DO P
- if EX=U
- QUIT
- +35 WRITE !,"CAUSE OF INJURY................: ",OOPS(2260,IEN,112)
- DO P
- if EX=U
- QUIT
- +36 WRITE !,"NATURE OF INJURY...............: ",OOPS(2260,IEN,113)
- DO P
- if EX=U
- QUIT
- +37 WRITE !,"REQUEST PAY OR LEAVE...........: ",OOPS(2260,IEN,114)
- DO P
- if EX=U
- QUIT
- +38 WRITE !,"EMPLOYEE DATE OF SIGNATURE.....: ",OOPS(2260,IEN,121)
- DO P
- if EX=U
- QUIT
- +39 IF $DATA(OOPS(2260.0125))
- FOR II=WIT:1:LSR
- IF $DATA(OOPS(2260.0125,II))
- Begin DoDot:1
- +40 WRITE !,"WITNESS INFORMATION:"
- +41 WRITE !,"NAME OF WITNESS................: ",OOPS(2260.0125,II,.01)
- DO P
- if EX=U
- QUIT
- +42 WRITE !,"WITNESS ADDRESS................: ",OOPS(2260.0125,II,1)
- DO P
- if EX=U
- QUIT
- +43 WRITE !,"WITNESS CITY...................: ",OOPS(2260.0125,II,2)
- DO P
- if EX=U
- QUIT
- +44 WRITE !,"WITNESS STATE..................: ",OOPS(2260.0125,II,3)
- DO P
- if EX=U
- QUIT
- +45 WRITE !,"WITNESS ZIP CODE...............: ",OOPS(2260.0125,II,4)
- DO P
- if EX=U
- QUIT
- +46 WRITE !,"DATE OF WITNESS SIGNATURE......: ",OOPS(2260.0125,II,5)
- DO P
- if EX=U
- QUIT
- +47 WRITE !,"STATEMENT OF WITNESS...........: ",OOPS(2260.0125,II,6)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +48 IF CALL="E"
- Begin DoDot:1
- +49 IF $EXTRACT(IOST,1,2)="C-"
- WRITE !
- KILL DIR
- SET DIR(0)="E"
- DO ^DIR
- WRITE @IOF
- End DoDot:1
- GOTO KILL
- CA1PG2 ;
- +1 ; Changed from field 122 to 15
- +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,123)
- DO P
- if EX=U
- QUIT
- +5 WRITE !,"SOURCE CODE....................: ",OOPS(2260,IEN,124)
- 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,130))
- Begin DoDot:1
- +8 WRITE !,"AGENCY NAME....................: ",OOPS(2260,IEN,130)
- DO P
- if EX=U
- QUIT
- +9 WRITE !,"AGENCY ADDRESS.................: ",OOPS(2260,IEN,131)
- DO P
- if EX=U
- QUIT
- +10 WRITE !,"AGENCY CITY....................: ",OOPS(2260,IEN,132)
- DO P
- if EX=U
- QUIT
- +11 WRITE !,"AGENCY STATE...................: ",OOPS(2260,IEN,133)
- DO P
- if EX=U
- QUIT
- +12 WRITE !,"AGENCY ZIP CODE................: ",OOPS(2260,IEN,134)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +13 if $DATA(OOPS(2260,IEN,176))
- Begin DoDot:1
- +14 WRITE !,"EMPLOYEE'S DUTY STATION........: ",OOPS(2260,IEN,176)
- DO P
- if EX=U
- QUIT
- +15 WRITE !,"DUTY STATION ADDRESS...........: ",OOPS(2260,IEN,177)
- DO P
- if EX=U
- QUIT
- +16 WRITE !,"DUTY STATION CITY..............: ",OOPS(2260,IEN,178)
- DO P
- if EX=U
- QUIT
- +17 WRITE !,"DUTY STATION STATE.............: ",OOPS(2260,IEN,179)
- DO P
- if EX=U
- QUIT
- +18 WRITE !,"DUTY STATION ZIP CODE..........: ",OOPS(2260,IEN,180)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +19 WRITE !,"EMPLOYEE RETIREMENT COVERAGE...: ",OOPS(2260,IEN,60)
- DO P
- if EX=U
- QUIT
- +20 IF $DATA(OOPS(2260,IEN,61))
- Begin DoDot:1
- +21 WRITE !,"EMP RETIREMENT COVERAGE DESC...: ",OOPS(2260,IEN,61)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +22 WRITE !,"REGULAR HRS FROM TIME..........: ",OOPS(2260,IEN,138)
- DO P
- if EX=U
- QUIT
- +23 WRITE !,"REGULAR HRS TO TIME............: ",OOPS(2260,IEN,139)
- DO P
- if EX=U
- QUIT
- +24 WRITE !,"REGULAR WORK SCHEDULE..........: ",OOPS(2260,IEN,140)
- DO P
- if EX=U
- QUIT
- +25 WRITE !,"DATE OF INJURY.................: ",OOPS(2260,IEN,4)
- DO P
- if EX=U
- QUIT
- +26 WRITE !,"DATE NOTICE RECEIVED...........: ",OOPS(2260,IEN,175)
- DO P
- if EX=U
- QUIT
- +27 WRITE !,"DATE/TIME STOPPED WORK.........: ",OOPS(2260,IEN,142)
- DO P
- if EX=U
- QUIT
- +28 WRITE !,"DATE PAY STOPPED...............: ",OOPS(2260,IEN,143)
- DO P
- if EX=U
- QUIT
- +29 WRITE !,"DATE 45 DAY PERIOD BEGAN.......: ",OOPS(2260,IEN,144)
- DO P
- if EX=U
- QUIT
- +30 WRITE !,"DATE/TIME RETURNED TO WORK.....: ",OOPS(2260,IEN,145)
- DO P
- if EX=U
- QUIT
- +31 WRITE !,"INJURED PERFORMING DUTY........: ",OOPS(2260,IEN,146)
- DO P
- if EX=U
- QUIT
- +32 WRITE !,"NOT INJURED PERFORMING JOB.....: ",OOPS(2260,IEN,147)
- DO P
- if EX=U
- QUIT
- +33 WRITE !,"INJURY CAUSED BY EMPLOYEE......: ",OOPS(2260,IEN,148)
- DO P
- if EX=U
- QUIT
- +34 WRITE !,"CAUSED BY EMPLOYEE EXPLAIN.....: ",OOPS(2260,IEN,149)
- DO P
- if EX=U
- QUIT
- +35 WRITE !,"INJURY CAUSED BY 3RD PARTY.....: ",OOPS(2260,IEN,150)
- DO P
- if EX=U
- QUIT
- +36 if $DATA(OOPS(2260,IEN,151))
- Begin DoDot:1
- +37 WRITE !,"3RD PARTY NAME.................: ",OOPS(2260,IEN,151)
- DO P
- if EX=U
- QUIT
- +38 WRITE !,"3RD PARTY ADDRESS..............: ",OOPS(2260,IEN,152)
- DO P
- if EX=U
- QUIT
- +39 WRITE !,"3RD PARTY CITY.................: ",OOPS(2260,IEN,153)
- DO P
- if EX=U
- QUIT
- +40 WRITE !,"3RD PARTY STATE................: ",OOPS(2260,IEN,154)
- DO P
- if EX=U
- QUIT
- +41 WRITE !,"3RD PARTY ZIP CODE.............: ",OOPS(2260,IEN,155)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +42 if $DATA(OOPS(2260,IEN,156))
- Begin DoDot:1
- +43 WRITE !,"PROVIDING PHYSICAN NAME........: ",OOPS(2260,IEN,156)
- DO P
- if EX=U
- QUIT
- +44 WRITE !,"PROVIDING PHYSICIAN ADDRESS....: ",OOPS(2260,IEN,157)
- DO P
- if EX=U
- QUIT
- +45 WRITE !,"PROVIDING PHYSICIAN CITY.......: ",OOPS(2260,IEN,158)
- DO P
- if EX=U
- QUIT
- +46 WRITE !,"PROVIDING PHYSICIAN STATE......: ",OOPS(2260,IEN,159)
- DO P
- if EX=U
- QUIT
- +47 WRITE !,"PROVIDING PHYSICIAN ZIP CODE...: ",OOPS(2260,IEN,160)
- DO P
- if EX=U
- QUIT
- +48 WRITE !,"PROVIDING PHYSICIAN TITLE......: ",OOPS(2260,IEN,182)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +49 WRITE !,"FIRST DATE OF MEDICAL CARE.....: ",OOPS(2260,IEN,161)
- DO P
- if EX=U
- QUIT
- +50 WRITE !,"DISABLED FOR WORK..............: ",OOPS(2260,IEN,162)
- DO P
- if EX=U
- QUIT
- +51 WRITE !,"SUPERVISOR AGREE/DISAGREE......: ",OOPS(2260,IEN,163)
- DO P
- if EX=U
- QUIT
- +52 WRITE !,"SUPERVISOR NOT AGREE EXPLAIN...: "
- +53 SET OPFLD=164
- DO WP
- KILL OPFLD
- if EX=U
- QUIT
- +54 WRITE !,"REASON FOR CONTROVERTS COP.....: "
- +55 SET OPFLD=165
- DO WP
- KILL OPFLD
- if EX=U
- QUIT
- +56 WRITE !,"PAY RATE WHEN WORK STOPPED.....: ",OOPS(2260,IEN,166),"/",OOPS(2260,IEN,167)
- DO P
- if EX=U
- QUIT
- +57 WRITE !,"SUPERVISOR EXCEPTION...........: ",OOPS(2260,IEN,168)
- DO P
- if EX=U
- QUIT
- +58 if $DATA(OOPS(2260,IEN,169))
- Begin DoDot:1
- +59 WRITE !,"NAME OF SUPERVISOR.............: ",OOPS(2260,IEN,169)
- DO P
- if EX=U
- QUIT
- +60 WRITE !,"SUPERVISOR'S DATE OF SIGNATURE.: ",OOPS(2260,IEN,171)
- DO P
- if EX=U
- QUIT
- +61 WRITE !,"SUPERVISOR'S TITLE.............: ",OOPS(2260,IEN,172)
- DO P
- if EX=U
- QUIT
- +62 WRITE !,"SUPERVISOR'S OFFICE PHONE......: ",OOPS(2260,IEN,173)
- DO P
- if EX=U
- QUIT
- End DoDot:1
- if EX=U
- QUIT
- +63 WRITE !,"FILING INSTRUCTIONS............: ",OOPS(2260,IEN,174)
- DO P
- if EX=U
- QUIT
- +64 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
