PSUAA2 ;BIR/RDC - ALLERGY/ADVERSE EVENT Mail Messages; 23 FEB 2004
;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
;
; Reference to file #4.3 supported by DBIA 2496
;
EN1 ;ENtry point for ALLERGY/ADVERSE EVENT Mail Message
;
S DOMSG=""
S XMCHAN=1
S XMDUZ=DUZ
S MSGTOT=$G(^XTMP("PSU_"_PSUJOB,"PSUAA","MSGTCNT"))
S:MSGTOT="" MSGTOT=1
S LINECNT=$G(^XTMP("PSU_"_PSUJOB,"PSUAA","LINECNT"))
S:LINECNT=0 LINECNT=1
; ** SET THE HEADER DATA
S X=$$VALI^PSUTL(4.3,1,217)
S PSUVFAC=+$$VAL^PSUTL(4,X,99)
;
S X=PSUVFAC,DIC=40.8,DIC(0)="X",D="C" D IX^DIC
S X=+Y S PSUVDIV=$$VAL^PSUTL(40.8,X,.01)
;
I $G(PSUMASF)!$G(PSUDUZ)!$G(PSUPBMG) S DOMSG=1 D
. I '$D(^XTMP("PSU_"_PSUJOB,"PSUAA","MSGTCNT")) D Q ; quit - no data
.. S CURMSG=1
.. S XMSUB="V. 4.0 PBMAA"_" "_PSUMON_" "_CURMSG_"/"_MSGTOT_" "_PSUVFAC_" "_PSUVDIV
.. S ^XTMP("PSU_"_PSUJOB,"PSUAA","ERR",1)="No data to report"
.. S XMTEXT="^XTMP(""PSU_"_PSUJOB_""",""PSUAA"",""ERR"","
.. M XMY=PSUXMYS1
.. D ^XMD
. ; ** there are messages - send them **
. F CURMSG=1:1:MSGTOT D
.. S XMSUB="V. 4.0 PBMAA"_" "_PSUMON_" "_CURMSG_"/"_MSGTOT_" "_PSUVFAC_" "_PSUVDIV
.. S XMTEXT="^XTMP(""PSU_"_PSUJOB_""",""PSUAA"","_CURMSG_","
.. M XMY=PSUXMYH
.. D ^XMD
I DOMSG D ; ** CONFIRMATION MESSAGE **
. S ^XTMP("PSU_"_PSUJOB,"CONFIRM",PSUVFAC,11,"L")=LINECNT
. S ^XTMP("PSU_"_PSUJOB,"CONFIRM",PSUVFAC,11,"M")=MSGTOT
;
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSUAA2 1508 printed Sep 23, 2025@20:02:57 Page 2
PSUAA2 ;BIR/RDC - ALLERGY/ADVERSE EVENT Mail Messages; 23 FEB 2004
+1 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
+2 ;
+3 ; Reference to file #4.3 supported by DBIA 2496
+4 ;
EN1 ;ENtry point for ALLERGY/ADVERSE EVENT Mail Message
+1 ;
+2 SET DOMSG=""
+3 SET XMCHAN=1
+4 SET XMDUZ=DUZ
+5 SET MSGTOT=$GET(^XTMP("PSU_"_PSUJOB,"PSUAA","MSGTCNT"))
+6 if MSGTOT=""
SET MSGTOT=1
+7 SET LINECNT=$GET(^XTMP("PSU_"_PSUJOB,"PSUAA","LINECNT"))
+8 if LINECNT=0
SET LINECNT=1
+9 ; ** SET THE HEADER DATA
+10 SET X=$$VALI^PSUTL(4.3,1,217)
+11 SET PSUVFAC=+$$VAL^PSUTL(4,X,99)
+12 ;
+13 SET X=PSUVFAC
SET DIC=40.8
SET DIC(0)="X"
SET D="C"
DO IX^DIC
+14 SET X=+Y
SET PSUVDIV=$$VAL^PSUTL(40.8,X,.01)
+15 ;
+16 IF $GET(PSUMASF)!$GET(PSUDUZ)!$GET(PSUPBMG)
SET DOMSG=1
Begin DoDot:1
+17 ; quit - no data
IF '$DATA(^XTMP("PSU_"_PSUJOB,"PSUAA","MSGTCNT"))
Begin DoDot:2
+18 SET CURMSG=1
+19 SET XMSUB="V. 4.0 PBMAA"_" "_PSUMON_" "_CURMSG_"/"_MSGTOT_" "_PSUVFAC_" "_PSUVDIV
+20 SET ^XTMP("PSU_"_PSUJOB,"PSUAA","ERR",1)="No data to report"
+21 SET XMTEXT="^XTMP(""PSU_"_PSUJOB_""",""PSUAA"",""ERR"","
+22 MERGE XMY=PSUXMYS1
+23 DO ^XMD
End DoDot:2
QUIT
+24 ; ** there are messages - send them **
+25 FOR CURMSG=1:1:MSGTOT
Begin DoDot:2
+26 SET XMSUB="V. 4.0 PBMAA"_" "_PSUMON_" "_CURMSG_"/"_MSGTOT_" "_PSUVFAC_" "_PSUVDIV
+27 SET XMTEXT="^XTMP(""PSU_"_PSUJOB_""",""PSUAA"","_CURMSG_","
+28 MERGE XMY=PSUXMYH
+29 DO ^XMD
End DoDot:2
End DoDot:1
+30 ; ** CONFIRMATION MESSAGE **
IF DOMSG
Begin DoDot:1
+31 SET ^XTMP("PSU_"_PSUJOB,"CONFIRM",PSUVFAC,11,"L")=LINECNT
+32 SET ^XTMP("PSU_"_PSUJOB,"CONFIRM",PSUVFAC,11,"M")=MSGTOT
End DoDot:1
+33 ;
+34 QUIT
+35 ;
