source: WorldVistAEHR/trunk/r/ASISTS-OOPS/OOPSDM.m@ 1716

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1OOPSDM ;HINES/WAA-Utilities Routines ;5/26/98
2 ;;2.0;ASISTS;;Jun 03, 2002
3 ;;
4 ; This routine is to display all the report that a person has
5 ; access to.
6EN1 ;
7 N POP
8 D DEVICE Q:POP
9 D:'$D(IO("Q")) PRINT
10 D EXIT
11 Q
12EXIT ;
13 K IO("Q")
14 Q
15DEVICE ; This is the device selection routine.
16 ;
17 S %ZIS="QM" D ^%ZIS I POP Q
18 I $D(IO("Q")) D Q
19 .S ZTRTN="PRINT^OOPSDM",ZTDESC="Print Employee Bill of Rights"
20 .D ^%ZTLOAD D HOME^%ZIS Q
21 .Q
22 Q
23PRINT ; This is the main print portion of the routine
24 U IO
25 W !,?6,"EMPLOYEES' BILL OF RIGHTS FOR ACCIDENT AND OCCUPATIONAL ILLNESSES"
26 ; Added new text with patch 10 - removed all commented lines
27 W !!?6,"The Federal Employees' Compensation Act (FECA) describes an employee's"
28 W !?6,"rights and entitlements to benefits following a work-related"
29 W !?6,"injury or illness."
30 W !!?6,"You have the right to file a CA-1 (injury) or CA-2 (illness), to apply"
31 W !?6,"for compensation."
32 W !!?6,"Entitlements include the option to receive medical treatment by either"
33 W !?6,"the VA Employee Health Unit or by your primary care physician."
34 W !!?6,"You have the right to request union representation."
35 W !!?6,"For additional information and explanation of your rights and"
36 W !?6,"responsibilities, contact your Workers' Compensation"
37 W !?6,"Specialist/Coordinator/Manager."
38 ; W !,?6,"You have the right to select the physician or facility to provide"
39 ; W !,?6,"treatment for the sustained injury or illness. The VA facility is"
40 ; W !,?6,"available for examination and treatment, but cannot mandate use of"
41 ; W !,?6,"the facility to the exclusion of your choice of medical care.",!
42 ; W !,?6,"You have the right to file a CA-1 (injury) or CA-2 (illness) to"
43 ; W !,?6,"apply for compensation.",!
44 ; W !,?6,"You have the right to union representation at any time.",!
45END ; exit the report
46 D ^%ZISC
47 S:$D(ZTQUEUED) ZTREQ="@"
48 Q
Note: See TracBrowser for help on using the repository browser.