Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: BLRBARD

Package: IHS Changes To Lab

Routine: BLRBARD


Information

BLRBARD ; IHS/DIR/FJE - INTERMEC 7421 3 PART LABEL FORMAT 12:36 ; [ 03/17/1999 12:28 PM ]

Source Information

Source file <BLRBARD.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 2 ^%ZIS  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
BAR ;FORMAT BAR CODE LABELS
L19
L14
L15
L16
L17
L10
L11
L12
L13
L18
L21
L20
L23
L22
L25
L24
L27
L26
L29
L28
ZIS
PLAIN ;programs format F2 for plain label /no barcoded accession #
FMT ;E3;F3 erases form 3 and accesses form #
L6
L7
L4
L5
L2
L3
L0
L1
L8
L9
F5 ;prints sample of label with accession # barcoded
L34
L35
L32
L33
L30
L31
TEST ;sets variables used with the test labels

External References

Name Field # of Occurrence
^%ZIS ZIS
^%ZTLOAD ZIS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?20,*7,"NO DEVICE SELECTED "
  • Line Location: ZIS+0
Function Call: WRITE
  • Prompt: *2,*27,"P",*3
  • Line Location: BAR+1
Function Call: WRITE
  • Prompt: *2,"E4;F4;",*3
  • Line Location: BAR+2
Function Call: WRITE
  • Prompt: *2,"F4;H0;o160,485;f2;c2;h2;w1;d0,14;",*3
  • Line Location: L0+0
Function Call: WRITE
  • Prompt: *2,"F4;H1;o200,453;f2;c2;h1;w1;d0,16;",*3
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: *2,"F4;H2;o133,350;f1;c2;h1;w1;d0,14;",*3
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: *2,"F4;H3;o0,390;f1;c2;h2;w1;d0,21;",*3
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: *2,"F4;H4;o30,390;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L4+0
Function Call: WRITE
  • Prompt: *2,"F4;H5;o30,290;f1;c2;h1;w1;d0,9;",*3
  • Line Location: L5+0
Function Call: WRITE
  • Prompt: *2,"F4;B6;o50,400;f1;c0,0;h60;w2;d0,5;",*3
  • Line Location: L6+0
Function Call: WRITE
  • Prompt: *2,"F4;H7;o116,390;f1;c2;h1;w1;d0,13;",*3
  • Line Location: L7+0
Function Call: WRITE
  • Prompt: *2,"F4;H8;o150,390;f1;c2;h1;w1;d0,22;",*3
  • Line Location: L8+0
Function Call: WRITE
  • Prompt: *2,"F4;H9;o170,240;f1;c0;h3;w3;b1;d0,4;",*3
  • Line Location: L9+0
Function Call: WRITE
  • Prompt: *2,"F4;H10;o0,700;f1;c2;h2;w1;d0,14;",*3
  • Line Location: L10+0
Function Call: WRITE
  • Prompt: *2,"F4;H11;o35,700;f1;c2;h1;w1;d0,16;",*3
  • Line Location: L11+0
Function Call: WRITE
  • Prompt: *2,"F4;H12;o90,700;f1;c2;h2;w1;d0,14;",*3
  • Line Location: L12+0
Function Call: WRITE
  • Prompt: *2,"F4;H13;o133,700;f1;c2;h1;w1;d0,20;",*3
  • Line Location: L13+0
Function Call: WRITE
  • Prompt: *2,"F4;H14;o150,700;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L14+0
Function Call: WRITE
  • Prompt: *2,"F4;H15;o166,700;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L15+0
Function Call: WRITE
  • Prompt: *2,"F4;H16;o181,700;f1;c2;h1;w1;d0,16;",*3
  • Line Location: L16+0
Function Call: WRITE
  • Prompt: *2,"F4;H17;o200,700;f1;c2;h1;w1;d0,13;",*3
  • Line Location: L17+0
Function Call: WRITE
  • Prompt: *2,*27,"C",*3
  • Line Location: PLAIN+1
Function Call: WRITE
  • Prompt: *2,*27,"P",*3
  • Line Location: PLAIN+2
Function Call: WRITE
  • Prompt: *2,"E5;F5;",*3
  • Line Location: PLAIN+3
Function Call: WRITE
  • Prompt: *2,"F5;H18;o0,450;f1;c2;h2;w1;d0,21;",*3
  • Line Location: L18+0
Function Call: WRITE
  • Prompt: *2,"F5;H19;o33,450;f1;c2;h1;w1;d0,16;",*3
  • Line Location: L19+0
Function Call: WRITE
  • Prompt: *2,"F5;H20;o50,450;f1;c2;h1;w1;d0,14;",*3
  • Line Location: L20+0
Function Call: WRITE
  • Prompt: *2,"F5;H21;o75,450;f1;c2;h2;w1;d0,21;",*3
  • Line Location: L21+0
Function Call: WRITE
  • Prompt: *2,"F5;H22;o105,450;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L22+0
Function Call: WRITE
  • Prompt: *2,"F5;H23;o105,350;f1;c2;h1;w1;d0,14;",*3
  • Line Location: L23+0
Function Call: WRITE
  • Prompt: *2,"F5;H24;o133,280;f1;c2;h1;w1;d0,9;",*3
  • Line Location: L24+0
Function Call: WRITE
  • Prompt: *2,"F5;H25;o133,450;f1;c2;h1;w1;d0,13;",*3
  • Line Location: L25+0
