Routine: BLRAG05A

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL UPDATE^DIE $$GET1^DIQ ^DIR
IHS Changes To Lab	2	UNL69ERR^BLRAG05D ERR^BLRAGUT
Kernel	2	(CLOSE,OPEN,USE)^%ZISUTL ($$DT,$$HTFM)^XLFDT
Lab Service	1	($$URGA,LBLTYP,LRBAR)^LRLABLD

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRAG05 BLRAG05D

Package

Total

Caller Graph

IHS Changes To Lab

BLRAG05 BLRAG05D

Entry Points

Name	Comments	DBIA/ICR reference
BD	; Bad device - abort, timeout, unsuccessful selection
STORF69D(LRODT,LRSP,LROT,ICDSTR)	; EP - Called from STORDIAG^BLRAG05.
BLRTSTL(BLRTSTL)	;collect all tests for each specimen ; .BLRTSTL = (required) If all tests for a given specimen were not selected ; and passed in, BLRTSTL will be returned with all tests ; that are associated with the specimens represented in ; this input. ; The "TEST POINTERS" portion of this data comes ; element 39 in the return from BLR ALL NON-ACCESSIONED. ; List of test pointers with ICD9 pointers for each ; test/procedure being accessioned separated by ^. ; Each ^ piece is made up of these pipe pieces: ; TEST POINTERS \| [ICD9_IEN:ICD9_IEN:...] ^ ... ; Test pointers = pointers to the LAB ORDER ENTRY ; file 69 - DATE:SPECIMEN:TEST ; ICD9_IEN - pointer to ICD DIAGNOSIS file 80
K	; Close devices
1	;
3
2
T	; Print test label

External References

Name	Field # of Occurrence
CLOSE^%ZISUTL	K+1, K+2
OPEN^%ZISUTL	1+6, 2, 3+12
USE^%ZISUTL	2+11, 2+25, 3+1, 3+14, T+1, T+30, T+31
UNL69ERR^BLRAG05D	BD+2
ERR^BLRAGUT	BD+3
EN^DDIOL	2+26, 3+15
UPDATE^DIE	STORF69D+13
$$GET1^DIQ	1+12, STORF69D+9
^DIR	2+20, 3+7, T+7, T+37, T+46
$$URGA^LRLABLD	T+20
LBLTYP^LRLABLD	3+19
LRBAR^LRLABLD	T+29
$$DT^XLFDT	STORF69D+15
$$HTFM^XLFDT	STORF69D+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 3+3
Function Call: WRITE	Prompt: !!,"Using label routine: ",LRLABEL,! Line Location: T+3
Function Call: WRITE	Prompt: ! Line Location: T+34
Function Call: WRITE	Prompt: ! Line Location: T+43
Routine Call	DIE Line Location: STORF69D+13
Routine Call	DIR Line Location: 2+20 3+7 T+7 T+37 T+46

