| 1 | OOPSDM ;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.
|
|---|
| 6 | EN1 ;
|
|---|
| 7 | N POP
|
|---|
| 8 | D DEVICE Q:POP
|
|---|
| 9 | D:'$D(IO("Q")) PRINT
|
|---|
| 10 | D EXIT
|
|---|
| 11 | Q
|
|---|
| 12 | EXIT ;
|
|---|
| 13 | K IO("Q")
|
|---|
| 14 | Q
|
|---|
| 15 | DEVICE ; 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
|
|---|
| 23 | PRINT ; 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.",!
|
|---|
| 45 | END ; exit the report
|
|---|
| 46 | D ^%ZISC
|
|---|
| 47 | S:$D(ZTQUEUED) ZTREQ="@"
|
|---|
| 48 | Q
|
|---|
