PRCAMARK.m

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 ---PRCAMARK   621     printed  Oct 16, 2024@17:41:13                                                                                                                                                                                                     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