Routine: BLRAGUT

Package	Total	Call Graph
IHS Changes To Lab	3	$$TMPGLB^BLRAGUT PRESSKEY^BLRGMENU FORCEIT^BLRUTIL7
Kernel	3	($$EC,$$LGR)^%ZOSV ($$FMTE,$$HTE)^XLFDT $$UP^XLFSTR
VA Fileman	2	DT^DILF $$GET1^DIQ
Lab Service	1	DFN^LRDAGE
Order Entry Results Reporting	1	LEX^ORWPCE
Registration	1	$$FC1^DPTNAME1
Toolkit	1	$$GET^XPAR

Package

Total

Call Graph

IHS Changes To Lab

$$TMPGLB^BLRAGUT PRESSKEY^BLRGMENU FORCEIT^BLRUTIL7

Kernel

($$EC,$$LGR)^%ZOSV ($$FMTE,$$HTE)^XLFDT $$UP^XLFSTR

VA Fileman

DT^DILF $$GET1^DIQ

Lab Service

DFN^LRDAGE

Order Entry Results Reporting

LEX^ORWPCE

Registration

$$FC1^DPTNAME1

Toolkit

$$GET^XPAR

Package	Total	Caller Graph
IHS Changes To Lab	19	BLRAG01 BLRAG02 BLRAG03 BLRAG05 BLRAG05A BLRAG05B BLRAG05D BLRAG06 BLRAG07 BLRAG09 BLRAG09A BLRAG09B BLRAG09C BLRAG09D BLRAG09E BLRAG09F BLRAG09G BLRAG10 BLRAGUT

Package

Total

Caller Graph

IHS Changes To Lab

BLRAG01  BLRAG02  BLRAG03  BLRAG05  BLRAG05A  BLRAG05B  BLRAG05D  BLRAG06
BLRAG07  BLRAG09  BLRAG09A  BLRAG09B  BLRAG09C  BLRAG09D  BLRAG09E  BLRAG09F
BLRAG09G  BLRAG10  BLRAGUT

Entry Points

