OOPSDM ;HINES/WAA-Utilities Routines ;5/26/98
;;2.0;ASISTS;;Jun 03, 2002
;;
; This routine is to display all the report that a person has
; access to.
EN1 ;
N POP
D DEVICE Q:POP
D:'$D(IO("Q")) PRINT
D EXIT
Q
EXIT ;
K IO("Q")
Q
DEVICE ; This is the device selection routine.
;
S %ZIS="QM" D ^%ZIS I POP Q
I $D(IO("Q")) D Q
.S ZTRTN="PRINT^OOPSDM",ZTDESC="Print Employee Bill of Rights"
.D ^%ZTLOAD D HOME^%ZIS Q
.Q
Q
PRINT ; This is the main print portion of the routine
U IO
W !,?6,"EMPLOYEES' BILL OF RIGHTS FOR ACCIDENT AND OCCUPATIONAL ILLNESSES"
; Added new text with patch 10 - removed all commented lines
W !!?6,"The Federal Employees' Compensation Act (FECA) describes an employee's"
W !?6,"rights and entitlements to benefits following a work-related"
W !?6,"injury or illness."
W !!?6,"You have the right to file a CA-1 (injury) or CA-2 (illness), to apply"
W !?6,"for compensation."
W !!?6,"Entitlements include the option to receive medical treatment by either"
W !?6,"the VA Employee Health Unit or by your primary care physician."
W !!?6,"You have the right to request union representation."
W !!?6,"For additional information and explanation of your rights and"
W !?6,"responsibilities, contact your Workers' Compensation"
W !?6,"Specialist/Coordinator/Manager."
; W !,?6,"You have the right to select the physician or facility to provide"
; W !,?6,"treatment for the sustained injury or illness. The VA facility is"
; W !,?6,"available for examination and treatment, but cannot mandate use of"
; W !,?6,"the facility to the exclusion of your choice of medical care.",!
; W !,?6,"You have the right to file a CA-1 (injury) or CA-2 (illness) to"
; W !,?6,"apply for compensation.",!
; W !,?6,"You have the right to union representation at any time.",!
END ; exit the report
D ^%ZISC
S:$D(ZTQUEUED) ZTREQ="@"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOOPSDM 1915 printed Dec 13, 2024@01:38:45 Page 2
OOPSDM ;HINES/WAA-Utilities Routines ;5/26/98
+1 ;;2.0;ASISTS;;Jun 03, 2002
+2 ;;
+3 ; This routine is to display all the report that a person has
+4 ; access to.
EN1 ;
+1 NEW POP
+2 DO DEVICE
if POP
QUIT
+3 if '$DATA(IO("Q"))
DO PRINT
+4 DO EXIT
+5 QUIT
EXIT ;
+1 KILL IO("Q")
+2 QUIT
DEVICE ; This is the device selection routine.
+1 ;
+2 SET %ZIS="QM"
DO ^%ZIS
IF POP
QUIT
+3 IF $DATA(IO("Q"))
Begin DoDot:1
+4 SET ZTRTN="PRINT^OOPSDM"
SET ZTDESC="Print Employee Bill of Rights"
+5 DO ^%ZTLOAD
DO HOME^%ZIS
QUIT
+6 QUIT
End DoDot:1
QUIT
+7 QUIT
PRINT ; This is the main print portion of the routine
+1 USE IO
+2 WRITE !,?6,"EMPLOYEES' BILL OF RIGHTS FOR ACCIDENT AND OCCUPATIONAL ILLNESSES"
+3 ; Added new text with patch 10 - removed all commented lines
+4 WRITE !!?6,"The Federal Employees' Compensation Act (FECA) describes an employee's"
+5 WRITE !?6,"rights and entitlements to benefits following a work-related"
+6 WRITE !?6,"injury or illness."
+7 WRITE !!?6,"You have the right to file a CA-1 (injury) or CA-2 (illness), to apply"
+8 WRITE !?6,"for compensation."
+9 WRITE !!?6,"Entitlements include the option to receive medical treatment by either"
+10 WRITE !?6,"the VA Employee Health Unit or by your primary care physician."
+11 WRITE !!?6,"You have the right to request union representation."
+12 WRITE !!?6,"For additional information and explanation of your rights and"
+13 WRITE !?6,"responsibilities, contact your Workers' Compensation"
+14 WRITE !?6,"Specialist/Coordinator/Manager."
+15 ; W !,?6,"You have the right to select the physician or facility to provide"
+16 ; W !,?6,"treatment for the sustained injury or illness. The VA facility is"
+17 ; W !,?6,"available for examination and treatment, but cannot mandate use of"
+18 ; W !,?6,"the facility to the exclusion of your choice of medical care.",!
+19 ; W !,?6,"You have the right to file a CA-1 (injury) or CA-2 (illness) to"
+20 ; W !,?6,"apply for compensation.",!
+21 ; W !,?6,"You have the right to union representation at any time.",!
END ; exit the report
+1 DO ^%ZISC
+2 if $DATA(ZTQUEUED)
SET ZTREQ="@"
+3 QUIT