FBAAVP0 ;AISC/DMK-READJUST OBLIGATION BALANCE ;01JUN88
;;3.5;FEE BASIS;;JAN 30, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
G:$D(FBVOID) VOID
W !,?10,"Void payment for "_$E($S($D(^DPT(DFN,0)):$P(^(0),"^"),1:""),1,30),!,*7,"You must adjust control point accordingly through IFCAP!"
Q
VOID W !,?10,"Cancel Voided payment for "_$E($S($D(^DPT(DFN,0)):$P(^(0),"^"),1:""),1,30),!,*7,"You must adjust control point accordingly through IFCAP!"
Q
NOCL W !,"Vendor has no Payment data for this Patient!",! G RDV^FBAAVP
NVOID W !!,"There are no finalized payments for this vendor ",$S($D(FBVOID):"that have been voided.",1:"that may be voided.") G RDV^FBAAVP
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFBAAVP0 693 printed Dec 13, 2024@01:57:09 Page 2
FBAAVP0 ;AISC/DMK-READJUST OBLIGATION BALANCE ;01JUN88
+1 ;;3.5;FEE BASIS;;JAN 30, 1995
+2 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+3 if $DATA(FBVOID)
GOTO VOID
+4 WRITE !,?10,"Void payment for "_$EXTRACT($SELECT($DATA(^DPT(DFN,0)):$PIECE(^(0),"^"),1:""),1,30),!,*7,"You must adjust control point accordingly through IFCAP!"
+5 QUIT
VOID WRITE !,?10,"Cancel Voided payment for "_$EXTRACT($SELECT($DATA(^DPT(DFN,0)):$PIECE(^(0),"^"),1:""),1,30),!,*7,"You must adjust control point accordingly through IFCAP!"
+1 QUIT
NOCL WRITE !,"Vendor has no Payment data for this Patient!",!
GOTO RDV^FBAAVP
NVOID WRITE !!,"There are no finalized payments for this vendor ",$SELECT($DATA(FBVOID):"that have been voided.",1:"that may be voided.")
GOTO RDV^FBAAVP
