Routine: BLRIPLZI

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$HTE^XLFDT
IHS VA Utilities	1	^XBFMK
VA Fileman	1	^DIR

Name	Comments	DBIA/ICR reference
SETVARS	; EP - Initialize variables for testing
F2	; Prints TEST label WITHOUT a barcoded UID number
F3	; EP - Prints TEST label with Accession # barcoded
BAR	; EP
ZIS	; EP
MAKERNDM	; EP - Randomly set certain variables
BARCODEI(SHIFT)	; EP - Bar code format, By ROWs,
FMT	;EP - E3;F3 erases format 3 (BARCODE) and accesses form # ; E2;F2 erases format 2 (PLAIN) and accesses form #
RANDNAME(LEN)	; EP - Make Random (Gibberish) Name
ACCRNDOM()	; EP - Make Random Accession numbers. CH only.
PLAININI(SHIFT)	; EP -- PLAIN format - By ROWs,
BARCODET	; EP - BARCODE format Test print
JUSTBAR	; EP - Tests BARCODE format only
JUSTPLN	; EP - Tests PLAIN format only
PLAINTST	; EP - PLAIN label TeST print
TEST	; EP - sets variables used with the test labels
PREPCODE(FORMAT)	;EP - Code Common to BAR & PLAIN labels initialization
PROGINIT	; EP -- SHIFT Prompt.
PROGBAR	; EP - SHIFT Initialization
DOBSTR()	; EP - Make DoB random
PRESSKEY(TAB)	; EP - Generic "PRESS RETURN KEY TO CONTINUE"

