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