- 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
- 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
