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

Package: Lab Service

Routine: LROR6A


Information

LROR6A ;SLC/DCM - EDIT UNRELEASED LAB ORDERS FOR OE/RR ;9/11/89 16:55 ;

Source Information

Source file <LROR6A.m>

Entry Points

Name Comments DBIA/ICR reference
EDITUR ;FROM LROR6
TYPE
URG ;Edit Urgency
SAMP ;Edit Collection sample and specimen
SAMP1
SAMP2
SPEC ;
SPEC1
RCOM ;Edit comment

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," (S)END patient to lab",!," (W)ARD collect & deliver",!," (L)AB blood team"
  • Line Location: TYPE+0
Function Call: WRITE
  • Prompt: !," (I)MMEDIATE LAB COLLECT"
  • Line Location: TYPE+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: TYPE+1
Function Call: WRITE
  • Prompt: !,"Enter 'S' for SEND TO LAB",!?6,"'W' for WARD COLLECT",!?6,"'L' for LAB BLOOD TEAM."
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !?6,"'I' for Immediate Collect",!?6,"'^' to Exit."
  • Condition for execution: LRCTYPE["I"
  • Line Location: TYPE+3
Function Call: WRITE
  • Prompt: !!,$C(7),"**"_$P(LRTSTNM,"^")_" cannot be ordered for ROUTINE LAB COLLECT or IMMEDIATE COLLECT.**"
  • Line Location: TYPE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: URG+3
Function Call: WRITE
  • Prompt: !,"Lab will collect ",$P(^LAB(62,LRSAMP,0),"^")," ",$P(^(0),"^",3)
  • Line Location: SAMP+2
Function Call: WRITE
  • Prompt: !,"The Sample Is "_X_" "_$P(^(0),"^",3)
  • Line Location: SAMP+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SAMP1+0
Function Call: WRITE
  • Prompt: !,"COLLECTION SAMPLE:"
  • Line Location: SAMP2+0
Function Call: WRITE
  • Prompt: !,I," ",$P(^LAB(62,LRCS(I),0),"^")," ",$P(^(0),"^",3)
  • Line Location: SAMP2+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SAMP2+1
Function Call: WRITE
  • Prompt: $C(7),!,"Type number 1-",LRCSN,!
  • Line Location: SAMP2+2
Function Call: WRITE
  • Prompt: " "_$P(^LAB(62,LRSAMP,0),"^")_$P(^(0),"^",3)
  • Line Location: SAMP2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SPEC1+0
Function Call: WRITE
  • Prompt: !!,"This is the existing comment "
  • Line Location: RCOM+1
Function Call: WRITE
  • Prompt: TEXT,!
  • Line Location: RCOM+2
Function Call: WRITE
  • Prompt: !,"Do you want to change the comment for this order? "
  • Line Location: RCOM+3

FileMan Files Accessed Via FileMan Db Call

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