| [613] | 1 | PRCALST1 ;SF-ISC/YJK-AR LIST,REPORT ;7/14/93 8:46 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**72,104**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | EN N CAT,CAT1,CAT2,CNO,CNT,CT3,CT4,DAT,DHD,DHIT,DISUPNO,DIOBEG
|
|---|
| 5 | N DT1,DT2,FT,FT2,IOP,LST,LST2,OT,PAGE,POP,PRCA,PRCAE,SAVIOP
|
|---|
| 6 | N SC1,SC2,SCT,SDT,SER,SRT,ST,STT,ST2,ST3,TMP,X,Y,ZTSK
|
|---|
| 7 | K ^TMP($J)
|
|---|
| 8 | S (CAT,OT)="",CNT=0
|
|---|
| 9 | S DAT=$$DATE^RCEVUTL1("^^^P^")
|
|---|
| 10 | S DT1=$S($P(DAT,"^")=0:"",1:+DAT)
|
|---|
| 11 | Q:+DT1<0
|
|---|
| 12 | S DT2=$P(DAT,"^",2),DT2=$S(DT2=0:"",1:DT2)
|
|---|
| 13 | Q:+DT2<0
|
|---|
| 14 | S SC1=$S(DT1="":"First",1:DT1) I +SC1>0 S Y=SC1 X ^DD("DD") S SC1=Y
|
|---|
| 15 | S SC2=$S(DT2="":"Last",1:DT2) I +SC2>0 S Y=SC2 X ^DD("DD") S SC2=Y
|
|---|
| 16 | CAT K DIC S Y=0
|
|---|
| 17 | W !,"CATEGORY OF BILL: "_$S('$O(^TMP($J,"PRCAT",0)):"ALL// ",1:"")
|
|---|
| 18 | R X:DTIME I '$T!(X="^") Q
|
|---|
| 19 | I ((X="")!(X="ALL")),'$O(^TMP($J,"PRCAT",0)) S (CAT,X)="ALL" D ST Q:X="^" G MAS
|
|---|
| 20 | S DIC="^PRCA(430.2,",DIC(0)="QEMZ"
|
|---|
| 21 | D ^DIC S CAT=+Y
|
|---|
| 22 | I X["?" W !!,"Enter 'ALL' categories or bills.",! G CAT
|
|---|
| 23 | I CAT'="ALL",(+CAT>0) S ^TMP($J,"PRCAT",+CAT)="" G CAT
|
|---|
| 24 | I X="" D ST Q:X="^" G MAS
|
|---|
| 25 | G:+CAT<0 CAT
|
|---|
| 26 | MAS N CT3
|
|---|
| 27 | D NOW^%DTC S Y=% X ^DD("DD") S SDT=Y,PAGE=1
|
|---|
| 28 | D PRINT Q:OT="^"
|
|---|
| 29 | I POP!($D(IO("Q"))) K IO("Q") D ^%ZISC Q
|
|---|
| 30 | D EN^PRCAREPC
|
|---|
| 31 | D ^%ZISC
|
|---|
| 32 | Q
|
|---|
| 33 | PRINT ;Print or Queue report.
|
|---|
| 34 | W !! S IOP="Q",POP=0,%ZIS="MQ0"
|
|---|
| 35 | D ^%ZIS Q:POP
|
|---|
| 36 | S SAVIOP=$G(IOP)
|
|---|
| 37 | I $D(IO("Q")) D
|
|---|
| 38 | .S ZTRTN="EN^PRCAREPC",(ZTSAVE("CAT"),ZTSAVE("DT1"),ZTSAVE("DT2"))=""
|
|---|
| 39 | .S (ZTSAVE("OT"),ZTSAVE("PAGE"),ZTSAVE("SAVIOP"),ZTSAVE("SC1"))=""
|
|---|
| 40 | .S (ZTSAVE("SC2"),ZTSAVE("SCT"),ZTSAVE("SDT"),ZTSAVE("ST"))=""
|
|---|
| 41 | .S (ZTSAVE("^TMP($J,"))=""
|
|---|
| 42 | .S ZTDESC="Category Listing" D ^%ZTLOAD
|
|---|
| 43 | .I $G(ZTSK) W !!,"Request Queued"
|
|---|
| 44 | .Q
|
|---|
| 45 | Q
|
|---|
| 46 | ST N DIC,Y
|
|---|
| 47 | S DIC="^PRCA(430.3,",DIC(0)="QEMZ",DIC("S")="I $P(^(0),""^"",3)>100"
|
|---|
| 48 | S Y=0 W !,"STATUS: "_$S('$O(^TMP($J,"PRCAST",0)):"ALL// ",1:"")
|
|---|
| 49 | R X:DTIME I '$T!(X="^") S X="^" Q
|
|---|
| 50 | I X=""!(X="ALL"),'$O(^TMP($J,"PRCAST",0)) S (ST,X)="ALL" Q
|
|---|
| 51 | I X="" Q
|
|---|
| 52 | D ^DIC S ST=+Y,SER=$G(SER)
|
|---|
| 53 | I X["?" W !!,"Enter 'ALL' for all status types.",! G ST
|
|---|
| 54 | I ST'="ALL",(+ST>0) S ^TMP($J,"PRCAST",+ST)="" G ST
|
|---|
| 55 | G:+ST<0 ST
|
|---|
| 56 | Q
|
|---|
