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

Package: Lab Service

Routine: LRLABELB


Information

LRLABELB ;DALOI/JMC - 10 PART LABELS FOR THE INTERMEC 3000/4000 PRINTER ;8/29/94 12:36

Source Information

Source file <LRLABELB.m>

Entry Points

Name Comments DBIA/ICR reference
BAR ; Barcode label - accession number barcoded (old style).
BAR1 ; Barcode label (handles multiple symbologies/ specimen UID).

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: STX,LRACC,CR,LRDAT,CR,LRTOP,CR,$E(PNM,1,27),CR,SSN,CR,ETX
  • Line Location: BAR+4
Function Call: WRITE
  • Prompt: STX,"W:",$E(LRLLOC,1,9),CR,ETX
  • Line Location: BAR+5
Function Call: WRITE
  • Prompt: STX,LRBARID,CR,ETX
  • Line Location: BAR+6
Function Call: WRITE
  • Prompt: STX,"Order #",LRCE,CR,$E(LRTXT,1,20)
  • Line Location: BAR+7
Function Call: WRITE
  • Prompt: "..."
  • Condition for execution: $L(LRTXT)>20
  • Line Location: BAR+7
Function Call: WRITE
  • Prompt: 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,LRACC,CR,LRDAT,CR,LRTOP,CR,$E(PNM,1,27),CR,SSN,CR,"W:",$E(LRLLOC,1,9),CR,ETX
  • Line Location: BAR+15
Function Call: WRITE
  • Prompt: STX,"Order #",LRCE,CR,LRTXT,CR,ETX
  • Line Location: BAR+16
Function Call: WRITE
  • Prompt: STX,$P(LRURGA,"^"),CR,ETX
  • Line Location: BAR+19
Function Call: WRITE
  • Prompt: STX,LF,CR,ETX
  • Line Location: BAR+20
Function Call: WRITE
  • Prompt: STX,LRACC,CR,LRDAT,CR,LRTOP,CR,$E(PNM,1,21),CR,SSN,CR,ETX
  • Line Location: BAR1+4
Function Call: WRITE
  • Prompt: STX,"W:",LRLLOC,$S($L(LRRB):"/"_LRRB,1:""),CR,ETX
  • Line Location: BAR1+7
Function Call: WRITE
  • Prompt: STX,LRBARID,CR,ETX
  • Line Location: BAR1+10
Function Call: WRITE
  • Prompt: STX,$S($G(LRINFW)="":LF,1:LRINFW),CR,ETX
  • Line Location: BAR1+13
Function Call: WRITE
  • Prompt: STX,"Order #",LRCE,CR,LRTXT,CR,ETX
  • Line Location: BAR1+14
Function Call: WRITE
  • Prompt: STX,LRACC,CR,LRDAT,CR,LRACC,CR,$E(PNM,1,14),CR,SSN,CR,LRDAT,CR,ETX
  • Line Location: BAR1+18
Function Call: WRITE
  • Prompt: STX,LRACC,CR,LRDAT,CR,LRACC,CR,$E(PNM,1,14),CR,SSN,CR,LRDAT,CR,ETX
  • Line Location: BAR1+20
Function Call: WRITE
  • Prompt: STX,$E(PNM,1,21),CR,SSN,CR,ETX
  • Line Location: BAR1+22
Function Call: WRITE
  • Prompt: STX,"W:",LRLLOC,$S($L(LRRB):"/"_LRRB,1:""),CR,ETX
  • Line Location: BAR1+25
Function Call: WRITE
  • Prompt: STX,LRBARID,CR,ETX
  • Line Location: BAR1+28
Function Call: WRITE
  • Prompt: STX,$S($G(LRINFW)="":LF,1:LRINFW),CR,ETX
  • Line Location: BAR1+31
Function Call: WRITE
  • Prompt: STX,LRTOP,CR,LRACC,CR,LRDAT,CR,"Order #",LRCE,CR,LRTXT,CR,ETX
  • Line Location: BAR1+33
Function Call: WRITE
  • Prompt: STX,LRACC,CR,LRDAT,CR,LRACC,CR,$E(PNM,1,14),CR,SSN,CR,LRDAT,CR,ETX
  • Line Location: BAR1+37
Function Call: WRITE
  • Prompt: STX,LRACC,CR,LRDAT,CR,LRACC,CR,$E(PNM,1,14),CR,SSN,CR,LRDAT,CR,ETX
  • Line Location: BAR1+39
Function Call: WRITE
  • Prompt: STX
  • Line Location: BAR1+43
Function Call: WRITE
  • Prompt: LF,CR,LF,CR
  • Line Location: BAR1+46
Function Call: WRITE
  • Prompt: LRBARID,CR
  • Line Location: BAR1+48
Function Call: WRITE
  • Prompt: LRBARID,CR
  • Line Location: BAR1+50
Function Call: WRITE
  • Prompt: ETX
  • Line Location: BAR1+51
Info |  Source |  Entry Points |  Interaction Calls