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

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

@@ -1 @@
-PRSASR1 ;WCIOFO/JAH - Display VCS, Fee, ED ;02/20/08
- ;;4.0;PAID;**6,21,82,93,116**;Sep 21, 1995;Build 23
+PRSASR1 ;HISC/MGD - Display VCS, Fee, ED ;04/19/05
+ ;;4.0;PAID;**6,21,82,93**;Sep 21, 1995;Build 7
  ;;Per VHA Directive 2004-038, this routine should not be modified.
 VCS ; Display VCS Sales/Fee Basis
@@ -93 +93 @@
  W !,@IOF,?3,$P(X,"^",1)
  S X=$P(X,"^",9)
- I X W ?68,$E(X),"XX-XX-",$E(X,6,9)
+ I X W ?68,$E(X,1,3),"-",$E(X,4,5),"-",$E(X,6,9)
  W !,DASH
  D LDHDR