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

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

    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
    Info |  Source |  Entry Points |  Interaction Calls