source: FOIAVistA/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUCS0.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 748 bytes
Line 
1PSUCS0 ;BIR/DJE,DJM - PBM CONTROLLED SUBSTANCE (CONTROL POINT) ;25 AUG 1998
2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
3EN ;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
13PRINT ;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
Note: See TracBrowser for help on using the repository browser.