OOPSDM.m

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 ---OOPSDM   1915     printed  Apr 09, 2024@20:43:39                                                                                                                                                                                                      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