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

Package: Lab Service

Routine: LROW3


Information

LROW3 ;DALOI/STAFF - LIST THE TESTS ORDERED AND ALLOW EDITING ;11/18/11 16:29

Source Information

Source file <LROW3.m>

Entry Points

Name Comments DBIA/ICR reference
L ;
; Only ask nature of order for CPRS - file #2 patients.
L1
L1A
L2
L3 ;
L4
ENSTIK ;from LRMIBL, LRORD1
; Only ask nature of order for CPRS - file #2 patients.
LL
LL1
LL1A
LL2 ;
LL3 ;
HELP
X3
NATURE ;Get Nature of order

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"...process aborted"
  • Line Location: L+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,"Delete test entry no.: "
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,"Select entry number to be deleted."
  • Condition for execution: X["?"
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !!?5,$C(7),"( "_X_" ) Is not a valid entry number "
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !!,"Add more tests"
  • Line Location: L1A+0
Function Call: WRITE
  • Prompt: !!,"You have just selected the following tests for ",PNM," ",SSN
  • Line Location: L3+2
Function Call: WRITE
  • Prompt: !,?5,"entry no.",?15,"Test",?45,"Sample"
  • Line Location: L3+4
Function Call: WRITE
  • Prompt: !!,$C(7),"...process aborted"
  • Line Location: ENSTIK+4
Function Call: WRITE
  • Prompt: !,"Delete test entry no.: "
  • Line Location: LL1+0
Function Call: WRITE
  • Prompt: !!?5,$C(7),"( "_X_" ) is not a valid entry.",!
  • Line Location: LL1+4
Function Call: WRITE
  • Prompt: !,?5,J,?15,$P(^LAB(60,+LROT(I,L,K),0),U)," ",?45,LRSAMP
  • Line Location: LL2+6
Function Call: WRITE
  • Prompt: !!,"You have just selected the following tests for ",PNM," ",SSN
  • Line Location: LL3+2
Function Call: WRITE
  • Prompt: !," for Collection on: ",$$FMTE^XLFDT(LRODT_"."_LRORDTIM,"M")
  • Line Location: LL3+3
Function Call: WRITE
  • Prompt: !,?5,"entry no.",?15,"Test",?45,"Sample"
  • Line Location: LL3+4
Function Call: WRITE
  • Prompt: !!,"Answer 'Yes' or 'No' ('^' to cancel)"
  • Line Location: HELP+0
Info |  Source |  Entry Points |  Interaction Calls