FileNo	Call Tags
^%ZIS(1 - [#3.5]	GET1^DIQ
^ICD9 - [#80]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^LAB(69.9 - [#69.9]	1+15, 1+17
^LRO(69 - [#69]	BLRTSTL+32
^XTMP("BLRAG05"	STORF69D+15, STORF69D+16, STORF69D+17*

Name	Line Occurrences
1	3+13
2	2+9
@(	T+30
BD	2+5, 3+8, T+8, T+38, T+47
K	2+27, 3, 3+11, T+39, T+51
T	T+50

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	1+3~
%ZIS("B"	1+8, 1+13, 1+15, 1+17*, 1+20
>> BLRICD	BLRTSTL+40, BLRTSTL+41, BLRTSTL+42
BLRJ	BLRTSTL+15~, BLRTSTL+22, BLRTSTL+23, BLRTSTL+24, BLRTSTL+25, BLRTSTL+26, BLRTSTL+27, BLRTSTL+29, BLRTSTL+30, BLRTSTL+31
BLRTN	BLRTSTL+15~
BLRTSTA	BLRTSTL+16~, BLRTSTL+20!, BLRTSTL+44!
BLRTSTA(	BLRTSTL+26, BLRTSTL+27, BLRTSTL+33, BLRTSTL+34*, BLRTSTL+37, BLRTSTL+38, BLRTSTL+39, BLRTSTL+40, BLRTSTL+41
BLRTSTL	BLRTSTL~, BLRTSTL+19, BLRTSTL+22, BLRTSTL+23, BLRTSTL+24, BLRTSTL+25, BLRTSTL+26, BLRTSTL+27, BLRTSTL+29, BLRTSTL+30 , BLRTSTL+31, BLRTSTL+35, BLRTSTL+42*
>> DILOCKTM	STORF69D+1
DIR	1+3~, 2+10~, 3+4!, T+2!, T+33!, T+41!
DIR("?"	3+6, T+36, T+45*
DIR("A"	2+15, 2+16, 2+17, 3+5, T+5, T+6, T+35, T+44
DIR("B"	2+18, 3+5, T+35, T+44
DIR(0	2+14, 3+5, T+4, T+35, T+44*
DIRUT	1+3~, 2+10~, 3+4!, 3+8, T+2!, T+33!, T+38, T+41!, T+47
>> DISYS	STORF69D+1
DOB	T+12~, T+25*
DT	STORF69D+1
DTIME	STORF69D+1
DTOUT	1+3~, 2+10~, 3+4!, T+2!, T+33!, T+41!
DUOUT	1+3~, 2+10~, 3+4!, T+2!, T+33!, T+41!
DUZ	STORF69D+1
DUZ(2	1+15, 1+17
ERRS	STORF69D+11!, STORF69D+14, STORF69D+17
FDA	STORF69D+11!, STORF69D+16
FDA(	STORF69D+12*
I	T+10~, T+18*
>> ICDCNT	STORF69D+5*, STORF69D+6
>> ICDIEN	STORF69D+6*, STORF69D+9, STORF69D+12
ICDSTR	STORF69D~, STORF69D+1, STORF69D+5, STORF69D+6
IO	STORF69D+1
IO("Q"	2+8
>> IOBS	STORF69D+1
>> IOCPU	2+22, 2+24
IOF	STORF69D+1
IOM	2+7, STORF69D+1
ION	2+7, 2+24, STORF69D+1
IOP	1+3~, 1+20*, 2
>> IOS	1+11, 1+12, STORF69D+1
IOSL	2+7, STORF69D+1
IOST	2+7, 2+9, STORF69D+1
>> IOT	STORF69D+1
>> IOXY	STORF69D+1
LRAA	3+17~, 3+18, T+22
LRACC	T+11~, T+16*
>> LRAD	T+23*
LRAN	T+11~, T+18*
LRBAR	T+11~
LRBARID	T+11~, T+18*
LRCE	T+11~, T+16*
LRDAT	T+11~, T+15*
LRINFW	T+11~, T+18*
LRLABEL	1+3~, T+3, T+30
LRLABLIO	1+1, 2+7*, 3+12, 3+16!, BD+1!
LRLABLIO("Q"	2+8*, 3
LRLLOC	T+11~, T+15*
LRODT	BLRTSTL+18~, BLRTSTL+23, BLRTSTL+26, BLRTSTL+27, BLRTSTL+30, BLRTSTL+32, BLRTSTL+33, BLRTSTL+34, BLRTSTL+36, BLRTSTL+37 , BLRTSTL+38, BLRTSTL+39, BLRTSTL+40, BLRTSTL+41, BLRTSTL+42, STORF69D~, STORF69D+1, STORF69D+4
LROT	STORF69D~, STORF69D+1, STORF69D+4
>> LROTIEN	STORF69D+4*, STORF69D+12
LRPREF	T+11~, T+16*
LRRB	T+11~, T+15*
LRSN	BLRTSTL+18~, BLRTSTL+24, BLRTSTL+26, BLRTSTL+27, BLRTSTL+31, BLRTSTL+32, BLRTSTL+33, BLRTSTL+34, BLRTSTL+38*, BLRTSTL+39 , BLRTSTL+40, BLRTSTL+41, BLRTSTL+42
LRSP	STORF69D~, STORF69D+1, STORF69D+4
LRTN	BLRTSTL+18~, BLRTSTL+25, BLRTSTL+26, BLRTSTL+32, BLRTSTL+33, BLRTSTL+34, BLRTSTL+39*, BLRTSTL+40, BLRTSTL+42
LRTOP	T+11~, T+17*
LRTS	T+11~
LRTS(1	T+17*
LRTS(2	T+17*
LRUID	T+11~, T+18*
LRURG	T+11~, T+19*
LRURG0	T+11~, T+19*, T+20
LRURGA	T+11~, T+20*
LRXL	T+11~, T+18*
MSG	2+23~, 2+24*, 2+26
N	T+10~, T+18*
PNM	T+10~, T+15*
POP	1+3~, 2+5, 3+13
>> PROV	T+24*
SEX	T+12~, T+26*
SSN	T+10~, T+15*
U	1+1*, 1+17, BLRTSTL+22, BLRTSTL+23, BLRTSTL+24, BLRTSTL+25, BLRTSTL+26, BLRTSTL+27, BLRTSTL+29, BLRTSTL+30 , BLRTSTL+31, STORF69D+1, STORF69D+15
X	1+3~, 1+12*, 1+13, 3+4!, T+2!, T+33!, T+41!
>> XPARSYS	STORF69D+1
>> XQXFLG	STORF69D+1
Y	1+3~, 2+9, 3+4!, 3+10, 3+11, T+2!, T+8, T+33!, T+39, T+41! , T+49, T+50

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG05A

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: