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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LRBLB

Package: Lab Service

Routine: LRBLB


Information

LRBLB ; IHS/DIR/FJE - BLOOD BANK BAR CODE READER 11/12/88 15:15 ;

Source Information

Source file <LRBLB.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 1 D^LRU  
VA Fileman 1 ^%DT  

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Lab Service 9 LRBLDC  LRBLDRR  LRBLDRR1  LRBLJCK  LRBLJD  LRBLJLG  LRBLJM  LRBLPED  
LRBLPUS  
Surgery 1 SRBLOOD  

Entry Points

Name Comments DBIA/ICR reference
BAR ;TEST BAR CODE READER
  • ICR #2332
    • Status: Active
    • Usage: Private
    62 ;;A POS;620
    66 ;;A;660
    84 ;;AB POS;840
    G ;;
    28 ;;AB NEG;280
    6 ;;A NEG;060
    A ;ABO/RH GROUPING
    C
    D ;DATE CODE
    AG
    H
    77 ;;B;770
    P ;PRODUCT CODE
    S
    R ;FDA REG #
    U ;from LRBLDRR, LRBLJLG
    T ;from LRBLDRR1, LRBLJLG
    W
    X
    95 ;;O NEG;950
    17 ;;B NEG;170
    55 ;;O;550
    51 ;;O POS;510
    88 ;;AB;880
    73 ;;B POS;730

    External References

    Name Field # of Occurrence
    ^%DT D+2
    D^LRU D+3

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: W
    • Line Location: W+0
    Function Call: WRITE
    • Prompt: ?32,"(Bar code)"
    • Line Location: W+0
    Function Call: WRITE
    • Prompt: W
    • Line Location: U+1
    Function Call: WRITE
    • Prompt: ?45,"UNIT ID: ",X
    • Line Location: U+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: A+1
    Function Call: WRITE
    • Prompt: ?46,"ABO/Rh: ",X
    • Line Location: A+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: C+1
    Function Call: WRITE
    • Prompt: !?24,P
    • Line Location: C+1
    Function Call: WRITE
    • Prompt: !?2,Y,")",?5,$P(X(Y),U,2)
    • Line Location: C+2
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: !,"CHOOSE 1-",A,": "
    • Line Location: H+0
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: H+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: H+2
    Function Call: WRITE
    • Prompt: ?25,P
    • Line Location: H+2
    Function Call: WRITE
    • Prompt: W
    • Line Location: R+1
    Function Call: WRITE
    • Prompt: !?2,"Registration number: ",X
    • Line Location: R+1
    Function Call: WRITE
    • Prompt: W
    • Line Location: D+3
    Function Call: WRITE
    • Prompt: ?44,"Exp date: ",Y
    • Line Location: D+3
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: BAR+1
    Function Call: WRITE
    • Prompt: !!?28,"To use BAR CODE READER",!?15,"Pass reader wand over a GROUP-TYPE (ABO/Rh) label",!?25,"=> "
    • Line Location: BAR+1
    Function Call: WRITE
    • Prompt: " (bar code)"
    • Line Location: BAR+1
    Function Call: WRITE
    • Prompt: $C(7),!!?28,"Not a GROUP-TYPE label",!?15,"Press <RETURN> key if BAR CODE READER is not used",!
    • Line Location: BAR+3
    Function Call: WRITE
    • Prompt: " ",$P($T(G+A),";",3)
    • Line Location: BAR+4
    Function Call: WRITE
    • Prompt: $E(Y(1),$L(X)+1,$L(Y(1)))
    • Line Location: T+4
    Function Call: WRITE
    • Prompt: !?2,Y,")",?5,Y(Y)
    • Line Location: T+5
    Function Call: READ
    • Timeout: DTIME
    • Variable: X
    • Line Location: AG+0
    Function Call: WRITE
    • Prompt: !,"CHOOSE 1-",A,": "
    • Line Location: AG+0
    Function Call: WRITE
    • Prompt: $C(7)
    • Line Location: AG+1
    Function Call: WRITE
    • Prompt: " ",Y(X)
    • Line Location: AG+2
    Function Call: WRITE
    • Prompt: !!,"Select from (NA=not applicable): "
    • Line Location: S+0
    Function Call: WRITE
    • Prompt: !?15,$P($T(G+A),";",3)
    • Line Location: S+0

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^LAB(66 - [#66] C

    Label References

    Name Line Occurrences
    AG AG+1
    BAR BAR+3
    C P+1
    H H+1
    S T+2
    W U+1, A+1, P+1, R+1, D+3
    X U+1, A+1, P+1, R+1, D+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT D+2*
    >> A X*, U+1*, A+1*, P+1, C*, C+1, C+2*, C+3, H, H+1
    , R+1, BAR+2*, T+1*, T+3*, T+4, T+5*, AG, AG+1, S*
    >> B X*, U+1*, P+1, R+1
    DTIME H, BAR+1, AG
    >> LR X, BAR+1*, BAR+2*, BAR+3
    >> LR(2 BAR+2*
    >> LR(3 U+1
    >> LRABO A+1*, T+4*, AG+2*
    >> LRJ C+1*, H+2*
    >> LRRH A+1*, T+4*, AG+2*
    >> LRV C+1*, H+2*
    >> P C+1*, H+2*
    U C+1, C+2, H, H+2
    >> W(4 C+1*, H+2*
    >> W(6 D+2*
    >> W(9 C+1*, H+2*
    X X*, U+1*, A+1*!, P+1*, C, C+1*, C+3!, H*!, H+1, H+2*
    , R+1*, D+1, D+2!, BAR+1*, BAR+2, BAR+4!, T+1, T+2!, T+4, AG*!
    , AG+1, AG+2
    X( C*, C+2, H+2, T+1*, T+3!
    X(1 C+1, BAR+2*
    Y P+1*, C*, C+2*, D+2, D+3, BAR+2*, T+1*, T+3!*, T+5*
    Y( T+3*, T+5, AG+2
    Y(1 T+4

    Marked Items

    Name Field # of Occurrence
    $T(@(5) A+1
    $T(G+A BAR+2, BAR+4, T+1, S
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All