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

PSUCS0.m

Go to the documentation of this file.
  1. PSUCS0 ;BIR/DJE,DJM - PBM CONTROLLED SUBSTANCE (CONTROL POINT) ;25 AUG 1998
  1. ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
  1. EN ;EN(PSUMSGT) ; Entry point
  1. I '$D(PSUJOB) S PSUJOB=$J
  1. S PSUVARS="PSUSDT,PSUEDT,PSUMON,PSUDUZ,PSUMASF,PSUPBMG,PSUSMRY,ZTIO,PSUSNDR,PSUOPTS"
  1. F I=1:1:$L(PSUVARS,",") S @$P(PSUVARS,",",I)=$P(^XTMP("PSU_"_PSUJOB,1),U,I)
  1. S PSUDUZ=$G(PSUDUZ,DUZ) ;
  1. D EN^PSUCS1 ; Collect all data
  1. D EN^PSUCSR0(.PSUMSGT) ; Mail reports
  1. D EN^PSUCSR2 ; Generate and Mail AMIS summary report
  1. K CSAM,AMISC
  1. Q
  1. PRINT ;EP - FOR HARD COPY REPORTING
  1. I '$D(^XTMP("PSU_"_PSUJOB,"CBAMIS")) D
  1. .D GENREP^PSUCSR1(.PSUMSGT) ;CS AMIS SUMMARY
  1. I $D(^XTMP("PSU_"_PSUJOB,"CBAMIS")) D
  1. .D COMBO^PSUCSR1(.PSUMSGT) ;Combo AMIS summary reports
  1. Q