- PRCAMARK ;WASH-ISC@ALTOONA,PA/TJK,LDB-MARK/UNMARK INVALID TRANSACTION ;10/15/93 11:53 AM
- V ;;4.5;Accounts Receivable;**169,193**;Mar 20, 1995
- ;;Per VHA Directive 10-93-142, this routine should not be modified.
- Q
- ;
- ;
- SE ; search for balance discrepancies
- NEW DIC,FR,TO,L,FLDS,BY,DIOEND,DIS
- W !!,"Since this may take awhile, queue this report to a printer!",!
- S DIC="^RCD(340,",(FR,TO)="",BY="@.01",FLDS="[PRCA DISCREPANCY]"
- S DIS(0)="I '$D(^RCD(340,D0,-9)),$P($G(^RCD(340,D0,0)),""^"")[""DPT("",$$EN^PRCAMRKC(D0)"
- S DIOEND="W !,""* indicates account has bills in refund review."""
- D EN1^DIP
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAMARK 621 printed Jan 18, 2025@02:41:35 Page 2
- PRCAMARK ;WASH-ISC@ALTOONA,PA/TJK,LDB-MARK/UNMARK INVALID TRANSACTION ;10/15/93 11:53 AM
- V ;;4.5;Accounts Receivable;**169,193**;Mar 20, 1995
- +1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
- +2 QUIT
- +3 ;
- +4 ;
- SE ; search for balance discrepancies
- +1 NEW DIC,FR,TO,L,FLDS,BY,DIOEND,DIS
- +2 WRITE !!,"Since this may take awhile, queue this report to a printer!",!
- +3 SET DIC="^RCD(340,"
- SET (FR,TO)=""
- SET BY="@.01"
- SET FLDS="[PRCA DISCREPANCY]"
- +4 SET DIS(0)="I '$D(^RCD(340,D0,-9)),$P($G(^RCD(340,D0,0)),""^"")[""DPT("",$$EN^PRCAMRKC(D0)"
- +5 SET DIOEND="W !,""* indicates account has bills in refund review."""
- +6 DO EN1^DIP
- +7 QUIT