| [613] | 1 | PRCARFD3 ;WASH-ISC@ALTOONA,PA/LDB-LIST REFUNDS TO BE APPROVED ;8/19/94 3:03 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;;
|
|---|
| 5 | N D0,OUT,X,Y,STAT,POP
|
|---|
| 6 | S %ZIS("A")="Select the output device: ",%ZIS="Q" D ^%ZIS Q:POP
|
|---|
| 7 | I $D(IO("Q")) S ZTRTN="EN^PRCARFD3",ZTDESC="REFUNDS PENDING CERTIFYING OFFICIAL'S APPROVAL",ZTDTH=$H D ^%ZTLOAD Q
|
|---|
| 8 | EN U IO
|
|---|
| 9 | W:IOST?1"C".E @IOF
|
|---|
| 10 | D HDR
|
|---|
| 11 | S STAT=$O(^PRCA(430.3,"AC",113,0)) Q:'STAT
|
|---|
| 12 | S D0=0 F S D0=$O(^PRCA(430,"AC",STAT,D0)),X="" Q:'D0!($D(OUT)) I $P($G(^PRCA(430,+D0,7)),"^",21)]"" W ! D ^PRCATRF W ! I ($Y+5)>IOSL D
|
|---|
| 13 | .I $E(IOST)="C" R !,"Press Return to continue or ""^"" to exit ",X:DTIME I X="^"!'$T S OUT=1 Q
|
|---|
| 14 | .I $O(^PRCA(430,"AC",STAT,D0)) W @IOF D HDR
|
|---|
| 15 | D ^%ZISC Q
|
|---|
| 16 | ;
|
|---|
| 17 | HDR W !?15,"REFUNDS PENDING CERTIFYING OFFICIAL'S APPROVAL",!
|
|---|
| 18 | W !,"BILL NO.",?15,"PATIENT",?47,"REVIEWED DATE",?68,"AMOUNT",!,?47,"REVIEWED BY"
|
|---|
| 19 | S X="",$P(X,"-",IOM)="" W !,X,!
|
|---|
| 20 | Q
|
|---|
