- 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 Feb 18, 2025@23:53:21 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
