| [613] | 1 | RCFMUDL ;WASH-ISC@ALTOONA,PA/RB-UNPROCESSED DOCUMENT LIST ;11/10/94 1:55 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | EN ;Entry point from UDLIST^PRCABJ1
|
|---|
| 5 | N DCDT S DCDT=1 I $G(IOP)="" S IOP=RCFMDEV
|
|---|
| 6 | EN2 ;Entry point from Unprocessed Document List option
|
|---|
| 7 | N BY,DHD,DIC,DIS,FLDS,FR,L,TO
|
|---|
| 8 | S DIC=347,BY="@.03"_$S($G(DCDT)="":",@.05;""DOCUMENT DATE""",1:"")
|
|---|
| 9 | S (FR,TO)=$S($G(DCDT)="":",?",1:""),L=0
|
|---|
| 10 | S FLDS="[PRCA FMS UNPROCESSED LIST]"
|
|---|
| 11 | S DIS(0)="I $P(^RC(347,D0,0),""^"",3)'=2"
|
|---|
| 12 | I $G(DCDT) S DIS(1)="I +$$DAYS^RCFMUDL($P(^RC(347,D0,0),""^"",5))'<3"
|
|---|
| 13 | S DHD="FMS UNPROCESSED DOCUMENT LIST" D EN1^DIP,^%ZISC Q
|
|---|
| 14 | ;
|
|---|
| 15 | DAYS(Z) ;Determines no. of days since document has been updated
|
|---|
| 16 | N X1,X2,Y I $G(Z)="" S Y="" Q Y
|
|---|
| 17 | S X1=DT,X2=Z D ^%DTC S Y=X Q Y
|
|---|
