- 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 ---[H[J[2J[HRCFMUDL 822 printed Feb 18, 2025@23:13:22 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