PRCFDPV.m

PRCFDPV ;WISC/LEM-PAYMENT ERROR PROCESSING ;12/15/94  09:59

 ;;5.1;IFCAP;;Oct 20, 2000

 ;Per VHA Directive 10-93-142, this routine should not be modified.

V ;

TPVI ; Entry point for Payment Voucher Inquiry

 D HILO^PRCFQ,SCREEN

 S TXT="Payment Voucher Number: ",PRCFA("ERROR")=0

 D EN^PRC0E("PV:Payment Voucher^"_TXT,"D TYPE^PRCFDPVI(.X)")

 D OUT

 QUIT

TPVR ; Entry point for Payment Voucher Rebuild/Retransmit

 D HILO^PRCFQ,SCREEN

 S TXT="Select Payment Voucher Number: ",PRCFA("ERROR")=0

 ;D EN^PRC0E("PV^MO^SO~"_TXT,"D TYPE^PRCFDPVT(.X)")

 ;D EN^PRC0E("PV:Payment Voucher^"_TXT_"^R","D TYPE^PRCFDPVT(.X)")

 D EN^PRC0E("PV:Payment Voucher^"_TXT_"^~R~N~E~T~~^","D TYPE^PRCFDPVT(.X)")

 D OUT

 QUIT

 ;

OUT K GECSDATA,FMSTYPE,FMSNO,STATUS,DIC,PATNUM,PONUM,MOP,LOOP,POIEN,TXT

 K PRCFA,IOINHI,IOINLOW,IOINORM

 Q

SCREEN ; Control screen display;

 I $D(IOF) W @IOF

HDR ; Write Option Header

 I $D(XQY0) W IOINHI,$P(XQY0,U,2),IOINORM

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRCFDPV   956     printed  Apr 09, 2024@21:15:53                                                                                                                                                                                                      Page 2

PRCFDPV   ;WISC/LEM-PAYMENT ERROR PROCESSING ;12/15/94  09:59

 +1       ;;5.1;IFCAP;;Oct 20, 2000

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

V         ;

TPVI      ; Entry point for Payment Voucher Inquiry

 +1        DO HILO^PRCFQ

           DO SCREEN

 +2        SET TXT="Payment Voucher Number: "

           SET PRCFA("ERROR")=0

 +3        DO EN^PRC0E("PV:Payment Voucher^"_TXT,"D TYPE^PRCFDPVI(.X)")

 +4        DO OUT

 +5        QUIT 

TPVR      ; Entry point for Payment Voucher Rebuild/Retransmit

 +1        DO HILO^PRCFQ

           DO SCREEN

 +2        SET TXT="Select Payment Voucher Number: "

           SET PRCFA("ERROR")=0

 +3       ;D EN^PRC0E("PV^MO^SO~"_TXT,"D TYPE^PRCFDPVT(.X)")

 +4       ;D EN^PRC0E("PV:Payment Voucher^"_TXT_"^R","D TYPE^PRCFDPVT(.X)")

 +5        DO EN^PRC0E("PV:Payment Voucher^"_TXT_"^~R~N~E~T~~^","D TYPE^PRCFDPVT(.X)")

 +6        DO OUT

 +7        QUIT 

 +8       ;

OUT        KILL GECSDATA,FMSTYPE,FMSNO,STATUS,DIC,PATNUM,PONUM,MOP,LOOP,POIEN,TXT

 +1        KILL PRCFA,IOINHI,IOINLOW,IOINORM

 +2        QUIT 

SCREEN    ; Control screen display;

 +1        IF $DATA(IOF)

               WRITE @IOF

HDR       ; Write Option Header

 +1        IF $DATA(XQY0)

               WRITE IOINHI,$PIECE(XQY0,U,2),IOINORM

 +2        QUIT