Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls