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

Package: Lab Service

Routine: LRORD2


Information

LRORD2 ;SLC/CJS - MORE OF LAZY ACCESSION LOGGING ;8/11/97

Source Information

Source file <LRORD2.m>

Entry Points

Name Comments DBIA/ICR reference
MORE ;get more tests, from LRORD1
LRM
ENQ
Q15 ;from LRORD
Q20 ;
URG ;from LRMIBL, LRORD1, LRWU1
URG1
RCOM ;from LRORDST, LROW1
RC1
Z0
Z3
RCS ;from LREXECU, LRORDST, LROW2
Z1
Z2
ZQ
GCOM ;from LRORD1, LRPHITEM, LRTSTJAN, LRWU1
DUP ;from LRORDD
TCOM(TEST,COM) ;Get comments by test

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?20," ~ ",$P(^LAB(60,LRTSTS,0),U)," ",$S($D(^LAB(62,LRSAMP,0)):$P(^(0),U),1:"")," ",$S($D(^LAB(61,LRSPEC,0)):$P(^(0),U),1:"")," ~"
  • Line Location: Q20+1
Function Call: WRITE
  • Prompt: !," ",DIC,^(DR,0)
  • Line Location: Q20+4
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: Q20+7
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: Q20+7
Function Call: WRITE
  • Prompt: !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2)
  • Line Location: Q20+8
Function Call: WRITE
  • Prompt: !,"No up-arrows or semicolons allowed."
  • Line Location: RC1+0
Function Call: WRITE
  • Prompt: " (",$E(B3,1,$L(B3)-1),")"
  • Line Location: Z0+0
Function Call: WRITE
  • Prompt: !,"Unless special comments are required, this comment will be associated with",!,"all tests requested for this entry."
  • Line Location: Z3+1
Function Call: WRITE
  • Prompt: " too long",!
  • Line Location: Z1+0
Function Call: WRITE
  • Prompt: !,"Since this test, collection sample, and site/specimen has already",!,"been requested on this order, it will NOT be duplicated.",$C(7),!,"If you really need a duplicate, place a separate order."
  • Line Location: DUP+1

FileMan Files Accessed Via FileMan Db Call

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