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

Package: IHS Changes To Lab

Routine: BLRBARA


Information

BLRBARA ; IHS/DIR/FJE - INTERMEC 4100 2 LABEL FORMAT 12:36 ; [ 03/18/1999 6:44 AM ]

Source Information

Source file <BLRBARA.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Entry Points

Name Comments DBIA/ICR reference
ORIGCODE ;
; BARCODE -- ORIGINAL
OF2 ;prints sample of label without a barcoded accession number
F2 ;prints sample of label without a barcoded accession number
; set variables needed for plain label
F3 ;prints sample of label with accession # barcoded
BAR ;programs format F3 for label with the accession # barcoded
ZIS
L7
PLAIN ;programs format F2 for plain label /no barcoded accession #
FMT ;E3;F3 erases form 3 and accesses form #
L10
L6
PRT ;programs the Intermec for print mode
L4
L5
L2
L3
OF3 ;prints sample of label with accession # barcoded
L1
TEST ;sets variables used with the test labels
L8
L9

External References

Name Field # of Occurrence
^%ZIS ZIS
^%ZISC ZIS, ZIS+2, ZIS+11, PRT+2
^%ZTLOAD ZIS+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?7,*7,"NO DEVICE SELECTED ",!
  • Line Location: ZIS+0
Function Call: WRITE
  • Prompt: !!?5,"Barcode Formating Program",$S($G(ZTSK):" Queued ",1:" NOT QUEUED"),!!
  • Line Location: ZIS+2
Function Call: WRITE
  • Prompt: *2,*27,"C",*3
  • Line Location: BAR+2
Function Call: WRITE
  • Prompt: *2,*27,"P",*3
  • Line Location: BAR+3
Function Call: WRITE
  • Prompt: *2,"E3;F3;",*3
  • Line Location: BAR+4
Function Call: WRITE
  • Prompt: *2,"F3;H1;o155,295;f1;c2;h1;w1;d0,35;",*3
  • Line Location: BAR+6
Function Call: WRITE
  • Prompt: *2,"F3;H2;o138,295;f1;c2;h1;w1;d0,14;",*3
  • Line Location: BAR+7
Function Call: WRITE
  • Prompt: *2,"F3;H3;o121,295;f1;c2;h1;w1;d0,13;",*3
  • Line Location: BAR+8
Function Call: WRITE
  • Prompt: *2,"F3;H4;o160,375;f2;c2;h2;w1;d0,14;",*3
  • Line Location: BAR+9
Function Call: WRITE
  • Prompt: *2,"F3;H5;o175,335;f2;c2;h1;w1;d0,17;",*3
  • Line Location: BAR+10
Function Call: WRITE
  • Prompt: *2,"F3;H6;o35,295;f1;c2;h1;w1;d0,7;",*3
  • Line Location: BAR+11
Function Call: WRITE
  • Prompt: *2,"F3;H7;o35,150;f1;c2;h1;w1;d0,20;",*3
  • Line Location: BAR+12
Function Call: WRITE
  • Prompt: *2,"F3;H8;o0,295;f1;c2;h2;w1;d0,21;",*3
  • Line Location: BAR+13
Function Call: WRITE
  • Prompt: *2,"F3;H9;o125,100;f1;c0;h3;w3;b2;d0,4;",*3
  • Line Location: BAR+14
Function Call: WRITE
  • Prompt: *2,"F3;B10;o55,295;f1;c0,1;h60;w2;d0,5;",*3
  • Line Location: BAR+15
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,"E2;F2;",*3
  • Line Location: PLAIN+3
Function Call: WRITE
  • Prompt: *2,"F2;H14;o164,350;f1;c2;h1;w1;d0,35;",*3
  • Line Location: PLAIN+5
Function Call: WRITE
  • Prompt: *2,"F2;H15;o147,350;f1;c2;h1;w1;d0,14;",*3
  • Line Location: PLAIN+6
Function Call: WRITE
  • Prompt: *2,"F2;H16;o53,350;f1;c2;h1;w1;d0,13;",*3
  • Line Location: PLAIN+7