Function Call: WRITE
  • Prompt: *2,"F5;H26;o150,450;f1;c2;h1;w1;d0,22;",*3
  • Line Location: L26+0
Function Call: WRITE
  • Prompt: *2,"F5;H27;o170,240;f1;c0;h3;w3;b1;d0,4;",*3
  • Line Location: L27+0
Function Call: WRITE
  • Prompt: *2,"F5;H28;o0,700;f1;c2;h2;w1;d0,14;",*3
  • Line Location: L28+0
Function Call: WRITE
  • Prompt: *2,"F5;H29;o35,700;f1;c2;h1;w1;d0,16;",*3
  • Line Location: L29+0
Function Call: WRITE
  • Prompt: *2,"F5;H30;o90,700;f1;c2;h2;w1;d0,14;",*3
  • Line Location: L30+0
Function Call: WRITE
  • Prompt: *2,"F5;H31;o133,700;f1;c2;h1;w1;d0,20;",*3
  • Line Location: L31+0
Function Call: WRITE
  • Prompt: *2,"F5;H32;o150,700;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L32+0
Function Call: WRITE
  • Prompt: *2,"F5;H33;o166,700;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L33+0
Function Call: WRITE
  • Prompt: *2,"F5;H34;o181,700;f1;c2;h1;w1;d0,16;",*3
  • Line Location: L34+0
Function Call: WRITE
  • Prompt: *2,"F5;H35;o200,700;f1;c2;h1;w1;d0,13;",*3
  • Line Location: L35+0
Function Call: WRITE
  • Prompt: *2,"R",*3
  • Line Location: L35+1
Function Call: WRITE
  • Prompt: *2,*27,"E4",*24,LRAN,!,LRDAT,!,LRTOP,*3
  • Line Location: F5+2
Function Call: WRITE
  • Prompt: *2,!,PNM,!,HRCN,!,"W:",LRLLOC,*3
  • Line Location: F5+3
Function Call: WRITE
  • Prompt: *2,!,NUMBER,!,"Order#:",LRCE,!,LRTXT,*3
  • Line Location: F5+4
Function Call: WRITE
  • Prompt: *2,!
  • Line Location: F5+5
Function Call: WRITE
  • Prompt: LRURG
  • Condition for execution: $D(LRURG)&(LRURG="STAT")
  • Line Location: F5+5
Function Call: WRITE
  • Prompt: *3
  • Line Location: F5+5
Function Call: WRITE
  • Prompt: *2,!,LRAN,!,LRDAT,*3
  • Line Location: F5+6
Function Call: WRITE
  • Prompt: *2,!,LRAN,*3
  • Line Location: F5+7
Function Call: WRITE
  • Prompt: *2,!,PNM,!,HRCN,!,LRLLOC,!,LRDAT,!,LRTXT,*3
  • Line Location: F5+8
Function Call: WRITE
  • Prompt: *2,*23,*15,"S30",*3
  • Line Location: F5+9
Function Call: WRITE
  • Prompt: *2,*27,"E5",*24,!,LRAN,!,LRDAT,!,LRTOP,*3
  • Line Location: F5+10
Function Call: WRITE
  • Prompt: *2,!,PNM,!,HRCN,!,DOB,!,"W:",LRLLOC,*3
  • Line Location: F5+11
Function Call: WRITE
  • Prompt: *2,!,"Order#:",LRCE,!,LRTXT,*3
  • Line Location: F5+12
Function Call: WRITE
  • Prompt: *2,!
  • Line Location: F5+13
Function Call: WRITE
  • Prompt: LRURG
  • Condition for execution: $D(LRURG)&(LRURG="STAT")
  • Line Location: F5+13
Function Call: WRITE
  • Prompt: *3
  • Line Location: F5+13
Function Call: WRITE
  • Prompt: *2,!,LRAN,!,LRDAT,*3
  • Line Location: F5+14
Function Call: WRITE
  • Prompt: *2,!,LRAN,*3
  • Line Location: F5+15
Function Call: WRITE
  • Prompt: *2,!,PNM,!,HRCN,!,LRLLOC,!,LRDAT,!,LRTXT,*3
  • Line Location: F5+16
Function Call: WRITE
  • Prompt: *2,*23,*15,"S30",*3
  • Line Location: F5+17
Routine Call
  • %ZIS
  • Line Location:
    • ZIS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" BAR+1, F5+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS ZIS*
>> DOB TEST+3*, F5+11
>> HRCN TEST+2*, F5+3, F5+8, F5+11, F5+16
ION ZIS+1
>> LRAN TEST+1*, F5+2, F5+6, F5+7, F5+10, F5+14, F5+15
>> LRCE TEST+4*, F5+4, F5+12
>> LRDAT TEST+1*, F5+2, F5+6, F5+8, F5+10, F5+14, F5+16
>> LRLLOC TEST+4*, F5+3, F5+8, F5+11, F5+16
>> LRTOP TEST+2*, F5+2, F5+10
>> LRTXT TEST+4*, F5+4, F5+8, F5+12, F5+16
>> LRURG TEST+4*, F5+5, F5+13
>> NUMBER TEST+1*, F5+4
>> PNM TEST+2*, F5+3, F5+8, F5+11, F5+16
>> POP ZIS
>> X BAR+1*, F5+1*
>> ZTDESC ZIS+1*
>> ZTDTH ZIS+1*
>> ZTIO ZIS+1*
>> ZTRTN ZIS+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All