LRLABLD ;DALOI/TGA/JMC - LABELS ON DEMAND ; 08/29/16@12:21pm
Source file <LRLABLD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENT | ;
; Called by LROE |
|
| EN2 | ;
|
|
| GO | ; From above, LRLABXT, LRPHLIS1
|
|
| UID | ; Set up variables for unique id.
; Called by above, LRLABLD0, LRPHLIS1 ; LRUID = unique id number of accession |
|
| 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 |
|
| LBLTYP | ; Determine label routine to use.
; Sets LRLABEL to label print routine (label^routine). ; Called by above, LRLABLD0, LRLABLIO, LRLABXOL, LRLABXT, LRPHLIS1 |
|
| PSET | ; Setup special printer variables - barcode on/barcode off
; Called by above, LRLABXOL, LRLABXT, LRPHLIS1 |
|
| 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 |
|
| 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) |
|
| LRBAR | ; Setup LRBAR array if barcodes for this accession area
; Called by above, LRLABLD0, LRLABLIO, LRLABXT, LRPHIS1 |
