|
Last change
on this file since 660 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
607 bytes
|
| Line | |
|---|
| 1 | PRCAMARK ;WASH-ISC@ALTOONA,PA/TJK,LDB-MARK/UNMARK INVALID TRANSACTION ;10/15/93 11:53 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**169,193**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | SE ; search for balance discrepancies
|
|---|
| 8 | NEW DIC,FR,TO,L,FLDS,BY,DIOEND,DIS
|
|---|
| 9 | W !!,"Since this may take awhile, queue this report to a printer!",!
|
|---|
| 10 | S DIC="^RCD(340,",(FR,TO)="",BY="@.01",FLDS="[PRCA DISCREPANCY]"
|
|---|
| 11 | S DIS(0)="I '$D(^RCD(340,D0,-9)),$P($G(^RCD(340,D0,0)),""^"")[""DPT("",$$EN^PRCAMRKC(D0)"
|
|---|
| 12 | S DIOEND="W !,""* indicates account has bills in refund review."""
|
|---|
| 13 | D EN1^DIP
|
|---|
| 14 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
