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

Package: Lab Service

Routine: LROW


Information

LROW ;SLC/CJS/JAH - LAB ORDER ENTRY, WARD ;8/10/04

Source Information

Source file <LROW.m>

Entry Points

Name Comments DBIA/ICR reference
W10 ;
Q12
Q12A
PRAC
MORE ;from LROR
NOMORE ;from LROR
W20 ;from LROE1
L5 ;from LROR, LROR4
L5A ;R !,"Select: ",X:DTIME G LEND:X["^"!'$T,L5:X="" S X=$E(X,1)
L5B ;
LEND ;from LROW5
TIME ;from LROW5
ADD ;from LRAD2ORD

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"ORDER CANCELED",!!
  • Line Location: PRAC+0
Function Call: WRITE
  • Prompt: !,"Will the urgency for all tests ordered for this patient at this time be",!,$P(^LAB(62.05,+$P(^LAB(69.9,1,3),U,2),0),U)
  • Line Location: PRAC+1
Function Call: WRITE
  • Prompt: " Answer 'Y'es or 'N'o."
  • Line Location: PRAC+1
Function Call: WRITE
  • Prompt: !!,$C(7),"ORDER CANCELED",!!
  • Line Location: PRAC+2
Function Call: WRITE
  • Prompt: !," (S)END patient to lab",!," (W)ARD collect & deliver",!," (B)LOOD orders for lab draw",!," (I)MMED Lab Collect ",!
  • Line Location: L5+1
Function Call: WRITE
  • Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD COLLECT",!?6,"'B' for BLOOD COLLECTED BY LAB.",!?6,"'I' for Immediate Lab Collect",!?6,"'^' to Exit."
  • Line Location: L5A+1
Function Call: WRITE
  • Prompt: Y
  • Line Location: TIME+2
Info |  Source |  Entry Points |  Interaction Calls