Name	Field # of Occurrence
^%ZIS	ZIS+3, PROGINIT+11, TEST+5, JUSTBAR+6, JUSTPLN+5
^%ZISC	ZIS+3, ZIS+10, ZIS+11, BAR+12, PROGINIT+11, PROGINIT+19, PROGINIT+20, PROGBAR+8, TEST+12, JUSTBAR+16 , JUSTPLN+15
^%ZTLOAD	ZIS+9, PROGINIT+18
^DIR	PROGINIT+6, PRESSKEY+3
^XBFMK	PROGINIT+3
$$HTE^XLFDT	SETVARS+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?7,*7,"NO DEVICE SELECTED ",! Line Location: ZIS+3
Function Call: WRITE	Prompt: !!?5,"Barcode Formating Program",$S($G(ZTSK):" Queued ",1:" NOT QUEUED"),!! Line Location: ZIS+10
Function Call: WRITE	Prompt: "<STX>R<ETX>" Line Location: BAR+10
Function Call: WRITE	Prompt: !?7,*7,"NO DEVICE SELECTED ",! Line Location: PROGINIT+11
Function Call: WRITE	Prompt: !!?5,"SHIFT Barcode Formating Program",$S($G(ZTSK):" Queued ",1:" NOT QUEUED"),!! Line Location: PROGINIT+19
Function Call: WRITE	Prompt: "<STX>R<ETX>" Line Location: PROGBAR+6
Function Call: WRITE	Prompt: "<STX>F3;H1;o165,"_(575-SHIFT)_";f1;c2;h1;w1;d0,32<ETX>" Line Location: BARCODEI+4
Function Call: WRITE	Prompt: "<STX>F3;H2;o148,"_(575-SHIFT)_";f1;c2;h1;w1;d0,18<ETX>" Line Location: BARCODEI+5
Function Call: WRITE	Prompt: "<STX>F3;H3;o148,"_(325-SHIFT)_";f1;c2;h1;w1;d0,11<ETX>" Line Location: BARCODEI+6
Function Call: WRITE	Prompt: "<STX>F3;H4;o130,"_(575-SHIFT)_";f1;c2;h1;w1;d0,14<ETX>" Line Location: BARCODEI+7
Function Call: WRITE	Prompt: "<STX>F3;H5;o130,"_(360-SHIFT)_";f1;c2;h1;w1;d0,16<ETX>" Line Location: BARCODEI+8
Function Call: WRITE	Prompt: "<STX>F3;B6;o67,"_(570-SHIFT)_";f1;c"_SYMBOLGY_";h60;w3;d0,10<ETX>" Line Location: BARCODEI+11
Function Call: WRITE	Prompt: "<STX>F3;B6;o67,"_(570-SHIFT)_";f1;c0;h60;w3;d0,10<ETX>" Line Location: BARCODEI+12
Function Call: WRITE	Prompt: "<STX>F3;H7;o47,"_(575-SHIFT)_";f1;c2;h1;w1;d0,13<ETX>" Line Location: BARCODEI+13
Function Call: WRITE	Prompt: "<STX>F3;H8;o47,"_(330-SHIFT)_";f1;c2;h1;w1;d0,12<ETX>" Line Location: BARCODEI+14
Function Call: WRITE	Prompt: "<STX>F3;H9;o30,"_(575-SHIFT)_";f1;c2;h1;w1;d0,7<ETX>" Line Location: BARCODEI+15
Function Call: WRITE	Prompt: "<STX>F3;H10;o30,"_(470-SHIFT)_";f1;c2;h1;w1;d0,15<ETX>" Line Location: BARCODEI+16
Function Call: WRITE	Prompt: "<STX>F3;H11;o30,"_(260-SHIFT)_";f1;c2;h1;w1;d0,4<ETX>" Line Location: BARCODEI+17
Function Call: WRITE	Prompt: "<STX>F3;H12;o0,"_(575-SHIFT)_";f1;c2;h2;w1;d0,25<ETX>" Line Location: BARCODEI+18
Function Call: WRITE	Prompt: "<STX>F3;H13;o0,"_(265-SHIFT)_";f1;c2;h1;w1;d0,5<ETX>" Line Location: BARCODEI+19
Function Call: WRITE	Prompt: "<STX><ESC>C<ETX>" Line Location: PREPCODE+5
Function Call: WRITE	Prompt: "<STX><ESC>P<ETX>" Line Location: PREPCODE+6
Function Call: WRITE	Prompt: "<STX>E"_FORMAT_";F"_FORMAT_"<ETX>" Line Location: PREPCODE+7
Function Call: WRITE	Prompt: "<STX>F2;H14;o165,"_(575-SHIFT)_";f1;c2;h1;w1;d0,32<ETX>" Line Location: PLAININI+3
Function Call: WRITE	Prompt: "<STX>F2;H15;o146,"_(575-SHIFT)_";f1;c2;h1;w1;d0,11;<ETX>" Line Location: PLAININI+4
Function Call: WRITE	Prompt: "<STX>F2;H16;o146,"_(330-SHIFT)_";f1;c2;h1;w1;d0,12<ETX>" Line Location: PLAININI+5
Function Call: WRITE	Prompt: "<STX>F2;H17;o127,"_(575-SHIFT)_";f1;c2;h1;w1;d0,28<ETX>" Line Location: PLAININI+6
Function Call: WRITE	Prompt: "<STX>F2;H18;o108,"_(575-SHIFT)_";f1;c2;h1;w1;d0,16<ETX>" Line Location: PLAININI+7
Function Call: WRITE	Prompt: "<STX>F2;H19;o72,"_(575-SHIFT)_";f1;c2;h2;w1;d0,14<ETX>" Line Location: PLAININI+8
Function Call: WRITE	Prompt: "<STX>F2;H20;o51,"_(575-SHIFT)_";f1;c2;h1;w1;d0,13;<ETX>" Line Location: PLAININI+9
Function Call: WRITE	Prompt: "<STX>F2;H21;o51,"_(350-SHIFT)_";f1;c2;h1;w1;d0,5<ETX>" Line Location: PLAININI+10
Function Call: WRITE	Prompt: "<STX>F2;H22;o35,"_(200-SHIFT)_";f0;c0;h3;w3;b2;d0,4<ETX>" Line Location: PLAININI+11
Function Call: WRITE	Prompt: "<STX>F2;H23;o32,"_(575-SHIFT)_";f1;c2;h1;w1;d0,7;<ETX>" Line Location: PLAININI+12
Function Call: WRITE	Prompt: "<STX>F2;H24;o32,"_(460-SHIFT)_";f1;c2;h1;w1;d0,15<ETX>" Line Location: PLAININI+13
Function Call: WRITE	Prompt: "<STX>F2;H25;o0,"_(575-SHIFT)_";f1;c2;h2;w1;d0,32<ETX>" Line Location: PLAININI+14
Function Call: WRITE	Prompt: !!,"DEVICE ISSUE. ROUTINE STOPPING.",! Line Location: TEST+7
Function Call: WRITE	Prompt: "<STX><FF><ETX>" Line Location: F2+3
Function Call: WRITE	Prompt: "<STX><ESC>E3<CAN><ETX>" Line Location: BARCODET+3
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRTXT),"<ETX>" Line Location: BARCODET+4
Function Call: WRITE	Prompt: "<STX><CR>","Prov:"_$G(LRPROV),"<ETX>" Line Location: BARCODET+5
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRTOP),"<ETX>" Line Location: BARCODET+6
Function Call: WRITE	Prompt: "<STX><CR>"_$G(LRAS),"<ETX>" Line Location: BARCODET+7
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRDAT),"<ETX>" Line Location: BARCODET+8
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRAN),"<ETX>" Line Location: BARCODET+9
Function Call: WRITE	Prompt: "<STX><CR>","Ord#:"_$G(LRCE),"<ETX>" Line Location: BARCODET+10
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRLLOC)," ",$G(LRRB),"<ETX>" Line Location: BARCODET+11
Function Call: WRITE	Prompt: "<STX><CR>",$G(HRCN),"<ETX>" Line Location: BARCODET+12
Function Call: WRITE	Prompt: "<STX><CR>","DoB:"_$G(DOB),"<ETX>" Line Location: BARCODET+13
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRURG),"<ETX>" Line Location: BARCODET+14
Function Call: WRITE	Prompt: "<STX><CR>",$E($G(PNM),1,27),"<ETX>" Line Location: BARCODET+15
Function Call: WRITE	Prompt: "<STX><CR>","Sex:",$G(SEX),"<ETX>" Line Location: BARCODET+16
Function Call: WRITE	Prompt: "<STX><ETB><SI>S30<ETX>" Line Location: BARCODET+17
Function Call: WRITE	Prompt: "<STX><ESC>E2<CAN><ETX>" Line Location: PLAINTST+3
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRTXT),"<ETX>" Line Location: PLAINTST+4
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRTOP),"<ETX>" Line Location: PLAINTST+5
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRLLOC)," ",$G(LRRB),"<ETX>" Line Location: PLAINTST+6
Function Call: WRITE	Prompt: "<STX><CR>","Prov:"_$G(LRPROV),"<ETX>" Line Location: PLAINTST+7
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRDAT),"<ETX>" Line Location: PLAINTST+8
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRAS),"<ETX>" Line Location: PLAINTST+9
Function Call: WRITE	Prompt: "<STX><CR>","Ord#:",$G(LRCE),"<ETX>" Line Location: PLAINTST+10
Function Call: WRITE	Prompt: "<STX><CR>","Sex:",$G(SEX),"<ETX>" Line Location: PLAINTST+11
Function Call: WRITE	Prompt: "<STX><CR>",$G(LRURG),"<ETX>" Line Location: PLAINTST+12
Function Call: WRITE	Prompt: "<STX><CR>",$G(HRCN),"<ETX>" Line Location: PLAINTST+13
Function Call: WRITE	Prompt: "<STX><CR>","DoB:"_$G(DOB),"<ETX>" Line Location: PLAINTST+14
Function Call: WRITE	Prompt: "<STX><CR>",$E($G(PNM),1,32),"<ETX>" Line Location: PLAINTST+15
Function Call: WRITE	Prompt: "<STX><ETB><SI>S30<ETX>" Line Location: PLAINTST+16
Function Call: WRITE	Prompt: !!,"DEVICE ISSUE. ROUTINE STOPPING.",!! Line Location: JUSTBAR+8
Function Call: WRITE	Prompt: "<STX><FF><ETX>" Line Location: JUSTBAR+15
Function Call: WRITE	Prompt: !!,"DEVICE ISSUE. ROUTINE STOPPING.",!! Line Location: JUSTPLN+7
Function Call: WRITE	Prompt: "<STX><FF><ETX>" Line Location: JUSTPLN+14
Routine Call	DIR Line Location: PROGINIT+6 PRESSKEY+3
Routine Call	%ZIS Line Location: ZIS+3 PROGINIT+11 TEST+5 JUSTBAR+6 JUSTPLN+5

