PSUV11.m

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