RCFMUDL.m

RCFMUDL ;WASH-ISC@ALTOONA,PA/RB-UNPROCESSED DOCUMENT LIST ;11/10/94  1:55 PM

V ;;4.5;Accounts Receivable;;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

EN ;Entry point from UDLIST^PRCABJ1

 N DCDT S DCDT=1 I $G(IOP)="" S IOP=RCFMDEV

EN2 ;Entry point from Unprocessed Document List option

 N BY,DHD,DIC,DIS,FLDS,FR,L,TO

 S DIC=347,BY="@.03"_$S($G(DCDT)="":",@.05;""DOCUMENT DATE""",1:"")

 S (FR,TO)=$S($G(DCDT)="":",?",1:""),L=0

 S FLDS="[PRCA FMS UNPROCESSED LIST]"

 S DIS(0)="I $P(^RC(347,D0,0),""^"",3)'=2"

 I $G(DCDT) S DIS(1)="I +$$DAYS^RCFMUDL($P(^RC(347,D0,0),""^"",5))'<3"

 S DHD="FMS UNPROCESSED DOCUMENT LIST" D EN1^DIP,^%ZISC Q

 ;

DAYS(Z) ;Determines no. of days since document has been updated

 N X1,X2,Y I $G(Z)="" S Y="" Q Y

 S X1=DT,X2=Z D ^%DTC S Y=X Q Y

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RCFMUDL   822     printed  Apr 09, 2024@20:49:53                                                                                                                                                                                                      Page 2

RCFMUDL   ;WASH-ISC@ALTOONA,PA/RB-UNPROCESSED DOCUMENT LIST ;11/10/94  1:55 PM

V         ;;4.5;Accounts Receivable;;Mar 20, 1995

 +1       ;;Per VHA Directive 10-93-142, this routine should not be modified.

EN        ;Entry point from UDLIST^PRCABJ1

 +1        NEW DCDT

           SET DCDT=1

           IF $GET(IOP)=""

               SET IOP=RCFMDEV

EN2       ;Entry point from Unprocessed Document List option

 +1        NEW BY,DHD,DIC,DIS,FLDS,FR,L,TO

 +2        SET DIC=347

           SET BY="@.03"_$SELECT($GET(DCDT)="":",@.05;""DOCUMENT DATE""",1:"")

 +3        SET (FR,TO)=$SELECT($GET(DCDT)="":",?",1:"")

           SET L=0

 +4        SET FLDS="[PRCA FMS UNPROCESSED LIST]"

 +5        SET DIS(0)="I $P(^RC(347,D0,0),""^"",3)'=2"

 +6        IF $GET(DCDT)

               SET DIS(1)="I +$$DAYS^RCFMUDL($P(^RC(347,D0,0),""^"",5))'<3"

 +7        SET DHD="FMS UNPROCESSED DOCUMENT LIST"

           DO EN1^DIP

           DO ^%ZISC

           QUIT 

 +8       ;

DAYS(Z)   ;Determines no. of days since document has been updated

 +1        NEW X1,X2,Y

           IF $GET(Z)=""

               SET Y=""

               QUIT Y

 +2        SET X1=DT

           SET X2=Z

           DO ^%DTC

           SET Y=X

           QUIT Y