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

Package: Lab Service

Routine: LRLABELA


Information

LRLABELA ;DALOI/JMC - INTERMEC 4100 1X2 LABEL PRINT BARCODE/PLAIN ;10/20/93 10:16

Source Information

Source file <LRLABELA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
PRT ;plain label..no barcode
BAR ;barcode label..accession number barcoded (old style)
BAR1 ; Barcode label (handles multiple barcode symbologies).
INIT(LRFMT) ; Initialize label
; Call with LRFMT = format to access on printer
; Called above, LRLABELB, LRLABELC, LRBLJLA1
TERM ; Terminate and print label
; Called above, LRLABELB, LRLABELC, LRBLJLA1
URGENCY ; Print urgency based on settings.
; Called above, LRLABELB, LRLABELC

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: STX,LRTXT,CR,ETX
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: STX,"Order #",LRCE,CR,"W:"_$E(LRLLOC,1,9)_" B:"_LRRB,CR,ETX
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: STX,SSN,CR,PNM,CR,LRTOP,CR,LRDAT,CR,LRACC,CR,ETX
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: STX,$P(LRURGA,"^"),CR,ETX
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: STX,$C(10),CR,ETX
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: STX,LRTXT,CR,ETX
  • Line Location: BAR+4
Function Call: WRITE
  • Prompt: STX,LRTOP,CR,"Order #",LRCE,CR,LRACC,CR,LRDAT,CR,SSN,CR,ETX
  • Line Location: BAR+5
Function Call: WRITE
  • Prompt: STX,$S($L(LRRB):"B:"_LRRB,1:"W:"_$E(LRLLOC,1,9)),CR,ETX
  • Line Location: BAR+6
Function Call: WRITE
  • Prompt: STX,$E(PNM,1,27),CR,ETX
  • Line Location: BAR+7
Function Call: WRITE
  • Prompt: STX,"STAT",CR,ETX
  • Line Location: BAR+10
Function Call: WRITE
  • Prompt: STX,LF,CR,ETX
  • Line Location: BAR+11
Function Call: WRITE
  • Prompt: STX,LRBARID,CR,ETX
  • Line Location: BAR+13
Function Call: WRITE
  • Prompt: STX,PNM,CR,SSN,CR,"W:"_LRLLOC,$S($L(LRRB):"/"_LRRB,1:""),CR,ETX
  • Line Location: BAR1+4
Function Call: WRITE
  • Prompt: STX,LRBARID,CR,ETX
  • Line Location: BAR1+7
Function Call: WRITE
  • Prompt: STX,$S($G(LRINFW)="":LF,1:LRINFW),CR,ETX
  • Line Location: BAR1+10
Function Call: WRITE
  • Prompt: STX,LRDAT,CR,LRACC,CR,ETX
  • Line Location: BAR1+13
Function Call: WRITE
  • Prompt: STX,"Order #",LRCE,CR,LRTOP,CR,ETX
  • Line Location: BAR1+16
Function Call: WRITE
  • Prompt: STX,LRTXT,CR,ETX
  • Line Location: BAR1+19
Function Call: WRITE
  • Prompt: STX
  • Line Location: BAR1+24
Function Call: WRITE
  • Prompt: LF,CR
  • Line Location: BAR1+26
Function Call: WRITE
  • Prompt: LRBARID,CR
  • Line Location: BAR1+27
Function Call: WRITE
  • Prompt: ETX
  • Line Location: BAR1+28
Function Call: WRITE
  • Prompt: STX,$C(27),"C",ETX
  • Line Location: INIT+8
Function Call: WRITE
  • Prompt: STX,"R",ETX
  • Line Location: INIT+9
Function Call: WRITE
  • Prompt: STX,$C(27),"E",LRFMT,$C(24),ETX
  • Line Location: INIT+10
Function Call: WRITE
  • Prompt: STX,$C(23,15),"S30",$C(12),ETX
  • Line Location: TERM+3
Function Call: WRITE
  • Prompt: STX,LF,CR,$P(LRURGA,"^"),CR,ETX
  • Line Location: URGENCY+5
Function Call: WRITE
  • Prompt: STX,$P(LRURGA,"^"),CR,LF,CR,ETX
  • Line Location: URGENCY+7
Function Call: WRITE
  • Prompt: STX,LF,CR,LF,CR,ETX
  • Line Location: URGENCY+10
Info |  Source |  Entry Points |  Interaction Calls