PRPFPNT ;ALTOONA/CTB-OUTPUT DRIVER FOR "PRPF" (PATIENT FUNDS) ;20 APR 02
V ;;3.0;PATIENT FUNDS;**6,7,13**;JUNE 1, 1989
CLERK ;CLERK STATISTICS
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]"
DIP 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
OUT 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
FISTRANS ;FISCAL TRANSACTION SUMMARY
D SEL Q:PRPFRNG=""
W ! D DRNG^PRPFQ G:'% OUT
S DIC="^PRPF(470.1,",BY="@1:73:99,]+4;S",FLDS="[PRPF FISCAL TRANS SUMMARY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,]+4;S",FR="@,"_FR,TO=","_TO
G DIP
FISACTIV ;FISCAL ACTIVITY REPORT
D SEL Q:PRPFRNG=""
W ! D DRNG^PRPFQ G:'% OUT
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_""
S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,]+4;S2,+7;S,+10;S,@6",FR="@,"_FR,TO=","_TO
G DIP
AUDIT ;DAILY ACTIVITY (AUDIT) LISTING
D SEL Q:PRPFRNG=""
W ! D DRNG^PRPFQ G:'% OUT
S DIC="^PRPF(470.1,",BY="@1:73:99,+5,+7,+8,+10,@6",FLDS="[PRPF DAILY ACTIVITY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,+5,+7,+8,+10,@6",FR="@,"_FR_",,,,",TO=","_TO_",,,,"
G DIP
TRANS ;LISTING OF TRANSACTIONS
D SEL Q:PRPFRNG=""
W ! D DRNG^PRPFQ G:'% OUT
S DIC="^PRPF(470.1,",BY="@1:73:99;S1,5",FLDS="[PRPF DAILY TRANSACTION SUMMARY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,5",FR="@,"_FR,TO=","_TO
G DIP
INACTIVE ;INACTIVE ACCOUNT LIST
S DIC="^PRPF(470,",(BY,FLDS)="[PRPF INACTIVE ACCOUNTS]" G DIP
INDIGENT ;INDIGENT PATIENT LIST
D SEL Q:PRPFRNG=""
S DIC="^PRPF(470,",BY="@+73:99;S1,]4,@1,.01",FLDS="[PRPF INDIGENT LIST]",FR=""_PRPFRNG_""_",YES",TO=""_PRPFRNG2_""_",YES"
S:PRPFRNG="@" BY="@+73,@73:99;S1,]4,@1,.01",FR="@,@,YES",TO=",,YES"
G DIP
BALANCE ;BALANCE IN ALL ACCOUNTS
D SEL Q:PRPFRNG=""
S DIC="^PRPF(470,",FLDS="[PRPF BALANCE IN ACCOUNTS]",FR=PRPFRNG,TO=PRPFRNG2
S:PRPFRNG'="@" BY="+73:99;"_"""STATION NAME: "_$G(Y(0,0))_" STATION NUMBER: "_""""_";C1"
S:PRPFRNG="@" BY="73;C1;S1,+73:99;""STATION NUMBER: "";C1",FR="@,@",TO=","
G DIP
PATLIST ;PATIENT LIST
D SEL Q:PRPFRNG=""
S DIC="^PRPF(470,",BY="@+73:99;S1,].01",FLDS="[PRPF PATIENT LIST]",FR=""_PRPFRNG_"",TO=""_PRPFRNG2_""
S:PRPFRNG="@" BY="@+73,@73:99;S1,].01",FR="@,@",TO=","
G DIP
SUMMARY ;;PATIENT SUMMARY REPORT
D SEL Q:PRPFRNG=""
S DIC="^PRPF(470,",BY="@+73:99;S1,@1,.01",FLDS="[PRPF PATIENT SUMMARY]",FR=""_PRPFRNG_",A"_"",TO=""_PRPFRNG2_",A"_""
S:PRPFRNG="@" BY="@+73,@73:99;S1,@1,.01",FR="@,@,A,",TO=",,A,"
G DIP
SEL D SELRNG^PRPFQ
I PRPFRNG="" D OUT QUIT
I PRPFRNG="@" S PRPFRNG2=""
E S PRPFRNG2=PRPFRNG
Q
UNSTA ;;UNNASIGNED STATION NAME LIST
S DIC="^PRPF(470,",BY="1;S,@73,.01",FLDS="[PRPF UNASSIGNED STATION LIST]",FR="A,@",TO="A,@"
S DIR(0)="Y",DIR("A")="Would you like to include INACTIVE patients in this report",DIR("B")="NO"
W !,"" D ^DIR K DIR S:Y FR=",@",TO=",@"
I $D(DTOUT)!($D(DUOUT))!($D(DIROUT)) K X,Y Q
G DIP
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRPFPNT 3397 printed Dec 13, 2024@02:01:53 Page 2
PRPFPNT ;ALTOONA/CTB-OUTPUT DRIVER FOR "PRPF" (PATIENT FUNDS) ;20 APR 02
V ;;3.0;PATIENT FUNDS;**6,7,13**;JUNE 1, 1989
CLERK ;CLERK STATISTICS
+1 DO DRNG^PRPFQ
if '%
GOTO OUT
DO WAIT^PRPFYN
SET PRPFFR=FR
SET PRPFTO=TO
SET DIC="^PRPF(470.1,"
SET L=0
SET BY="+PATIENT FUNDS CLERK,'DATE TRANSACTION ENTERED"
SET FR=","_FR
SET TO=","_TO
SET FLDS="!REFERENCE,"
SET DHD="[PRPF CLERK STAT HDR]"
DIP SET L=0
SET DIOEND="W !,""The information contained in this report is protected by the Privacy Act of 1974"""
DO WAIT^PRPFYN
DO EN1^DIP
if '$DATA(XQY)
DO ENCON^PRPFQ
OUT KILL %H,%I,DATE,DG1,DGA1,DGT,DGX,DINS,DFN,DIYS,DTOUT,DIOEND,DIOP,DNP,M,PRPFD,PRPFFR,PRPFTO,Q3,X,Y
DO DIKILL^PRPFQ
GOTO ZTKILL^PRPFQ
QUIT
FISTRANS ;FISCAL TRANSACTION SUMMARY
+1 DO SEL
if PRPFRNG=""
QUIT
+2 WRITE !
DO DRNG^PRPFQ
if '%
GOTO OUT
+3 SET DIC="^PRPF(470.1,"
SET BY="@1:73:99,]+4;S"
SET FLDS="[PRPF FISCAL TRANS SUMMARY]"
SET FR=""_PRPFRNG_","_FR_""
SET TO=""_PRPFRNG2_","_TO_""
+4 if PRPFRNG="@"
SET BY="@1:73,@1:73:99;S1,]+4;S"
SET FR="@,"_FR
SET TO=","_TO
+5 GOTO DIP
FISACTIV ;FISCAL ACTIVITY REPORT
+1 DO SEL
if PRPFRNG=""
QUIT
+2 WRITE !
DO DRNG^PRPFQ
if '%
GOTO OUT
+3 SET DIC="^PRPF(470.1,"
SET BY="@1:73:99,]+4;S2,+7;S,+10;S,@6"
SET FLDS="[PRPF FISCAL ACTIVITY REPORT]"
SET FR=""_PRPFRNG_","_FR_""
SET TO=""_PRPFRNG2_","_TO_""
+4 if PRPFRNG="@"
SET BY="@1:73,@1:73:99;S1,]+4;S2,+7;S,+10;S,@6"
SET FR="@,"_FR
SET TO=","_TO
+5 GOTO DIP
AUDIT ;DAILY ACTIVITY (AUDIT) LISTING
+1 DO SEL
if PRPFRNG=""
QUIT
+2 WRITE !
DO DRNG^PRPFQ
if '%
GOTO OUT
+3 SET DIC="^PRPF(470.1,"
SET BY="@1:73:99,+5,+7,+8,+10,@6"
SET FLDS="[PRPF DAILY ACTIVITY]"
SET FR=""_PRPFRNG_","_FR_""
SET TO=""_PRPFRNG2_","_TO_""
+4 if PRPFRNG="@"
SET BY="@1:73,@1:73:99;S1,+5,+7,+8,+10,@6"
SET FR="@,"_FR_",,,,"
SET TO=","_TO_",,,,"
+5 GOTO DIP
TRANS ;LISTING OF TRANSACTIONS
+1 DO SEL
if PRPFRNG=""
QUIT
+2 WRITE !
DO DRNG^PRPFQ
if '%
GOTO OUT
+3 SET DIC="^PRPF(470.1,"
SET BY="@1:73:99;S1,5"
SET FLDS="[PRPF DAILY TRANSACTION SUMMARY]"
SET FR=""_PRPFRNG_","_FR_""
SET TO=""_PRPFRNG2_","_TO_""
+4 if PRPFRNG="@"
SET BY="@1:73,@1:73:99;S1,5"
SET FR="@,"_FR
SET TO=","_TO
+5 GOTO DIP
INACTIVE ;INACTIVE ACCOUNT LIST
+1 SET DIC="^PRPF(470,"
SET (BY,FLDS)="[PRPF INACTIVE ACCOUNTS]"
GOTO DIP
INDIGENT ;INDIGENT PATIENT LIST
+1 DO SEL
if PRPFRNG=""
QUIT
+2 SET DIC="^PRPF(470,"
SET BY="@+73:99;S1,]4,@1,.01"
SET FLDS="[PRPF INDIGENT LIST]"
SET FR=""_PRPFRNG_""_",YES"
SET TO=""_PRPFRNG2_""_",YES"
+3 if PRPFRNG="@"
SET BY="@+73,@73:99;S1,]4,@1,.01"
SET FR="@,@,YES"
SET TO=",,YES"
+4 GOTO DIP
BALANCE ;BALANCE IN ALL ACCOUNTS
+1 DO SEL
if PRPFRNG=""
QUIT
+2 SET DIC="^PRPF(470,"
SET FLDS="[PRPF BALANCE IN ACCOUNTS]"
SET FR=PRPFRNG
SET TO=PRPFRNG2
+3 if PRPFRNG'="@"
SET BY="+73:99;"_"""STATION NAME: "_$GET(Y(0,0))_" STATION NUMBER: "_""""_";C1"
+4 if PRPFRNG="@"
SET BY="73;C1;S1,+73:99;""STATION NUMBER: "";C1"
SET FR="@,@"
SET TO=","
+5 GOTO DIP
PATLIST ;PATIENT LIST
+1 DO SEL
if PRPFRNG=""
QUIT
+2 SET DIC="^PRPF(470,"
SET BY="@+73:99;S1,].01"
SET FLDS="[PRPF PATIENT LIST]"
SET FR=""_PRPFRNG_""
SET TO=""_PRPFRNG2_""
+3 if PRPFRNG="@"
SET BY="@+73,@73:99;S1,].01"
SET FR="@,@"
SET TO=","
+4 GOTO DIP
SUMMARY ;;PATIENT SUMMARY REPORT
+1 DO SEL
if PRPFRNG=""
QUIT
+2 SET DIC="^PRPF(470,"
SET BY="@+73:99;S1,@1,.01"
SET FLDS="[PRPF PATIENT SUMMARY]"
SET FR=""_PRPFRNG_",A"_""
SET TO=""_PRPFRNG2_",A"_""
+3 if PRPFRNG="@"
SET BY="@+73,@73:99;S1,@1,.01"
SET FR="@,@,A,"
SET TO=",,A,"
+4 GOTO DIP
SEL DO SELRNG^PRPFQ
+1 IF PRPFRNG=""
DO OUT
QUIT
+2 IF PRPFRNG="@"
SET PRPFRNG2=""
+3 IF '$TEST
SET PRPFRNG2=PRPFRNG
+4 QUIT
UNSTA ;;UNNASIGNED STATION NAME LIST
+1 SET DIC="^PRPF(470,"
SET BY="1;S,@73,.01"
SET FLDS="[PRPF UNASSIGNED STATION LIST]"
SET FR="A,@"
SET TO="A,@"
+2 SET DIR(0)="Y"
SET DIR("A")="Would you like to include INACTIVE patients in this report"
SET DIR("B")="NO"
+3 WRITE !,""
DO ^DIR
KILL DIR
if Y
SET FR=",@"
SET TO=",@"
+4 IF $DATA(DTOUT)!($DATA(DUOUT))!($DATA(DIROUT))
KILL X,Y
QUIT
+5 GOTO DIP
