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

Package: Lab Service

Routine: LRLABEL6


Information

LRLABEL6 ;SLC/FHS - BAR CODE LABELS FOR THE INTERMEC PRINTER ;8/29/94 12:36

Source Information

Source file <LRLABEL6.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
P
BAR
PRT
ENQ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(2),"R",$C(3)
  • Line Location: BAR+0
Function Call: WRITE
  • Prompt: $C(2,27),"E3",$C(24),$E(PNM,1,30)_" "_$P(SSN,"-",3),!,$E(LRINFW,1,20),!,LRTXT,!,LRACC_$S($D(LRURG):" <"_LRURG_"> ",1:" ")_"LOC:"_LRLLOC,!,$E(LRACC,1,2),!,LRBARID,$C(30),1,$C(23,3)
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: $C(2),"R",$C(3)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: $C(2,27),"E2",$C(24),$E(PNM,1,30)_" "_$P(SSN,"-",3),!,$E(LRINFW,1,20)_" ORD:"_$S($D(LRCE):LRCE,1:""),!,LRTXT,!,LRACC_$S($D(LRURG):" <"_LRURG_"> ",1:" ")_"LOC:"_LRLLOC,!,LRTOP_" "_LRPREF,$C(30),1,$C(23,3)
  • Line Location: PRT+1
Function Call: READ
  • Variable: *X
  • Timeout: 1
  • Line Location: ENQ+1
Function Call: WRITE
  • Prompt: $C(5)
  • Line Location: ENQ+1
Function Call: READ
  • Variable: *X
  • Timeout: 1
  • Line Location: ENQ+2
Info |  Source |  Entry Points |  Interaction Calls