Routine: BLRAG02

Information

BLRAG02 ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPCS ; MAY 23, 2013 1500; SAT

Source Information

Source file <BLRAG02.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ($$FMTE,$$FR,$$HTFM)^XLFDT
IHS Changes To Lab	2	LBLTYP^BLRAG02A ($$PTC,$$TESTNAME,ERR)^BLRAGUT
Lab Service	2	PRINT^LRLABXT DOC^LRX
VA Fileman	2	^%DT $$GET1^DIQ
IHS Changes To ADT	1	$$HRCN^BDGF2
IHS VA Utilities	1	^XBKVAR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Changes To Lab	2	BLRAG05 BLRAG09F

Entry Points

Name	Comments	DBIA/ICR reference
DEV(BLRDEV)	;-- device handler ; Return updated IO ; Return -1 error if device not defined at ^BLRSITE(<site>,"RL")
CLIENT()	;
RPRT(RIEN,BLRDEV)	;-- reprint
ABDA	;
ABD(BLRY,BLRBDT,BLREDT,BLRDFN,BLRDEV)	;return all accessioned records for given date range - RPC ; RPC Name is BLR ALL-ACCESSIONED
ABDHD	;
ABR(BLRY,BLRUID,BLRLMF,BLRDEV)	;reprint accession label or manifest - RPC ; RPC Name is BLR ACCESSION PRINT ; .BLRY = returned pointer to appointment data
UL(BLRY)	; rpc to return the value of the 'REF LAB USING LEDI?' field in the BLR MASTER CONTROL file ; RPC: BLR REF LAB USING LEDI

External References

Name	Field # of Occurrence
^%DT	ABD+58, ABD+66
^%ZIS	ABR+22, ABR+36, DEV+9
^%ZISC	ABR+41, RPRT+5
$$HRCN^BDGF2	ABDA+42
LBLTYP^BLRAG02A	ABR+34
$$PTC^BLRAGUT	UL+34
$$TESTNAME^BLRAGUT	ABDA+41
ERR^BLRAGUT	ABR+20, UL+27
$$GET1^DIQ	UL+33
PRINT^LRLABXT	ABR+40
DOC^LRX	ABDA+18
^XBKVAR	ABD+46, ABR+13, UL+22
$$FMTE^XLFDT	ABDA+55
$$FR^XLFDT	ABD+60, ABD+68
$$HTFM^XLFDT	ABD+55, ABD+60

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$G(^BLRSHPM(RIEN,11,BLRDA,0)) Line Location: RPRT+4
Routine Call	%ZIS Line Location: ABR+22 ABR+36 DEV+9

