| 1 | PRPFDST ;ALTOONA/CTB DISPLAY TRANACTIONS ;7/24/97 8:36 AM
|
|---|
| 2 | V ;;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
|
|---|
| 4 | OUT 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
|
|---|
| 5 | D ;;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
|
|---|
| 9 | EN1 ;DIRECT ENTRY POINT, UN QUEUED
|
|---|
| 10 | I $D(ZTQUEUED) S ZTREQ="@"
|
|---|
| 11 | S IOP=PRIOP,U="^"
|
|---|
| 12 | H 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
|
|---|
| 18 | A 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
|
|---|
| 24 | B 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
|
|---|
| 31 | W1 W *7,!!," No transactions recorded for this Period." H 2 S %=0 Q
|
|---|
| 32 | HDR 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
|
|---|
| 37 | DATE ;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
|
|---|
