Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9P21.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 )
• PROSTHETICS-RMPR-RMPO-RMPS/RMPR9P21.m (modified) (2 diffs)

FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR9P21.m

@@ -1 +1 @@
 RMPR9P21 ;PHX/SPS,HNC,RVD -SEND DATA TO PC TO PRINT PURCHASE CARD ORDER ;4/27/05
- ;;3.0;PROSTHETICS;**90,116,119,133,139**;Feb 09, 1996;Build 4
+ ;;3.0;PROSTHETICS;**90,116,119,133**;Feb 09, 1996;Build 2
  ;
 EN(RMPRA,RMPRSITE,RMPRPTR) ;ENTRY POINT FOR VISTA ROLL AND SCROLL
@@ -67 +67 @@
  I VAPA(2)'="" S ^TMP($J,"RMPRPRT",CNT+10)="    "_VAPA(8)_SPACE_"CHARGE MEDICAL APPROPRIATION"
  S ^TMP($J,"RMPRPRT",CNT+11)=RMPRB
- S ^TMP($J,"RMPRPRT",CNT+12)="7. Claim Number                        8. ID #:"_" "_$P($P(VADM(2),U,2),"-",3)
+ S ^TMP($J,"RMPRPRT",CNT+12)="7. Claim Number   "_VAEL(7)_"             8. ID #:"_" "_$P($P(VADM(2),U,2),"-",3)
  S ^TMP($J,"RMPRPRT",CNT+13)=RMPRB
  S ^TMP($J,"RMPRPRT",CNT+14)="10. Statistical Data         11. FOB Point    12. Discount    13. Delivery Time"