Function Call: WRITE
  • Prompt: *2,"F2;H17;o75,350;f1;c2;h2;w1;d0,21;",*3
  • Line Location: PLAIN+8
Function Call: WRITE
  • Prompt: *2,"F2;H18;o108,350;f1;c2;h1;w1;d0,16;",*3
  • Line Location: PLAIN+9
Function Call: WRITE
  • Prompt: *2,"F2;H19;o33,350;f1;c2;h1;w1;d0,7;",*3
  • Line Location: PLAIN+10
Function Call: WRITE
  • Prompt: *2,"F2;H20;o147,200;f1;c2;h1;w1;d0,12",*3
  • Line Location: PLAIN+11
Function Call: WRITE
  • Prompt: *2,"F2;H21;o0,350;f1;c2;h2;w1;d0,21;",*3
  • Line Location: PLAIN+12
Function Call: WRITE
  • Prompt: *2,"F2;H22;o30,30;f0;c0;h3;w3;b2;d0,4;",*3
  • Line Location: PLAIN+13
Function Call: WRITE
  • Prompt: *2,"F2;H23;o53,180;f1;c2;h1;w1;d0,5;",*3
  • Line Location: PLAIN+15
Function Call: WRITE
  • Prompt: *2,"F2;H24;o130,350;f1;c2;h1;w1;d0,50;",*3
  • Line Location: PLAIN+16
Function Call: WRITE
  • Prompt: *2,"F2;H25;o33,260;f1;c2;h1;w1;d0,16;",*3
  • Line Location: PLAIN+17
Function Call: WRITE
  • Prompt: *2,"R",*3
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: *2,*27,"E3",*24,!,LRTXT,*3
  • Line Location: F3+2
Function Call: WRITE
  • Prompt: *2,!,LRTOP,*3
  • Line Location: F3+3
Function Call: WRITE
  • Prompt: *2,!,"Order#:",LRCE,*3
  • Line Location: F3+4
Function Call: WRITE
  • Prompt: *2,!,LRACC,*3
  • Line Location: F3+5
Function Call: WRITE
  • Prompt: *2,!,LRDAT,*3
  • Line Location: F3+6
Function Call: WRITE
  • Prompt: *2,!,HRCN,*3
  • Line Location: F3+7
Function Call: WRITE
  • Prompt: *2,!,LRLLOC,*3
  • Line Location: F3+8
Function Call: WRITE
  • Prompt: *2,!,$E(PNM,1,27),*3
  • Line Location: F3+9
Function Call: WRITE
  • Prompt: *2,!,LRURG,*3
  • Line Location: F3+10
Function Call: WRITE
  • Prompt: *2,!,$E("0000",$L(LRAN),4)_LRAN,*3
  • Line Location: F3+11
Function Call: WRITE
  • Prompt: *2,*23,*15,"S30",*3
  • Line Location: F3+12
Function Call: WRITE
  • Prompt: *2,"R",*3
  • Line Location: F2+5
Function Call: WRITE
  • Prompt: *2,*27,"E2",*24,!,LRTXT,*3
  • Line Location: F2+6
Function Call: WRITE
  • Prompt: *2,!,LRTOP,*3
  • Line Location: F2+7
Function Call: WRITE
  • Prompt: *2,!,"Order#:",LRCE,*3
  • Line Location: F2+8
Function Call: WRITE
  • Prompt: *2,!,LRACC,*3
  • Line Location: F2+9
Function Call: WRITE
  • Prompt: *2,!,LRDAT,*3
  • Line Location: F2+10
Function Call: WRITE
  • Prompt: *2,!,HRCN,*3
  • Line Location: F2+11
Function Call: WRITE
  • Prompt: *2,!,LRLLOC,*3
  • Line Location: F2+12
Function Call: WRITE
  • Prompt: *2,!,PNM,*3
  • Line Location: F2+13
