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 ---[H[J[2J[HPRSXP132 1616 printed Dec 13, 2024@02:28:52 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 ;