RPC Name	Call Tags
BLR ALL-ACCESSIONED	ABD
BLR ACCESSION PRINT	ABR
BLR REF LAB USING LEDI	UL

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	ABR+32, ABR+35
^%ZOSF("TRAP"	ABD+46, ABR+13, UL+22
^BLRSHPM - [#9009026.2]	RPRT+3, RPRT+4
^BLRSHPM("B"	ABR+43
^BLRSITE - [#9009029]	ABDA+44, CLIENT+3, CLIENT+4, CLIENT+5, CLIENT+6, DEV+6, UL+28, UL+31, UL+36, UL+37
^DPT - [#2]	ABDA+33
^LAB(62 - [#62]	ABDA+15
^LAB(69.9 - [#69.9]	ABR+31
^LR - [#63]	ABDA+28
^LRO(68 - [#68]	ABDA+36, ABDA+38, ABDA+43, ABR+25, ABR+27, ABR+28, ABR+29
^LRO(69 - [#69]	ABD+77, ABD+83, ABD+89, ABD+92, ABD+94, ABDA+5, ABDA+8, ABDA+14, ABDA+20, ABDA+23 , ABDA+39, ABDA+45, ABR+25
^TMP("BLRAG"	ABD+49!, ABD+51, ABD+100, ABDHD+5, ABR+16!, ABR+18, ABR+44, ABR+45, UL+21!, UL+24* , UL+38, UL+39
^TMP("BLRAG02"	ABD+44!, ABD+97, ABD+98, ABD+100, ABDA+55*

Name	Line Occurrences
$$DEV	RPRT+1
ABDA	ABD+77, ABD+83, ABD+89, ABD+94
ABDHD	ABD+96
RPRT	ABR+43

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	ABD+58, ABD+66
BLR60NAM	ABD+39~, ABDA+41*, ABDA+55
BLR62NAM	ABD+39~, ABDA+15*
>> BLR68TST	ABDA+43*
>> BLRACCNI	ABDA+34*, ABDA+38, ABDA+43
BLRACCNO	ABD+41~, ABDA+38*, ABDA+55
>> BLRAFMSC	ABD+77, ABD+83, ABD+89, ABD+94, ABDA+1, ABDA+2, ABDA+3
>> BLRAREA	ABDA+35*, ABDA+36, ABDA+38, ABDA+43, ABDA+55
>> BLRAREAN	ABDA+36*, ABDA+55
BLRBDT	ABD~, ABD+55, ABD+58, ABD+60*, ABD+63, ABD+68, ABD+76, ABD+80, ABD+86, ABD+92 , ABDA+12, ABDA+26
BLRBILL	UL+25~, UL+30*, UL+39
BLRC1	ABR+10~
BLRC2	ABR+10~
BLRC3	ABR+10~
BLRCANI	UL+25~, UL+36, UL+37
BLRCANL	UL+25~, UL+26, UL+36, UL+37*, UL+39
>> BLRCLN	ABDA+45*, ABDA+55
BLRCN	CLIENT+1~, CLIENT+3, CLIENT+4, CLIENT+5, CLIENT+6
BLRCS	ABD+40~, ABDA+20*, ABDA+55
>> BLRCTIM	ABDA+9*, ABDA+10, ABDA+12, ABDA+55
BLRDA	RPRT+2~, RPRT+3*, RPRT+4
>> BLRDATE	ABD+76, ABD+77, ABD+80, ABD+81, ABD+82, ABD+83, ABD+86, ABD+87, ABD+88, ABD+89 , ABD+92, ABD+93, ABD+94, ABDA+37*, ABDA+38, ABDA+43
BLRDEV	ABD~, ABR~, ABR+22, ABR+32*, ABR+33, ABR+35, ABR+43, ABR+44, ABR+45, RPRT~ , RPRT+1, DEV~, DEV+4
>> BLRDEVM	UL+32*, UL+39
>> BLRDEVN	ABR+31*, ABR+32
BLRDFN	ABD~, ABD+69*, ABDA+31
>> BLRDOC	ABDA+18*
>> BLRDOCN	ABDA+19*, ABDA+55
BLRDT	ABD+41~, ABDA+1*, ABDA+5, ABDA+8, ABDA+14, ABDA+20, ABDA+23, ABDA+39, ABDA+45, ABDA+55
BLRDTCK	ABD+71!*
BLRDTCK(	ABD+76, ABD+81, ABD+82, ABD+87, ABD+88*, ABD+93
BLREDT	ABD~, ABD+63, ABD+66, ABD+68*, ABD+92, ABDA+12, ABDA+26
BLRERR	ABR+10~, ABR+12*
BLRHCRN	ABD+41~, ABDA+42*, ABDA+55
BLRI	ABD+41~, ABD+48, ABD+99, ABD+100, ABR+10~, ABR+15, ABR+44, ABR+45*
BLRIFNL	ABD+41~, ABD+47!, ABR+14!
BLRISEQ	UL+25~, UL+35*, UL+39
BLRJ	ABD+41~, ABD+97, ABD+98, ABD+100, ABR+10~, ABR+23, ABR+24
BLRK	ABD+41~, ABD+98*, ABD+100
BLRLCNT	ABD+41~, ABD+48*
BLRLEDI	UL+25~, UL+29*, UL+39
BLRLI	ABD+41~
BLRLMF	ABR~, ABR+19*, ABR+22, ABR+30, ABR+42
BLRLRDFN	ABD+41~, ABDA+27*, ABDA+28
>> BLRLRNOD	ABDA+28*, ABDA+29, ABDA+30
BLRLST	ABD+41~
BLRLSTI	ABD+41~
BLRLTMP	ABD+42~, ABD+47!, ABR+14!
BLRNODS	ABD+42~, ABDA+14*, ABDA+15, ABDA+18, ABDA+21, ABDA+27
>> BLRNODS1	ABDA+8*, ABDA+9
BLRNODT	ABD+42~, ABDA+23*, ABDA+24, ABDA+25, ABDA+26, ABDA+34, ABDA+35, ABDA+37, ABDA+41, ABDA+43
BLROERR	ABD+42~
BLROI	ABD+41~, ABD+48*
BLROLOC	ABD+42~, ABDA+21*
>> BLRORD	ABDA+5*, ABDA+6, ABDA+55
>> BLRPAD1	ABD+45*
>> BLRPAD2	ABD+45*
>> BLRPAD3	ABD+45*
>> BLRPADC	ABD+45*
BLRPADD	ABD+42~
>> BLRPADS	ABD+45*
>> BLRPADZ	ABD+45*
>> BLRPDFN	ABDA+30*, ABDA+31, ABDA+33, ABDA+42, ABDA+55
BLRPHRN	ABD+43~
BLRPNAM	ABD+43~, ABDA+33*, ABDA+55
BLRPTCF	UL+25~, UL+34*, UL+39
BLRRET	CLIENT+1~, CLIENT+2, CLIENT+4, CLIENT+6, CLIENT+7, UL+25~, UL+31
>> BLRRLNAM	ABDA+44*, ABDA+55
BLRSEX	ABD+43~
BLRSITE	UL+25~, UL+28*, UL+29, UL+30, UL+32, UL+35
BLRSP	ABD+43~, ABDA+2*, ABDA+5, ABDA+8, ABDA+14, ABDA+20, ABDA+23, ABDA+39, ABDA+45, ABDA+55
BLRSPNS	ABD+39~
BLRT	ABD+43~, ABDA+3*, ABDA+23, ABDA+39, ABDA+45, ABDA+55
BLRTI	ABD+43~, ABD+48, ABDA+52, ABDA+55
BLRTMP	ABD+43~, ABD+45, ABD+52, ABDHD+1, ABDHD+2, ABDHD+3, ABDHD+4, ABDHD+5
>> BLRTN	ABD+86*
BLRTOP	ABD+39~
BLRUID	ABDA+39*, ABDA+55, ABR~, ABR+20, ABR+23, ABR+24
BLRUID1	ABR+10~, ABR+24, ABR+25, ABR+26, ABR+27, ABR+28, ABR+29, ABR+43
BLRUSERN	UL+25~, UL+33*, UL+39
BLRY	ABD~, ABD+50, ABR~, ABR+17, UL~, UL+23*
>> DEV	DEV+3, DEV+4, DEV+6*, DEV+7, DEV+8
DUZ	UL+27, UL+33, UL+39
DUZ(2	ABDA+42, ABDA+44, CLIENT+3, CLIENT+4, CLIENT+5, CLIENT+6, ABR+31, DEV+6, UL+28, UL+31 , UL+36, UL+37
IO	ABR+39, DEV+10
IOM	ABR+38
ION	ABR+38
>> IOP	ABR+22, ABR+35, DEV+8*
IOSL	ABR+38
IOST	ABR+38
LRAA	ABR+11~, ABR+27*, ABR+28, ABR+29
LRAD	ABR+11~, ABR+28*, ABR+29
LRAN	ABR+11~, ABR+29*
>> LRDOC	ABDA+17*, ABDA+19
>> LRLABLIO	ABR+38*
LRODT	ABR+11~
LRSN	ABR+11~
>> POP	ABR+37
RIEN	RPRT~, RPRT+3, RPRT+4
U	ABDA+5, ABDA+9, ABDA+15, ABDA+18, ABDA+20, ABDA+21, ABDA+24, ABDA+25, ABDA+26, ABDA+27 , ABDA+29, ABDA+30, ABDA+33, ABDA+34, ABDA+35, ABDA+36, ABDA+37, ABDA+38, ABDA+39, ABDA+41 , ABDA+43, ABDA+44, ABDA+45, ABDA+55, ABR+31, ABR+35, DEV+6, UL+29, UL+30, UL+31 , UL+32, UL+35, UL+36, UL+37, UL+39
>> X	ABD+46, ABD+58, ABD+66, ABDA+18, ABR+13, UL+22
>> Y	ABD+58, ABD+66

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG02

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: