- 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 Jan 18, 2025@03:03:04 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