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

PSUUD3.m

Go to the documentation of this file. 
  1. PSUUD3 ;BIR/TJH/,PDW - PBM UNIT DOSE OUTPUT ;25 AUG 1998
  1.  ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
  1. EN ;
  1.  ;
  1. NONE ; send "no data" message if nothing collected
  1.  I '$D(^XTMP(PSUUDSUB,"DETAIL")) D  Q
  1.  .S ^XTMP("PSU_"_PSUJOB,"PSUNONE","UD")=""
  1.  .S NONE=1
  1.  .K PSUXMY,^XTMP(PSUUDSUB,"RECORDS")
  1.  .M PSUXMY=PSUXMYS1
  1.  .I PSUMASF!PSUPBMG M PSUXMY=PSUXMYH
  1.  .S ^XTMP(PSUUDSUB,"RECORDS",PSUSNDR,1)="No data to report"
  1.  .D EN^PSUUD4(.PSUMSGT)
  1.  .S ^XTMP("PSU_"_PSUJOB,"CONFIRM",PSUSNDR,PSUOPTN,"L")=0
  1.  .S ^XTMP("PSU_"_PSUJOB,"CONFIRM",PSUSNDR,PSUOPTN,"M")=1
  1. NONEQ ; routine does not pass this point if "no data" due to Quit at NONE+1
  1.  ;
  1. MMFULL ; send full detail to Hines if Master File update was selected
  1.  K PSUXMY,^XTMP(PSUUDSUB,"RECORDS")
  1.  M PSUXMY=PSUXMYH
  1.  M ^XTMP(PSUUDSUB,"RECORDS")=^XTMP(PSUUDSUB,"DETAIL")
  1.  D EN^PSUUD6    ;AMIS Summary report
  1.  I 'PSUSMRY D
  1.  .D EN^PSUUD4(.PSUMSGT)
  1.  .M ^XTMP("PSU_"_PSUJOB,"CONFIRM")=PSUMSGT
  1.  ;
  1.  ;
  1. MMSSUM ; statistical summary
  1.  N PSUUDFLG S PSUUDFLG=1         ;Flag for summary reports
  1.  S $P(SPACES," ",81)="",$P(DASH,"-",81)=""
  1.  K PSUXMY,^XTMP(PSUUDSUB,"RECORDS"),^XTMP(PSUUDSUB,"STATSUM")
  1.  M PSUXMY=PSUXMYS1
  1.  S PSUFACN=""
  1.  F  S PSUFACN=$O(^XTMP(PSUUDSUB,"DIS",PSUFACN)) Q:PSUFACN=""  D
  1.  .S PSUF2=$G(^XTMP(PSUUDSUB,"SSN",PSUFACN)) ; Total patients
  1.  .S PSUDIV=PSUFACN D GETDIV^PSUV3 I PSUDIVNM'="" D
  1.  ..S ^XTMP("PSU_"_PSUJOB,"PSUCT",PSUDIVNM)=PSUF2
  1.  .I PSUDIVNM="" S ^XTMP("PSU_"_PSUJOB,"PSUCT",PSUDIV)=PSUF2
  1.  ;
  1. MMDRUG ; summary by drug
  1.  K ^XTMP(PSUUDSUB,"RECORDS"),^XTMP(PSUUDSUB,"DRUGSUM")
  1.  Q:PSUSMRY        ;Don't print if user wants summary only
  1.  ;
  1.  K PSUXMY
  1.  M PSUXMY=PSUXMYS2
  1.  S PSUFACN=""
  1.  F  S PSUFACN=$O(^XTMP(PSUUDSUB,"DRUG",PSUFACN)) Q:PSUFACN=""  D
  1.  .S X="Unit Dose Statistical Data for "_PSURP("START")_" through "_PSURP("END")
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,1)=X
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,2)=" "
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,3)=" "
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,4)=$E(SPACES,1,50)_"Total"_$E(SPACES,1,11)_"Total"
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,5)=$E(SPACES,1,50)_"Dispensed"_$E(SPACES,1,7)_"Dispensed"
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,6)="Drug Name"_$E(SPACES,1,41)_"Units"_$E(SPACES,1,11)_"Cost"
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,7)=$E(DASH,1,75)
  1.  .S PSUX="",PSULN=7,PSUGTC=0,PSUGTU=0
  1.  .F  S PSUX=$O(^XTMP(PSUUDSUB,"DRUG",PSUFACN,PSUX)) Q:PSUX=""  D
  1.  ..S PSUR=^XTMP(PSUUDSUB,"DRUG",PSUFACN,PSUX)
  1.  ..S PSUTU=$P(PSUR,U,1),PSUPPU=$P(PSUR,U,2),PSUNON=$P(PSUR,U,3),PSUNFI=$P(PSUR,U,4)
  1.  ..S PSUTC=PSUTU*PSUPPU,PSUGTC=PSUGTC+PSUTC,PSUGTU=PSUGTU+PSUTU
  1.  ..S PSUDN=$E(PSUX,1,40)_" "_$S(PSUNON="N/F":"*",1:"")_$S(PSUNFI=0:"#",1:"")
  1.  ..S PSULN=PSULN+1
  1.  ..S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,PSULN)=$E(PSUDN_SPACES,1,45)_$J(PSUTU,12,2)_"    "_$J(PSUTC,12,2)
  1.  .S PSULN=PSULN+1
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,PSULN)=$E(DASH,1,75)
  1.  .S PSULN=PSULN+1
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,PSULN)="Totals:"_$E(SPACES,1,38)_$J(PSUGTU,12,2)_"    "_$J(PSUGTC,12,2)
  1.  .S PSULN=PSULN+1
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,PSULN)=" "
  1.  .S PSULN=PSULN+1
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,PSULN)="* Non-Formulary"
  1.  .S PSULN=PSULN+1
  1.  .S ^XTMP(PSUUDSUB,"DRUGSUM",PSUFACN,PSULN)="# Not on National Formulary"
  1.  M ^XTMP(PSUUDSUB,"RECORDS")=^XTMP(PSUUDSUB,"DRUGSUM")
  1.  D EN^PSUUD4(.PSUMSGT)
  1.  K ^XTMP(PSUUDSUB,"RECORDS")
  1.  ;
  1.  Q