source: FOIAVistA/trunk/r/ASISTS-OOPS/OOPSCA2.m@ 1328

Last change on this file since 1328 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 6.5 KB
Line 
1OOPSCA2 ;WIOFO/CAH-CA2 DISPLAY ;12/02/99
2 ;;2.0;ASISTS;;Jun 03, 2002
3CA2(IEN,CALL) ;
4CA2PG1 N LIN S PG=0,EX="",LIN=$S(($E(IOST,1,2)="C-"):IOSL-2,1:IOSL-6)
5 K DIQ,DA,DR
6 S DIC="^OOPS(2260,"
7 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
8 D HDR
9 W !,"NAME OF EMPLOYEE...............: ",OOPS(2260,IEN,1) D P Q:EX=U
10 W !,"SSN............................: ",OOPS(2260,IEN,5) D P Q:EX=U
11 W !,"DOB............................: ",OOPS(2260,IEN,6) D P Q:EX=U
12 W !,"SEX............................: ",OOPS(2260,IEN,7) D P Q:EX=U
13 W !,"HOME TELEPHONE.................: ",OOPS(2260,IEN,12) D P Q:EX=U
14 W !,"GRADE/STEP.....................: ",OOPS(2260,IEN,16) W:OOPS(2260,IEN,16)'="" "/" W OOPS(2260,IEN,17) D P Q:EX=U
15 W !,"PAY PLAN.......................: ",OOPS(2260,IEN,63) D P Q:EX=U
16 W !,"EMPLOYEE'S ADDRESS.............: ",OOPS(2260,IEN,8) D P Q:EX=U
17 W !,"CITY...........................: ",OOPS(2260,IEN,9) D P Q:EX=U
18 W !,"STATE..........................: ",OOPS(2260,IEN,10) D P Q:EX=U
19 W !,"ZIP............................: ",OOPS(2260,IEN,11) D P Q:EX=U
20 W !,"DEPENDENTS.....................: ",OOPS(2260,IEN,207) D P Q:EX=U
21 W !,"EMPLOYEE'S OCCUPATION..........: ",OOPS(2260,IEN,208) D P Q:EX=U
22 D:$D(OOPS(2260,IEN,209)) Q:EX=U
23 .W !,"ILLNESS OCCURRED (LOCATION)....: ",OOPS(2260,IEN,209) D P Q:EX=U
24 .W !,"ILLNESS OCCURRED ADDRESS.......: ",OOPS(2260,IEN,210) D P Q:EX=U
25 .W !,"ILLNESS OCCURRED CITY..........: ",OOPS(2260,IEN,211) D P Q:EX=U
26 .W !,"ILLNESS OCCURRED STATE.........: ",OOPS(2260,IEN,212) D P Q:EX=U
27 .W !,"ILLNESS OCCURRED ZIP CODE......: ",OOPS(2260,IEN,213) D P Q:EX=U
28 W !,"DATE FIRST AWARE OF ILLNESS....: ",OOPS(2260,IEN,214) D P Q:EX=U
29 W !,"DATE FIRST REALIZED CAUSE.......: ",OOPS(2260,IEN,215) D P Q:EX=U
30 W !,"RELATIONSHIP OF ILLNESS TO EMP.: "
31 S OPFLD=216 D WP K OPFLD Q:EX=U
32 W !,"NATURE OF DISEASE/ILLNESS......: "
33 S OPFLD=217 D WP K OPFLD Q:EX=U
34 W !,"REASON CLAIM NOT FILED.........: "
35 S OPFLD=218 D WP K OPFLD Q:EX=U
36 W !,"EMPLOYEE STATEMENT DELAY.......: "
37 S OPFLD=219 D WP K OPFLD Q:EX=U
38 W !,"REASON MEDICAL REPORT DELAYED..: "
39 S OPFLD=220 D WP K OPFLD Q:EX=U
40 W !,"DATE OF EMPLOYEE SIGNATURE.....: ",OOPS(2260,IEN,223) D P Q:EX=U
41 I CALL="E" D G KILL
42 .I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E" D ^DIR W @IOF
43CA2PG2 ;
44 ; Changed from 122 to 15 - Use Occ Code from PAID
45 W !,"OCCUPATION CODE................: ",OOPS(2260,IEN,15) D P Q:EX=U
46 W !,"NOI CODE.......................: ",OOPS(2260,IEN,62) D P Q:EX=U
47 W !,"TYPE CODE......................: ",OOPS(2260,IEN,226) D P Q:EX=U
48 W !,"SOURCE CODE....................: ",OOPS(2260,IEN,227) D P Q:EX=U
49 W !,"OWCP CHARGEBACK CODE...........: ",OOPS(2260,IEN,70) D P Q:EX=U
50 D:$D(OOPS(2260,IEN,230)) Q:EX=U
51 .W !,"AGENCY NAME....................: ",OOPS(2260,IEN,230) D P Q:EX=U
52 .W !,"AGENCY ADDRESS.................: ",OOPS(2260,IEN,231) D P Q:EX=U
53 .W !,"AGENCY CITY....................: ",OOPS(2260,IEN,232) D P Q:EX=U
54 .W !,"AGENCY STATE...................: ",OOPS(2260,IEN,233) D P Q:EX=U
55 .W !,"AGENCY ZIP CODE................: ",OOPS(2260,IEN,234) D P Q:EX=U
56 D:$D(OOPS(2260,IEN,237)) Q:EX=U
57 .W !,"EMPLOYEE'S DUTY STATION........: ",OOPS(2260,IEN,237) D P Q:EX=U
58 .W !,"DUTY STATION ADDRESS...........: ",OOPS(2260,IEN,238) D P Q:EX=U
59 .W !,"DUTY STATION CITY..............: ",OOPS(2260,IEN,239) D P Q:EX=U
60 .W !,"DUTY STATION STATE.............: ",OOPS(2260,IEN,240) D P Q:EX=U
61 .W !,"DUTY STATION ZIP CODE..........: ",OOPS(2260,IEN,241) D P Q:EX=U
62 W !,"REGULAR HRS FROM TIME..........: ",OOPS(2260,IEN,242) D P Q:EX=U
63 W !,"REGULAR HRS TO TIME............: ",OOPS(2260,IEN,243) D P Q:EX=U
64 W !,"REGULAR WORK SCHEDULE..........: ",OOPS(2260,IEN,244) D P Q:EX=U
65 D:$D(OOPS(2260,IEN,245)) Q:EX=U
66 .W !,"1ST PROVIDING PHYSICAN NAME....: ",OOPS(2260,IEN,245) D P Q:EX=U
67 .W !,"1ST PROVIDING PHYS. ADDRESS....: ",OOPS(2260,IEN,246) D P Q:EX=U
68 .W !,"1ST PROVIDING PHYS. CITY.......: ",OOPS(2260,IEN,247) D P Q:EX=U
69 .W !,"1ST PROVIDING PHYS. STATE......: ",OOPS(2260,IEN,248) D P Q:EX=U
70 .W !,"1ST PROVIDING PHYS. ZIP CODE...: ",OOPS(2260,IEN,249) D P Q:EX=U
71 .W !,"1ST PROVIDING PHYS. TITLE......: ",OOPS(2260,IEN,270) D P Q:EX=U
72 W !,"FIRST DATE OF MEDICAL CARE.....: ",OOPS(2260,IEN,250) D P Q:EX=U
73 W !,"DISABLED FOR WORK..............: ",OOPS(2260,IEN,251) D P Q:EX=U
74 W !,"DATE 1ST REPORTED TO SUPERVISOR: ",OOPS(2260,IEN,252) D P Q:EX=U
75 W !,"DATE/TIME WORK STOPPED.........: ",OOPS(2260,IEN,253) D P Q:EX=U
76 W !,"DATE PAY STOPPED...............: ",OOPS(2260,IEN,254) D P Q:EX=U
77 W !,"DATE OF LAST EXPOSURE..........: ",OOPS(2260,IEN,255) D P Q:EX=U
78 W !,"DATE/TIME RETURNED TO WORK.....: ",OOPS(2260,IEN,256) D P Q:EX=U
79 W !,"WORK DUTY CHANGED..............: "
80 S OPFLD=257 D WP K OPFLD Q:EX=U
81 W !,"EMPLOYEE RETIREMENT COVERAGE...: ",OOPS(2260,IEN,60) D P Q:EX=U
82 I $D(OOPS(2260,IEN,61)) D Q:EX=U
83 . W !,"EMP RETIREMENT COVERAGE DESC.: ",OOPS(2260,IEN,61) D P Q:EX=U
84 W !,"INJURY CAUSED BY 3RD PARTY.....: ",OOPS(2260,IEN,258) D P Q:EX=U
85 D:$D(OOPS(2260,IEN,259)) Q:EX=U
86 .W !,"3RD PARTY NAME.................: ",OOPS(2260,IEN,259) D P Q:EX=U
87 .W !,"3RD PARTY ADDRESS..............: ",OOPS(2260,IEN,260) D P Q:EX=U
88 .W !,"3RD PARTY CITY.................: ",OOPS(2260,IEN,261) D P Q:EX=U
89 .W !,"3RD PARTY STATE................: ",OOPS(2260,IEN,262) D P Q:EX=U
90 .W !,"3RD PARTY ZIP CODE.............: ",OOPS(2260,IEN,263) D P Q:EX=U
91 W !,"SUPERVISOR EXCEPTION...........: ",OOPS(2260,IEN,264) D P Q:EX=U
92 W !,"NAME OF SUPERVISOR.............: ",OOPS(2260,IEN,265) D P Q:EX=U
93 W !,"SUPERVISOR'S DATE OF SIGNATURE.: ",OOPS(2260,IEN,267) D P Q:EX=U
94 W !,"SUPERVISOR'S TITLE.............: ",OOPS(2260,IEN,268) D P Q:EX=U
95 W !,"SUPERVISOR'S OFFICE PHONE......: ",OOPS(2260,IEN,269) D P Q:EX=U
96 I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E" D ^DIR W @IOF
97KILL ;Kill Variables and Exit
98 S:$D(ZTQUEUED) ZTREQ="@"
99 K DIR,DIROUT,DIRUT,DTOUT,DUOUT,IEN,DASHES,OOPS,DA,DO,EX
100 K DO,DIQ,DISYS,DIW,DIWI,DIWT,DIWTC,DIWX,DN,DR,I,Z,POP
101 Q
102P ;Print
103 I ($Y'<(LIN-3)) D Q:EX=U
104 .I $E(IOST,1,2)="C-" W ! K DIR S DIR(0)="E" D ^DIR I 'Y S EX=U Q
105 .D HDR Q
106 Q
107WP ;Process Word Processing Fields
108 N DIWL,DIWR,DIWF,OPGLB,OPI,OPNODE,OPT,OPC
109 K ^UTILITY($J,"W")
110 S DIWL=1,DIWR="",DIWF="|C76"
111 S OPNODE=$P($$GET1^DID(2260,OPFLD,"","GLOBAL SUBSCRIPT LOCATION"),";")
112 S OPGLB="^OOPS(2260,IEN,OPNODE,OPI)"
113 S OPI=0 F S OPI=$O(@OPGLB) Q:'OPI S X=$G(^(OPI,0)) D:X]"" ^DIWP
114 S OPT=$G(^UTILITY($J,"W",1))+0
115 I OPT S OPI=0 F OPC=1:1 S OPI=$O(^UTILITY($J,"W",1,OPI)) Q:'OPI!(EX=U) D
116 .W !?1,^UTILITY($J,"W",1,OPI,0) D P Q:EX=U
117 K ^UTILITY($J,"W"),X
118 Q
119HDR ;HEADER
120 W @IOF S PG=PG+1 K DASHES S $P(DASHES,"-",80)="-"
121 W !,"Case # ",OOPS(2260,IEN,.01),?73,"Page ",PG
122 W !,DASHES
123 Q
Note: See TracBrowser for help on using the repository browser.