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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSUV11 1614 printed Apr 09, 2024@21:30 Page 2
PSUV11 ;BIR/DAM - IV AMIS Summary Message I;04 MAR 2004
+1 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
+2 ;
+3 ;No DBIA's required
+4 ;
EN ;Entry point for MailMan message
+1 ;Called from PSUIV0
+2 ;
+3 DO SITE
+4 DO EN^PSUV12
+5 DO MAIL
+6 QUIT
+7 ;
SITE ;Create the IV AMIS summary mailman message
+1 ;
+2 ;
+3 ;KILL ARRAYS
KILL LVP,PB,TPN,CH,SYR
+4 ;
+5 ;PSUDIV is the division number
+6 ;PSUDIVNM is the division name
+7 ;
+8 SET PSUDIV=0
+9 FOR
SET PSUDIV=$ORDER(^XTMP(PSUIVSUB,"RECORDS",PSUDIV))
if PSUDIV=""
QUIT
Begin DoDot:1
+10 DO GETDIV^PSUV3
+11 DO LVP
+12 DO IVP
+13 DO TPN
+14 DO CHEM
+15 DO SYR
End DoDot:1
+16 QUIT
+17 ;
LVP ;Set contents of LVP ^XTMP global into local array
+1 ;
+2 ;Data array
MERGE LVP(PSUDIV)=^XTMP(PSUIVSUB,"LVP",PSUDIV)
+3 ;
+4 ;
+5 QUIT
+6 ;
IVP ;Set contents of IVPB ^XTMP global into local array
+1 ;
+2 ;Data array
MERGE PB(PSUDIV)=^XTMP(PSUIVSUB,"PB",PSUDIV)
+3 ;
+4 QUIT
+5 ;
TPN ;Set contents of TPN ^XTMP global into local array
+1 ;
+2 MERGE TPN(PSUDIV)=^XTMP(PSUIVSUB,"TPN",PSUDIV)
+3 ;
+4 QUIT
+5 ;
CHEM ;Set contents of CHEMO ^XTMP global into local array
+1 ;
+2 MERGE CH(PSUDIV)=^XTMP(PSUIVSUB,"CH",PSUDIV)
+3 ;
+4 QUIT
+5 ;
SYR ;Set contents of SYR ^XTMP global into local array
+1 ;
+2 MERGE SYR(PSUDIV)=^XTMP(PSUIVSUB,"SYR",PSUDIV)
+3 ;
+4 QUIT
+5 ;
MAIL ;Send AMIS summary mailman message
+1 ;
+2 ;Do not send message if option selection includes 1,2,3,4,6
+3 IF $DATA(^XTMP("PSU_"_PSUJOB,"CBAMIS"))
Begin DoDot:1
+4 MERGE ^XTMP("PSU_"_PSUJOB,"IVCOMBO")=AMIS
+5 SET ^XTMP("PSU_"_PSUJOB,"IVCOMBO",1)=""
End DoDot:1
QUIT
+6 ;
+7 SET PSUDIV=PSUSNDR
DO GETDIV^PSUV3
+8 SET XMSUB="V. 4.0 PBMIV "_PSUMON_" "_PSUSNDR_" "_PSUDIVNM
+9 SET XMTEXT="AMIS("
+10 MERGE ^XTMP("PSU_"_PSUJOB,"IVAMIS")=AMIS
+11 SET XMCHAN=1
+12 MERGE XMY=PSUXMYS2
+13 DO ^XMD
+14 ;
+15 QUIT
