Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: LRAPUALT

Package: Lab Service

Routine: LRAPUALT


Information

LRAPUALT ;HPS/DSK - MISSING ANATOMIC PATHOLOGY ALERT SEARCH ;May 1, 2018@16:24

Source Information

Source file <LRAPUALT.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$FMTE,$$HTE,$$NOW)^XLFDT  $$SETUP1^XQALERT  
VA FileMan 3 DD^%DT  NOW^%DTC  ^DIR  
MailMan 1 SENDMSG^XMXAPI  
Toolkit 1 ($$GET,EN)^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPALERT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
DATE ;
ASK ;
QUEUE ;
TASK() ;
START ;
LRSS ;
LRAC ;Cycle through accessions by verified date/time
CHK69 ;
CHK100 ;check the orders file
MSGINIT ;
CHKALERT ;
END ;Send alerts and MailMan messages
MAIL ;
ALERT ;
MAIL2 ;
ALERT2 ;
ALERT3 ;
LOCKED ;Routine was already being executed by time a user or TaskMan started

External References

Name Field # of Occurrence
DD^%DT ASK+9, ASK+16
NOW^%DTC START+5, LOCKED+3
^%ZTLOAD TASK+9
^DIR ASK+6, ASK+11
$$FMADD^XLFDT DATE+23, START+12
$$FMDIFF^XLFDT ASK+17
$$FMTE^XLFDT END+17, MAIL+4, MAIL+5, MAIL2+5, MAIL2+6, MAIL2+7, ALERT2+6, ALERT3+5, LOCKED+7
$$HTE^XLFDT QUEUE+18
$$NOW^XLFDT DATE+17
SENDMSG^XMXAPI MAIL+16, MAIL2+18
$$GET^XPAR DATE+20
EN^XPAR DATE+26
$$SETUP1^XQALERT ALERT+17, ALERT2+7, ALERT3+6, LOCKED+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"This option will search for missing Anatomic Pathology alerts"
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !,?5,"on verified accessions as well as other issues such as"
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !,?5,"incorrect settings in the Orders (#100) file."
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,?5,"This routine will run in the background and send an alert as well as"
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !,?5,"a MailMan message to you as well as the MailMan group ""LMI"" if any"
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !,?5,"missing Anatomic Pathology alerts are found."
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !!,?5,"The search may take upwards of 20 minutes to run the first time"
  • Line Location: DATE+8
Function Call: WRITE
  • Prompt: !,?5,"or if it is run infrequently.",!
  • Line Location: DATE+9
Function Call: WRITE
  • Prompt: !!,"The dates for the following prompts pertain to the dates that an"
  • Line Location: DATE+10
Function Call: WRITE
  • Prompt: !,"Anatomic Pathology case is verified."
  • Line Location: DATE+11
Function Call: WRITE
  • Prompt: !," (The date range cannot be more than a year due to the possibility that"
  • Line Location: DATE+12
Function Call: WRITE
  • Prompt: !," the search may take a long time to complete.)",!
  • Line Location: DATE+13
Function Call: WRITE
  • Prompt: ?40,$G(Y)
  • Line Location: ASK+9
Function Call: WRITE
  • Prompt: !,?5,"The start date cannot be greater than the end date.",!
  • Line Location: ASK+15
Function Call: WRITE
  • Prompt: ?40,$G(Y)
  • Line Location: ASK+16
Function Call: WRITE
  • Prompt: !!,"A maximum of a year's worth of orders may be searched due to"
  • Line Location: ASK+18
Function Call: WRITE
  • Prompt: !,"potential journaling or other system issues.",!
  • Line Location: ASK+19
Function Call: WRITE
  • Prompt: !!,"Someone else (or TaskMan) is currently executing this option. Please try later."
  • Line Location: QUEUE+7
Function Call: WRITE
  • Prompt: !!,"Task #: ",+LRTASK," has been queued to run on "
  • Line Location: QUEUE+17
Function Call: WRITE
  • Prompt: $$HTE^XLFDT($P(LRTASK,"^",2))
  • Line Location: QUEUE+18
Function Call: WRITE
  • Prompt: !!,"Task not queued for unknown reason. Please try again."
  • Line Location: QUEUE+20
