Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRS8EX.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• PAID-PRS/PRS8EX.m (modified) (4 diffs)

FOIAVistA/tag/r/PAID-PRS/PRS8EX.m

@@ -1 @@
-PRS8EX ;HISC/MRL,WCIOFO/SAB-DECOMPOSITION, EXCEPTIONS ;1/31/2007
- ;;4.0;PAID;**2,40,56,69,111,112**;Sep 21, 1995;Build 54
+PRS8EX ;HISC/MRL,WCIOFO/SAB-DECOMPOSITION, EXCEPTIONS ;1/25/2007
+ ;;4.0;PAID;**2,40,56,69,111**;Sep 21, 1995;Build 2
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  ;
@@ -27 +27 @@
  ..Q
  .Q
- S X="^AL^SL^WP^NP^AA^RL^CU^CT^CP^HX^ML^TR^TV^OT^RG^TT^SB^ON^NL^HW^CB^AD^DL^RS" ;code
+ S X="^AL^SL^WP^NP^AA^RL^CU^CT^CP^HX^ML^TR^TV^OT^RG^TT^SB^ON^NL^HW^CB^AD^DL" ;code
  S X=($F(X,"^"_TT)\3)+4,(X,TT(1))=$P($T(ACT+X),";;",2) ;parameters
  S GO=0 I '+X!($E(ENT,+X)) S GO=1 ;entitlement exists-continue
@@ -76 +76 @@
  I TT'="UN" S VAR=$P(X,"^",3) ;increment time code
  I '$S(VAR'="W":1,'CYA:1,DY<CYA:1,1:0) D
- .S WPCY=1 ;flag to save WOP in hours from 1/1 for calendar year adjustment
+ .S WPCY=1 ;flag to save WOP in hours from 1/1 for calander year adjustment
  I TYP'["D" D  G END ;process hourly people and quit
  .; The following 2 lines commented out because for Employees that are
@@ -144 +144 @@
  ;;31^Adoption^G^45
  ;;35^Donor Leave^D^46
- ;;5^Recess^r^48