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: LRTT5

Package: Lab Service

Routine: LRTT5


Information

LRTT5 ;DALISC/FHS - LAB URGENCY TURNAROUND TIMES ; 12/3/1997

Source Information

Source file <LRTT5.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
ONE
DETAIL ; detailed report=1, no detailed report=0, exit=-1
DEV ;
REPORT ; dequeued
LNCHECK ; from LRTT5R*
DHDR ; from LRTT5R*
HDR
CLEANUP ;
STOP
LRTT5U ;
TITLE(LRPUTYPE) ; from LRTT5, LRTT5A, displays "T" title, "Q" question, "D" description
ONED ; description 1
READ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: !!,"Select the laboratory tests to be used in this report --",!
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: !!,"Urgencies:"
  • Line Location: ONE+12
Function Call: WRITE
  • Prompt: !?10,$P(^(0),U)
  • Condition for execution: $D(^(LRX,0))
  • Line Location: ONE+12
Function Call: WRITE
  • Prompt: !,"Enter all urgencies you want extracted."
  • Line Location: ONE+13
Function Call: WRITE
  • Prompt: !!?10,"<Optional Screen> Press return to select all divisions",!
  • Line Location: ONE+17
Function Call: WRITE
  • Prompt: !!,"Include a detailed report"
  • Line Location: DETAIL+1
Function Call: WRITE
  • Prompt: " enter 'Y'es or 'N'o"
  • Line Location: DETAIL+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request queued",1:"Request canceled")
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!!,"No data to report"
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !!?20,"****** END OF REPORT ********"
  • Line Location: REPORT+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DHDR+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(LRPDTHDR)\2),LRPDTHDR,?(IOM-15),"PAGE ",LRPPAGE,!,LRPDHEAD,!
  • Line Location: DHDR+1
Function Call: WRITE
  • Prompt: !?(IOM-$L(LRPLN)\2),LRPLN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,LRPLN,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="P-"
  • Line Location: STOP+1
Function Call: WRITE
  • Prompt: !!?(IOM-$L(LRPLN)\2),LRPLN,!
  • Line Location: TITLE+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(LRPLN,IOM)
  • Line Location: TITLE+3
Info |  Source |  Entry Points |  Interaction Calls