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