Routine: BLRAGUT

Information

BLRAGUT ; IHS/MSC/SAT - LABORATORY ACCESSION GUI RPC UTILITIES ; 22-Oct-2015 07:58 ; MKK

Call Graph

Call Graph Total: 12

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	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

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

Naked Globals

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

Marked Items

Name	Field # of Occurrence
$T(	PCCVFILE+3

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

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items