; Setup LRBAR array if barcodes for this accession area
; Called by above, LRLABLD0, LRLABLIO, LRLABXT, LRPHIS1
UID
; Set up variables for unique id.
; Called by above, LRLABLD0, LRPHLIS1
; LRUID = unique id number of accession
LBLTYP
; Determine label routine to use.
; Sets LRLABEL to label print routine (label^routine).
; Called by above, LRLABLD0, LRLABLIO, LRLABXOL, LRLABXT, LRPHLIS1
EN2
;
ENT
;
; Called by LROE
BARID
; Set up variables for barcoding
; LRBARID = number to be barcoded on label, based on accession area setup in file #68.
; If no accession # or UID - sets LRBARID=""
; Called by LRLABLD0, LRPHLIS1
GO
; From above, LRLABXT, LRPHLIS1
PSET
; Setup special printer variables - barcode on/barcode off
; Called by above, LRLABXOL, LRLABXT, LRPHLIS1
LRTXT(LRTLST,LRLEN)
; Parse test list to print on label.
; Builds a string of test names concatentated using ";" to the maximum
; length (LRLEN) specified. Terminates list with "..." if exceeds length
; specified.
; Call with
; LRTLST = array containing name of test to parse
; LRLEN = length of test string to return (default=35)
URGA(X)
; Determine urgency abbreviation to print on label
; Input X = pointer to Urgency #62.05 file
; Returns Y = urgency abbreviation^display type if turned on
; Called by above, LRLABELF, LRLABLD0, LRLABLIO, LRPHLIS1