Routine: BLRAG05

Package	Total	Call Graph
IHS Changes To Lab	9	ORDNSTOR^BLRAAORU $$CLIENT^BLRAG02 (BLRTSTL,STORF69D)^BLRAG05A ($$GOT,BLRRL,ERR,LROE2,Q15,TASK,UNL69)^BLRAG05D ($$PTC,$$TESTNAME)^BLRAGUT REFLABS^BLRAGUT3 $$ORD^BLRRLEDI $$CODE^BLRRLEVT $$REFLAB^BLRUTIL6
VA Fileman	4	^%DT $$FIND1^DIC UPDATE^DIE $$GET1^DIQ
IHS VA Utilities	1	^XBKVAR
Kernel	1	($$DT,$$FMTE,$$FR)^XLFDT
Lab Service	1	^LRPARAM

Entry Points

Name	Comments	DBIA/ICR reference
STORDIAG	; EP - Store the Diagnosis code(s)
UID(BLRPTR,BLRAGINS,BLREF,BLRRET)	; process single UID ; BLRPTR = pointer to the LAB ORDER ENTRY ; file 69 - DATE:SPECIMEN:TEST\|INSURANCE_DATA ; BLRDX = Required if Billing Type = T; ; List of ICD9 ien(s) delimited by colon : ; pointer to the ICD DIAGNOSIS file 80. ; BLREF = returned error flag - set to 1 if an error is encountered ; .BLRRET = <accession #> OR <error message>
NEXT	;from LROE1
L5	;
ACC(BLRY,BLRTSTL,BLRCDT,BLRCUSR,BLRPTCM,BLRPTCU,BLRRO,BLRUNC,BLRPAC,BLRBT,BLRAGINS,BLRRLCLA,BLRAOE)	; BLR ACCESSION rpc ; BLRTSTL = (required) 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 ; BLRCDT = (required) Specimen Collection Date in external format ; BLRCUSR = (required) Specimen Collector - pointer to NEW PERSON file 200 ; BLRPTCM = (optional) Method of patient confirmation - free-text up ; to 80 characters ; BLRPTCU = (optional) user that performed patient confirmation - pointer ; to NEW PERSON file 200 ; BLRRO = (optional) 'Continue if Rollover' Flag? ; 0=(default) return with message if Rollover has ; not happened or is in progress ; 1=continue as if user chose to 'continue anyway' ; BLRUNC = (optional) 'Continue if Uncollected' flag? ; 0=(default) return with message if not collected ; 1=continue as if user chose to 'continue anyway' ; BLRPAC = (optional) 'Continue if previously accessioned' flag ; 0=(default) return with message if previously accessioned ; 1=continue as if user chose to 'continue anyway' ; BLRBT = (optional) Billing Type; P=Patient, C=Client, T=Third Party ; BLRAGINS = Required if Billing Type = T; ; INSURANCE_DATA as returned in BLR COLLECTION INFO: ; INS_NAME^INS_IEN^??^COVERAGE_NUMBER^ELIGIBILITY_DATE^EXP_DATE^ ; INS_FILE_POINTER^POLICY_HOLDER_NAME^POLICY^... ; BLRRLCLA = reference lab client account number ; REF LAB CLIENT ACCOUNT NUMBER multiple ; in BLR MASTER CONTROL ; BLRAOE = List of Ask At Order Questions separated by pipe \| ; Each pipe piece contains the following ^ pieces: ; <question prompt> ^ <result code> ^ <free-text answer> ^ <test name> (test name if from the LABORATORY TEST file 60
MORE	; I M9>1 K DIR S DIR("A")="Do you have the entire order",DIR(0)="Y" D ^DIR K DIR S:Y=1 M9=0

External References

Name	Field # of Occurrence
^%DT	NEXT+4, NEXT+16
ORDNSTOR^BLRAAORU	MORE+10
$$CLIENT^BLRAG02	ACC+80
BLRTSTL^BLRAG05A	ACC+84
STORF69D^BLRAG05A	STORDIAG+17
$$GOT^BLRAG05D	UID+34
BLRRL^BLRAG05D	UID+8, UID+20
ERR^BLRAG05D	ACC+79, ACC+81, ACC+83, NEXT+5, NEXT+11, NEXT+12
LROE2^BLRAG05D	UID+26
Q15^BLRAG05D	MORE+8
TASK^BLRAG05D	MORE+9
UNL69^BLRAG05D	MORE+9
$$PTC^BLRAGUT	NEXT+10
$$TESTNAME^BLRAGUT	NEXT+31, NEXT+46
REFLABS^BLRAGUT3	NEXT+41
$$ORD^BLRRLEDI	STORDIAG+25
$$CODE^BLRRLEVT	NEXT+35
$$REFLAB^BLRUTIL6	STORDIAG+23
$$FIND1^DIC	STORDIAG+27
UPDATE^DIE	STORDIAG+43
$$GET1^DIQ	STORDIAG+14, STORDIAG+19, STORDIAG+20, STORDIAG+22, STORDIAG+30, STORDIAG+38
^LRPARAM	ACC+85, ACC+89
^XBKVAR	ACC+62
$$DT^XLFDT	NEXT+15
$$FMTE^XLFDT	NEXT+15
$$FR^XLFDT	NEXT+5

Used in RPC

RPC Name	Call Tags
BLR ACCESSION	ACC

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LR - [#63]	GET1^DIQ
69.01	GET1^DIQ
69.03	GET1^DIQ
^ICD9 - [#80]	GET1^DIQ
^BLRRLO - [#9009026.3]	FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TRAP"	ACC+62
^BLRRL - [#9009026]	NEXT+34
^BLRSITE - [#9009029]	NEXT+33
^DIC(19 - [#19]	ACC+78
^LAB(69.9 - [#69.9]	ACC+83
^LRO(68 - [#68]	MORE+15
^LRO(69 - [#69]	NEXT+31, NEXT+32, NEXT+43, NEXT+44, UID+16, UID+17, UID+21, UID+28, UID+37, UID+39* , MORE+11
^TMP("BLRAG"	ACC+64!, ACC+66, NEXT+49, NEXT+51*, STORDIAG+4, STORDIAG+5

Label References

Name	Line Occurrences
STORDIAG	NEXT+53
UID	NEXT+37

Naked Globals

Name	Field # of Occurrence
^("RO"	ACC+83

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	NEXT+4, NEXT+16, UID+40!
%DT("B"	UID+41*
>> BLRAA	MORE+12*, MORE+15
>> BLRAD	MORE+13*, MORE+15
>> BLRAGDX	UID+12*
BLRAGI	ACC+55!, ACC+63, NEXT+47, NEXT+50, NEXT+51, STORDIAG+1~, STORDIAG+3, STORDIAG+4*, STORDIAG+5
BLRAGINS	ACC~, ACC+76*, NEXT+37, UID~
BLRAGRL	ACC+55!, NEXT+33*, NEXT+34, NEXT+35
>> BLRAGRLN	NEXT+34*, NEXT+35
BLRAGUI	ACC+55!, ACC+61*
>> BLRAN	MORE+14*, MORE+15
BLRAOE	ACC~
BLRBT	ACC~, ACC+75*, NEXT+53
>> BLRC1	UID+24*
>> BLRC3	UID+24*
BLRCDT	ACC~, ACC+68, NEXT+3, NEXT+4, NEXT+5, UID+29*, UID+31, UID+42
>> BLRCNT	NEXT+19*
BLRCUSR	ACC~, ACC+69, UID+30, UID+31
>> BLRDT	NEXT+26, NEXT+31, NEXT+32, NEXT+39, NEXT+43, NEXT+44
BLREF	ACC+55!, ACC+56!, ACC+59, NEXT+5, NEXT+7, NEXT+11, NEXT+12, NEXT+13, NEXT+22, NEXT+35 , NEXT+37, NEXT+38, NEXT+47, UID~, UID+16, UID+18, UID+21, UID+31, UID+32, UID+33 , UID+34, UID+38, MORE+2*
BLREFF	ACC+56!, ACC+60, NEXT+38, NEXT+49
>> BLRGUI	ACC+61*
BLRIFNL	ACC+55!
BLRJ	ACC+55!, NEXT+20*, NEXT+26, NEXT+27, NEXT+29, NEXT+37, NEXT+39, NEXT+40, NEXT+42, NEXT+47 , STORDIAG+1~
BLRLTMP	ACC+55!
BLRMESS	ACC+56!, ACC+58*
>> BLRODT	MORE+6*
>> BLROPT	ACC+87*
>> BLROPT(0	ACC+87*
>> BLRP69	UID+11*, UID+13, UID+14, UID+15
BLRPAC	ACC~, ACC+74*, UID+32
BLRPTCM	ACC~, ACC+70*, NEXT+11
BLRPTCU	ACC~, ACC+71*, NEXT+12
BLRPTR	UID~, UID+11, UID+12
>> BLRPTRC	UID+24*
BLRPTRF	UID+23!, UID+24*
BLRRET	NEXT+21, NEXT+35, NEXT+37, NEXT+47, UID~, UID+10, UID+16, UID+18, UID+21, UID+31* , UID+32, UID+33, UID+34, UID+38, MORE+15*
BLRRLCLA	ACC~, ACC+80, ACC+81, ACC+82
BLRRO	ACC~, ACC+72*, ACC+83
>> BLRSN	UID+14*
>> BLRSND	MORE+7*
>> BLRSNOD	UID+28*, UID+29, UID+30
>> BLRSP	NEXT+27, NEXT+31, NEXT+32, NEXT+40, NEXT+43, NEXT+44
BLRTMP	ACC+56!, ACC+57*, NEXT+55!
BLRTMP("BLRAG"	NEXT+47*, NEXT+50, NEXT+51
>> BLRTNOD	MORE+11*, MORE+12, MORE+13, MORE+14
>> BLRTSN	NEXT+31, NEXT+35, NEXT+44, NEXT+46*, NEXT+47
BLRTST	ACC+56!, NEXT+29, NEXT+31, NEXT+32, NEXT+42, NEXT+43, NEXT+44, UID+15*, UID+16, MORE+11
>> BLRTST60	NEXT+32*, NEXT+35
BLRTSTL	ACC~, ACC+67, ACC+84, NEXT+20, NEXT+26, NEXT+27, NEXT+29, NEXT+37, NEXT+39, NEXT+40 , NEXT+42, NEXT+47, STORDIAG+1~, STORDIAG+8, STORDIAG+9, STORDIAG+12
>> BLRUID	NEXT+43*, NEXT+47
BLRUIDC	ACC+56!
BLRUIDF	ACC+56!
BLRUNC	ACC~, ACC+73*
BLRY	ACC~, ACC+65*
>> DA	UID+14*, UID+16, UID+17, UID+28, MORE+4
>> DFN	STORDIAG+20*, STORDIAG+25
DIC	UID+9!
DT	NEXT+15*, UID+39
DUZ(2	ACC+79, NEXT+33, STORDIAG+23
ERRS	STORDIAG+1~, STORDIAG+34!, STORDIAG+40!
F60DESC	STORDIAG+1~
F60IEN	STORDIAG+1~
F60PTR	STORDIAG+1~, STORDIAG+22*, STORDIAG+23, STORDIAG+42
FDA	STORDIAG+1~, STORDIAG+34!, STORDIAG+40!
FDA(	STORDIAG+41, STORDIAG+42
>> ICDCNT	STORDIAG+33*, STORDIAG+35
ICDIEN	STORDIAG+1~, STORDIAG+35*, STORDIAG+38, STORDIAG+41
ICDSTR	STORDIAG+1~, STORDIAG+9*, STORDIAG+10, STORDIAG+17, STORDIAG+33, STORDIAG+35
LRAA	MORE+8!
LRCDT	UID+42*, UID+43, UID+44!
>> LRCHK	UID+25*, UID+32
>> LRDFN	STORDIAG+19*, STORDIAG+20
LREND	ACC+53!
>> LRLWC	ACC+77*
LRNATURE	ACC+53!
>> LRNONE	UID+24*, UID+32, UID+33
LRODT	NEXT+15, UID+13, UID+16, UID+17, UID+28, UID+34, MORE+6, MORE+11, STORDIAG+1~, STORDIAG+13* , STORDIAG+14, STORDIAG+17, STORDIAG+19, STORDIAG+22, STORDIAG+30
>> LRODT0	NEXT+15*
>> LRORD	UID+17*, UID+18, UID+21, UID+34, UID+37, MORE+3
LRORDRR	ACC+53!
LRORIFN	ACC+53!
LRSN	UID+9!, UID+44!, MORE+5, MORE+8!, STORDIAG+1~, STORDIAG+13, STORDIAG+14, STORDIAG+17, STORDIAG+19, STORDIAG+22 , STORDIAG+30
LRSN(	MORE+5*
LRSND	UID+9!, MORE+2, MORE+4, MORE+5, MORE+7, MORE+11
>> LRSTATUS	UID+41*
>> LRTIM	UID+43*
>> LRTM7	NEXT+16*
LRTN	STORDIAG+1~, STORDIAG+13*, STORDIAG+17, STORDIAG+22, STORDIAG+30
>> LRTS	NEXT+32*
>> LRUID	NEXT+43*
>> LRUN	UID+44*
>> M9	UID+19, UID+24
>> MSCRLCLA	ACC+82*
ORDERN	STORDIAG+1~, STORDIAG+14*, STORDIAG+15, STORDIAG+25, STORDIAG+27
ORDIEN	STORDIAG+1~, STORDIAG+27*, STORDIAG+28, STORDIAG+41, STORDIAG+42
STORIEN	STORDIAG+1~
STR1	STORDIAG+1~, STORDIAG+5*, STORDIAG+6, STORDIAG+8
STR2	STORDIAG+1~, STORDIAG+12*, STORDIAG+13
U	ACC+83, ACC+87, NEXT+20, NEXT+26, NEXT+27, NEXT+29, NEXT+31, NEXT+32, NEXT+34, NEXT+37 , NEXT+39, NEXT+40, NEXT+42, NEXT+43, NEXT+44, NEXT+47, UID+17, UID+29, UID+30, UID+44 , MORE+12, MORE+13, MORE+14, MORE+15
UID	STORDIAG+1~, STORDIAG+30*
>> X	ACC+62, NEXT+4, NEXT+15, NEXT+16, STORDIAG+25*
>> XQY0	ACC+78*, ACC+87
>> Y	NEXT+4, NEXT+16
YYYLRORD	MORE+3*, MORE+10!

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG05

Information

Source Information

Call Graph

Call Graph Total: 16

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: