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

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

@@ -1 +1 @@
 RMPR4LOP ;PHX/HNB - LIST OPEN PURCHASE CARD TRANSACTIONS ;3/1/1996
- ;;3.0;PROSTHETICS;**3,20,140**;Feb 09, 1996;Build 10
+ ;;3.0;PROSTHETICS;**3,20**;Feb 09, 1996
  ;sort by originator, assistance from Long Beach PVB
  W !,"This report lists Open Purchase Card Transactions created in the"
@@ -23 +23 @@
 EXIT I $E(IOST)["C"&($Y<20) F  W ! Q:$Y>20
  I $D(RMPREDT),'$D(DTOUT),'$D(DUOUT),$E(IOST)["C",'$D(RMPRFLL),RMPREND'=1 S DIR(0)="E" D ^DIR
-EX K RMPREND,RMPROBL,RMPRFLL,RMPRFLG,DUOUT,DIR,RO,RP,RMPRY,RMPRCOUN,RMPRX,RMPRBDT,RMPREDT,RMPRCK,%DT,X,Y,PAGE,IT,ZTSK,^TMP($J),PRCIEN D ^%ZISC
+EX K RMPREND,RMPROBL,RMPRFLL,RMPRFLG,DUOUT,DIR,RO,RP,RMPRY,RMPRCOUN,RMPRX,RMPRBDT,RMPREDT,RMPRCK,%DT,X,Y,PAGE,IT,ZTSK,^TMP($J) D ^%ZISC
  K CNT,DTOUT,ROBL,X1,X2,RMPR,%ZIS,INIC,INIB
  Q
@@ -41 +41 @@
  I DUZ=$P(^RMPR(664,RP,0),U,9)!($D(^XUSEC("RMPR FCP MANAGER",DUZ))) W $$DEC^RMPR4LI($P(^RMPR(664,RP,4),U,1),$P(^RMPR(664,RP,0),U,9),RP)
  E  W "encrypted"
- S RD=$P(^RMPR(664,RP,0),U,1),PRCIEN=$P(^RMPR(664,RP,4),U,6)
+ S RD=$P(^RMPR(664,RP,0),U,1)
   S RD=$P(RD,"."),RD=$E(RD,4,5)_"/"_$E(RD,6,7)
- W ?36,RD I PRCIEN,($P($G(^PRC(442,PRCIEN,7)),U)=45) W "#"
+ W ?36,RD
  W ?43,$P(^RMPR(664,RP,4),U,5)
  W ?50
@@ -69 +69 @@
 HDR I PAGE'=1!($E(IOST)["C") W @IOF
  I $E(IOST)["C" W @IOF G EXIT:X="^"
- W !,RMPRX_"-",RMPRY," Open 2421PC Transactions     "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,!,"# = PURCHASE CARD Order CANCELLED on IFCAP SYSTEM",! S PAGE=PAGE+1 Q
+ W !,RMPRX_"-",RMPRY," Open 2421PC Transactions     "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,! S PAGE=PAGE+1 Q