| DESCRIPTION OF ENHANCEMENTS |
The following changes were made to address Y2K compliance issues.
Routine: PSUCP
Line Tag: AUTO+11
Exception: The calculations performed incorrectly when Y2K dates were provided.
Resolution: Changed S...to
S PSUSDT=PSUMON_"01"
S PSULY=$$LEAPYR(PSUMON)
S X=U_$E(PSUMON,4,5)_U
Routine: PSUCP
Line Tag: TIMINGQ+1
Exception: The calculations performed incorrectly when Y2K dates were provided.
Resolution: Added...
;
LEAPYR(FMYR); Check to see if year is a leap year: 1=leap year, 0=not leap year
N YYYY
S YYYY=1700+$E(FMYR,1,3)
Q (((YYYY#4=0)&(YYYY#100'=0))!((YYYY#100=0)&(YYYY#400=0)))
Routine: PSUCP
Line Tag: AUTO+10
Exception: The calculations performed incorrectly when Y2K dates were provided.
Resolution: Changed I...to
I $E(PSUMON,4,5)="00" S PSUMON=($E(PSUMON,1,3)-1)_"12" ; set to
...Dec. of previous year if this month is Jan.
|
