| [613] | 1 | PSUV11 ;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 | ;
|
|---|
| 6 | EN ;Entry point for MailMan message
|
|---|
| 7 | ;Called from PSUIV0
|
|---|
| 8 | ;
|
|---|
| 9 | D SITE
|
|---|
| 10 | D EN^PSUV12
|
|---|
| 11 | D MAIL
|
|---|
| 12 | Q
|
|---|
| 13 | ;
|
|---|
| 14 | SITE ;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 | ;
|
|---|
| 32 | LVP ;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 | ;
|
|---|
| 39 | IVP ;Set contents of IVPB ^XTMP global into local array
|
|---|
| 40 | ;
|
|---|
| 41 | M PB(PSUDIV)=^XTMP(PSUIVSUB,"PB",PSUDIV) ;Data array
|
|---|
| 42 | ;
|
|---|
| 43 | Q
|
|---|
| 44 | ;
|
|---|
| 45 | TPN ;Set contents of TPN ^XTMP global into local array
|
|---|
| 46 | ;
|
|---|
| 47 | M TPN(PSUDIV)=^XTMP(PSUIVSUB,"TPN",PSUDIV)
|
|---|
| 48 | ;
|
|---|
| 49 | Q
|
|---|
| 50 | ;
|
|---|
| 51 | CHEM ;Set contents of CHEMO ^XTMP global into local array
|
|---|
| 52 | ;
|
|---|
| 53 | M CH(PSUDIV)=^XTMP(PSUIVSUB,"CH",PSUDIV)
|
|---|
| 54 | ;
|
|---|
| 55 | Q
|
|---|
| 56 | ;
|
|---|
| 57 | SYR ;Set contents of SYR ^XTMP global into local array
|
|---|
| 58 | ;
|
|---|
| 59 | M SYR(PSUDIV)=^XTMP(PSUIVSUB,"SYR",PSUDIV)
|
|---|
| 60 | ;
|
|---|
| 61 | Q
|
|---|
| 62 | ;
|
|---|
| 63 | MAIL ;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
|
|---|
