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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: LRORD3

Package: Lab Service

Routine: LRORD3


Information

LRORD3 ;SLC/CJS/DALOI/FHS - MORE LAZY ACCESSION LOGGING ;2/6/91 13:01

Source Information

Source file <LRORD3.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 (,IX)^DIC  YN^DICN  

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

Package Total Caller Graph
Lab Service 7 LRMIBL  LRORD  LRORD1  LRORD2  LRORDD  LRQCLOG  LRWU1  

Entry Points

Name Comments DBIA/ICR reference
GSS ;from LRMIBL, LRORD1
GS ;from LRMIBL, LRORD, LRORD2
GSNO ;from LRORD1, LRWU1
G2
W18A
G3
G4

External References

Name Field # of Occurrence
^DIC GSNO+1, W18A+1
IX^DIC W18A+1
YN^DICN G4+4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: LRORD3+2
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: LRORD3+2
Function Call: WRITE
  • Prompt: !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2)
  • Line Location: GSS+1
Function Call: WRITE
  • Prompt: !!?10," Sorry ** No Lab collect sample Defined for this test ",$C(7),!
  • Line Location: GS+1
Function Call: WRITE
  • Prompt: !,?5,"The Lab Will collect ",X,!?5,"IS THIS THE CORRECT SAMPLE ? YES // "
  • Line Location: GS+4
Function Call: WRITE
  • Prompt: !!?15,$C(7),"LAB CAN ONLY COLLECT THIS TYPE SAMPLE "
  • Line Location: GS+4
Function Call: WRITE
  • Prompt: !!,"For other samples use the WARD COLLECT OR SEND PATIENT options",!
  • Line Location: GS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GS+12
Function Call: WRITE
  • Prompt: !,I," ",$P(^LAB(62,LRCS(I),0),U)," ",$P(^(0),U,3)
  • Line Location: GS+12
Function Call: READ
  • Formatting: !
  • Prompt: "Choose one: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: GS+13
Function Call: WRITE
  • Prompt: !,"Unknown is not allowed."
  • Line Location: W18A+2
Function Call: WRITE
  • Prompt: !,"Sample and source incompletely defined, test skipped."
  • Line Location: G3+1
Function Call: WRITE
  • Prompt: !,"Same specimen/source for the rest of the order"
  • Line Location: G4+4
Routine Call
  • DIC
  • Line Location:
    • GSNO+1
    • W18A+1
Routine Call
  • DIC
  • Line Location:
    • W18A+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] Classic Fileman Calls
^LAB(62 - [#62] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] GS+1, GS+4, GS+6, GS+8, GS+10
^LAB(62 - [#62] GS+4, GS+8, GS+12, G2+1
^TMP("LRSTIK" GSS+1

Label References

Name Line Occurrences
% %, GS+4, GS+9
G2 GS+6, GS+9, GS+13
G3 G2
G4 G2+1, G4+4
GSNO GS+8, GS+11
W18A W18A+1, W18A+2

Naked Globals

Name Field # of Occurrence
^( GS+10
^(0 GS+4, GS+8, GS+12, G2+1
^(3 GS+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% %*, GS+3!, GS+4, GS+5, GS+6, GS+9, G4+2!, G4+4*
>> D W18A*
DIC GSNO+1*!, W18A*, W18A+1!
DIC(0 GSNO+1*, W18A*
DTIME %, GS+13, W18A
>> DTOUT W18A+1
>> DUOUT W18A+1
>> I GS+12*
>> J GS+8*, GS+10*
>> LRBLEND G4
>> LRCS( GS+10*, GS+12, G2
>> LRCS(1 GS+6*, GS+8*, GSNO+1*
>> LRCSN GS+6*, GS+8*, GS+10*, GS+11, GS+12, GS+13*, GSNO+1*, G2
>> LREND W18A+1*
>> LRFLOG G4+1
>> LRLABKY W18A+2, G4+2
>> LRLWC GS+1, GS+4, GS+6, GS+7, G4+3
>> LROT G2*, G3+1
>> LRSAME GS+2, GS+8, GS+9, GSNO+1, G4, G4+4*
>> LRSAMP GS+1*, GS+2*, G2*, G2+1, G3+1, G4, G4+4
>> LRSPEC GS+1*, GS+2*, G2+1*, G3*, G3+1, G4, G4+4
>> LRSSX GSS+1
>> LRTSTS GS+1, GS+4, GS+6, GS+8, GS+10
>> LRUNKNOW W18A+2
>> LRUNQ GS+6*, GS+8*, GS+9
U GSS+1, GS+1, GS+2, GS+4, GS+6, GS+8, GS+12, G2+1, G4+1, G4+4
>> X GS+4*, GS+8*, GS+13*, W18A*, W18A+1
>> Y GS+6*, GSNO+1, G2*, W18A+1, W18A+2, G3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All