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

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

@@ -1 +1 @@
 PRSAENT ;HISC/MGD-Entitlement String ;10/21/04
- ;;4.0;PAID;**6,21,45,69,75,76,90,96,112**;Sep 21, 1995;Build 54
- ;;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;4.0;PAID;**6,21,45,69,75,76,90,96**;Sep 21, 1995
  ;
  ;VARS:
@@ -102 +101 @@
  S LVG=$P(C0,"^",15) S:LVG=5 AC=AC_"*" Q
 M I $E(AC,2)=1,NH=48 S AC=AC_"B" Q
- I $E(AC,2)=2,NH=80 S AC=AC_"R" Q
  I $E(AC,2)=2 S PB=$P(C0,"^",20) I PB=0 S AC=AC_"0" Q
  I $E(AC,2)=3 S PB=$P(C0,"^",20) I PB=2 S AC=AC_"2" Q