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

Package: Lab Service

Routine: LR7OSOS


Information

LR7OSOS ;slc/dcm - Lab order status for OE/RR ;8/11/97

Source Information

Source file <LR7OSOS.m>

Entry Points

Name Comments DBIA/ICR reference
EN(OMEGA,ALPHA) ;'...the last shall be first...the first shall be last'
ENTRY
ORDER ;call with LRODT,LRSN
TEST ;
TST1
TST2 ;
WRITE ;
COM(COMNODE) ;Write comment
NOTACC
NO2
DATE
HED
WAIT
CANC ;For Canceled tests
OERR(X,ALPHA,OMEGA) ;Get order status for predefined patient
  • ICR #2985
    • Status: Active
    • Usage: Private

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?2,"Lab Order # ",$S($D(^LRO(69,LRODT,1,LRSN,.1)):^(.1),1:"")
    • Line Location: ORDER+3
    Function Call: WRITE
    • Prompt: ?45,"Provider: ",$E(LRDOC,1,25)
    • Line Location: ORDER+3
    Function Call: WRITE
    • Prompt: !?5,": ",^(I,0)
    • Line Location: ORDER+5
    Function Call: WRITE
    • Prompt: !!,"BAD ORDER ",LRSN,!,$C(7)
    • Line Location: TEST+5
    Function Call: WRITE
    • Prompt: !!,"BAD ACCESSION TEST POINTER: ",LRTSTS
    • Line Location: TST2+3
    Function Call: WRITE
    • Prompt: !?2,$S($D(^LAB(60,+LRTSTS,0)):$P(^(0),U),1:"BAD TEST POINTER")
    • Line Location: WRITE+1
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X>20
    • Line Location: WRITE+1
    Function Call: WRITE
    • Prompt: ?20,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," "
    • Line Location: WRITE+1
    Function Call: WRITE
    • Prompt: !
    • Condition for execution: $X>28
    • Line Location: WRITE+2
    Function Call: WRITE
    • Prompt: ?28,LROT," ",LROS,?48," ",LROSD
    • Line Location: WRITE+2
    Function Call: WRITE
    • Prompt: !?3,": "_^(I,0)
    • Line Location: COM+3
    Function Call: WRITE
    • Prompt: !!,"Orders for date: "
    • Line Location: HED+1
    Function Call: WRITE
    • Prompt: Y
    • Line Location: HED+1
    Function Call: WRITE
    • Prompt: @IOF," Test",?20,"Urgency",?30,"Status",?64,"Accession"
    • Line Location: HED+2
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • Line Location: WAIT+0
    Function Call: WRITE
    • Prompt: !," PRESS '^' TO STOP "
    • Line Location: WAIT+0
    Function Call: WRITE
    • Prompt: !!?5,"NO PATIENT SELECTED",!
    • Line Location: OERR+4
    Function Call: WRITE
    • Prompt: !,"Lab test status for: "_$P(^DPT(DFN,0),"^")
    • Line Location: OERR+9
    Info |  Source |  Entry Points |  Interaction Calls