source: WorldVistAEHR/trunk/r/FEE_BASIS-FB/FBAAVP0.m@ 1111

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

initial load of WorldVistAEHR

File size: 683 bytes
Line 
1FBAAVP0 ;AISC/DMK-READJUST OBLIGATION BALANCE ;01JUN88
2 ;;3.5;FEE BASIS;;JAN 30, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 G:$D(FBVOID) VOID
5 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!"
6 Q
7VOID 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!"
8 Q
9NOCL W !,"Vendor has no Payment data for this Patient!",! G RDV^FBAAVP
10NVOID W !!,"There are no finalized payments for this vendor ",$S($D(FBVOID):"that have been voided.",1:"that may be voided.") G RDV^FBAAVP
Note: See TracBrowser for help on using the repository browser.