Function Call: WRITE
  • Prompt: *2,!,LRURG,*3
  • Line Location: F2+14
Function Call: WRITE
  • Prompt: *2,!,"Sex:",SEX,*3
  • Line Location: F2+15
Function Call: WRITE
  • Prompt: *2,!,"Prov:"_$E(PROVN,1,18),*3
  • Line Location: F2+16
Function Call: WRITE
  • Prompt: *2,!,DOB,*3
  • Line Location: F2+17
Function Call: WRITE
  • Prompt: *2,*23,*15,"S30",*3
  • Line Location: F2+18
Function Call: WRITE
  • Prompt: *2,"F3;H1;o150,390;f1;c2;h1;w1;d0,35;",*3
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: *2,"F3;H2;o133,350;f1;c2;h1;w1;d0,14;",*3
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: *2,"F3;H3;o116,350;f1;c2;h1;w1;d0,13;",*3
  • Line Location: L3+0
Function Call: WRITE
  • Prompt: *2,"F3;H4;o160,450;f2;c2;h2;w1;d0,14;",*3
  • Line Location: L4+0
Function Call: WRITE
  • Prompt: *2,"F3;H5;o175,418;f2;c2;h1;w1;d0,17;",*3
  • Line Location: L5+0
Function Call: WRITE
  • Prompt: *2,"F3;H6;o30,350;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L6+0
Function Call: WRITE
  • Prompt: *2,"F3;H7;o30,250;f1;c2;h1;w1;d0,20;",*3
  • Line Location: L7+0
Function Call: WRITE
  • Prompt: *2,"F3;H8;o0,350;f1;c2;h2;w1;d0,21;",*3
  • Line Location: L8+0
Function Call: WRITE
  • Prompt: *2,"F3;H9;o115,160;f1;c0;h3;w3;b1;d0,4;",*3
  • Line Location: L9+0
Function Call: WRITE
  • Prompt: *2,"F3;B10;o50,350;f1;c0,1;h60;w2;d0,5;",*3
  • Line Location: L10+0
Function Call: WRITE
  • Prompt: *2,"F2;H11;o150,450;f1;c2;h1;w1;d0,35;",*3
  • Line Location: L10+3
Function Call: WRITE
  • Prompt: *2,"F2;H12;o133,450;f1;c2;h1;w1;d0,13;",*3
  • Line Location: L10+4
Function Call: WRITE
  • Prompt: *2,"F2;H13;o133,250;f1;c2;h1;w1;d0,12",*3
  • Line Location: L10+5
Function Call: WRITE
  • Prompt: *2,"F2;H14;o105,350;f1;c2;h1;w1;d0,7;",*3
  • Line Location: L10+6
Function Call: WRITE
  • Prompt: *2,"F2;H15;o105,250;f1;c2;h1;w1;d0,14;",*3
  • Line Location: L10+7
Function Call: WRITE
  • Prompt: *2,"F2;H16;o75,350;f1;c2;h2;w1;d0,21;",*3
  • Line Location: L10+8
Function Call: WRITE
  • Prompt: *2,"F2;H17;o50,450;f1;c2;h1;w1;d0,14;",*3
  • Line Location: L10+9
Function Call: WRITE
  • Prompt: *2,"F2;H18;o33,450;f1;c2;h1;w1;d0,14;",*3
  • Line Location: L10+10
Function Call: WRITE
  • Prompt: *2,"F2;H19;o0,450;f1;c2;h2;w1;d0,21;",*3
  • Line Location: L10+11
Function Call: WRITE
  • Prompt: *2,"F2;H20;o30,155;f1;c0;h3;w3;b1;d0,4;",*3
  • Line Location: L10+12
Function Call: WRITE
  • Prompt: *2,*27,"E3",*24,!,LRTXT,!,LRTOP,!,"Order#:",LRCE,!,LRAN,*3
  • Line Location: OF3+1
Function Call: WRITE
  • Prompt: *2,!,LRDAT,!,HRCN,!,"W:",LRLLOC,*3
  • Line Location: OF3+3
