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 |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] Classic Fileman Calls
^LAB(62 - [#62] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call