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

Package: Lab Service

Routine: LRORD1


Information

LRORD1 ;DALOI/STAFF - LAZY ACCESSION LOGGING ;03/07/12 16:38

Source Information

Source file <LRORD1.m>

Entry Points

Name Comments DBIA/ICR reference
L2
Q12
Q11
LRFIRST
Q13
LEDI ;
Q13A
BAR
LRM
Q14
Q20A ;from LRORD2
MAX ; CHECK FOR MAXIUM ORDER FREQUENCY
URGG
DROP
MICRO
PRAC ;from LRFAST

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !,"Choose one (or more, separated by commas) ('*' AFTER NUMBER TO CHANGE URGENCY) "
  • Line Location: LRFIRST+1
Function Call: WRITE
  • Prompt: !,X,?4,$P(^TMP("LRSTIK",$J,X),U,2)
  • Line Location: LRFIRST+5
Function Call: WRITE
  • Prompt: ?39," ",X,?44,$P(^TMP("LRSTIK",$J,X),U,2)
  • Line Location: LRFIRST+7
Function Call: READ
  • Prompt: "TEST number(s): "
  • Variable: LRSX
  • Timeout: DTIME
  • Line Location: LEDI+7
Function Call: WRITE
  • Prompt: !,"Something was mistyped, try again."
  • Line Location: Q13A+0
Function Call: WRITE
  • Prompt: !!,"LAB Order number: ",LRORD,!!
  • Line Location: Q14+4
Function Call: READ
  • Variable: %
  • Timeout: DTIME
  • Line Location: Q14+20
Function Call: WRITE
  • Prompt: !,"Answer 'Y' or 'N': "
  • Line Location: Q14+20
Function Call: WRITE
  • Prompt: $C(7),!!,"You have a duplicate: "
  • Line Location: MAX+6
Function Call: WRITE
  • Prompt: " for ",$P(^LAB(60,LRTSTS,0),U)
  • Line Location: MAX+9
Function Call: WRITE
  • Prompt: !,"You already have that test, do you really want another? N//"
  • Line Location: MAX+11
Function Call: WRITE
  • Prompt: !,"For ",$P(^TMP("LRSTIK",$J,LRSSX),U,2)
  • Line Location: URGG+0
Function Call: WRITE
  • Prompt: !!,"ORDER CANCELED",$C(7),!!
  • Line Location: DROP+0
Function Call: WRITE
  • Prompt: !,"Is there one sample for this patient's order"
  • Line Location: MICRO+0
Function Call: WRITE
  • Prompt: !,"The collection sample and site/specimen will be used for all tests ordered",!,"at this time for this patient."
  • Line Location: MICRO+3
Function Call: WRITE
  • Prompt: !,"Incompletely defined."
  • Line Location: MICRO+5
Function Call: WRITE
  • Prompt: !,"PRACTITIONER: ",X,$S($L(X):"//",1:"")
  • Line Location: PRAC+2
Info |  Source |  Entry Points |  Interaction Calls