source: FOIAVistA/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUAMC.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: 1.5 KB
Line 
1PSUAMC ;BIR/DAM - Combined AMIS Summary Report:21 APR 2004
2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;**9**;MARCH, 2005;Build 6
3 ;
4 ;This routine creates a combined AMIS summary report when
5 ;the following extracts are run either by the automatic
6 ;monthly extract or manual selection
7 ; 1. IV extract
8 ; 2. UD extract
9 ; 3. AR/WS extract
10 ; 4. Prescription extract
11 ; 6. CS extract
12 ;
13 ;
14EN ;Entry point. Called from ^PSUCSR2
15 ;
16 K AMIS
17 ;
18 S Y=PSUSDT\1 X ^DD("DD") S PSUDTS=Y ; start date
19 S Y=PSUEDT\1 X ^DD("DD") S PSUDTE=Y ; end date
20 ; * PSU*4*9 - RESET THE PARENT FACILITY
21 S X=PSUSNDR,DIC=40.8,DIC(0)="X",D="C" D IX^DIC
22 K DIC,DIC(0),D
23 S X=+Y S PSUDIVNM=$$VAL^PSUTL(40.8,X,.01)
24 ;
25 S AMIS(1,1)="Monthly AMIS Summary for "_PSUDTS_" through "_PSUDTE_" for "_PSUDIVNM
26 S AMIS(1,2)=""
27 S AMIS(1,3)=""
28 ;
29 M AMIS(2)=^XTMP("PSU_"_PSUJOB,"OPCOMBO")
30 ;
31 M AMIS(3)=^XTMP("PSU_"_PSUJOB,"UDCOMBO")
32 ;
33 M AMIS(4)=^XTMP("PSU_"_PSUJOB,"ARCOMBO")
34 ;
35 M AMIS(5)=^XTMP("PSU_"_PSUJOB,"CSCOMBO")
36 ;
37 M AMIS(6)=^XTMP("PSU_"_PSUJOB,"IVCOMBO")
38 ;
39 ;Reorganize AMIS array
40 S C=1
41 S PSUCT=0
42 F S PSUCT=$O(AMIS(PSUCT)) Q:PSUCT="" D
43 .S PSULN=0
44 .F S PSULN=$O(AMIS(PSUCT,PSULN)) Q:PSULN="" D
45 ..S AMIS(C)=AMIS(PSUCT,PSULN)
46 ..S C=C+1
47 ;
48 D MAIL
49 Q
50 ;
51MAIL ;Mail combo message
52 ;
53 S PSUST=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,1) ;Facility #
54 S PSUSTNM=$P(^XTMP("PSU_"_PSUJOB,"PSUSITE"),U,2) ;Facility name
55 ;
56 S XMSUB="V. 4.0 PBMAMIS "_PSUMON_" "_PSUST_" "_PSUSTNM
57 S XMTEXT="AMIS("
58 M ^XTMP("PSU_"_PSUJOB,"COMBOAMIS")=AMIS
59 S XMCHAN=1
60 M XMY=PSUXMYS2
61 D ^XMD
62 ;
63 Q
Note: See TracBrowser for help on using the repository browser.