Changeset 636 for FOIAVistA/tag/r/PAID-PRS/PRSAPPH.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/PRSAPPH.m (modified) (3 diffs)

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

@@ -1 @@
-PRSAPPH ; WOIFO/JAH - Holiday Utilities ;12/07/07
- ;;4.0;PAID;**33,66,113,112,116**;Sep 21, 1995;Build 23
+PRSAPPH ; HISC/REL-Holiday Utilities ;01/03/07
+ ;;4.0;PAID;**33,66,113**;Sep 21, 1995;Build 3
  ;;Per VHA Directive 2004-038, this routine should not be modified.
  K HOL S PDT=$G(^PRST(458,PPI,1)) Q:PDT=""  S X1=$P(PDT,"^",1),X2=-6 D C^%DTC
@@ -14 +14 @@
 E0 ; Find Benefit Day
  Q:DAY=15  I DAY>0,DAY<15 G P0
- Q:DB'=1  Q:NH=48!(NH=72)  G P1:DAY<0,P3:DAY>14
+ Q:DB'=1  Q:NH=48  G P1:DAY<0,P3:DAY>14
 P0 S TC=$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",2) Q:'TC
  I (TC=3)!(TC=4) G U1
@@ -21 +21 @@
  I TC=2!$P($G(^PRST(458,PPI,"E",DFN,"D",DAY,0)),"^",8)!$P($G(^(0)),"^",14),'$P($G(^(0)),"^",12) G S0
  Q:$P($G(^(0)),"^",12)=LLL&(TT="HX") 
- G U1:DB=2!(NH=72) I FLX'="C" G EF:(DAY#7=1),EB:(DAY#7=0)
+ G:DB=2 U1 I FLX'="C" G EF:(DAY#7=1),EB:(DAY#7=0)
  S C=0 F X1=$S(DAY<8:1,1:8):1:DAY I '$P($G(^PRST(458,PPI,"E",DFN,"D",X1,0)),"^",8),'$P($G(^(0)),"^",14) S C=C+1
  I FLX'="C" G EF:C<2,EB