Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 2 $$LRDFN^LR7OR1  (DD,DOC)^LRX  
Kernel 1 $$FMTE^XLFDT  

Entry Points

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

    External References

    Name Field # of Occurrence
    $$LRDFN^LR7OR1 OERR+7
    DD^LRX HED+1
    DOC^LRX ORDER+3
    $$FMTE^XLFDT DATE

    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
    • Timeout: DTIME
    • Variable: X
    • 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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DPT - [#2] OERR+9
    ^LAB(60 - [#60] WRITE+1
    ^LAB(61 - [#61] ORDER+4
    ^LAB(62 - [#62] ORDER+4
    ^LAB(62.05 - [#62.05] WRITE+1
    ^LRO(68 - [#68] TST1+1, TST1+2, WRITE+3
    ^LRO(69 - [#69] EN+4, ENTRY+2, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+6, COM+3, HED+1
    ^VA(200 - [#200] CANC+2

    Label References

    Name Line Occurrences
    CANC TEST+3
    COM TST2+4, TST2+7, NO2+3, CANC+3
    DATE TST2+4, TST2+5, NO2
    EN OERR+10
    ENTRY EN+4
    HED ENTRY, ENTRY+2
    NO2 NOTACC, NOTACC+1
    NOTACC TEST+6, TST1+1
    ORDER ENTRY+2
    TEST ORDER+6
    TST2 TST1+2
    WAIT HED
    WRITE TST2+4, TST2+7, NO2+3, CANC+3

    Naked Globals

    Name Field # of Occurrence
    ^( ORDER+3, ORDER+5, ORDER+6, TST1+2, WRITE+3, COM+3
    ^(0 ORDER+4, ORDER+6, WRITE+1
    ^(1 ORDER+2
    ^(3 ORDER+2, TST1+1
    ^(9 TST1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ALPHA EN~, EN+3, OERR~, OERR+5, OERR+10
    COMNODE COM~, COM+2*, COM+3
    D ORDER+2!
    DFN OERR+6~, OERR+7*, OERR+9
    DTIME WAIT
    I ORDER+1~, ORDER+5*, TST1+2*, TST2+1~, COM+3*
    IO EN+2
    IOF HED+2
    IOSL ENTRY+2
    IOST HED
    LRACC TEST+1~, TST1+2*, TST2+2, TST2+4
    LRACD TEST+1~, TST1+1*
    LRACN ORDER+1~, ORDER+6*, COM+3
    LRACN0 ORDER+1~, ORDER+6*, TEST+2, TEST+3, TEST+5, TST1, COM+3, NO2+1, CANC+2
    LRDFN EN+4, ENTRY+2, HED+1, OERR+6~, OERR+7*, OERR+8
    LRDOC ORDER+1~, ORDER+3
    LRDPF OERR+6~, OERR+7*
    LRDT0 OERR+6~
    LREND EN+1~, EN+3*, EN+4, ENTRY+2, HED, WAIT*
    LRLL TEST+1~, TEST+2*, TST2+1~, TST2+4*, TST2+5
    LROD0 ORDER+1~, ORDER+2*, ORDER+3, ORDER+4, TEST+4, NO2
    LROD1 ORDER+1~, ORDER+2*, TEST+5, TEST+6, TST1+3, TST2+6, NO2, NO2+4
    LROD3 ORDER+1~, ORDER+2*, TST2+5, NOTACC, NOTACC+1, NOTACC+2, NO2
    LRODT EN+1~, EN+3*, EN+4*, ENTRY+2, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+6, COM+3
    , NO2, HED+1
    LROOS TEST+1~, TEST+5*, TST2+4, TST2+6*
    LROS TEST+1~, TEST+2*, TEST+5*, TST2+1~, TST2+4*, TST2+5*, TST2+6*, WRITE+2, NOTACC*, NOTACC+1*
    , NOTACC+2*, NO2+2*
    LROSD TEST+1~, TEST+2*, TST2+1~, TST2+4*, TST2+5*, WRITE+2, NO2*
    LROT TEST+1~, TEST+2*, TEST+4*, TEST+5*, TST2+1~, TST2+4*, WRITE+2, CANC+2*
    LRROD TEST+1~, TEST+2*, WRITE+3, NO2+2
    LRSN EN+1~, ENTRY+1*, ENTRY+2*, ORDER+2, ORDER+3, ORDER+4, ORDER+5, ORDER+6, TEST+5, COM+3
    LRTSTS TEST+1~, TST1+2*, TST2+3, WRITE+1, COM+3, NO2+1*, NO2+3, CANC+1~, CANC+2*, CANC+3
    LRTT ORDER+2!
    LRTT( TST1+2*
    LRURG TEST+1~, TEST+2*, TST2+1~, TST2+2*, WRITE+1, NO2+1*
    LRY TEST+1~
    OMEGA EN~, EN+4, OERR~, OERR+5, OERR+10
    U ORDER+3, ORDER+4, TEST+2, TEST+4, TEST+5, TST1, TST1+3, TST2+2, TST2+4, TST2+5
    , WRITE+1, NOTACC+1, NOTACC+2, NO2, NO2+1, NO2+4
    VA200 OERR+6~
    X ORDER+1~, ORDER+3*, ORDER+4*, ORDER+5, TEST+1~, TEST+4*, TEST+5*, WAIT*, OERR~, OERR+4
    , OERR+7
    X1 TEST+1~, TST1*, TST1+1, TST1+2, WRITE+3
    X2 TEST+1~, TST1*, TST1+1, TST1+2, WRITE+3
    X3 TEST+1~, TEST+2*, TST1*, TST1+1, TST1+2, WRITE+3
    X4 ORDER+1~, ORDER+4*, ORDER+5
    Y TEST+1~, TEST+2*, TST2+1~, TST2+4*, TST2+5*, NOTACC+1*, NOTACC+2*, NO2*, DATE*, HED+1*
    Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All