Routine: BLRLLPRR

Package	Total	Call Graph
VA Fileman	4	^DIC ^DIE $$GET1^DIQ ^DIR
Kernel	3	^%ZIS ^%ZISC ($$CJ,$$TRIM,$$UP)^XLFSTR
IHS Changes To Lab	2	(ADDTMENU,EEP,HEADERDT,HEADERPG,MENUDRFM,PRESSKEY)^BLRGMENU HEADONE2^BLRLUAC2
IHS VA Utilities	1	^XBFMK

Entry Points

Name	Comments	DBIA/ICR reference
PAIRS	; EP - List all the routines that are tied to Lab Label Printing.
SETMENU	; EP -- Lab Programmer Menu
PEP	; EP
EEP
GETPRINI(NEWRTN)	; EP - GET new Print Routine - INItialization of variables
PRNTRTNS(LABELRTN,CNT)	; EP -- Set LABELRTN array with Lab Label Print Routines on the system
GETPRTN(NEWRTN)	; EP -- Get Print Routine's Name
PAIRLINE	; EP - Print a line of data
GETNEWR	; EP
USEORTNS(WOTOPTS)	; EP
GETNEWO	; EP
SETOPTIR(WOTOPTS,OPTSIEN,INITRTN)	; EP -- Resets ROUTINE in selected option
GETOPTS(WOTOPTS,CNT)	; EP -- Set WOTOPTS array with BLR startup Options
GETORINI(INITRTN)	; EP - GET Initialization Routine
USERTNS(NEWRTN)	; EP
REALLY(WOT)	; EP - Prompt for certainty -- Ask 3 Times.
GETOOINI(WOTOPTS,OPTSIEN)	; EP - GET Option & Option's IEN
GOPTIEN(OPT,IEN)	; EP - Get Option's IEN from File 19
SETUPDIR(PROMPT,ARRAY,TABONE,TABTWO,HEADER1,HOWMANY)	; EP - SETUP DIR array and variables
PAIRINIT	; EP - Initialize variables
EP	; EP
INITRTNS(LABELRTN,CNT)	; EP -- Set LABELRTN array with Lab Label Initialization Routines on the system
DOERRS(ERRORS)	; EP
AREUSURE(MSG,WARNING,WOT)	; EP
STRRTNS(LABELRTN,RTNS,CNT)	; EP -- Store routine & description

External References