Name	Comments	DBIA/ICR reference
PCCVFILE(LRAA,LRAS,LRCDT,LRSS,PCCVISIT)	; EP - Try to determine if Accession already in PCC File
PREP(NAME)	; EP - prep input for partial name lookup - decrement last char of name for $O; up-shift all alpha characters
PTC()	; EP - return the value of the BLR PT CONFIRM parameter ; Returns Patient Confirmation enabled; 0='no' (default); 1='yes'
CVTDATE(X)	; EP
LEXLKUP(RET,INP)	; EP
GACE(AREA,DATE,ACI)	; EP - get accession number external for given test ; AREA = area pointer to ACCESSION file 68 ; DATE = date pointer to ACCESSION file 68 - ^LRO(68,AREA,1,DATE ; ACI = internal accession pointer to ACCESSION file 68 - ^LRO(68,AREA,1,DATE,1,ACI
TMPGLB()	; EP
SETVARS()	; EP - Set the necessary variables for BLREVTQ to work
GACE69(ODATE,OSPEC,OTST)	; EP - get accession number external for given test from file 69 ; ODATE = date pointer to LAB ORDER ENTRY file 69 - ^LRO(69,DATE ; OSPEC = specimen pointer to LAB ORDER ENTRY file 69 - ^LRO(69,DATE,1,SPEC ; OTST = test pointer to LAB ORDER ENTRY file 69 - ^LRO(69,DATE,1,SPEC,2,TST
WHYNOT(LRAS,MESSAGE)	; EP - Store Reason why ^BLREVTQ not called
FILL(PADS,CHAR="
WHYNCNTM(MESSAGE)	; EP - Just count messages
TEST(X,Y)	; EP
QS(BLRROOT,BLRN)	; EP
UPS(NAME)	; EP - upshift and check punctuation of input
DEVICE(BDGXY)	; EP List of printers ; OUTPUT: ; BDGXY(n)=REPORT TEXT
ERROR	; EP ; D ENTRYAUD^BLRUTIL("ERROR^BLRAGUT 0.0") ; Store RPMS Error data ; NEW ERRORMSG ; S ERRORMSG="$"_"Z"_"E=""ERROR^BLRAGUT""" ; BYPASS SAC Checker ; S @ERRORMSG D ^%ZTER
CNTERRS(ERRMSG)	; EP
TESTNAME(TIEN)	; EP - Return Test Name from File 60. IFF Ref Lab AOE test, add "[ AOE ]" to end of the name
ERR(BLRERR)	; EP - Error processing ; BLRERR = Error text OR error code ; BLRI = pointer into return global array

External References

Name	Field # of Occurrence
$$EC^%ZOSV	ERROR+8
$$LGR^%ZOSV	ERROR+9
$$TMPGLB^BLRAGUT	DEVICE+6
PRESSKEY^BLRGMENU	WHYNOT+11
FORCEIT^BLRUTIL7	ERR+4
DT^DILF	CVTDATE+3
$$GET1^DIQ	PTC+8, TESTNAME+3
$$FC1^DPTNAME1	UPS+2
DFN^LRDAGE	SETVARS+34
LEX^ORWPCE	LEXLKUP+7
$$FMTE^XLFDT	SETVARS+45
$$HTE^XLFDT	SETVARS+49
$$UP^XLFSTR	WHYNCNTM+1
$$GET^XPAR	PTC+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?4,"Could not set a variable" Line Location: WHYNOT+8
Function Call: WRITE	Prompt: $S($L(LRAS):" for Accession "_LRAS_".",1:"."),! Line Location: WHYNOT+9
Function Call: WRITE	Prompt: ?9,"Error Message:",$E(MESSAGE,1,55),! Line Location: WHYNOT+10

FileNo	Call Tags
^LAB(60 - [#60]	GET1^DIQ
^XTV(8989.3 - [#8989.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	DEVICE+10, DEVICE+11, DEVICE+12
^%ZIS(2 - [#3.2]	DEVICE+13, DEVICE+21
^%ZOSF("TEST"	TEST+3
^AUPNPAT - [#9000001]	SETVARS+35
^AUPNVLAB - [#9000010.09]	PCCVFILE+11
^BLRRL - [#9009026]	TESTNAME+12
^BLRRL("ALP"	TESTNAME+9
^BLRSITE - [#9009029]	TESTNAME+6
^BLRTXLOG("D"	SETVARS+4
^DPT - [#2]	SETVARS+36
^LR - [#63]	SETVARS+31
^LRO(68 - [#68]	GACE+7, GACE69+12, SETVARS+1, SETVARS+6, SETVARS+9, SETVARS+12, SETVARS+21, SETVARS+24, SETVARS+28, SETVARS+30 , SETVARS+54, SETVARS+57, SETVARS+59
^LRO(69 - [#69]	GACE69+8, SETVARS+15, SETVARS+18
^TMP("BLRAG"	ERR+8*, TMPGLB+1!, TMPGLB+2
^TMP("BLRPCCRR"	WHYNOT+1, CNTERRS+1
^VA(200 - [#200]	SETVARS+55, SETVARS+61
^XTV(8989.51 - [#8989.51]	PTC+10

Label References

Name	Line Occurrences
$$ERR	TEST+5
$$PCCVFILE	SETVARS+26
$$TEST	LEXLKUP+2
$$UPS	PREP+3
$$WHYNOT	SETVARS+2, SETVARS+4, SETVARS+7, SETVARS+10, SETVARS+13, SETVARS+16, SETVARS+19, SETVARS+22, SETVARS+26, SETVARS+32
CNTERRS	WHYNCNTM+3, WHYNCNTM+4, WHYNCNTM+5, WHYNCNTM+6, WHYNCNTM+7, WHYNCNTM+8, WHYNCNTM+9, WHYNCNTM+10, WHYNCNTM+12
ERR	ERROR+14
WHYNCNTM	WHYNOT+4

Name	Field # of Occurrence
^("SUBTYPE"	DEVICE+12
^("TIME"	DEVICE+12
^("TYPE"	DEVICE+12
^(0	SETVARS+36, SETVARS+54
^(1	DEVICE+12
^(90	DEVICE+12
^(91	DEVICE+12
^(95	DEVICE+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACI	GACE~, GACE+6, GACE+7, GACE69+7~, GACE69+11*, GACE69+12
AREA	GACE~, GACE+4, GACE+7, GACE69+7~, GACE69+9*, GACE69+12
>> AUTOLOAD	WHYNOT+6
BDGII	DEVICE+4~, DEVICE+5, DEVICE+7, DEVICE+27
BDGXY	DEVICE~, DEVICE+6*, DEVICE+7, DEVICE+27
>> BID	SETVARS+35*
>> BLRCMF	SETVARS+39*
BLRCRL	TESTNAME+1~, TESTNAME+6*, TESTNAME+7, TESTNAME+9, TESTNAME+12
BLRDGC	UPS+1~, UPS+2*, UPS+3
BLRDGI	UPS+1~, UPS+2*, UPS+3
>> BLRDH	SETVARS+39*
BLRDOM	PTC+2~, PTC+8*, PTC+9
BLRENT	PTC+2~, PTC+9*, PTC+11
BLRERR	ERR~, ERR+6*, ERR+8
BLRI	ERR+7*, ERR+8, PTC+2~
>> BLRIDS	SETVARS+43*
BLRL	PREP+1~, PREP+5, PREP+6, PREP+7
>> BLRLOG	SETVARS+39*
BLRN	QS~, QS+4, QS+5, QS+6
>> BLROPT	SETVARS+40*
BLRPAR	PTC+2~, PTC+10*, PTC+11
>> BLRPARAM	SETVARS+65*
>> BLRPCC	SETVARS+39*
>> BLRPHASE	SETVARS+41*
>> BLRQSITE	SETVARS+42*
>> BLRQUIET	SETVARS+42*
>> BLRRET	PTC+11, PTC+12, QS+3
BLRRIEN	TESTNAME+1~, TESTNAME+9*, TESTNAME+10, TESTNAME+12
BLRROOT	QS~, QS+4, QS+5, QS+6
>> BLRSTOP	SETVARS+42*
BLRVERN	PCCVFILE+1~, PCCVFILE+3*
CDTPCC	PCCVFILE+1~, PCCVFILE+11*, PCCVFILE+12
CHAR	FILL~, FILL+3
CNT	DEVICE+8~
>> D0	SETVARS+28*
>> DA	SETVARS+28*
DATE	GACE~, GACE+5, GACE+7, GACE69+7~, GACE69+10*, GACE69+12
DESCRIP	TESTNAME+1~, TESTNAME+3, TESTNAME+4, TESTNAME+7, TESTNAME+10, TESTNAME+12, TESTNAME+14
DEV	DEVICE+8~, DEVICE+12*
>> DFN	SETVARS+31*, SETVARS+32, SETVARS+34, SETVARS+35, SETVARS+36
DIR	DEVICE+4~, DEVICE+9*, DEVICE+10
DT	DEVICE+16
>> DTTRAVIL	SETVARS+21*, SETVARS+22
DUZ	SETVARS+61
DUZ(0	DEVICE+20
DUZ(2	SETVARS+35, SETVARS+42, TESTNAME+6
ERRCODE	ERROR+7~, ERROR+8*, ERROR+14
>> ERRLGLO	ERROR+9*
ERRMSG	CNTERRS~, CNTERRS+1
ERRSCFL	ERROR+7~
FOUNDIT	PCCVFILE+1~, PCCVFILE+9, PCCVFILE+10, PCCVFILE+12, PCCVFILE+14
FROM	DEVICE+4~, DEVICE+9, DEVICE+10, DEVICE+11, DEVICE+26
>> HRCN	SETVARS+35*
I	FILL+1~, FILL+3*
IEN	DEVICE+8~, DEVICE+10, DEVICE+11, DEVICE+12, DEVICE+27
INP	LEXLKUP~, LEXLKUP+3, LEXLKUP+5
LASTGLOR	ERROR+7~
LRAA	SETVARS+1, SETVARS+6, SETVARS+9, SETVARS+12, SETVARS+21, SETVARS+24, SETVARS+26, SETVARS+28, SETVARS+30, SETVARS+54 , SETVARS+57, SETVARS+59, PCCVFILE~
>> LRACC	SETVARS+43*
>> LRACD	SETVARS+48*
>> LRAD	SETVARS+1, SETVARS+9, SETVARS+12, SETVARS+16, SETVARS+21, SETVARS+24, SETVARS+28, SETVARS+30, SETVARS+48, SETVARS+54 , SETVARS+57, SETVARS+59
>> LRAN	SETVARS+1, SETVARS+9, SETVARS+12, SETVARS+21, SETVARS+24, SETVARS+28, SETVARS+30, SETVARS+54, SETVARS+57, SETVARS+59
>> LRAOD	SETVARS+48*
LRAS	SETVARS+1*, SETVARS+2, SETVARS+4, SETVARS+7, SETVARS+10, SETVARS+13, SETVARS+16, SETVARS+19, SETVARS+22, SETVARS+26 , SETVARS+32, SETVARS+43, WHYNOT~, WHYNOT+1, WHYNOT+9, PCCVFILE~, PCCVFILE+5, PCCVFILE+6
LRCDT	SETVARS+24, SETVARS+26, SETVARS+34, SETVARS+45, PCCVFILE~, PCCVFILE+8, PCCVFILE+12
>> LRDAT	SETVARS+46*
>> LRDFN	SETVARS+30*, SETVARS+31, SETVARS+32, SETVARS+51
>> LRDT0	SETVARS+49*
>> LRIDT	SETVARS+28*, SETVARS+51
>> LRLABKY	SETVARS+50*
>> LRLLOC	SETVARS+54*
>> LRLOCKER	SETVARS+51*
>> LRODT	SETVARS+15*, SETVARS+16, SETVARS+18
>> LROUTINE	SETVARS+52*
>> LRPANEL	SETVARS+52*
>> LRPCEVSO	SETVARS+52*
>> LRPRAC	SETVARS+55*
>> LRSN	SETVARS+18*, SETVARS+19
LRSS	SETVARS+6*, SETVARS+7, SETVARS+26, SETVARS+51, PCCVFILE~, PCCVFILE+5, PCCVFILE+6
>> LRUID	SETVARS+59*
>> LRUSI	SETVARS+62*
>> LRUSNM	SETVARS+63*
MESSAGE	WHYNOT~, WHYNOT+1, WHYNOT+4, WHYNOT+10, WHYNCNTM~, WHYNCNTM+1*, WHYNCNTM+3, WHYNCNTM+4, WHYNCNTM+5, WHYNCNTM+6 , WHYNCNTM+7, WHYNCNTM+8, WHYNCNTM+9, WHYNCNTM+10, WHYNCNTM+12
MW	DEVICE+8~, DEVICE+12, DEVICE+21, DEVICE+22*
NAME	PREP~, PREP+2, PREP+3, PREP+4, PREP+5, PREP+7, UPS~, UPS+2, UPS+3, UPS+5
NODT69	GACE69+7~, GACE69+8*, GACE69+9, GACE69+10, GACE69+11
>> NOTSENT	WHYNOT+2*
ODATE	GACE69~, GACE69+4, GACE69+8
>> ORDNUM	SETVARS+12*, SETVARS+13, SETVARS+15, SETVARS+16, SETVARS+18
>> ORIGACCD	SETVARS+9*, SETVARS+10
OSPEC	GACE69~, GACE69+5, GACE69+8
OTST	GACE69~, GACE69+6, GACE69+8
PADS	FILL~, FILL+3
>> PCCFILE	PCCVFILE+5, PCCVFILE+6, PCCVFILE+10
PCCIEN	PCCVFILE+1~, PCCVFILE+9, PCCVFILE+10, PCCVFILE+11, PCCVFILE+12
PCCVISIT	SETVARS+26, PCCVFILE~, PCCVFILE+14*
>> PID	SETVARS+35*
PL	DEVICE+8~, DEVICE+21, DEVICE+23
>> PNM	SETVARS+36*
>> PTR	SETVARS+54, SETVARS+55, SETVARS+57
RET	FILL+2, FILL+3, FILL+4, LEXLKUP~, LEXLKUP+2, LEXLKUP+7
>> SSN	SETVARS+37*
>> STR	SETVARS+36, SETVARS+37, SETVARS+45, SETVARS+46, SETVARS+61*, SETVARS+62, SETVARS+63
TERM	LEXLKUP+1~, LEXLKUP+3*, LEXLKUP+4, LEXLKUP+7
TIEN	TESTNAME~, TESTNAME+3, TESTNAME+9
TYPE	LEXLKUP+1~, LEXLKUP+5*, LEXLKUP+6, LEXLKUP+7
U	GACE+7, GACE69+9, GACE69+10, GACE69+11, GACE69+12, LEXLKUP+3, LEXLKUP+5, TEST+1, DEVICE+12, DEVICE+14 , DEVICE+15, DEVICE+21, DEVICE+22, DEVICE+23, DEVICE+24, DEVICE+27, TESTNAME+6
X	CVTDATE~, CVTDATE+1, CVTDATE+2, CVTDATE+3, CVTDATE+4, TEST~, TEST+1, TEST+2, TEST+5, DEVICE+8~ , DEVICE+18, DEVICE+19, DEVICE+21, DEVICE+22, DEVICE+23, DEVICE+24, DEVICE+25, DEVICE+26
X0	DEVICE+8~, DEVICE+12*, DEVICE+15, DEVICE+24, DEVICE+27
XLOC	DEVICE+8~, DEVICE+12*
XOSD	DEVICE+8~, DEVICE+12*, DEVICE+16
XSEC	DEVICE+8~, DEVICE+12*, DEVICE+20
XSTYPE	DEVICE+8~, DEVICE+12*, DEVICE+13, DEVICE+21
XTIME	DEVICE+8~, DEVICE+12, DEVICE+17, DEVICE+18, DEVICE+19
XTYPE	DEVICE+8~, DEVICE+12*, DEVICE+14
Y	TEST~, TEST+5, DEVICE+8~, DEVICE+18, DEVICE+19
>> YEARAGO	SETVARS+10

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAGUT

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 19