Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR121B.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR121B.m
r628 r636 1 1 RMPR121B ;PHX/HNC -POST GUI PURCHASE ORDER TRANSACTION ;3/1/2003 2 ;;3.0;PROSTHETICS;**90,75 ,137**;FEB 09,1996;Build52 ;;3.0;PROSTHETICS;**90,75**;FEB 09,1996;Build 25 3 3 ;Per VHA Directive 10-93-142, this routine should not be modified. 4 4 A1(SIG,RMPRA,RMPRSITE) S RMPRGUI=1 G A2 … … 20 20 S PRCRMPR=1,X=1,PRCRMPR=1 21 21 D UP1^PRCH7PUC(.X,PRCA,PRCB,PRCC,PRCSITE,PRCVEN,PRCRMPR) 22 I X="^" D C664G QUIT22 I X="^" G QUIT 23 23 S PRC442=$P(^RMPR(664,RMPRA,4),U,6) 24 24 I $P(^PRC(442,PRC442,7),U,1)'=6 G QUT 25 S $P(^RMPR(664,RMPRA,0),U,5)="",$P(^RMPR(664,RMPRA,2),U)="",$P(^RMPR(664,RMPRA,2),U,2)=""26 25 I $D(RMPRPSC) S $P(^RMPR(664,RMPRA,2),U,5)=RMPRPSC 27 26 S DA=RMPRA,DIK="^RMPR(664," D IX1^DIK … … 83 82 D DELIV^RMPR121A 84 83 Q 85 C664 ;CANCEL 664 ENTRY WHEN IFCAP IS CANCELLED86 S $P(^RMPR(664,RMPRA,0),U,5)=$P(^RMPR(664,RMPRA,0),U),$P(^RMPR(664,RMPRA,2),U,2)=+DUZ87 S WDS="INSUFF FUNDS CANCEL",DA=RMPRA,DR="3.1////^S X=WDS",DIE="^RMPR(664," D ^DIE K WDS88 Q
Note:
See TracChangeset
for help on using the changeset viewer.