Name	Field # of Occurrence
^%ZIS	PAIRINIT+8
^%ZISC	PAIRS+13
ADDTMENU^BLRGMENU	SETMENU+3, SETMENU+4, SETMENU+5
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	USERTNS+7, AREUSURE+3, SETOPTIR+15, GETORINI+9, USEORTNS+8, GETPRTN+5, PAIRINIT+7
HEADERPG^BLRGMENU	PAIRLINE+1
MENUDRFM^BLRGMENU	PEP+6
PRESSKEY^BLRGMENU	GETNEWR+6, GETNEWR+19, AREUSURE+30, GETNEWO+6, GETNEWO+13, SETOPTIR+13, SETOPTIR+18, DOERRS+4, PAIRS+15, PAIRINIT+11
HEADONE2^BLRLUAC2	PAIRINIT+14
^DIC	GOPTIEN+3
^DIE	SETOPTIR+7
$$GET1^DIQ	SETOPTIR+10
^DIR	USERTNS+8, AREUSURE+22, GETORINI+10, USEORTNS+9, GETPRTN+9, GETPRTN+16
^XBFMK	SETUPDIR+6, AREUSURE+13, SETOPTIR+3, SETOPTIR+9, GOPTIEN+1, GETPRTN+6, GETPRTN+12
$$CJ^XLFSTR	AREUSURE+7, GETNEWO+9, GETOOINI+3, GETORINI+2, PAIRINIT+5
$$TRIM^XLFSTR	STRRTNS+1, STRRTNS+2, STRRTNS+3, PAIRLINE+3
$$UP^XLFSTR	AREUSURE+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?4,"Routine not selected.",! Line Location: GETNEWR+5
Function Call: WRITE	Prompt: !!,?4,"LRLABEL4 routine has been successfully over-written by ",NEWRTN,".",! Line Location: GETNEWR+18
Function Call: WRITE	Prompt: WARNING Line Location: AREUSURE+9
Function Call: WRITE	Prompt: ! Line Location: AREUSURE+10
Function Call: WRITE	Prompt: !!,?TAB,"YES was NOT entered. Overwriting of "_WOT_" Aborted.",! Line Location: AREUSURE+29
Function Call: WRITE	Prompt: !,?4,"Option not selected.",! Line Location: GETNEWO+5
Function Call: WRITE	Prompt: !,?4,"Routine not selected.",! Line Location: GETNEWO+12
Function Call: WRITE	Prompt: !,?4,"Errors Occurred.",! Line Location: SETOPTIR+12
Function Call: WRITE	Prompt: !,?4,"For Option ",WOTOPTS,!! Line Location: SETOPTIR+16
Function Call: WRITE	Prompt: ?9,"ROUTINE:",NEWRTN Line Location: SETOPTIR+17
Function Call: WRITE	Prompt: !!,"Errors follow:",!! Line Location: DOERRS+1
Function Call: WRITE	Prompt: $$FMTERR^%R(.ERRORS) Line Location: DOERRS+2
Function Call: WRITE	Prompt: ! Line Location: DOERRS+3
Function Call: WRITE	Prompt: !,?4,"Invalid/No Entry.",!! Line Location: GETPRTN+11
Function Call: WRITE	Prompt: !,?4,"Routine Ends.",! Line Location: GETPRTN+19
Function Call: WRITE	Prompt: !,?4,"Routine ",$G(X)," Does Not Exist in this UCI.",! Line Location: GETPRTN+22
Function Call: WRITE	Prompt: !,?19,"COUNT:",CNT Line Location: PAIRS+12
Function Call: WRITE	Prompt: !,?4,"Device Not Available. Routine Ends.",!! Line Location: PAIRINIT+10
Function Call: WRITE	Prompt: ! Line Location: PAIRINIT+14
Function Call: WRITE	Prompt: $E(RTNS,1,13) Line Location: PAIRLINE+4
Function Call: WRITE	Prompt: ?14,$E(STR,1,65) Line Location: PAIRLINE+5
Function Call: WRITE	Prompt: ! Line Location: PAIRLINE+6
Routine Call	DIE Line Location: SETOPTIR+7
Routine Call	DIC Line Location: GOPTIEN+3
Routine Call	DIR Line Location: USERTNS+8 AREUSURE+22 GETORINI+10 USEORTNS+9 GETPRTN+9 GETPRTN+16
Routine Call	%ZIS Line Location: PAIRINIT+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(19 - [#19]	GETOPTS+3, GETOPTS+4
^ROUTINE(	PRNTRTNS+5, STRRTNS+1, INITRTNS+5, GETPRTN+21, PAIRS+9, PAIRLINE+3

Label References

Name	Line Occurrences
$$AREUSURE	REALLY+3, REALLY+6, REALLY+9
$$GETOOINI	GETNEWO+4
$$GETORINI	GETNEWO+11
$$GETPRINI	GETNEWR+4
$$REALLY	GETNEWR+8, GETNEWO+15
$$USEORTNS	GETOOINI+5
$$USERTNS	GETPRINI+4
DOERRS	GETNEWR+12, GETNEWR+16
GETOPTS	USEORTNS+4
GOPTIEN	GETOOINI+6
INITRTNS	GETORINI+5
PAIRINIT	PAIRS+5
PAIRLINE	PAIRS+10
PRNTRTNS	USERTNS+3
SETMENU	PEP+3
SETOPTIR	GETNEWO+17
SETUPDIR	USERTNS+5, GETORINI+7, USEORTNS+6
STRRTNS	PRNTRTNS+8, INITRTNS+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANSWER	REALLY+1~, REALLY+3, REALLY+4, REALLY+6, REALLY+7, REALLY+10
ARRAY	SETUPDIR~
ARRAY(	SETUPDIR+9, SETUPDIR+10, SETUPDIR+14
BLRMMENU	PEP+1~
BLRVERN	PEP+1~, SETMENU+1, PAIRS+2~, PAIRINIT+1
CNT	SETUPDIR+8, SETUPDIR+15, SETUPDIR+16, GETNEWO+1~, GETORINI+3, GETORINI+5, GETORINI+7, GETOPTS~, GETOPTS+7, GETOPTS+8 , PRNTRTNS~, PRNTRTNS+7, PRNTRTNS+8, STRRTNS~, STRRTNS+4, INITRTNS~, INITRTNS+7, INITRTNS+8, PAIRS+2~, PAIRS+12 , PAIRINIT+19, PAIRLINE+8
CODE	GETNEWR+1~, GETNEWR+11, GETNEWR+15, GETNEWO+1~, PAIRS+1~
>> DA	SETOPTIR+4*
DASH	USERTNS+1~, SETUPDIR+1~, SETUPDIR+3, SETUPDIR+26, SETUPDIR+27, USEORTNS+1~, USEORTNS+3
>> DIC	GOPTIEN+2*
>> DIE	SETOPTIR+5*
>> DIR("A"	SETUPDIR+7, AREUSURE+15, AREUSURE+16!, AREUSURE+17, AREUSURE+18, AREUSURE+19, GETPRTN+8, GETPRTN+14*
>> DIR("B"	AREUSURE+21, GETPRTN+15
>> DIR("L"	SETUPDIR+15, SETUPDIR+19, SETUPDIR+20, SETUPDIR+24, SETUPDIR+28, SETUPDIR+29
>> DIR(0	SETUPDIR+30, AREUSURE+20, GETPRTN+7, GETPRTN+13
>> DR	SETOPTIR+6*
ERRORS	DOERRS~, DOERRS+2
ERRS	GETNEWR+1~, GETNEWR+11, GETNEWR+12, GETNEWR+15, GETNEWR+16, GETNEWO+1~, SETOPTIR+1~, SETOPTIR+11, PAIRS+1~
>> GETIT	GETNEWR+11, GETNEWR+12, GETNEWR+15, GETNEWR+16
HD1	GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+14, PAIRLINE+1
HEADER	GETNEWR+2~, GETNEWO+2~, PAIRS+2~
HEADER(1	GETPRINI+1, GETOOINI+1, PAIRINIT+3*
HEADER(2	GETPRINI+2, GETOOINI+2, PAIRINIT+4*
HEADER(3	GETNEWO+8!, GETNEWO+9, GETOOINI+3, PAIRINIT+5*
HEADER(4	GETORINI+1!, GETORINI+2, PAIRINIT+21
HEADER(5	PAIRINIT+22, PAIRINIT+23
HEADER1	SETUPDIR~, SETUPDIR+22
HOWLONG	SETUPDIR+1~, SETUPDIR+4*, SETUPDIR+14, SETUPDIR+27
HOWMANY	USERTNS+1~, USERTNS+3, USERTNS+5, SETUPDIR~, SETUPDIR+7, USEORTNS+1~, USEORTNS+4, USEORTNS+6
IEN	GOPTIEN~, GOPTIEN+4*
INITRTN	GETNEWO+1~, GETNEWO+11, GETNEWO+17, SETOPTIR~, SETOPTIR+6, GETORINI~, GETORINI+12*
IO	PAIRINIT+12
IOM	SETUPDIR+3, SETUPDIR+4, AREUSURE+7, GETNEWO+9, GETOOINI+3, GETORINI+2, USEORTNS+3, PAIRINIT+5
IOSL	PAIRINIT+16
IOST	PAIRINIT+14
LABELRTN	USERTNS+1~, USERTNS+3, USERTNS+5, GETNEWO+1~, GETORINI+5, GETORINI+7, USEORTNS+1~, PRNTRTNS~, PRNTRTNS+8, STRRTNS~ , INITRTNS~, INITRTNS+8
LABELRTN(	USERTNS+10, GETORINI+12, STRRTNS+4*
LINES	PEP+1~, GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+17, PAIRLINE+1, PAIRLINE+7
MAXLINES	GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+16*, PAIRINIT+17, PAIRLINE+1
MIDPOINT	AREUSURE+1~
MSG	AREUSURE~, AREUSURE+14, AREUSURE+17
NAME	GETPRTN+1~, GETPRTN+3, GETPRTN+4, GETPRTN+10, GETPRTN+18, GETPRTN+24*, GETPRTN+26, GETPRTN+28
NEWRTN	GETNEWR+1~, GETNEWR+4, GETNEWR+11, GETNEWR+18, GETPRINI~, GETPRINI+4, USERTNS~, USERTNS+10, GETNEWO+1~, SETOPTIR+1~ , SETOPTIR+10, SETOPTIR+17, GETPRTN~, GETPRTN+28*, PAIRS+1~
OPT	GOPTIEN~, GOPTIEN+2, GETOPTS+1~, GETOPTS+2, GETOPTS+3, GETOPTS+4
OPTSIEN	GETNEWO+1~, GETNEWO+4, GETNEWO+17, SETOPTIR~, SETOPTIR+4, SETOPTIR+10, GETOOINI~, GETOOINI+6
ORD	USERTNS+1~, SETUPDIR+1~, SETUPDIR+8, SETUPDIR+9, SETUPDIR+10, SETUPDIR+12, SETUPDIR+14, SETUPDIR+17, SETUPDIR+18, USEORTNS+1~
PG	GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+19*, PAIRLINE+1
>> POP	PAIRINIT+9
PRINTRTN	GETNEWR+1~, GETNEWO+1~, PAIRS+1~
PROMPT	SETUPDIR~, SETUPDIR+19, AREUSURE+12~, AREUSURE+14, AREUSURE+15, AREUSURE+16, AREUSURE+27, AREUSURE+28
QFLG	GETNEWR+2~, GETNEWO+2~, PAIRS+2~, PAIRINIT+19*, PAIRLINE+1
RTNS	USERTNS+1~, USEORTNS+1~, PRNTRTNS+1~, PRNTRTNS+4, PRNTRTNS+5, PRNTRTNS+6, PRNTRTNS+8, STRRTNS~, STRRTNS+1, STRRTNS+4 , INITRTNS+1~, INITRTNS+4, INITRTNS+5, INITRTNS+6, INITRTNS+8, PAIRS+3~, PAIRS+8, PAIRS+9, PAIRLINE+3, PAIRLINE+4
SEED	PRNTRTNS+1~, PRNTRTNS+3, PRNTRTNS+4, PRNTRTNS+5, PRNTRTNS+6, INITRTNS+1~, INITRTNS+3, INITRTNS+4, INITRTNS+5, INITRTNS+6 , PAIRS+3~, PAIRS+7*, PAIRS+8, PAIRS+9
SELSTR	SETUPDIR+1~, SETUPDIR+17, SETUPDIR+18, SETUPDIR+30
STR	USERTNS+1~, SETUPDIR+11!, SETUPDIR+12, SETUPDIR+13, SETUPDIR+14, SETUPDIR+15, SETUPDIR+21!, SETUPDIR+22, SETUPDIR+23, SETUPDIR+24 , SETUPDIR+25!, SETUPDIR+26, SETUPDIR+27, SETUPDIR+28, USEORTNS+1~, PRNTRTNS+1~, STRRTNS+1, STRRTNS+2, STRRTNS+3, STRRTNS+4 , INITRTNS+1~, PAIRS+3~, PAIRLINE+3*, PAIRLINE+5
TAB	AREUSURE+12~, AREUSURE+26, AREUSURE+28, AREUSURE+29
TABONE	SETUPDIR~, SETUPDIR+13, SETUPDIR+22, SETUPDIR+26
TABTWO	SETUPDIR~, SETUPDIR+4, SETUPDIR+14, SETUPDIR+23, SETUPDIR+26, SETUPDIR+27
WARNING	AREUSURE~, AREUSURE+5, AREUSURE+6, AREUSURE+7, AREUSURE+8*, AREUSURE+9
WARNLEN	AREUSURE+1~
WHAT	SETUPDIR+1~, SETUPDIR+10*, SETUPDIR+13, SETUPDIR+14
WOT	REALLY~, REALLY+3, REALLY+6, REALLY+9, AREUSURE~, AREUSURE+14, AREUSURE+19, AREUSURE+27, AREUSURE+29
WOTOPTS	GETNEWO+1~, GETNEWO+4, GETNEWO+9, GETNEWO+17, SETOPTIR~, SETOPTIR+16, GETOOINI~, GETOOINI+5, GETOOINI+6, USEORTNS~ , USEORTNS+11*, GETOPTS~
WOTOPTS(	GETOPTS+8*
WOTOPTSA	USEORTNS+1~, USEORTNS+4, USEORTNS+6
WOTOPTSA(	USEORTNS+11
>> X	USERTNS+10, USERTNS+11, AREUSURE+24, GETORINI+12, GETORINI+13, USEORTNS+11, USEORTNS+12, GOPTIEN+2, GETPRTN+10, GETPRTN+21 , GETPRTN+22, GETPRTN+24
>> XPDABORT	AREUSURE+25*
>> Y	USERTNS+10, GETORINI+12, USEORTNS+11, GOPTIEN+4, GETPRTN+17
ZERO	GETOPTS+1~, GETOPTS+4*, GETOPTS+5, GETOPTS+6, GETOPTS+8

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRLLPRR

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items