PRSXP132.m

PRSXP132 ;WCIOFO/PLT - PRS PATCH 132 PRE/POST INSTALL ;3/26/12  21:51

 ;;4.0;PAID;**132**;Sep 21, 1995;Build 13

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 QUIT

 ;

 ;

POSTINS ;post install of patch 132

 ;set new entries of telework indicator of sufile 454.0131 of file #454

 N PRSA,PRSB,PRSC

 F PRSA=1:1 S PRSB=$P($T(TW+PRSA),";",3) QUIT:PRSB=""  I PRSB]"" D

 . N PRSFDA

 . S PRSC="?+1,1,"

 . S PRSFDA(454.0131,PRSC,.01)=$P(PRSB,U)

 . S PRSFDA(454.0131,PRSC,1)=$P(PRSB,U,2)

 . S PRSFDA(454.0131,PRSC,2)=$P(PRSB,U,3)

 . D UPDATE^DIE("","PRSFDA") D:$G(DIERR)'="" MES^XPDUTL("The entry '"_$P(PRSB,U)_"' is not added and the adding fails.")

 . D CLEAN^DILF

 . QUIT

 QUIT

 ;

TW ;telework indicator entries of subfile 454.0131

 ;;P^Employee regularly teleworks three or more days per pay period.^Y

 ;;R^Employee regularly teleworks one or two days per pay period.^Y

 ;;S^Employee regularly teleworks one day per month.^Y

 ;;A^Ad Hoc Telework. Employee teleworks only on an as-needed basis. This includes Continuity of Operations, National/Regional emergencies, situational basis (temporary), and Office of Workers Compensation-related telework.^Y

 ;;X^Position is suitable for telework and employee is eligible, but no telework agreement in place.^N

 ;;Y^Position is suitable for telework but employee is not eligible to telework.^N

 ;;Z^Position is not suitable for telework. This code is used only when the employee's position makes teleworking impossible.^N

 ;;V^Employee who is virtual.^N

 ;;E^Employee regularly teleworks three or more days per work week.^Y

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSXP132   1616     printed  Apr 09, 2024@21:32:03                                                                                                                                                                                                    Page 2

PRSXP132  ;WCIOFO/PLT - PRS PATCH 132 PRE/POST INSTALL ;3/26/12  21:51

 +1       ;;4.0;PAID;**132**;Sep 21, 1995;Build 13

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3        QUIT 

 +4       ;

 +5       ;

POSTINS   ;post install of patch 132

 +1       ;set new entries of telework indicator of sufile 454.0131 of file #454

 +2        NEW PRSA,PRSB,PRSC

 +3        FOR PRSA=1:1

               SET PRSB=$PIECE($TEXT(TW+PRSA),";",3)

               if PRSB=""

                   QUIT 

               IF PRSB]""

                   Begin DoDot:1

 +4                    NEW PRSFDA

 +5                    SET PRSC="?+1,1,"

 +6                    SET PRSFDA(454.0131,PRSC,.01)=$PIECE(PRSB,U)

 +7                    SET PRSFDA(454.0131,PRSC,1)=$PIECE(PRSB,U,2)

 +8                    SET PRSFDA(454.0131,PRSC,2)=$PIECE(PRSB,U,3)

 +9                    DO UPDATE^DIE("","PRSFDA")

                       if $GET(DIERR)'=""

                           DO MES^XPDUTL("The entry '"_$PIECE(PRSB,U)_"' is not added and the adding fails.")

 +10                   DO CLEAN^DILF

 +11                   QUIT 

                   End DoDot:1

 +12       QUIT 

 +13      ;

TW        ;telework indicator entries of subfile 454.0131

 +1       ;;P^Employee regularly teleworks three or more days per pay period.^Y

 +2       ;;R^Employee regularly teleworks one or two days per pay period.^Y

 +3       ;;S^Employee regularly teleworks one day per month.^Y

 +4       ;;A^Ad Hoc Telework. Employee teleworks only on an as-needed basis. This includes Continuity of Operations, National/Regional emergencies, situational basis (temporary), and Office of Workers Compensation-related telework.^Y

 +5       ;;X^Position is suitable for telework and employee is eligible, but no telework agreement in place.^N

 +6       ;;Y^Position is suitable for telework but employee is not eligible to telework.^N

 +7       ;;Z^Position is not suitable for telework. This code is used only when the employee's position makes teleworking impossible.^N

 +8       ;;V^Employee who is virtual.^N

 +9       ;;E^Employee regularly teleworks three or more days per work week.^Y

 +10      ;