source: FOIAVistA/trunk/r/INTEGRATED_PATIENT_FUNDS-PRPF-PFXIP/PRPFPNT.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 3.3 KB
Line 
1PRPFPNT ;ALTOONA/CTB-OUTPUT DRIVER FOR "PRPF" (PATIENT FUNDS) ;20 APR 02
2V ;;3.0;PATIENT FUNDS;**6,7,13**;JUNE 1, 1989
3CLERK ;CLERK STATISTICS
4 D DRNG^PRPFQ G:'% OUT D WAIT^PRPFYN S PRPFFR=FR,PRPFTO=TO,DIC="^PRPF(470.1,",L=0,BY="+PATIENT FUNDS CLERK,'DATE TRANSACTION ENTERED",FR=","_FR,TO=","_TO,FLDS="!REFERENCE,",DHD="[PRPF CLERK STAT HDR]"
5DIP S L=0,DIOEND="W !,""The information contained in this report is protected by the Privacy Act of 1974""" D WAIT^PRPFYN,EN1^DIP D:'$D(XQY) ENCON^PRPFQ
6OUT K %H,%I,DATE,DG1,DGA1,DGT,DGX,DINS,DFN,DIYS,DTOUT,DIOEND,DIOP,DNP,M,PRPFD,PRPFFR,PRPFTO,Q3,X,Y D DIKILL^PRPFQ G ZTKILL^PRPFQ QUIT
7FISTRANS ;FISCAL TRANSACTION SUMMARY
8 D SEL Q:PRPFRNG=""
9 W ! D DRNG^PRPFQ G:'% OUT
10 S DIC="^PRPF(470.1,",BY="@1:73:99,]+4;S",FLDS="[PRPF FISCAL TRANS SUMMARY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
11 S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,]+4;S",FR="@,"_FR,TO=","_TO
12 G DIP
13FISACTIV ;FISCAL ACTIVITY REPORT
14 D SEL Q:PRPFRNG=""
15 W ! D DRNG^PRPFQ G:'% OUT
16 S DIC="^PRPF(470.1,",BY="@1:73:99,]+4;S2,+7;S,+10;S,@6",FLDS="[PRPF FISCAL ACTIVITY REPORT]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
17 S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,]+4;S2,+7;S,+10;S,@6",FR="@,"_FR,TO=","_TO
18 G DIP
19AUDIT ;DAILY ACTIVITY (AUDIT) LISTING
20 D SEL Q:PRPFRNG=""
21 W ! D DRNG^PRPFQ G:'% OUT
22 S DIC="^PRPF(470.1,",BY="@1:73:99,+5,+7,+8,+10,@6",FLDS="[PRPF DAILY ACTIVITY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
23 S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,+5,+7,+8,+10,@6",FR="@,"_FR_",,,,",TO=","_TO_",,,,"
24 G DIP
25TRANS ;LISTING OF TRANSACTIONS
26 D SEL Q:PRPFRNG=""
27 W ! D DRNG^PRPFQ G:'% OUT
28 S DIC="^PRPF(470.1,",BY="@1:73:99;S1,5",FLDS="[PRPF DAILY TRANSACTION SUMMARY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
29 S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,5",FR="@,"_FR,TO=","_TO
30 G DIP
31INACTIVE ;INACTIVE ACCOUNT LIST
32 S DIC="^PRPF(470,",(BY,FLDS)="[PRPF INACTIVE ACCOUNTS]" G DIP
33INDIGENT ;INDIGENT PATIENT LIST
34 D SEL Q:PRPFRNG=""
35 S DIC="^PRPF(470,",BY="@+73:99;S1,]4,@1,.01",FLDS="[PRPF INDIGENT LIST]",FR=""_PRPFRNG_""_",YES",TO=""_PRPFRNG2_""_",YES"
36 S:PRPFRNG="@" BY="@+73,@73:99;S1,]4,@1,.01",FR="@,@,YES",TO=",,YES"
37 G DIP
38BALANCE ;BALANCE IN ALL ACCOUNTS
39 D SEL Q:PRPFRNG=""
40 S DIC="^PRPF(470,",FLDS="[PRPF BALANCE IN ACCOUNTS]",FR=PRPFRNG,TO=PRPFRNG2
41 S:PRPFRNG'="@" BY="+73:99;"_"""STATION NAME: "_$G(Y(0,0))_" STATION NUMBER: "_""""_";C1"
42 S:PRPFRNG="@" BY="73;C1;S1,+73:99;""STATION NUMBER: "";C1",FR="@,@",TO=","
43 G DIP
44PATLIST ;PATIENT LIST
45 D SEL Q:PRPFRNG=""
46 S DIC="^PRPF(470,",BY="@+73:99;S1,].01",FLDS="[PRPF PATIENT LIST]",FR=""_PRPFRNG_"",TO=""_PRPFRNG2_""
47 S:PRPFRNG="@" BY="@+73,@73:99;S1,].01",FR="@,@",TO=","
48 G DIP
49SUMMARY ;;PATIENT SUMMARY REPORT
50 D SEL Q:PRPFRNG=""
51 S DIC="^PRPF(470,",BY="@+73:99;S1,@1,.01",FLDS="[PRPF PATIENT SUMMARY]",FR=""_PRPFRNG_",A"_"",TO=""_PRPFRNG2_",A"_""
52 S:PRPFRNG="@" BY="@+73,@73:99;S1,@1,.01",FR="@,@,A,",TO=",,A,"
53 G DIP
54SEL D SELRNG^PRPFQ
55 I PRPFRNG="" D OUT QUIT
56 I PRPFRNG="@" S PRPFRNG2=""
57 E S PRPFRNG2=PRPFRNG
58 Q
59UNSTA ;;UNNASIGNED STATION NAME LIST
60 S DIC="^PRPF(470,",BY="1;S,@73,.01",FLDS="[PRPF UNASSIGNED STATION LIST]",FR="A,@",TO="A,@"
61 S DIR(0)="Y",DIR("A")="Would you like to include INACTIVE patients in this report",DIR("B")="NO"
62 W !,"" D ^DIR K DIR S:Y FR=",@",TO=",@"
63 I $D(DTOUT)!($D(DUOUT))!($D(DIROUT)) K X,Y Q
64 G DIP
Note: See TracBrowser for help on using the repository browser.