| 1 | PRCFDPV ;WISC/LEM-PAYMENT ERROR PROCESSING ;12/15/94 09:59
|
|---|
| 2 | ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | V ;
|
|---|
| 5 | TPVI ; Entry point for Payment Voucher Inquiry
|
|---|
| 6 | D HILO^PRCFQ,SCREEN
|
|---|
| 7 | S TXT="Payment Voucher Number: ",PRCFA("ERROR")=0
|
|---|
| 8 | D EN^PRC0E("PV:Payment Voucher^"_TXT,"D TYPE^PRCFDPVI(.X)")
|
|---|
| 9 | D OUT
|
|---|
| 10 | QUIT
|
|---|
| 11 | TPVR ; Entry point for Payment Voucher Rebuild/Retransmit
|
|---|
| 12 | D HILO^PRCFQ,SCREEN
|
|---|
| 13 | S TXT="Select Payment Voucher Number: ",PRCFA("ERROR")=0
|
|---|
| 14 | ;D EN^PRC0E("PV^MO^SO~"_TXT,"D TYPE^PRCFDPVT(.X)")
|
|---|
| 15 | ;D EN^PRC0E("PV:Payment Voucher^"_TXT_"^R","D TYPE^PRCFDPVT(.X)")
|
|---|
| 16 | D EN^PRC0E("PV:Payment Voucher^"_TXT_"^~R~N~E~T~~^","D TYPE^PRCFDPVT(.X)")
|
|---|
| 17 | D OUT
|
|---|
| 18 | QUIT
|
|---|
| 19 | ;
|
|---|
| 20 | OUT K GECSDATA,FMSTYPE,FMSNO,STATUS,DIC,PATNUM,PONUM,MOP,LOOP,POIEN,TXT
|
|---|
| 21 | K PRCFA,IOINHI,IOINLOW,IOINORM
|
|---|
| 22 | Q
|
|---|
| 23 | SCREEN ; Control screen display;
|
|---|
| 24 | I $D(IOF) W @IOF
|
|---|
| 25 | HDR ; Write Option Header
|
|---|
| 26 | I $D(XQY0) W IOINHI,$P(XQY0,U,2),IOINORM
|
|---|
| 27 | Q
|
|---|
