Routine: LRLABELD

Information

LRLABELD ;DALOI/JMC - ZEBRA STRIPE 1X2 label printer ; 6/4/98

Name	Comments	DBIA/ICR reference
EN	; Print 1x2 label formats
NOBAR	; Print Lab 25mm X 50mm (1 X 2) labels. ; Plain label, no barcode identifier. ; Label length = 200 dots (8 dots/mm printhead).
BAR1	; Print Lab 25mm X 50mm (1 X 2) labels. ; Barcode identifier - use Code 39 with check-digit. ; Label length = 200 dots (8 dots/mm printhead).
BAR2	; Print Lab 25mm X 50mm (1 X 2) labels. ; Barcode identifier using specified symbology for accession area. ; Label length = 200 dots (8 dots/mm printhead).
PL(LRX,LRY,LRZ,LRFONT)	; Send print command to printer. ; Call with LRX = column position (in dots). ; LRY = row position (in dots). ; LRZ = text to print. ; LRFONT = font to use.
GB(LRGBX,LRGBY,LRGBZ)	; Send print command to printer for graphic box. ; Call with LRGBX = column position (in dots). ; LRGBY = row position (in dots). ; LRGBZ = graphic box to print.
LH	; Set Label Home ("LH") parameters.
FONT	; Default font

Name	Line Occurrences
Function Call: WRITE	Prompt: STX Line Location: NOBAR+4
Function Call: WRITE	Prompt: ETX Line Location: NOBAR+47
Function Call: WRITE	Prompt: STX Line Location: BAR1+4
Function Call: WRITE	Prompt: ETX Line Location: BAR1+54
Function Call: WRITE	Prompt: STX Line Location: BAR2+4
Function Call: WRITE	Prompt: ETX Line Location: BAR2+57
Function Call: WRITE	Prompt: "^FO",+$G(LRX),",",+$G(LRY),$G(LRFONT),"^FD",$G(LRZ),"^FS" Line Location: PL+6
Function Call: WRITE	Prompt: "^FO",+$G(LRGBX),",",+$G(LRGBY),"^GB",$G(LRGBZ),"^FS" Line Location: GB+5
Function Call: WRITE	Prompt: STX,"^POI^LH450,0",ETX Line Location: LH+5