Name	Line Occurrences
$$ACCRNDOM	MAKERNDM+7
$$DOBSTR	MAKERNDM+11
$$RANDNAME	MAKERNDM+14, MAKERNDM+15
BARCODEI	BAR+8, PROGBAR+4
BARCODET	F3+1, JUSTBAR+13
F3	TEST+11
MAKERNDM	SETVARS+1
PLAININI	BAR+9, PROGBAR+5
PLAINTST	F2+1, JUSTPLN+12
PREPCODE	BARCODEI+2, PLAININI+1
PRESSKEY	TEST+8, JUSTBAR+9, JUSTPLN+8
SETVARS	BARCODET+1, PLAINTST+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	ZIS+1!, ZIS+2, PROGINIT+9!, PROGINIT+10
DAY	MAKERNDM+1~, ACCRNDOM+6, ACCRNDOM+7, ACCRNDOM+10
>> DIR("A"	PROGINIT+5, PRESSKEY+2
>> DIR(0	PROGINIT+4, PRESSKEY+1
DOB	TEST+1~, BARCODET+13, PLAINTST+14, MAKERNDM+11*, JUSTBAR+1~, JUSTPLN+1~
DOBDY	DOBSTR+1~, DOBSTR+4*, DOBSTR+6
DOBMO	DOBSTR+1~, DOBSTR+3*, DOBSTR+6
DOBYR	DOBSTR+1~, DOBSTR+5*, DOBSTR+6
FNAME	MAKERNDM+1~, MAKERNDM+14*, MAKERNDM+16
FORMAT	PREPCODE~, PREPCODE+7
HRCN	TEST+1~, BARCODET+12, PLAINTST+13, MAKERNDM+4*, JUSTBAR+1~, JUSTPLN+1~
IO	TEST+10, JUSTBAR+11, JUSTPLN+10
ION	ZIS+5, PROGINIT+14
LDM	MAKERNDM+1~, ACCRNDOM+2, ACCRNDOM+3, ACCRNDOM+4*, ACCRNDOM+6
LEN	RANDNAME~, RANDNAME+3
LNAME	MAKERNDM+1~, MAKERNDM+15*, MAKERNDM+16
LRACCAP	TEST+1~, SETVARS+12*, JUSTBAR+1~, JUSTPLN+1~
LRAN	TEST+1~, BARCODET+9, MAKERNDM+9*, JUSTBAR+1~, JUSTPLN+1~
LRAS	TEST+1~, BARCODET+7, PLAINTST+9, MAKERNDM+7*, MAKERNDM+8, JUSTBAR+1~, JUSTPLN+1~
LRCE	TEST+1~, BARCODET+10, PLAINTST+10, MAKERNDM+3*, JUSTBAR+1~, JUSTPLN+1~
LRDAT	TEST+1~, BARCODET+8, PLAINTST+8, SETVARS+5*, JUSTBAR+1~, JUSTPLN+1~
LRLLOC	TEST+2~, BARCODET+11, PLAINTST+6, SETVARS+6*, JUSTBAR+2~, JUSTPLN+2~
LRPROV	TEST+2~, BARCODET+5, PLAINTST+7, SETVARS+10*, JUSTBAR+2~, JUSTPLN+2~
LRRB	TEST+2~, BARCODET+11, PLAINTST+6, SETVARS+14*, JUSTBAR+2~, JUSTPLN+2~
LRSPEC	TEST+2~, SETVARS+13*, JUSTBAR+2~, JUSTPLN+2~
LRTOP	TEST+2~, BARCODET+6, PLAINTST+5, SETVARS+4*, JUSTBAR+2~, JUSTPLN+2~
LRTXT	TEST+2~, BARCODET+4, PLAINTST+4, SETVARS+3*, JUSTBAR+2~, JUSTPLN+2~
LRUID	TEST+2~, MAKERNDM+5*, JUSTBAR+2~, JUSTPLN+2~
LRURG	TEST+2~, BARCODET+14, PLAINTST+12, SETVARS+7*, JUSTBAR+2~, JUSTPLN+2~
MON	MAKERNDM+1~, ACCRNDOM+1, ACCRNDOM+2, ACCRNDOM+3, ACCRNDOM+4, ACCRNDOM+5, ACCRNDOM+10
NAME	RANDNAME+1~, RANDNAME+3, RANDNAME+5, RANDNAME+6*, RANDNAME+7
NUM	MAKERNDM+1~, MAKERNDM+8, MAKERNDM+9, ACCRNDOM+8, ACCRNDOM+9*, ACCRNDOM+10
NUMBER	TEST+3~, MAKERNDM+9*, JUSTBAR+3~, JUSTPLN+3~
PNM	TEST+3~, BARCODET+15, PLAINTST+15, MAKERNDM+16*, JUSTBAR+3~, JUSTPLN+3~
>> POP	ZIS+3, PROGINIT+11, TEST+6, JUSTBAR+7, JUSTPLN+6
SEX	TEST+3~, BARCODET+16, PLAINTST+11, SETVARS+9*, JUSTBAR+3~, JUSTPLN+3~
SHIFT	BAR+1~, BAR+6, BAR+8, BAR+9, PROGINIT+1~, PROGINIT+7, PROGBAR+4, PROGBAR+5, BARCODEI~, BARCODEI+4 , BARCODEI+5, BARCODEI+6, BARCODEI+7, BARCODEI+8, BARCODEI+12, BARCODEI+13, BARCODEI+14, BARCODEI+15, BARCODEI+16, BARCODEI+17 , BARCODEI+18, BARCODEI+19, PREPCODE+1, PREPCODE+2, PREPCODE+3*, PLAININI~, PLAININI+3, PLAININI+4, PLAININI+5, PLAININI+6 , PLAININI+7, PLAININI+8, PLAININI+9, PLAININI+10, PLAININI+11, PLAININI+12, PLAININI+13, PLAININI+14
SYMBOLGY	BARCODEI+1~
TAB	PRESSKEY~, PRESSKEY+2
WOTALFA	RANDNAME+1~, RANDNAME+4*, RANDNAME+5, RANDNAME+6
>> Y	PROGINIT+7
>> ZTDESC	ZIS+7, PROGINIT+16
>> ZTDTH	ZIS+6, PROGINIT+15
>> ZTIO	ZIS+5, PROGINIT+14
>> ZTQUEUED	BAR+3, PROGBAR+1
>> ZTREQ	BAR+3, PROGBAR+1
>> ZTRTN	ZIS+8, PROGINIT+17
>> ZTSAVE("SHIFT"	PROGINIT+13*
ZTSK	ZIS+10, ZIS+12!, PROGINIT+19, PROGINIT+21!

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRIPLZI

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Label References

Local Variables

Legend: