Routine: BLRAG09

Information

BLRAG09 ;IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS ;NOV 19, 2012

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Automated Lab Instruments	4	(SCBLD,SCHK)^LA7SM1 ($$CHKSM,$$CSM,ACCSUP,SEUP,SMSUP)^LA7SMU $$PREV^LA7SMU1 $$AD^LA7SUTL
IHS Changes To Lab	2	($$TA,$$TAA)^BLRAG09B $$TMPGLB^BLRAGUT
VA Fileman	2	^%DT UPDATE^DIE
IHS VA Utilities	1	^XBKVAR
Kernel	1	$$NOW^XLFDT
Lab Service	1	$$LRUID^LRX

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Changes To Lab	1	BLRAG09B

Entry Points

Name	Comments	DBIA/ICR reference
ADATE1	;Get an accession date
EN	;
SCAN	; Scan accession for tests to build
LOCK68	; Lock entry in file 68 ; Called from above, LA7SM
UNLOCK68	; Unlock entry in file 68 ; Called from above, LA7SM
UNWIND(LA760)	; Unwind profile - set tests into global ^TMP("BLRTREE",$J). ; Initialize variable LA7PCNT=0 before calling. ; Kill ^TMP("BLRTREE",$J) before calling.
SMONLY(BLRY,BLRSCFG)	; Start a shipping manifest only, no building ; BLR MANIFEST START rpc
ADD	; Add test to shipping manifest ; Called from above, LA7SM ; Lock on ^LRO(68,LA7AA,1,LA7AD,1,LA7AN,4,LA760) should be set before entering here.
CLEANUP	; Cleanup variables
ADATE	; Select accession dates if specified
CKTEST(LA7AA,LA7AD,LA7AN,LA760)	; Check other tests on accession if test is part of another panel that ; has been flagged for shipping. ; Call with LA7AA = ien of accession area. ; LA7AD = accession date ; LA7AN = accession number ; LA760 = ien of lab test ; Returns LA7FLAG = 0 (part of another panel) ; = 1 (not part of another panel)
DQ	; Taskman entry point ; Build list of tests and criteria for manifest.

External References

Name	Field # of Occurrence
^%DT	ADATE1+2
$$TA^BLRAG09B	SMONLY+41
$$TAA^BLRAG09B	SCAN+38
$$TMPGLB^BLRAGUT	SMONLY+32
UPDATE^DIE	ADD+41
SCBLD^LA7SM1	DQ+16
SCHK^LA7SM1	SCAN+48
$$CHKSM^LA7SMU	EN+11
$$CSM^LA7SMU	EN+20
ACCSUP^LA7SMU	ADD+48
SEUP^LA7SMU	ADD+45
SMSUP^LA7SMU	DQ+12, DQ+30
$$PREV^LA7SMU1	SCAN+43
$$AD^LA7SUTL	DQ+23
$$LRUID^LRX	ADD+8
^XBKVAR	SMONLY+29
$$NOW^XLFDT	ADD+44

Used in RPC

