79 lines
1.5 KiB
Mathematica
79 lines
1.5 KiB
Mathematica
PSUV11 ;BIR/DAM - IV AMIS Summary Message I;04 MAR 2004
|
|
;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
|
|
;
|
|
;No DBIA's required
|
|
;
|
|
EN ;Entry point for MailMan message
|
|
;Called from PSUIV0
|
|
;
|
|
D SITE
|
|
D EN^PSUV12
|
|
D MAIL
|
|
Q
|
|
;
|
|
SITE ;Create the IV AMIS summary mailman message
|
|
;
|
|
;
|
|
K LVP,PB,TPN,CH,SYR ;KILL ARRAYS
|
|
;
|
|
;PSUDIV is the division number
|
|
;PSUDIVNM is the division name
|
|
;
|
|
S PSUDIV=0
|
|
F S PSUDIV=$O(^XTMP(PSUIVSUB,"RECORDS",PSUDIV)) Q:PSUDIV="" D
|
|
.D GETDIV^PSUV3
|
|
.D LVP
|
|
.D IVP
|
|
.D TPN
|
|
.D CHEM
|
|
.D SYR
|
|
Q
|
|
;
|
|
LVP ;Set contents of LVP ^XTMP global into local array
|
|
;
|
|
M LVP(PSUDIV)=^XTMP(PSUIVSUB,"LVP",PSUDIV) ;Data array
|
|
;
|
|
;
|
|
Q
|
|
;
|
|
IVP ;Set contents of IVPB ^XTMP global into local array
|
|
;
|
|
M PB(PSUDIV)=^XTMP(PSUIVSUB,"PB",PSUDIV) ;Data array
|
|
;
|
|
Q
|
|
;
|
|
TPN ;Set contents of TPN ^XTMP global into local array
|
|
;
|
|
M TPN(PSUDIV)=^XTMP(PSUIVSUB,"TPN",PSUDIV)
|
|
;
|
|
Q
|
|
;
|
|
CHEM ;Set contents of CHEMO ^XTMP global into local array
|
|
;
|
|
M CH(PSUDIV)=^XTMP(PSUIVSUB,"CH",PSUDIV)
|
|
;
|
|
Q
|
|
;
|
|
SYR ;Set contents of SYR ^XTMP global into local array
|
|
;
|
|
M SYR(PSUDIV)=^XTMP(PSUIVSUB,"SYR",PSUDIV)
|
|
;
|
|
Q
|
|
;
|
|
MAIL ;Send AMIS summary mailman message
|
|
;
|
|
;Do not send message if option selection includes 1,2,3,4,6
|
|
I $D(^XTMP("PSU_"_PSUJOB,"CBAMIS")) D Q
|
|
.M ^XTMP("PSU_"_PSUJOB,"IVCOMBO")=AMIS
|
|
.S ^XTMP("PSU_"_PSUJOB,"IVCOMBO",1)=""
|
|
;
|
|
S PSUDIV=PSUSNDR D GETDIV^PSUV3
|
|
S XMSUB="V. 4.0 PBMIV "_PSUMON_" "_PSUSNDR_" "_PSUDIVNM
|
|
S XMTEXT="AMIS("
|
|
M ^XTMP("PSU_"_PSUJOB,"IVAMIS")=AMIS
|
|
S XMCHAN=1
|
|
M XMY=PSUXMYS2
|
|
D ^XMD
|
|
;
|
|
Q
|