Function Call: WRITE
  • Prompt: *2,!,PNM,*3
  • Line Location: OF3+4
Function Call: WRITE
  • Prompt: *2,!
  • Line Location: OF3+5
Function Call: WRITE
  • Prompt: LRURG
  • Condition for execution: $D(LRURG)&(LRURG="STAT")
  • Line Location: OF3+5
Function Call: WRITE
  • Prompt: *3
  • Line Location: OF3+5
Function Call: WRITE
  • Prompt: *2,!,NUMBER,*3
  • Line Location: OF3+6
Function Call: WRITE
  • Prompt: *2,*23,*15,"S30",*3
  • Line Location: OF3+7
Function Call: WRITE
  • Prompt: *2,*27,"E2",*24,!,LRTXT,!,"Order#:",LRCE,!,"W:",LRLLOC,!,SSN,!,PNM,!,LRTOP,*3
  • Line Location: OF2+1
Function Call: WRITE
  • Prompt: *2,*27,"E2",*24,!,LRTXT,!,"Order#:",LRCE,!,"W:",LRLLOC,!,HRCN,!,PNM,!,LRTOP,*3
  • Line Location: OF2+2
Function Call: WRITE
  • Prompt: *2,*27,"E2",*24,!,LRTXT,!,"Order#:",LRCE,!,"W:",LRLLOC,!,HRCN,!,"DOB:",DOB,*3
  • Line Location: OF2+3
Function Call: WRITE
  • Prompt: *2,!,PNM,!,LRTOP,*3
  • Line Location: OF2+4
Function Call: WRITE
  • Prompt: *2,!,LRDAT,!,LRAN,*3
  • Line Location: OF2+5
Function Call: WRITE
  • Prompt: *2,!
  • Line Location: OF2+6
Function Call: WRITE
  • Prompt: LRURG
  • Condition for execution: $D(LRURG)&(LRURG="STAT")
  • Line Location: OF2+6
Function Call: WRITE
  • Prompt: *3
  • Line Location: OF2+6
Function Call: WRITE
  • Prompt: *2,*23,*15,"S30",*3
  • Line Location: OF2+7
Routine Call
  • %ZIS
  • Line Location:
    • ZIS

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" BAR+2, F3+1, F2+4, OF3+1, OF2+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ZIS!*
>> DOB F2+2*, F2+17, L10+18*, OF2+3
>> HRCN TEST+2*, F3+7, F2+11, L10+17*, OF3+3, OF2+3
ION ZIS+1
>> LRACC TEST+2*, F3+5, F2+9
>> LRACCAP L10+20*
>> LRAN TEST+3*, F3+11, L10+15*, OF3+1, OF2+5
>> LRCE TEST+1*, F3+4, F2+8, L10+19*, OF3+1, OF2+3
>> LRDAT TEST+2*, F3+6, F2+10, L10+15*, OF3+3, OF2+5
>> LRLLOC TEST+3*, F3+8, F2+12, L10+19*, OF3+3, OF2+3
>> LRSPEC L10+20*
>> LRTOP TEST+1*, F3+3, F2+7, L10+17*, OF3+1, OF2+4
>> LRTXT TEST+1*, F3+2, F2+6, L10+19*, OF3+1, OF2+3
>> LRURG TEST+3*, F3+10, F2+14, L10+19*, OF3+5, OF2+6
>> NUMBER L10+15*, OF3+6
>> PNM TEST+3*, F3+9, F2+13, L10+17*, OF3+4, OF2+4
>> POP ZIS
>> PROVN F2+2*, F2+16
>> SEX F2+2*, F2+15
>> X BAR+2*, F3+1*, F2+4*, OF3+1*, OF2+3*
>> ZTDESC ZIS+1*
>> ZTDTH ZIS+1*
>> ZTIO ZIS+1*
>> ZTQUEUED BAR+1
>> ZTREQ BAR+1*
>> ZTRTN ZIS+1*
ZTSK ZIS+2, ZIS+12!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables |  All