RPC Name	Call Tags
BLR MANIFEST START	SMONLY

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	SMONLY+29
^LAB(60 - [#60]	UNWIND+9, UNWIND+11, UNWIND+13, UNWIND+15, UNWIND+20, UNWIND+22
^LAHM(62.8 - [#62.8]	DQ+6, DQ+33
^LAHM(62.9 - [#62.9]	DQ+2
^LRO(68 - [#68]	DQ+24, DQ+27, ADATE1+3, SCAN+7, SCAN+10, SCAN+17, SCAN+19, SCAN+23, SCAN+26, SCAN+33 , SCAN+38, SCAN+43, ADD+6, ADD+7, CKTEST+15, CKTEST+21, CKTEST+25, CKTEST+28, LOCK68+6, UNLOCK68+3
^TMP("BLRAG"	SMONLY+31!
^TMP("BLRTREE"	CKTEST+11!, CKTEST+32, CKTEST+34!, UNWIND+13, UNWIND+25, CLEANUP+4!
^TMP("LA7SMADD"	CLEANUP+4!
^TMP("LA7SMB"	DQ+18, SCAN+28, CLEANUP+4!

Label References

Name	Line Occurrences
$$CKTEST	SCAN+49
ADATE	EN+28
ADATE1	ADATE+12
ADD	SCAN+53
CLEANUP	SMONLY+39, SMONLY+45, EN+2, EN+8, EN+12, EN+21, DQ+9
EN	SMONLY+38
LOCK68	SCAN+30
SCAN	DQ+27
UNLOCK68	SCAN+35, SCAN+39, SCAN+43, SCAN+55
UNWIND	CKTEST+29, UNWIND+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADATE1+3*
%DT	ADATE+7~, ADATE1+2*, ADATE1+4!
>> BLRAREAL	ADATE+6, ADATE+8, ADATE+10, ADATE+13, ADATE+15
>> BLRDEF	EN+28
>> BLREXPRV	EN+32
BLRI	SMONLY+27~, SMONLY+30, SMONLY+39, SMONLY+42*
>> BLRJ	ADATE+6*, ADATE+8, ADATE+10, ADATE+13, ADATE+15
BLRNTAL	SMONLY+27~, SMONLY+28, SMONLY+41, SMONLY+42
BLRRET	SMONLY+35~, SMONLY+36, SMONLY+39, SMONLY+40, EN+8, EN+12, EN+21, DQ+8*
BLRSCFG	SMONLY~, SMONLY+41, EN+3
>> BLRTF	SCAN+37, SCAN+38, SCAN+39
BLRY	SMONLY~, SMONLY+32*, SMONLY+33, SMONLY+39, SMONLY+42, SMONLY+44
DIR	EN+15~, ADATE+2~
DIRUT	EN+15~, ADATE+2~
DTOUT	EN+15~, ADATE+2~, ADATE+7~
FDA	ADD+4~
FDA(2	ADD+12, ADD+13, ADD+14, ADD+15, ADD+16, ADD+17, ADD+19, ADD+20, ADD+21, ADD+23 , ADD+24, ADD+25, ADD+26, ADD+27, ADD+28, ADD+30, ADD+31, ADD+32, ADD+33, ADD+34 , ADD+35, ADD+36, ADD+37, ADD+38, ADD+40*
I	ADD+40, UNWIND+4~, UNWIND+18, UNWIND+20*, UNWIND+22
IENS	ADD+4~, ADD+11*, ADD+12, ADD+13, ADD+14, ADD+15, ADD+16, ADD+17, ADD+19, ADD+20 , ADD+21, ADD+23, ADD+24, ADD+25, ADD+26, ADD+27, ADD+28, ADD+30, ADD+31, ADD+32 , ADD+33, ADD+34, ADD+35, ADD+36, ADD+37, ADD+38, ADD+40
II	UNWIND+4~, UNWIND+22*, UNWIND+24, UNWIND+25
LA760	SCAN+25, SCAN+26, SCAN+28, SCAN+33, SCAN+38, SCAN+49, ADD+13, ADD+44, ADD+48, CKTEST~ , CKTEST+26, CKTEST+32, UNWIND~, UNWIND+9, UNWIND+11, UNWIND+13, UNWIND+15, UNWIND+20, UNWIND+22, UNWIND+24 , UNWIND+25, LOCK68+6, UNLOCK68+3, CLEANUP+6!
LA760(0	SCAN+33*, SCAN+35, SCAN+38, SCAN+43, SCAN+45
LA76205	SCAN+45, SCAN+46, ADD+15, CLEANUP+6!
LA7628	ADD+4~
LA7628(1	ADD+11*
LA768	ADD+4~
LA76805	SCAN+2~, SCAN+14, SCAN+15, SCAN+19*, SCAN+20, ADD+14, CLEANUP+6!
LA7AA	DQ+17, DQ+18, DQ+22, DQ+23, DQ+24, DQ+25, DQ+27, ADATE+5, ADATE+8, ADATE+9 , ADATE+17, SCAN+7, SCAN+10, SCAN+17, SCAN+19, SCAN+23, SCAN+26, SCAN+28, SCAN+33, SCAN+38 , SCAN+43, SCAN+49, ADD+6, ADD+7, ADD+8, CKTEST~, CKTEST+15, CKTEST+21, CKTEST+25, CKTEST+28 , LOCK68+6, UNLOCK68+3, CLEANUP+6!
LA7AA(	DQ+22, DQ+25, ADATE+17*
LA7AD	DQ+22, DQ+23, DQ+27, SCAN+7, SCAN+10, SCAN+17, SCAN+19, SCAN+23, SCAN+26, SCAN+33 , SCAN+38, SCAN+43, SCAN+49, ADD+6, ADD+7, ADD+8, CKTEST~, CKTEST+14, CKTEST+15, CKTEST+22* , CKTEST+23*, CKTEST+25, CKTEST+28, LOCK68+6, UNLOCK68+3, CLEANUP+6!
LA7AD(	CKTEST+14, CKTEST+19, CKTEST+21*, CKTEST+23
LA7AN	DQ+25, DQ+26, DQ+27*, SCAN+4, SCAN+7, SCAN+10, SCAN+17, SCAN+19, SCAN+23, SCAN+26 , SCAN+33, SCAN+38, SCAN+43, SCAN+49, ADD+6, ADD+7, ADD+8, CKTEST~, CKTEST+15, CKTEST+21 , CKTEST+25, CKTEST+28, LOCK68+6, UNLOCK68+3, CLEANUP+6!
LA7DATA	ADD+4~, ADD+44*, ADD+45
LA7DIV	SCAN+2~, SCAN+23*
LA7END	DQ+19~, DQ+25, DQ+27, SCAN+2~, SCAN+4
LA7EXPRV	EN+32*, SCAN+43, CLEANUP+6!
LA7FLAG	SCAN+49, SCAN+51, CKTEST+9~, CKTEST+13, CKTEST+32*, CKTEST+36, CLEANUP+6!
>> LA7I	SCAN+52, SCAN+53, ADD+18, ADD+19, ADD+20, ADD+21, ADD+22, ADD+23, ADD+24, ADD+25 , ADD+26, ADD+27, ADD+28, ADD+29, ADD+30, ADD+31, ADD+32, ADD+33, ADD+34, ADD+35 , ADD+36, ADD+37, ADD+38, ADD+39, ADD+40
LA7J	CKTEST+9~, CKTEST+24, CKTEST+25, CKTEST+26, CKTEST+28, CKTEST+29
LA7K	CKTEST+9~, CKTEST+15*, CKTEST+17, CKTEST+19, CKTEST+21
LA7LAN	DQ+25*, SCAN+4, CLEANUP+6!
LA7PCNT	CKTEST+9~, CKTEST+29, UNWIND+7, UNWIND+17, CLEANUP+6!
LA7QUIT	EN+4, ADATE+4, ADATE+6, CLEANUP+6!
LA7SCFG	EN+3*, EN+8, EN+11, EN+20, DQ+2, DQ+8, DQ+16, CLEANUP+6!
LA7SCFG(0	DQ+2*, SCAN+10
LA7SM	SMONLY+41, SMONLY+42, EN+11, EN+12, EN+14, EN+20, EN+21, DQ+6, DQ+12, DQ+30 , DQ+33, ADD+11, ADD+44, ADD+48, CLEANUP+6!
LA7SMCNT	DQ+13, ADD+9, CLEANUP+6!
LA7SMON	SMONLY+35~, SMONLY+37*, EN+12, EN+24
LA7UID	ADD+7, ADD+8, ADD+16, ADD+45, ADD+48, CLEANUP+6!
LA7X	CLEANUP+6!
LA7X(	SCAN+53, ADD+18, ADD+19, ADD+20, ADD+21, ADD+22, ADD+23, ADD+24, ADD+25, ADD+26 , ADD+27, ADD+28, ADD+29, ADD+30, ADD+31, ADD+32, ADD+33, ADD+34, ADD+35, ADD+36 , ADD+37, ADD+38, ADD+39, ADD+40
LOCKIT	LOCK68+3~, LOCK68+5, LOCK68+6
LRAA	ADATE+2~, ADATE+7~, ADATE+9*, ADATE1+3
LRAD	ADATE+7~, ADATE+10, ADATE+17, ADATE1+1, ADATE1+4
LRDFN	ADD+6*, ADD+12, CLEANUP+7!
LREND	ADATE+7~, ADATE1+1*
LRFAN	ADATE+7~, ADATE+13, ADATE+14, ADATE+17
LRLAN	ADATE+7~, ADATE+15, ADATE+16, ADATE+17
LRSS	DQ+19~, DQ+24*, SCAN+15, SCAN+35
U	SMONLY+41, SMONLY+42, EN+8, EN+12, EN+21, DQ+8, ADATE1+3, SCAN+38
X	SMONLY+29, EN+15~, ADATE+2~, ADATE1+1, SCAN+17*, SCAN+18, SCAN+19, CKTEST+9~
Y	EN+15~, ADATE+2~, ADATE1+2, ADATE1+3*, ADATE1+4
>> ZTQUEUED	CLEANUP+2
>> ZTREQ	CLEANUP+2*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG09

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Used in RPC

Global Variables Directly Accessed

Label References

Local Variables

Legend: