PSUALERT.m

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 ---PSUALERT   1015     printed  Apr 09, 2024@21:30:25                                                                                                                                                                                                    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