source: FOIAVistA/trunk/r/PHARMACY_BENEFITS_MANAGEMENT-PSU/PSUV11.m@ 1235

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

initial load of FOIAVistA 6/30/08 version

File size: 1.5 KB
Line 
1PSUV11 ;BIR/DAM - IV AMIS Summary Message I;04 MAR 2004
2 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
3 ;
4 ;No DBIA's required
5 ;
6EN ;Entry point for MailMan message
7 ;Called from PSUIV0
8 ;
9 D SITE
10 D EN^PSUV12
11 D MAIL
12 Q
13 ;
14SITE ;Create the IV AMIS summary mailman message
15 ;
16 ;
17 K LVP,PB,TPN,CH,SYR ;KILL ARRAYS
18 ;
19 ;PSUDIV is the division number
20 ;PSUDIVNM is the division name
21 ;
22 S PSUDIV=0
23 F S PSUDIV=$O(^XTMP(PSUIVSUB,"RECORDS",PSUDIV)) Q:PSUDIV="" D
24 .D GETDIV^PSUV3
25 .D LVP
26 .D IVP
27 .D TPN
28 .D CHEM
29 .D SYR
30 Q
31 ;
32LVP ;Set contents of LVP ^XTMP global into local array
33 ;
34 M LVP(PSUDIV)=^XTMP(PSUIVSUB,"LVP",PSUDIV) ;Data array
35 ;
36 ;
37 Q
38 ;
39IVP ;Set contents of IVPB ^XTMP global into local array
40 ;
41 M PB(PSUDIV)=^XTMP(PSUIVSUB,"PB",PSUDIV) ;Data array
42 ;
43 Q
44 ;
45TPN ;Set contents of TPN ^XTMP global into local array
46 ;
47 M TPN(PSUDIV)=^XTMP(PSUIVSUB,"TPN",PSUDIV)
48 ;
49 Q
50 ;
51CHEM ;Set contents of CHEMO ^XTMP global into local array
52 ;
53 M CH(PSUDIV)=^XTMP(PSUIVSUB,"CH",PSUDIV)
54 ;
55 Q
56 ;
57SYR ;Set contents of SYR ^XTMP global into local array
58 ;
59 M SYR(PSUDIV)=^XTMP(PSUIVSUB,"SYR",PSUDIV)
60 ;
61 Q
62 ;
63MAIL ;Send AMIS summary mailman message
64 ;
65 ;Do not send message if option selection includes 1,2,3,4,6
66 I $D(^XTMP("PSU_"_PSUJOB,"CBAMIS")) D Q
67 .M ^XTMP("PSU_"_PSUJOB,"IVCOMBO")=AMIS
68 .S ^XTMP("PSU_"_PSUJOB,"IVCOMBO",1)=""
69 ;
70 S PSUDIV=PSUSNDR D GETDIV^PSUV3
71 S XMSUB="V. 4.0 PBMIV "_PSUMON_" "_PSUSNDR_" "_PSUDIVNM
72 S XMTEXT="AMIS("
73 M ^XTMP("PSU_"_PSUJOB,"IVAMIS")=AMIS
74 S XMCHAN=1
75 M XMY=PSUXMYS2
76 D ^XMD
77 ;
78 Q
Note: See TracBrowser for help on using the repository browser.