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 ;AVAMC/REG/CRT - BLOOD BANK BAR CODE READER ; 12/5/00 11:16am

Source Information

Source file <LRBLB.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^%DT  (H,YX)^%DTC  EN^DDIOL  
Kernel 1 $$UP^XLFSTR  
Lab Service 1 D^LRU  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 13

Package Total Caller Graph
Lab Service 12 LRBLBU  LRBLDC  LRBLDRR  LRBLDRR1  LRBLJCK  LRBLJD  LRBLJD1  LRBLJLG  
LRBLJM  LRBLPED  LRBLPUS  LRBLPUS1  
Surgery 1 SRBLOOD  

Entry Points

Name Comments DBIA/ICR reference
X
W
STRIP(X) ; Strip off any ISBT-128 barcode identifier characters
U ;from LRBLDRR, LRBLJLG
A ;ABO/RH GROUPING
P ;PRODUCT CODE
C
H
R ;FDA REG #
D ;DATE CODE
BAR ;TEST BAR CODE READER
  • ICR #2332
    • Status: Active
    • Usage: Private
    T ;from LRBLDRR1, LRBLJLG
    AG
    S
    ISBTUID(LRBLIN) ; Check for and display valid ISBT-128 Unit Id
    ; Valid codes are prefixed by "="
    ISBTBG(IN,LRBLABO,LRBLRH) ; Check for ISBT-128 valid Blood Group
    ; and return ABO & Rh values
    ; Valid codes are prefixed by "=%"
    ISBTPC(LRBLIN) ; Check for and display valid ISBT-128 Product Code
    ; Valid codes prefixed by "=<"
    ISBTED(LRBLIN) ; Check for and display valid ISBT-128 Expiration Date
    ; Valid codes are prefixed by "&>"
    JULIAN(LRBLJD) ;; Julian Date Conversion
    READ(PROMPT,POS) ; This extrinsic function will be used to present a prompt that can receive input from a
    ; scanner or manual data entry. This function returns the entire value of the input.
    G ;;
    51 ;;O POS;510
    62 ;;A POS;620
    73 ;;B POS;730
    84 ;;AB POS;840
    95 ;;O NEG;950
    6 ;;A NEG;060
    17 ;;B NEG;170
    28 ;;AB NEG;280
    55 ;;O;550
    66 ;;A;660
    77 ;;B;770
    88 ;;AB;880

    External References

    Name Field # of Occurrence
    ^%DT D+4
    H^%DTC JULIAN+15
    YX^%DTC JULIAN+20
    EN^DDIOL A+3, ISBTUID+10, ISBTED+15
    D^LRU D+5, ISBTED+13
    $$UP^XLFSTR ISBTUID+8, ISBTPC+8

    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+4
    Function Call: WRITE
    • Prompt: ?45,"UNIT ID: ",X
    • Line Location: U+4
    Function Call: WRITE
    • Prompt: W
    • Line Location: A+5
    Function Call: WRITE
    • Prompt: ?46,"ABO/Rh: ",X
    • Line Location: A+5
    Function Call: WRITE
    • Prompt: X
    • Line Location: P+7
    Function Call: WRITE
    • Prompt: W
    • Line Location: C+2
    Function Call: WRITE
    • Prompt: !?24,P
    • Line Location: C+2
    Function Call: WRITE
    • Prompt: !?2,Y,")",?5,$P(X(Y),U,2)
    • Line Location: C+3
    Function Call: READ
    • Variable: X
    • Timeout: DTIME
    • 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: X
    • Line Location: D+3
    Function Call: WRITE
    • Prompt: W
    • Line Location: D+5
    Function Call: WRITE
    • Prompt: ?44,"Exp date: ",Y
    • Line Location: D+5
    Function Call: WRITE
    • Prompt: !!?28,"To use BAR CODE READER",!?15,"Pass reader wand over a GROUP-TYPE (ABO/Rh) label",!
    • 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+7
    Function Call: WRITE
    • Prompt: " ",$P($T(G+A),";",3)
    • Line Location: BAR+8
    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
    • Variable: X
    • Timeout: DTIME
    • 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
    Function Call: WRITE
    • Prompt: ?POS,PROMPT
    • Line Location: READ+5
    Function Call: WRITE
    • Prompt: $C(13),$J("",79),$C(13),$J("",POS),PROMPT
    • Line Location: READ+7

    Global Variables Directly Accessed

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

    Label References

    Name Line Occurrences
    $$ISBTED D+1
    $$ISBTPC P+1
    $$ISBTUID U+1
    $$JULIAN ISBTED+10
    $$READ BAR+1
    $$STRIP U+2, A+4, P+2, D+2, BAR+5
    AG AG+1
    BAR BAR+7
    C P+6, ISBTPC+10
    H H+1
    ISBTBG A+2, BAR+2
    S T+2
    W U+4, A+3, A+5, P+6, R+1, D+5, ISBTUID+9, ISBTPC+10, ISBTED+13
    X U+3, A+5, P+3, R+1, D+3

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % JULIAN+7~
    >> %DT D+4*
    %H JULIAN+7~, JULIAN+16, JULIAN+18*
    %T JULIAN+7~
    %Y JULIAN+7~
    >> A X*, U+3*, A+5*, P+4, C+1*, C+2, C+3*, C+4, H, H+1
    , R+1, BAR+6*, T+1*, T+3*, T+4, T+5*, AG, AG+1, S*
    >> B X*, U+3*, P+4, R+1
    DTIME H, AG, READ+6
    IN ISBTBG~, ISBTBG+9, ISBTBG+10, ISBTBG+11*, ISBTBG+12
    >> LR X, BAR+1*, BAR+3*, BAR+6*, BAR+7
    >> LR(2 BAR+3*, BAR+6*
    >> LR(3 U+3
    >> LRABO A+2, A+3, A+5*, BAR+2, BAR+4, T+4*, AG+2*, ISBTBG+12*, ISBTBG+13
    LRBLABO ISBTBG~, ISBTBG+8*, ISBTBG+14, ISBTBG+15*
    LRBLIN ISBTUID~, ISBTUID+6, ISBTUID+7*, ISBTUID+8*, ISBTUID+10, ISBTPC~, ISBTPC+6, ISBTPC+7*, ISBTPC+8*, ISBTPC+10
    , ISBTED~, ISBTED+8, ISBTED+9*, ISBTED+10, ISBTED+12, ISBTED+14*
    LRBLJD JULIAN~, JULIAN+10, JULIAN+11, JULIAN+18
    LRBLRH ISBTBG~, ISBTBG+8*, ISBTBG+14*
    >> LRJ C+2*, H+2*
    >> LRRH A+2, A+3, A+5*, BAR+2, BAR+4, T+4*, AG+2*
    >> LRV C+2*, H+2*
    >> P C+2*, H+2*
    POS READ~, READ+4*, READ+5, READ+7
    PROMPT READ~, READ+5, READ+7
    U C+2, C+3, H, H+2
    >> W(4 C+2*, H+2*
    >> W(6 D+4*, ISBTED+12*
    >> W(9 C+2*, H+2*
    X X*, STRIP~, STRIP+1*, STRIP+2, U+1, U+2*, U+3*, U+4, A+2, A+4
    , A+5*!, P+1, P+2*, P+4, P+5*, P+7, C!*, C+1, C+2*, C+4!
    , C+5, H*!, H+1, H+2*, R+1*, D+1, D+2*, D+3, D+4!, BAR+1*
    , BAR+2, BAR+5*, BAR+6, BAR+8!, T+1, T+2!, T+4, AG*!, AG+1, AG+2
    , ISBTPC+10*, ISBTED+6~, ISBTED+10*, ISBTED+11, ISBTED+12, JULIAN+7~, JULIAN+10*, JULIAN+11*, JULIAN+12*, JULIAN+13*
    , JULIAN+21, READ+3~, READ+6*, READ+8
    X( C+1*, C+3, H+2, T+1*, T+3!
    X(1 C+2, BAR+6*
    XX A+1~, A+4*, A+5, C~*
    Y P+5*, C+1*, C+3*, D+4, D+5, BAR+6*, T+1*, T+3!*, T+5*, ISBTPC+9*
    , ISBTED+6~, ISBTED+12*, ISBTED+14, ISBTED+15
    Y( T+3*, T+5, AG+2
    Y(1 T+4

    Marked Items

    Name Field # of Occurrence
    $T(@(5) A+5
    $T(G+A BAR+6, BAR+8, 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