source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCALST1.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1PRCALST1 ;SF-ISC/YJK-AR LIST,REPORT ;7/14/93 8:46 AM
2V ;;4.5;Accounts Receivable;**72,104**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4EN 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
16CAT 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
26MAS 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
33PRINT ;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
46ST 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
Note: See TracBrowser for help on using the repository browser.