Routine Call
  • DIR
  • Line Location:
    • ASK+6
    • ASK+11

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] CHKALERT+6
^LRO(68 - [#68] START+23, START+24, LRSS+4, LRSS+20, LRAC+7, LRAC+9, CHK69+2, CHK100+10
^LRO(69 - [#69] CHK69+9, CHK69+10, CHK69+11, CHK100+5
^OR(100 - [#100] CHK100+20, CHK100+28, CHK100+36, CHK100+45
^XTMP( QUEUE+2, QUEUE+9, START+1, START+12*, CHK69+3*, CHK100+6*, CHK100+13*, CHK100+25*, CHK100+30, CHK100+33*
, CHK100+38, CHK100+41*, CHKALERT+7, CHKALERT+12*, END+16*, END+17*, END+18, ALERT+6, ALERT+7, ALERT+8
, ALERT+9
^XTMP("AP ALERT MESSAGE " START+15!, CHK100+24*, CHK100+32*, CHK100+40*, MSGINIT+3*, CHKALERT+9*, END+4, END+12, END+15!, MAIL+2*
, MAIL+3*, MAIL+6*, MAIL+7*, MAIL2+3*, MAIL2+4*, MAIL2+5*, MAIL2+8*, MAIL2+9*, MAIL2+19!
^XTMP("AP NO ALERT " CHKALERT+13*, END+6, END+15!
^XTV(8992.1 - [#8992.1] CHKALERT+3, CHKALERT+4

Label References

Name Line Occurrences
$$TASK QUEUE+15
ALERT END+6
ALERT2 END+13
ALERT3 END+8
ASK DATE+14, ASK+14, ASK+17
CHK100 CHK69+12
CHK69 LRAC+14
CHKALERT CHK100+48
DATE EN+4
END START+26
LOCKED START+2
LRAC LRSS+22
LRSS START+25
MAIL END+5
MAIL2 END+13
MSGINIT CHK100+22, CHK100+30, CHK100+38, CHKALERT+7
QUEUE EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+4~, START+9, LOCKED+2~, LOCKED+7
DIR ASK+4~
DIR("A" ASK+5*, ASK+10*
DIR(0 ASK+5*, ASK+10*
>> DTOUT ASK+7, ASK+12
>> DUOUT ASK+7, ASK+12
DUZ QUEUE+12, MAIL+16
LRAC LRAC+1~, LRAC+8*, LRAC+9*, CHK69+2, CHK69+3, CHK100+6, CHK100+10, CHK100+13, CHK100+25, CHK100+30
, CHK100+33, CHK100+38, CHK100+41, CHKALERT+7, CHKALERT+12, ALERT+3~, ALERT+5*, ALERT+8*, ALERT+9
LRAD LRSS+3~, LRSS+11*, LRSS+20*, LRSS+22, LRAC+7, LRAC+9, CHK69+2, CHK69+3, CHK100+6, CHK100+10
, CHK100+13, CHK100+25, CHK100+30, CHK100+33, CHK100+38, CHK100+41, CHKALERT+7, CHKALERT+12, ALERT+3~, ALERT+5*
, ALERT+7*, ALERT+8, ALERT+9
LRADFN CHK100+4~, CHK100+45*, CHK100+46, CHK100+47*, CHKALERT+3, CHKALERT+6
LRALERT CHKALERT+1~, CHKALERT+2*, CHKALERT+3*, CHKALERT+4, ALERT+3~, ALERT+17*, ALERT2+2~, ALERT2+7*, ALERT3+1~, ALERT3+6*
, LOCKED+2~, LOCKED+8*
LRAREA START+4~, START+24*, START+25
LRCPRS CHK100+4~, CHK100+5*, CHK100+6, CHK100+20, CHK100+24, CHK100+25, CHK100+28, CHK100+32, CHK100+33, CHK100+36
, CHK100+40, CHK100+41, CHK100+45, CHKALERT+12
LRDT START+4~, START+9*, START+12
LRDTTM START+4~, START+9*, CHK69+3, CHK100+6, CHK100+13, CHK100+25, CHK100+30, CHK100+33, CHK100+38, CHK100+41
, CHKALERT+7, CHKALERT+12, END+16, END+17, ALERT+6, ALERT+7, ALERT+8, ALERT+9, MAIL2+5, ALERT2+6
, ALERT3+5
LRDUZ EN+1~, QUEUE+12*, LRAC+5, END+12, MAIL+4, MAIL+5, MAIL+12, ALERT+14, MAIL2+7, MAIL2+14
, MAIL2+18, ALERT2+4, ALERT3+3, LOCKED+5
LREDATE EN+1~, DATE+17*, DATE+23, DATE+26, ASK+13*, ASK+14, ASK+17, ASK+20*, QUEUE+1, START+15
, LRSS+20, LRAC+7, CHK100+24, CHK100+32, CHK100+40, MSGINIT+3, CHKALERT+9, CHKALERT+13, END+4, END+6
, END+12, END+15, END+17, MAIL+2, MAIL+3, MAIL+5, MAIL+6, MAIL+7, MAIL2+3, MAIL2+4
, MAIL2+5, MAIL2+7, MAIL2+8, MAIL2+9, MAIL2+19
LRFULL CHK100+4~, CHK100+10*, CHK100+13, MSGINIT+3, CHKALERT+4, CHKALERT+12, ALERT+9*, ALERT+10, ALERT+16
LRHIT CHKALERT+1~, CHKALERT+2*, CHKALERT+3, CHKALERT+4*, CHKALERT+5
LRLABNM CHK69+1~, CHK69+2*, CHK69+3, CHK69+9, CHK69+10
>> LRLINE START+18*, CHK100+23*, CHK100+24, CHK100+31*, CHK100+32, CHK100+39*, CHK100+40, MSGINIT+2*, MSGINIT+3, CHKALERT+8*
, CHKALERT+9
LRMIN MAIL+1~, MAIL+16, MAIL2+2~, MAIL2+18
LRMIN("FROM" MAIL+15*, MAIL2+17*
LRMRANGE MAIL+1~, MAIL+4*, MAIL+5*, MAIL+6, MAIL2+2~, MAIL2+6*, MAIL2+7*, MAIL2+8
LRMSUB MAIL+1~, MAIL+9*, MAIL+16, MAIL2+2~, MAIL2+11*, MAIL2+18
LRMTEXT MAIL+1~, MAIL+8*, MAIL+16, MAIL2+2~, MAIL2+10*, MAIL2+18
LRMY MAIL+1~, MAIL+16, MAIL2+2~, MAIL2+18
LRMY( MAIL+12*, MAIL2+14*
LRMY("G.LMI" MAIL+13*, MAIL2+15*
LRMZ MAIL+1~, MAIL+16, MAIL2+2~, MAIL2+18
LRODT CHK69+1~, CHK69+8*, CHK69+9*, CHK69+10, CHK69+11, CHK100+5
LRPKG CHK100+4~, CHK100+20*, CHK100+21
LRPNM CHKALERT+1~, CHKALERT+6*, CHKALERT+12
LRQUIT EN+1~, EN+3*, EN+5, ASK+7*, ASK+12*
LRRES CHK100+4~, CHK100+36*, CHK100+37
LRRL CHK69+1~, CHK69+8*, CHK69+11*, CHK69+12
LRSDATE EN+1~, DATE+20*, DATE+23*, ASK+8*, ASK+14, ASK+17, LRSS+11, LRSS+22, LRAC+5, END+17
, MAIL+4, MAIL2+6
LRSN CHK69+1~, CHK69+8*, CHK69+10*, CHK69+11, CHK100+5
LRSS START+4~, START+22*, START+23*, START+24, LRSS+4, LRSS+20, LRAC+7, LRAC+9, CHK69+2, CHK69+3
, CHK100+6, CHK100+10, CHK100+13, CHK100+25, CHK100+30, CHK100+33, CHK100+38, CHK100+41, CHKALERT+7, CHKALERT+12
, ALERT+3~, ALERT+5*, ALERT+6*, ALERT+7, ALERT+8, ALERT+9
LRSTATUS CHK100+4~, CHK100+28*, CHK100+29, CHK100+32, CHK100+33
LRSUB EN+1~, QUEUE+1*, QUEUE+2, QUEUE+9, START+1, START+12, CHK69+3, CHK100+6, CHK100+13, CHK100+25
, CHK100+30, CHK100+33, CHK100+38, CHK100+41, CHKALERT+7, CHKALERT+12, END+16, END+17, END+18, ALERT+6
, ALERT+7, ALERT+8, ALERT+9
LRTASK EN+1~, QUEUE+14*, QUEUE+15*, QUEUE+16, QUEUE+17, QUEUE+18, QUEUE+19
LRTXT ALERT+3~, ALERT+4*, ALERT+16
LRTYPE LRSS+3~, LRSS+4*, LRSS+7, LRSS+11
LRVER LRAC+1~, LRAC+5*, LRAC+7*, LRAC+9
X START+4~, START+9
XQA ALERT+3~, ALERT2+2~, ALERT3+1~, LOCKED+2~
XQA( ALERT+14*, ALERT2+4*, ALERT3+3*, LOCKED+5*
XQA("G.LMI" ALERT+15*, ALERT2+5*, ALERT3+4*, LOCKED+6*
XQAID ALERT+3~, ALERT+13*, ALERT2+2~, ALERT2+3*, ALERT3+1~, ALERT3+2*, LOCKED+2~, LOCKED+4*
XQAMSG ALERT+3~, ALERT+16*, ALERT2+2~, ALERT2+6*, ALERT3+1~, ALERT3+5*, LOCKED+2~, LOCKED+7*
>> Y ASK+7, ASK+8, ASK+9, ASK+12, ASK+13, ASK+16
ZTDESC TASK+1~, TASK+7*
>> ZTIO TASK+8*
>> ZTQUEUED DATE+1, QUEUE+6, QUEUE+12, QUEUE+16, QUEUE+19
ZTRTN TASK+1~, TASK+6*
>> ZTSAVE("LRDUZ" TASK+2*
>> ZTSAVE("LREDATE" TASK+4*
>> ZTSAVE("LRSDATE" TASK+3*
>> ZTSAVE("LRSUB" TASK+5*
>> ZTSK TASK+10
>> ZTSK("D" TASK+10
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All