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

Package: Lab Service

Routine: LR7OSBB1


Information

LR7OSBB1 ;slc/dcm - BB PT INFO for OE/RR pt lists ;8/11/97

Source Information

Source file <LR7OSBB1.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 4 ^%DT  ^%DTC  ^DIWP  ^DIWW  
Lab Service 3 $$LRDFN^LR7OR1  (D,L,S,SSN,V)^LRU  ^LRUTL  

Entry Points

Name Comments DBIA/ICR reference
SET ;
  • ICR #2984
    • Status: Active
    • Usage: Private
    OERR ;
  • ICR #2984
    • Status: Active
    • Usage: Private
    H
    N
    S
    INI ;
    CLEAN ;
  • ICR #2984
    • Status: Active
    • Usage: Private
    MORE

    External References

    Name Field # of Occurrence
    ^%DT H
    ^%DTC INI+7
    ^DIWP OERR+9
    ^DIWW OERR+10
    $$LRDFN^LR7OR1 OERR+2
    D^LRU OERR+11, H, INI+7, INI+8
    L^LRU OERR+7
    S^LRU OERR+7
    SSN^LRU INI+2
    V^LRU SET+1
    ^LRUTL SET+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"No Lab Data for: "_$P(^DPT(DFN,0),"^")
    • Line Location: OERR+3
    Function Call: WRITE
    • Prompt: @IOF,!,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH
    • Line Location: OERR+8
    Function Call: WRITE
    • Prompt: MORE
    • Condition for execution: 'B C(C) W:B ! W ?21,$P(^LAB(61.3,A,0),"^") D:$Y>A(1)!'$Y
    • Line Location: OERR+10
    Function Call: WRITE
    • Prompt: !,"No transfused units on record",!
    • Line Location: OERR+12
    Function Call: WRITE
    • Prompt: !,$J(B,3),")",?6,$P(X,"^",3),?18,$E($P(M,"^"),1,30)
    • Line Location: N+2
    Function Call: WRITE
    • Prompt: ?45,"(",X(7),"/",X(10),")"
    • Line Location: N+2
    Function Call: WRITE
    • Prompt: ?54,$P(X,"^",5)_" "_$P(X,"^",6),?60,Y
    • Line Location: N+3
    Function Call: READ
    • Prompt: "^ TO STOP: "
    • Formatting: !
    • Timeout: DTIME
    • Variable: A(2)
    • Line Location: MORE+0
    Function Call: WRITE
    • Prompt: $C(13),$J("",15),$C(13)
    • Line Location: MORE+1
    Function Call: WRITE
    • Prompt: @IOF,!,Y,?22,LRQ(1),?(IOM-10),"Pg: ",LRQ
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: !,"LABORATORY SERVICE"
    • Line Location: H+1
    Function Call: WRITE
    • Prompt: !,LRP," ",SSN,?46,$J(LRPABO,2),?49,LRPRH
    • Line Location: H+2
    Function Call: WRITE
    • Prompt: $C(7),!!,"MUST BE BLOOD BANK"
    • Line Location: SET+3
    Function Call: WRITE
    • Prompt: $C(7),!!,?34,"",LRLLOC,"",!
    • Line Location: INI+8

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC - [#1] INI+1
    ^DIC(45.7 - [#45.7] INI+6
    ^DPT - [#2] OERR+3
    ^LAB(61.3 - [#61.3] OERR+10
    ^LAB(66 - [#66] N+1
    ^LR - [#63] OERR+9, OERR+10, OERR+11, N+4, INI+2, INI+5, INI+8*
    ^VA(200 - [#200] INI+4

    Label References

    Name Line Occurrences
    H OERR+7, MORE
    INI OERR+5
    MORE OERR+9, OERR+10, OERR+11, N+4
    N OERR+11
    S OERR+9, OERR+10, OERR+11

    Naked Globals

    Name Field # of Occurrence
    ^( OERR+9, N+4, INI+2, INI+6, INI+8
    ^(0 INI+4, INI+6

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT H*
    A OERR+9*, OERR+10*, OERR+11*, N+4, MORE*, S*, CLEAN+1!
    A(1 OERR+7*, OERR+8*, OERR+9, OERR+10, OERR+11, N+4, MORE+1*, H+2*
    A(2 OERR+9, OERR+10, OERR+11, OERR+12, N+4, MORE*, S*
    AGE CLEAN+1!, INI+7*
    B OERR+9*, OERR+10*, OERR+11*, OERR+12, N, N+2, CLEAN+1!
    C OERR+10*, CLEAN+1!
    C( OERR+6*, OERR+10
    C(1 OERR+6*
    DFN OERR+2, OERR+3, CLEAN+1!, INI+2, INI+6, INI+8
    >> DIWF OERR+6*
    >> DIWL OERR+6*
    >> DIWR OERR+6*
    DOB CLEAN+1!, INI+1*, INI+2*, INI+7*
    DT INI+7
    DTIME MORE
    >> E N+4*
    >> F N+4*
    I CLEAN+1!
    IOF OERR+8, H
    IOM OERR+6, H
    IOSL OERR+8, H+2
    IOST OERR+7, OERR+8, MORE
    LR CLEAN+1!
    LRAA CLEAN+1!
    LRABV CLEAN+1!
    LRAD CLEAN+1!
    LRADM CLEAN+1!, INI+1*
    LRADX CLEAN+1!, INI+1*
    LRAWRD CLEAN+1!, INI+1*
    LRAX CLEAN+1!
    LRCAPLOC CLEAN+1!
    LRDFN OERR+1~, OERR+2*, OERR+3, OERR+9, OERR+10, OERR+11, N+4, CLEAN+1!, INI+2, INI+5
    , INI+8
    LRDPAF CLEAN+1!
    LRDPF OERR+4*, CLEAN+1!, INI+1
    LREXP INI+1!, INI+8*
    LRFNAM CLEAN+1!, INI+1*
    LRH CLEAN+1!
    >> LRLLOC INI+2*, INI+3*, INI+8*
    LRMD CLEAN+1!, INI+1*, INI+4*
    LRMD(1 INI+1*, INI+4*
    LROLLOC CLEAN+1!
    LRP OERR+8, H+2, CLEAN+1!, INI+2*
    LRPABO OERR+8, H+2, CLEAN+1!, INI+5*
    LRPARAM CLEAN+1!
    LRPF CLEAN+1!, INI+1*, INI+2, INI+6, INI+8
    LRPFN CLEAN+1!, INI+1*
    LRPRH OERR+8, H+2, CLEAN+1!, INI+5*
    LRQ OERR+4*, H*, CLEAN+1!
    LRQ(1 H
    LRS CLEAN+1!, INI+1*, INI+6*
    LRS(1 INI+1*, INI+6*
    LRSF CLEAN+1!
    LRSS SET+3, CLEAN+1!
    LRSVC CLEAN+1!, INI+1*, INI+6*
    LRU CLEAN+1!
    LRWHO CLEAN+1!
    >> M N+1*, N+2
    N CLEAN+1!
    >> OREND SET+2*, SET+3*
    P CLEAN+1!
    R CLEAN+1!
    SEX CLEAN+1!, INI+2*
    SSN OERR+8, H+2, CLEAN+1!, INI+2*
    X OERR+9*, OERR+11*, N+1, N+2, N+3, H*, SET+1*, CLEAN+1!, INI+2*, INI+4
    , INI+5*, INI+7
    X(1 N+1*
    X(10 N+1*, N+2
    X(7 N+1*, N+2
    >> X1 INI+7*
    >> X2 INI+7*
    Y OERR+11*, N+3, H, SET+2, CLEAN+1!, INI+2*, INI+7*, INI+8*
    Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All