| 1 | PRPFDSI1 ;ALTOONA/CTB CONTINUATION OF INFORMATION DISPLAY ;11/22/96 4:37 PM
|
|---|
| 2 | V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
|
|---|
| 3 | S2 ;SCREEN 2
|
|---|
| 4 | I IOSL<40 W @IOF W @PFLO,"Name: ",@PFHI,$P(DFN(0),"^"),?44 S SSN=$P(DFN(0),"^",9) W @PFLO,"SSN: ",@PFHI,$E(SSN,1,3),@PFLO,"-",@PFHI,$E(SSN,4,5),@PFLO,"-",@PFHI,$E(SSN,6,9),@PFLO," Claim #: ",@PFHI,$P(DFN(.31),"^",3) K SSN
|
|---|
| 5 | D DEAD^PRPFED
|
|---|
| 6 | W !,@PFLO,"Nearest Relative:",?31,"VA Guardian",?56,"Civil Guardian"
|
|---|
| 7 | W @PFHI F I=1:1:9 I $P(DFN(.29),U,I)]""!($P(DFN(.21),U,I)]"")!($P(DFN(.291),U,I)]"") W !,$E($P(DFN(.21),U,I),1,29),?31,$E($P(DFN(.29),U,I),1,24),?56,$E($P(DFN(.291),U,I),1,24)
|
|---|
| 8 | W !!,@PFLO,"General Information/Remarks: ",!
|
|---|
| 9 | I $D(^PRPF(470,DFN,7)),$O(^(7,0))>0 D GI
|
|---|
| 10 | I $D(^XUSEC("PRPF CLERK",DUZ)) W !,@PFLO,"Special Information: ",! I $D(^PRPF(470,DFN,8)),$O(^(8,0))>0 D SI
|
|---|
| 11 | W !,@PFLO,"Sources of Income: ",@PFHI S I=$S('$D(^PRPF(470,DFN,6,0)):0,$O(^(0))="":0,1:1) I 'I W "NONE LISTED" G A
|
|---|
| 12 | W !!,@PFLO,"Source:",?24,"Payee:",?46,"Amount:",?60,"Frequency:"
|
|---|
| 13 | W @PFHI S N1=0 F J=1:1 S N1=$O(^PRPF(470,DFN,6,N1)) Q:'N1 I $D(^(N1,0)) S Z=^(0) W !,$P(Z,U),?24,$P(Z,U,2),?46 S X=$P(Z,U,3) D C W X,?60 S DD=470.05,F=3,X=$P(Z,U,4) D ^PRPFU1 W Y
|
|---|
| 14 | A I IOST["C-" W @PFNORM,!!,"Press RETURN to continue or 'B' to BACKUP to previous screen: " R X:DTIME G END:X="",A:X["?",B^PRPFDSI:"Bb"[X
|
|---|
| 15 | END W @IOF,@PFNORM K %I,%W,%Y,C,DIYS,DFN,DG1,DGT,DGX,DIC,DIW,DIWT,DN,DOA,N,PDFN,Z,TMP Q
|
|---|
| 16 | GI ;PRINT GENERAL INFORMATION REMARKS
|
|---|
| 17 | W @PFHI S N=0,DIWF="W",DIWL=5,DIWR=IOM-10 F I=1:1 S N=$O(^PRPF(470,DFN,7,N)) Q:N="" S X=^(N,0) D ^DIWP
|
|---|
| 18 | D ^DIWW K DIWF,DIWL,DIWR,X W @PFNORM Q
|
|---|
| 19 | SI ;PRINT SPECIAL INFORMATION
|
|---|
| 20 | W @PFHI S N=0,DIWF="W",DIWL=5,DIWR=IOM-10 F I=1:1 S N=$O(^PRPF(470,DFN,8,N)) Q:N="" S X=^(N,0) D ^DIWP
|
|---|
| 21 | D ^DIWW K DIWF,DIWL,DIWR,X W @PFNORM Q
|
|---|
| 22 | C S X2="2$"
|
|---|
| 23 | S %D=X<0 S:%D X=-X S %=$S($D(X2):+X2,1:2),X=$J(X,1,%),%=$L(X)-3-$E(23456789,%)
|
|---|
| 24 | F %=%:-3 Q:$E(X,%)="" S X=$E(X,1,%)_","_$E(X,%+1,99)
|
|---|
| 25 | S:$D(X2) X=$E("$",X2["$")_X S X=$J($E("(",%D)_X_$E(" )",%D+1),0) K %,%D Q
|
|---|
