Routine: BLRRLEV2

Package	Total	Call Graph
IHS Changes To Lab	6	BILL^BLRAG05C EEP^BLRGMENU $$COM^BLRRLCOM ($$CODE,DISAAQ)^BLRRLEVT (BILL,CLIENT)^BLRRLHL PRT^BLRSHPM
IHS VA Utilities	1	$$VAL^XBDIQ1
Kernel	1	EN^XQOR
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
AAA	; EP
EEP	; EP - Ersatz EP
TMPSET(BLRSHP)	;-- setup the array for the shipping manifest

External References

Name	Field # of Occurrence
BILL^BLRAG05C	AAA+94
EEP^BLRGMENU	EEP+1
$$COM^BLRRLCOM	AAA+1
$$CODE^BLRRLEVT	AAA+65
DISAAQ^BLRRLEVT	AAA+7
BILL^BLRRLHL	AAA+96
CLIENT^BLRRLHL	AAA+99
PRT^BLRSHPM	AAA+106
^DIR	AAA+5
$$VAL^XBDIQ1	AAA+39, AAA+40, AAA+41
EN^XQOR	AAA+107

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No valid accession area prefix" Line Location: AAA+24
Function Call: WRITE	Prompt: !,"Accession area is not setup in the BLR MASTER CONTROL file" Line Location: AAA+29
Function Call: WRITE	Prompt: !,"Institution "_$P($G(^DIC(4,$S($G(BLRALTDZ):BLRALTDZ,1:DUZ(2)),0)),U)_" is not setup in the Accession Area multiple of file 60" Line Location: AAA+56
Function Call: WRITE	Prompt: !,"Accession Area field is not setup in file 60 for "_$P($G(^DIC(4,$S($G(BLRALTDZ):BLRALTDZ,1:DUZ(2)),0)),U) Line Location: AAA+58
Function Call: WRITE	Prompt: !,"Accession Area in file 60 is not a sendout accession area" Line Location: AAA+60
Routine Call	DIR Line Location: AAA+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRRL - [#9009026]	AAA+16, AAA+102
^BLRSITE - [#9009029]	AAA+15, AAA+48, AAA+96, AAA+101
^BLRSITE("ACC"	AAA+28
^DIC(4 - [#4]	AAA+56, AAA+58
^LAB(60 - [#60]	AAA+55, AAA+57, AAA+62
^LAB(61 - [#61]	AAA+83
^LAB(62.05 - [#62.05]	AAA+76
^LRO(68 - [#68]	AAA+25, AAA+63
^SC - [#44]	AAA+13
^TMP("BLRRL"	TMPSET+6, TMPSET+14, TMPSET+23, TMPSET+30

Label References

Name	Line Occurrences
AAA	AAA+6
TMPSET	AAA+104

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BLR("ACCAREA"	AAA+25*, AAA+26, AAA+28, AAA+60
>> BLRAGUI	AAA+105
>> BLRALTDZ	AAA+15, AAA+48, AAA+55, AAA+56, AAA+57, AAA+58, AAA+96, AAA+101
>> BLRAREA	AAA+57*, AAA+58, AAA+60, AAA+63
>> BLRBT	AAA+94, AAA+95
>> BLRCM	AAA+86*, AAA+87, AAA+88
>> BLRCNT	AAA+7
BLRDA	TMPSET+1~, TMPSET+2, TMPSET+3, TMPSET+5, TMPSET+6, TMPSET+8!, TMPSET+9, TMPSET+10, TMPSET+11, TMPSET+13 , TMPSET+14, TMPSET+16!, TMPSET+17, TMPSET+18, TMPSET+19, TMPSET+21, TMPSET+22, TMPSET+23, TMPSET+25!, TMPSET+26 , TMPSET+27, TMPSET+28, TMPSET+29, TMPSET+30
BLRDATA	TMPSET+1~, TMPSET+5, TMPSET+6, TMPSET+8!, TMPSET+13, TMPSET+14, TMPSET+16!, TMPSET+22, TMPSET+23, TMPSET+25! , TMPSET+29, TMPSET+30
BLRIEN	TMPSET+1~, TMPSET+8!, TMPSET+11, TMPSET+12, TMPSET+13, TMPSET+14, TMPSET+16!, TMPSET+19, TMPSET+20, TMPSET+21 , TMPSET+22, TMPSET+23, TMPSET+25!, TMPSET+28*, TMPSET+29, TMPSET+30
BLROEN	TMPSET+1~, TMPSET+16!, TMPSET+21*, TMPSET+22, TMPSET+23, TMPSET+25!
BLRRL	AAA+104, AAA+108!
BLRRL(	AAA+35!, AAA+37, AAA+43, AAA+44, AAA+49, AAA+50, AAA+51, AAA+61, AAA+68!, AAA+69 , AAA+70, AAA+72, AAA+75, AAA+79, AAA+81, AAA+83, AAA+85, AAA+87
BLRRL("ABBR"	AAA+63*
BLRRL("ACC"	AAA+20*, AAA+23
BLRRL("ACCA"	AAA+23*, AAA+24, AAA+25
BLRRL("BI"	AAA+15*
BLRRL("BILL T	YPE" , AAA+94, AAA+95, AAA+103*
BLRRL("CDT"	AAA+22*
BLRRL("CLIENT"	AAA+100, AAA+101, AAA+102*
BLRRL("COMMENT"	AAA+88*
BLRRL("LOC"	AAA+12, AAA+13
BLRRL("LOCI"	AAA+11*
BLRRL("LRTS"	AAA+1, AAA+7, AAA+10
BLRRL("ODT"	AAA+78*
BLRRL("ORD"	AAA+84*
BLRRL("ORDP"	AAA+45, AAA+46, AAA+52, AAA+53
BLRRL("ORDPNM"	AAA+36!, AAA+41, AAA+42, AAA+43, AAA+45, AAA+50, AAA+52
BLRRL("ORDPNPI"	AAA+40*, AAA+50, AAA+52
BLRRL("ORDPRV"	AAA+30*, AAA+38, AAA+39, AAA+40, AAA+41
BLRRL("ORDPUPIN"	AAA+36!, AAA+39*, AAA+43, AAA+45
BLRRL("PAT"	AAA+19*
BLRRL("RL"	AAA+16, AAA+28, AAA+65, AAA+102
BLRRL("RLE"	AAA+16*, AAA+73
BLRRL("SAMP"	AAA+80*
BLRRL("SHIPCOND"	AAA+67*
BLRRL("SRC"	AAA+82, AAA+83
BLRRL("TCNM"	AAA+71, AAA+74
BLRRL("TCODE"	AAA+66*, AAA+68, AAA+71, AAA+72
BLRRL("TCODEE"	AAA+65*, AAA+66, AAA+67
BLRRL("TNAME"	AAA+62*, AAA+71, AAA+72
BLRRL("TST"	AAA+64*, AAA+65
BLRRL("TSTDA"	AAA+34*
BLRRL("UID"	AAA+21*
BLRRL("UPINNPI"	AAA+37, AAA+49
BLRRL("URG"	AAA+77*
BLRRL("URGHL"	AAA+76*
>> BLRRLBTP	AAA+103
>> BLRRLC	AAA+7
>> BLRRLC(	AAA+86, AAA+87, AAA+88, AAA+108!
>> BLRRLC(0	AAA+1, AAA+2
>> BLRRLCLA	AAA+99
>> BLRRLCLT	AAA+100
>> BLRRLSUC	AAA+1*
BLRSHP	TMPSET~
BLRSHP(	TMPSET+2, TMPSET+5, TMPSET+9, TMPSET+11, TMPSET+13, TMPSET+17, TMPSET+19, TMPSET+21, TMPSET+22, TMPSET+26 , TMPSET+28, TMPSET+29
>> BLRTSTDA	AAA+34*, AAA+35, AAA+37, AAA+43, AAA+44, AAA+49, AAA+50, AAA+51, AAA+61, AAA+68 , AAA+69, AAA+70, AAA+72, AAA+75, AAA+79, AAA+81, AAA+83, AAA+85, AAA+86, AAA+87 , AAA+88, AAA+108
>> BLRTSTI	AAA+54*, AAA+55, AAA+57, AAA+62, AAA+64
>> DFN	AAA+19
>> DIC	AAA+107*
>> DIR("A"	AAA+3*
>> DIR("B"	AAA+4*
>> DIR(0	AAA+3*
DUZ(2	AAA+15, AAA+28, AAA+48, AAA+55, AAA+56, AAA+57, AAA+58, AAA+96, AAA+101
>> LRACC	AAA+20, AAA+69
>> LRCDT	AAA+22, AAA+61
>> LRLLOC	AAA+12
>> LRODT	AAA+78
>> LROLLOC	AAA+11, AAA+13
>> LRORD	AAA+84, AAA+85
>> LRPRAC	AAA+30
>> LRQUIET	AAA+2, AAA+93, AAA+96
>> LRSAMP	AAA+79, AAA+80
>> LRSPEC	AAA+81, AAA+82, AAA+83
LRTEST	AAA+108!
>> LRTS	AAA+34, AAA+54
>> LRUID	AAA+21, AAA+70
>> LRURG	AAA+76, AAA+77
PAT	AAA+108!
U	AAA+1, AAA+13, AAA+15, AAA+16, AAA+44, AAA+46, AAA+48, AAA+51, AAA+53, AAA+56 , AAA+57, AAA+58, AAA+62, AAA+63, AAA+66, AAA+67, AAA+71, AAA+72, AAA+76, AAA+83 , AAA+96, AAA+102, AAA+105
>> X	AAA+107*
>> XQY0	AAA+1, AAA+105
>> Y	AAA+6

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLEV2

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: