Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR4OPN.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/RMPR4OPN.m
r628 r636 1 1 RMPR4OPN ;PHX/HNB - LIST OPEN PURCHASE CARD TRANSACTIONS ;3/1/1996 2 ;;3.0;PROSTHETICS;**3,20 ,140**;Feb 09, 1996;Build 102 ;;3.0;PROSTHETICS;**3,20**;Feb 09, 1996 3 3 W !,"This report lists Open Purchase Card Transactions created in the" 4 4 W !,"Prosthetics Package." … … 18 18 EXIT I $E(IOST)["C"&($Y<20) F W ! Q:$Y>20 19 19 I $D(RMPREDT),'$D(DTOUT),'$D(DUOUT),$E(IOST)["C",'$D(RMPRFLL),RMPREND'=1 S DIR(0)="E" D ^DIR 20 EX K RMPREND,RMPROBL,RMPRFLL,RMPRFLG,DUOUT,DIR,RO,RP,RMPRY,RMPRCOUN,RMPRX,RMPRBDT,RMPREDT,RMPRCK,%DT,X,Y,PAGE,IT,ZTSK,^TMP($J) ,PRCIEND ^%ZISC20 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 21 21 K CNT,DTOUT,ROBL,X1,X2,RMPR,%ZIS 22 22 Q … … 36 36 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) 37 37 E W "encrypted" 38 S RD=$P(^RMPR(664,RP,0),U,1) ,PRCIEN=$P(^RMPR(664,RP,4),U,6)38 S RD=$P(^RMPR(664,RP,0),U,1) 39 39 S RD=$P(RD,"."),RD=$E(RD,4,5)_"/"_$E(RD,6,7) 40 W ?36,RD I PRCIEN,($P($G(^PRC(442,PRCIEN,7)),U)=45) W "#"40 W ?36,RD 41 41 W ?43,$P(^RMPR(664,RP,4),U,5) 42 42 W ?50 … … 59 59 Q 60 60 HDR I PAGE'=1!($E(IOST)["C") W @IOF 61 W !,RMPRX_"-",RMPRY," Open 2421PC Transactions "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,! ,"# = PURCHASE CARD Order CANCELLED on IFCAP SYSTEM",!S PAGE=PAGE+1 Q61 W !,RMPRX_"-",RMPRY," Open 2421PC Transactions "_"STA "_$$STA^RMPRUTIL,?72,"PAGE ",PAGE,! S PAGE=PAGE+1 Q
Note:
See TracChangeset
for help on using the changeset viewer.