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

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

@@ -1 +1 @@
 RMPR4C21 ;PHX/HNB-CANCEL A PURCHASE CARD TRANSACTION;3/1/1996
- ;;3.0;PROSTHETICS;**3,20,62,140**;Feb 09, 1996;Build 10
- ;Per VHA Directive 2004-038, this routine should not be modified.
+ ;;3.0;PROSTHETICS;**3,20,62**;Feb 09, 1996
+ ;Per VHA Directive 10-93-142, this routine should not be modified.
  ;RVD patch #62 - pce interface
  ;
@@ -25 +25 @@
  S RMPR442=$P($G(^RMPR(664,RMPRA,4)),U,6)
  I RMPR442="" G BYPASS
- I $P($G(^PRC(442,RMPR442,7)),U)=45 W !!,"Purchase Card CANCELLED in IFCAP, will cancel open Pros PC order, hit return" R X:10 G BYPASS
  D CAN^PRCH7B(.X,RMPRA,RMPR442,0)
  I X="^" W !!,"NOT CANCELED You must say YES to 'Approve and print Amendment number'" G EXIT