source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFDPV.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 929 bytes
Line 
1PRCFDPV ;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.
4V ;
5TPVI ; 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
11TPVR ; 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 ;
20OUT K GECSDATA,FMSTYPE,FMSNO,STATUS,DIC,PATNUM,PONUM,MOP,LOOP,POIEN,TXT
21 K PRCFA,IOINHI,IOINLOW,IOINORM
22 Q
23SCREEN ; Control screen display;
24 I $D(IOF) W @IOF
25HDR ; Write Option Header
26 I $D(XQY0) W IOINHI,$P(XQY0,U,2),IOINORM
27 Q
Note: See TracBrowser for help on using the repository browser.