source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAMARK.m@ 1696

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

initial load of WorldVistAEHR

File size: 607 bytes
Line 
1PRCAMARK ;WASH-ISC@ALTOONA,PA/TJK,LDB-MARK/UNMARK INVALID TRANSACTION ;10/15/93 11:53 AM
2V ;;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 ;
7SE ; 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.