Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRPFPNT

PRPFPNT.m

Go to the documentation of this file.
  1. PRPFPNT ;ALTOONA/CTB-OUTPUT DRIVER FOR "PRPF" (PATIENT FUNDS) ;20 APR 02
  1. V ;;3.0;PATIENT FUNDS;**6,7,13**;JUNE 1, 1989
  1. CLERK ;CLERK STATISTICS
  1. 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]"
  1. 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
  1. 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
  1. FISTRANS ;FISCAL TRANSACTION SUMMARY
  1. D SEL Q:PRPFRNG=""
  1. W ! D DRNG^PRPFQ G:'% OUT
  1. S DIC="^PRPF(470.1,",BY="@1:73:99,]+4;S",FLDS="[PRPF FISCAL TRANS SUMMARY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
  1. S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,]+4;S",FR="@,"_FR,TO=","_TO
  1. G DIP
  1. FISACTIV ;FISCAL ACTIVITY REPORT
  1. D SEL Q:PRPFRNG=""
  1. W ! D DRNG^PRPFQ G:'% OUT
  1. 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_""
  1. S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,]+4;S2,+7;S,+10;S,@6",FR="@,"_FR,TO=","_TO
  1. G DIP
  1. AUDIT ;DAILY ACTIVITY (AUDIT) LISTING
  1. D SEL Q:PRPFRNG=""
  1. W ! D DRNG^PRPFQ G:'% OUT
  1. S DIC="^PRPF(470.1,",BY="@1:73:99,+5,+7,+8,+10,@6",FLDS="[PRPF DAILY ACTIVITY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
  1. S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,+5,+7,+8,+10,@6",FR="@,"_FR_",,,,",TO=","_TO_",,,,"
  1. G DIP
  1. TRANS ;LISTING OF TRANSACTIONS
  1. D SEL Q:PRPFRNG=""
  1. W ! D DRNG^PRPFQ G:'% OUT
  1. S DIC="^PRPF(470.1,",BY="@1:73:99;S1,5",FLDS="[PRPF DAILY TRANSACTION SUMMARY]",FR=""_PRPFRNG_","_FR_"",TO=""_PRPFRNG2_","_TO_""
  1. S:PRPFRNG="@" BY="@1:73,@1:73:99;S1,5",FR="@,"_FR,TO=","_TO
  1. G DIP
  1. INACTIVE ;INACTIVE ACCOUNT LIST
  1. S DIC="^PRPF(470,",(BY,FLDS)="[PRPF INACTIVE ACCOUNTS]" G DIP
  1. INDIGENT ;INDIGENT PATIENT LIST
  1. D SEL Q:PRPFRNG=""
  1. S DIC="^PRPF(470,",BY="@+73:99;S1,]4,@1,.01",FLDS="[PRPF INDIGENT LIST]",FR=""_PRPFRNG_""_",YES",TO=""_PRPFRNG2_""_",YES"
  1. S:PRPFRNG="@" BY="@+73,@73:99;S1,]4,@1,.01",FR="@,@,YES",TO=",,YES"
  1. G DIP
  1. BALANCE ;BALANCE IN ALL ACCOUNTS
  1. D SEL Q:PRPFRNG=""
  1. S DIC="^PRPF(470,",FLDS="[PRPF BALANCE IN ACCOUNTS]",FR=PRPFRNG,TO=PRPFRNG2
  1. S:PRPFRNG'="@" BY="+73:99;"_"""STATION NAME: "_$G(Y(0,0))_" STATION NUMBER: "_""""_";C1"
  1. S:PRPFRNG="@" BY="73;C1;S1,+73:99;""STATION NUMBER: "";C1",FR="@,@",TO=","
  1. G DIP
  1. PATLIST ;PATIENT LIST
  1. D SEL Q:PRPFRNG=""
  1. S DIC="^PRPF(470,",BY="@+73:99;S1,].01",FLDS="[PRPF PATIENT LIST]",FR=""_PRPFRNG_"",TO=""_PRPFRNG2_""
  1. S:PRPFRNG="@" BY="@+73,@73:99;S1,].01",FR="@,@",TO=","
  1. G DIP
  1. SUMMARY ;;PATIENT SUMMARY REPORT
  1. D SEL Q:PRPFRNG=""
  1. S DIC="^PRPF(470,",BY="@+73:99;S1,@1,.01",FLDS="[PRPF PATIENT SUMMARY]",FR=""_PRPFRNG_",A"_"",TO=""_PRPFRNG2_",A"_""
  1. S:PRPFRNG="@" BY="@+73,@73:99;S1,@1,.01",FR="@,@,A,",TO=",,A,"
  1. G DIP
  1. SEL D SELRNG^PRPFQ
  1. I PRPFRNG="" D OUT QUIT
  1. I PRPFRNG="@" S PRPFRNG2=""
  1. E S PRPFRNG2=PRPFRNG
  1. Q
  1. UNSTA ;;UNNASIGNED STATION NAME LIST
  1. S DIC="^PRPF(470,",BY="1;S,@73,.01",FLDS="[PRPF UNASSIGNED STATION LIST]",FR="A,@",TO="A,@"
  1. S DIR(0)="Y",DIR("A")="Would you like to include INACTIVE patients in this report",DIR("B")="NO"
  1. W !,"" D ^DIR K DIR S:Y FR=",@",TO=",@"
  1. I $D(DTOUT)!($D(DUOUT))!($D(DIROUT)) K X,Y Q
  1. G DIP