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

Package: Lab Service

Routine: LRLABEL5


Information

LRLABEL5 ;DUR/KT/AT - PRINTS ON VAF 10-1392 LABELS ;2/6/91 08:05

Source Information

Source file <LRLABEL5.m>

Entry Points

Name Comments DBIA/ICR reference
A
SKIP
BAR ;Print bar code label

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: LRACC
  • Line Location: A+2
Function Call: WRITE
  • Prompt: ?33,LRACC,?56,LRACC
  • Line Location: A+5
Function Call: WRITE
  • Prompt: !,$E(PNM,1,20),?21,$E(LRDAT,1,2)_$E(LRDAT,4,5)_$E(LRDAT,7,8),?33,$E(PNM,1,20),?56,$E(PNM,1,20)
  • Line Location: A+6
Function Call: WRITE
  • Prompt: !,SSN," W:",LRLLOC,?20,$S(LRRB=0:"",1:" B:"_LRRB),?33,SSN,?56,SSN
  • Line Location: A+7
Function Call: WRITE
  • Prompt: !
  • Line Location: A+8
Function Call: WRITE
  • Prompt: LRPREF
  • Line Location: A+10
Function Call: WRITE
  • Prompt: LRTOP,?15," Order:",LRCE,?33,"Order:",LRCE,?56,"Order:",LRCE,!
  • Line Location: SKIP+0
Function Call: WRITE
  • Prompt: $E(LRTXT,1,IOM-1),!!
  • Line Location: SKIP+1
Function Call: WRITE
  • Prompt: LRACC
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: ?16,"Stat"
  • Condition for execution: $D(LRURG)
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: ?21,LRINFW
  • Condition for execution: $L(LRINFW)
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: !,$E(PNM,1,20),?21,$E(LRDAT,1,2)_$E(LRDAT,4,5)_$E(LRDAT,7,8)
  • Line Location: BAR+2
Function Call: WRITE
  • Prompt: !,SSN," W:",LRLLOC,?20,$S(LRRB=0:"",1:" B:"_LRRB)
  • Line Location: BAR+3
Function Call: WRITE
  • Prompt: !,$E(LRTXT,1,IOM-1),!
  • Line Location: BAR+4
Function Call: WRITE
  • Prompt: @LRBAR1,LRBARID,@LRBAR0
  • Line Location: BAR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BAR+6
Info |  Source |  Entry Points |  Interaction Calls