PSUALERT ;OIFIO BAY PINES/TEH - PBM CONTROL POINT - ALERT ;OCT 15,1998
;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
MANUAL ;MANUAL ALERT MESSAGE - DISPLAY TO SCREEN INCLUDED.
I '$D(^XTMP("PSU","RUNNING")) Q
L ^XTMP("PSU","RUNNING"):1 I '$T D Q
.W !,"A previously tasked Extract (TASK #: "_$G(^XTMP("PSU","RUNNING"))_") is running....try again later. ",! S PSUALERT=1
.;SEND ALERT JOB RUNNING
.S XQA(DUZ)="",XQA("G.PSU PBM")="",XQAMSG="A PBM Extract is CURRENTLY running in the background...try later."
.S XQAID="PSU",XQAFLG="D",PSUALERT=1 D SETUP^XQALERT
W !,"A Previous job seems to have encountered an error. A new job may encounter the same problem."
K ^XTMP("PSU","RUNNING")
L Q
;
AUTO ;AUTO ALERT MESSAGE
I '$D(^XTMP("PSU","RUNNING")) Q
L ^XTMP("PSU","RUNNING"):1 I '$T D Q
.S XQA(DUZ)="",XQA("G.PSU PBM")="",XQAMSG="A PBM Extract is CURRENTLY running in the background...try later."
.S XQAID="PSU",XQAFLG="D",PSUALERT=1 D SETUP^XQALERT
K ^XTMP("PSU","RUNNING")
L Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSUALERT 1015 printed Oct 16, 2024@18:28:01 Page 2
PSUALERT ;OIFIO BAY PINES/TEH - PBM CONTROL POINT - ALERT ;OCT 15,1998
+1 ;;4.0;PHARMACY BENEFITS MANAGEMENT;;MARCH, 2005
MANUAL ;MANUAL ALERT MESSAGE - DISPLAY TO SCREEN INCLUDED.
+1 IF '$DATA(^XTMP("PSU","RUNNING"))
QUIT
+2 LOCK ^XTMP("PSU","RUNNING"):1
IF '$TEST
Begin DoDot:1
+3 WRITE !,"A previously tasked Extract (TASK #: "_$GET(^XTMP("PSU","RUNNING"))_") is running....try again later. ",!
SET PSUALERT=1
+4 ;SEND ALERT JOB RUNNING
+5 SET XQA(DUZ)=""
SET XQA("G.PSU PBM")=""
SET XQAMSG="A PBM Extract is CURRENTLY running in the background...try later."
+6 SET XQAID="PSU"
SET XQAFLG="D"
SET PSUALERT=1
DO SETUP^XQALERT
End DoDot:1
QUIT
+7 WRITE !,"A Previous job seems to have encountered an error. A new job may encounter the same problem."
+8 KILL ^XTMP("PSU","RUNNING")
+9 LOCK
QUIT
+10 ;
AUTO ;AUTO ALERT MESSAGE
+1 IF '$DATA(^XTMP("PSU","RUNNING"))
QUIT
+2 LOCK ^XTMP("PSU","RUNNING"):1
IF '$TEST
Begin DoDot:1
+3 SET XQA(DUZ)=""
SET XQA("G.PSU PBM")=""
SET XQAMSG="A PBM Extract is CURRENTLY running in the background...try later."
+4 SET XQAID="PSU"
SET XQAFLG="D"
SET PSUALERT=1
DO SETUP^XQALERT
End DoDot:1
QUIT
+5 KILL ^XTMP("PSU","RUNNING")
+6 LOCK
QUIT
