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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LROW5

Package: Lab Service

Routine: LROW5


Information

LROW5 ;SLC/CJS - LAB ORDER ENTRY, WARD ;2/6/91 13:59 ;

Source Information

Source file <LROW5.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 (LEND,TIME)^LROW  DATE^LRWU  
VA FileMan 2 ^%DT  ^%DTC  

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

Package Total Caller Graph
Lab Service 2 LRORD  LROW  

Entry Points

Name Comments DBIA/ICR reference
NEXTCOL ;return LRODT, from LRORD, LROW
W4
W5
OTHER

External References

Name Field # of Occurrence
^%DT NEXTCOL+4
^%DTC W5+3
LEND^LROW W5+1
TIME^LROW W4, W4+1, W5+11, OTHER
DATE^LRWU W5+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?7,$C(7),"Routine Lab Collect is not available ",!
  • Line Location: NEXTCOL+3
Function Call: WRITE
  • Prompt: !,"Next collection order cut-off time at "
  • Line Location: W4+0
Function Call: WRITE
  • Prompt: !,"Next collection order cut-off ",LRTX," at "
  • Line Location: W4+1
Function Call: WRITE
  • Prompt: !!?7,$C(7),"Please enter a date, ie. 4/1/90",!!
  • Line Location: W5+2
Function Call: WRITE
  • Prompt: !,"Can't order for that date.",$C(7)
  • Line Location: W5+3
Function Call: WRITE
  • Prompt: !,"That's ",$P(^HOLIDAY(Y,0),U,2),"!",$C(7)
  • Line Location: W5+4
Function Call: WRITE
  • Prompt: !,"Can't order more than ",$S(LRLWC="LC":"one week",1:"12 months")," ahead!!",$C(7)
  • Line Location: W5+5
Function Call: WRITE
  • Prompt: !,"Can't order in the past!!",$C(7)
  • Line Location: W5+6
Function Call: WRITE
  • Prompt: !,"Can't order in the past!!",$C(7)
  • Line Location: W5+7
Function Call: WRITE
  • Prompt: !,"Order cut-off time is expired."
  • Line Location: W5+8
Function Call: WRITE
  • Prompt: !,"Too late to make collection."
  • Line Location: W5+9
Function Call: WRITE
  • Prompt: !,"Routinely collected at approximately: "
  • Line Location: W5+11
Function Call: WRITE
  • Prompt: !!,?5,"Collection order cut-off times: "
  • Line Location: OTHER+0
Function Call: WRITE
  • Prompt: ?38
  • Line Location: OTHER+0
Function Call: WRITE
  • Prompt: ?38
  • Line Location: OTHER+0
Function Call: WRITE
  • Prompt: ?38
  • Line Location: OTHER+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^HOLIDAY - [#40.5] NEXTCOL+4, W5+4
^LAB(69.9 - [#69.9] NEXTCOL+1, NEXTCOL+2, NEXTCOL+3, NEXTCOL+4, W4, W4+1, W5+8, W5+9, W5+10, W5+11
, OTHER

Label References

Name Line Occurrences
OTHER W4, W4+1
W4 W5+3, W5+4, W5+5, W5+6, W5+7, W5+8, W5+9
W5 NEXTCOL+4, W5+2, W5+6

Naked Globals

Name Field # of Occurrence
^( W5+10, OTHER

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT NEXTCOL+4*, W5+1*!
%DT("A" W5*
%DT("B" W4*, W4+1*, W5*
>> D NEXTCOL+4*
DT NEXTCOL+4, W5+3, W5+6, W5+7, W5+8
>> E NEXTCOL+1*, NEXTCOL+4, W5+4
>> I W5+8*, OTHER*
>> J W5+8*, W5+9
>> LRCOL NEXTCOL+2*, W4, W4+1
>> LRLLOC NEXTCOL+1
>> LRLWC NEXTCOL+1, NEXTCOL+2, NEXTCOL+3, NEXTCOL+4, W4, W5, W5+1, W5+3, W5+4, W5+5
, W5+6, W5+7, W5+8, W5+9, W5+10, W5+11
>> LRODT W5+10*
>> LRORDTIM W5+1*, W5+7, W5+9, W5+10, W5+11
>> LRPARAM NEXTCOL+4, W5+4
>> LRTX NEXTCOL+1*, NEXTCOL+2*, NEXTCOL+4*, W4*, W4+1, W5, W5+4*
>> LRTXD NEXTCOL+4*
>> LRTXP NEXTCOL+1*, W5+3
U NEXTCOL+1, NEXTCOL+4, W4, W4+1, W5+3, W5+4, W5+9, W5+11, OTHER
>> X NEXTCOL+4*, W5+3, W5+5, W5+10*
>> X1 W5+3*
>> X2 W5+3*
>> Y NEXTCOL+4, W4*, W4+1*, W5+1*, W5+2, W5+3, W5+4, W5+6, W5+7, W5+8
, W5+10*, W5+11*, OTHER*
>> Z W5+7*, W5+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All