source: WorldVistAEHR/trunk/r/INTEGRATED_PATIENT_FUNDS-PRPF-PFXIP/PRPFDST.m@ 724

Last change on this file since 724 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.3 KB
Line 
1PRPFDST ;ALTOONA/CTB DISPLAY TRANACTIONS ;7/24/97 8:36 AM
2V ;;3.0;PATIENT FUNDS;**6,7**;JUNE 1, 1989
3 D ^PRPFSITE I % D HILO^PRPFBAL S PAGE=1,DIC=470,DIC(0)="AEMNZ" D ^DIC I Y>0 S DFN=+Y D D W !! G V
4OUT K %,%W,%Y,C,DA,DFN,DIC,DIYS,J,K,LINE,MADA,N,P,PAGE,FR,TO,PFHI,PFLO,PFNORM,POP,PRPF,PRPFQ,PRPFL,PTRDA,S,TMP,X,X1,Y,ZDA Q
5D ;;DISPLAY/PRINT PATIENT FUNDS TRANSACTIONS
6 D DRNG^PRPFQ G:'% OUT
7 S ZTRTN="EN1^PRPFDST",(ZTSAVE("FR"),ZTSAVE("TO"),ZTSAVE("PRPF*"),ZTSAVE("DFN"))="",ZTDESC=$P($T(D),";",3) D ^PRPFQ
8 Q
9EN1 ;DIRECT ENTRY POINT, UN QUEUED
10 I $D(ZTQUEUED) S ZTREQ="@"
11 S IOP=PRIOP,U="^"
12H I '$D(PFHI)!('$D(PFLO))!('$D(PFNORM)) S (PFHI,PFLO,PFNORM)="*0"
13 K LINE S $P(LINE,"-",(IOM+1))=""
14 S DFN(0)=^DPT(DFN,0),DFN(.31)=$S($D(^(.31)):^(.31),1:""),PAGE=1
15 S FR=FR-.1,TO=TO+.1
16 S N=FR F K=1:1 S N=$O(^PRPF(470,DFN,3,"AC",N)) D A Q:'%
17 D OUT Q
18A I N="",K=1 G W1
19 I N'<TO,K=1 G W1
20 I N'<TO S %=0 Q
21 I 'N S %=0 Q
22 S DA=0,%=1 F J=1:1 S DA=$O(^PRPF(470,DFN,3,"AC",N,DA)) Q:'DA S ZDA=DA D B S DA=ZDA I '% K ZDA Q
23 Q
24B S %=1,X="" I $Y>(IOSL-5)!(K=1&(J=1)) R:PAGE>1&('$D(ZTSK)) !,"Press return to continue or '^' to exit:",X:$S($D(DTIME):DTIME,1:60) S:X["^" %=0 Q:'% D HDR S X1=1
25 S PTRDA=DA,PTRDA(0)=^PRPF(470,DFN,3,DA,0),MADA=+PTRDA(0),MADA(0)=^PRPF(470.1,MADA,0) W:X1>1 ! S X1=2 W !,$P(MADA(0),"^") S X=$P(MADA(0),U,5) D DATE
26 W ?7,X,?17,$P(MADA(0),U,7),?29,$P(MADA(0),U,8) S X=$P(PTRDA(0),U,3),X=$S($P(MADA(0),"^",8)["D":X,1:-X) W $J(X,9,2),?41,$J($P(PTRDA(0),U,6),8,2)
27 S X=$P(MADA(0),U,21) D:X]"" DATE W ?54,X,?66,$P(MADA(0),U,10),?71 S X=$P(MADA(0),U,9),DD=470.1,F=8 D ^PRPFU1
28 W:% Y S DA=MADA_"^"_$P(MADA(0),"^",4,6),DA=$$SUM^PRPFSIG(DA),X=$P(MADA(0),U,15),P=$P(MADA(0),U,14)
29 W:IOM<81 ! S X=$X W " /ES/"_$$DECODE^PRPFSIG1(MADA),?X+35,$P(MADA(0),"^",16)
30 S %=1 Q
31W1 W *7,!!," No transactions recorded for this Period." H 2 S %=0 Q
32HDR W @IOF W "Name: ",@PFHI,$P(DFN(0),"^"),?$X+3 S SSN=$P(DFN(0),"^",9) W @PFLO,"SSN: ",@PFHI,$E(SSN,1,3),"-",$E(SSN,4,5),"-",$E(SSN,6,9)
33 W @PFLO," Claim #: ",@PFHI,$P(DFN(.31),"^",3),?72,@PFLO,"PAGE: ",@PFHI,PAGE K SSN S PAGE=PAGE+1 W @PFNORM
34 W !!,"TR # DATE",?17,"REFERENCE D/W AMOUNT BALANCE DEFERRED P/G CA/CK/OTH" W:IOM<81 ! W " SIGNATURE",?$X+20,"REMARKS"
35 W !,LINE
36 Q
37DATE ;CONVERT DATE TO SLASH FORMAT
38 I +X<2000000 S X="" Q
39 S X=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3) Q
Note: See TracBrowser for help on using the repository browser.