|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
683 bytes
|
| Line | |
|---|
| 1 | FBAAVP0 ;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
|
|---|
| 7 | 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!"
|
|---|
| 8 | Q
|
|---|
| 9 | NOCL W !,"Vendor has no Payment data for this Patient!",! G RDV^FBAAVP
|
|---|
| 10 | 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
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
