Routine: BLRRLHL2

Package	Total	Call Graph
DRG Grouper	2	$$ICDDX^ICDCODE $$ICDDX^ICDEX
IHS Generic Interface System	2	^INHF $$DATE^INHUT
VA Fileman	2	^DIC $$GET1^DIQ
IHS Changes To Lab	1	$$INSADD^BLRRLHL
Kernel	1	$$HLNAME^XLFNAME

Package	Total	Caller Graph
IHS Changes To Lab	3	BLRRLEVN BLRRLEVT BLRRLHL

Entry Points

Name	Comments	DBIA/ICR reference
MSG(BHLMVAR)
ADDDX(RO)	;-- add the diagnosis to the test since it is not there, this happens when they want all dx for mult accessions
HLSET(BLRINS)	;-- setup hl7 variables
ENDDX
SETDX
DX2(PAT)	; EP - Continuation from DX^BLRRLHL
O01(BHL)	;PEP - Order Message

External References

Name	Field # of Occurrence
$$INSADD^BLRRLHL	HLSET+26
^DIC	DX2+12
$$GET1^DIQ	HLSET+30
$$ICDDX^ICDCODE	ADDDX+13
$$ICDDX^ICDEX	DX2+16, ADDDX+13
^INHF	O01+99
$$DATE^INHUT	O01+12, O01+33, O01+34
$$HLNAME^XLFNAME	HLSET+31

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You have already selected this Diagnosis" Line Location: DX2+18
Routine Call	DIC Line Location: DX2+12

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^ICD9 - [#80]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	HLSET+22, HLSET+24, HLSET+25, HLSET+28, HLSET+29
^AUTTRLSH - [#9999999.36]	HLSET+9
^BLRRLO - [#9009026.3]	ADDDX+9, ADDDX+13
^BLRRLO("B"	ADDDX+8
^DPT - [#2]	HLSET+31, HLSET+32
^ICDS(0	ADDDX+13

Label References

Name	Line Occurrences
$$MSG	O01+3, O01+100
ADDDX	DX2+14, SETDX
DX2	ENDDX
ENDDX	DX2+17, DX2+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGINS(	HLSET+2, HLSET+3, HLSET+4, HLSET+7, HLSET+8, HLSET+9, HLSET+18, HLSET+19, HLSET+20
BHL	O01~
BHL(	O01+13, O01+15, O01+16, O01+17, O01+18, O01+19, O01+21, O01+22, O01+25, O01+27 , O01+28, O01+29, O01+30, O01+31, O01+32, O01+33, O01+34, O01+35, O01+36, O01+37 , O01+38, O01+39, O01+40, O01+41, O01+42, O01+43, O01+46, O01+47, O01+48, O01+52 , O01+54, O01+55, O01+56, O01+57, O01+58, O01+59, O01+60, O01+61, O01+65, O01+67 , O01+68, O01+69
BHL("ALTDUZ2"	O01+5
BHL("BILL TYP	E" , O01+8, O01+9
BHL("CDT"	O01+12, O01+74, O01+78, O01+82, O01+95
BHL("CLIENT"	O01+7, O01+8, O01+9
BHL("COMMENT"	O01+87, O01+89, O01+90, O01+91
BHL("INSTYP"	O01+8
BHL("ORDP"	O01+11, O01+79
BHL("PAT"	O01+3, O01+4
BHL("RLE"	O01+7, O01+9, O01+27, O01+56, O01+60, O01+76, O01+98
BHL("TCNM"	O01+80, O01+81
BHL("UID"	O01+10, O01+14, O01+77
BHL("URG"	O01+23, O01+84
>> BHLCDA	O01+65, O01+66, O01+67, O01+68, O01+69, O01+70, O01+71, O01+72, O01+73, O01+74 , O01+75, O01+76, O01+87, O01+88, O01+89, O01+90, O01+91, O01+92, O01+93, O01+94 , O01+95, O01+96, O01+97, O01+98
>> BHLCOM1	O01+67, O01+70, O01+72, O01+89, O01+93, O01+96
>> BHLCOM2	O01+68, O01+70, O01+73, O01+90, O01+94, O01+96
>> BHLCOM3	O01+69, O01+75, O01+91, O01+97
>> BHLDA	O01+13*, O01+14, O01+15, O01+16, O01+17, O01+18, O01+19, O01+20, O01+21, O01+22 , O01+23, O01+25, O01+27, O01+28, O01+29, O01+30, O01+31, O01+32, O01+33, O01+34 , O01+35, O01+36, O01+37, O01+38, O01+39, O01+40, O01+41, O01+42, O01+43, O01+46 , O01+47, O01+48, O01+52, O01+54, O01+55, O01+56, O01+57, O01+58, O01+59, O01+60 , O01+61, O01+63, O01+64, O01+65, O01+67, O01+68, O01+69, O01+70, O01+71, O01+72 , O01+73, O01+74, O01+75, O01+76
BHLMVAR	MSG~, MSG+1, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6
>> BHLRMSG	MSG+1, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7
BLRADX	DX2+1!, DX2+2*, DX2+15!, SETDX
>> BLRDX(	DX2+23*
BLRDXA	DX2+1!
BLRDXA(	DX2+17, DX2+22*
BLRDXS	DX2+1!, DX2+16*, DX2+20, DX2+23, SETDX+1, SETDX+2
BLRINS	HLSET~, HLSET+1, HLSET+2, HLSET+3, HLSET+4, HLSET+7, HLSET+8, HLSET+9, HLSET+18, HLSET+19 , HLSET+20
>> BLRO	SETDX
>> BLRRL(	ADDDX+4!, ADDDX+5!, ADDDX+6!, ADDDX+16, ADDDX+17, ADDDX+18, ADDDX+19, ADDDX+20, ADDDX+21, HLSET+2* , HLSET+4, HLSET+6, HLSET+7, HLSET+8, HLSET+9, HLSET+10, HLSET+11, HLSET+12, HLSET+13, HLSET+14* , HLSET+15, HLSET+16, HLSET+17, HLSET+18, HLSET+19, HLSET+20, HLSET+21, HLSET+22, HLSET+23, HLSET+24* , HLSET+25, HLSET+26, HLSET+27, HLSET+28, HLSET+29, HLSET+30, HLSET+31, HLSET+32
>> BLRRL("BILL T	YPE" , HLSET+6
>> BLRRL("DX"	SETDX+1, SETDX+2, ADDDX+14, ADDDX+15
>> BLRRL("INSE"	HLSET+3*
>> BLRRL("PAT"	ENDDX
>> BLRRL("RLE"	HLSET+12, HLSET+13, HLSET+14, HLSET+15, HLSET+16, HLSET+17
>> BLRTS	ADDDX+3
>> BLRTSTDA	DX2+14, HLSET+2, HLSET+4, HLSET+6, HLSET+7, HLSET+8, HLSET+9, HLSET+10, HLSET+11, HLSET+12 , HLSET+13, HLSET+14, HLSET+15, HLSET+16, HLSET+17, HLSET+18, HLSET+19, HLSET+20, HLSET+21, HLSET+22 , HLSET+23, HLSET+24, HLSET+25, HLSET+26, HLSET+27, HLSET+28, HLSET+29, HLSET+30, HLSET+31, HLSET+32
DGDA	O01+51~, O01+52*, O01+53, O01+54, O01+55, O01+56, O01+57, O01+58, O01+59, O01+60 , O01+61
DIC	DX2+1!, DX2+3*
DIC("A"	DX2+11*
DIC("S"	DX2+9*
DIC(0	DX2+11*
DUZ(2	O01+5
DXCNT	DX2+23, SETDX+1, SETDX+3, ADDDX+2~, ADDDX+7, ADDDX+11*, ADDDX+14
DXS	ADDDX+10~, ADDDX+13*, ADDDX+14, ADDDX+15, ADDDX+16, ADDDX+17, ADDDX+18, ADDDX+19, ADDDX+20, ADDDX+21
IDA	O01+24~, O01+25*, O01+26, O01+27, O01+28, O01+29, O01+30, O01+31, O01+32, O01+33 , O01+34, O01+35, O01+36, O01+37, O01+38, O01+39, O01+40
INA	O01+2!, O01+99
INA("DG12LABO"	O01+54, O01+58
INA("DG13LABO"	O01+55, O01+56, O01+59, O01+60
INA("DG14LABO"	O01+57, O01+61
INA("DUZ2"	O01+5*
INA("GT13LABO"	O01+41, O01+46
INA("GT15LABO"	O01+42, O01+47
INA("GT16LABO"	O01+43, O01+48
INA("IN111LABO"	O01+32*
INA("IN112LABO"	O01+33*
INA("IN113LABO"	O01+34*
INA("IN115LABO"	O01+35*
INA("IN116LABO"	O01+36*
INA("IN117LABO"	O01+37*
INA("IN119LABO"	O01+38*
INA("IN136LABO"	O01+39*
INA("IN13LABO"	O01+27*
INA("IN147LABO"	O01+40*
INA("IN14LABO"	O01+28*
INA("IN15LABO"	O01+29*
INA("IN17LABO"	O01+30*
INA("IN18LABO"	O01+31*
INA("OBR13LABO"	O01+20, O01+83
INA("OBR15LABO"	O01+21*
INA("OBR18LC"	O01+22*
INA("OBR27LABO"	O01+23, O01+84
INA("OBR4LABO"	O01+17, O01+80
INA("OBR4LABOL"	O01+18, O01+81
INA("OBR7LABO"	O01+19, O01+82
INA("OBX14LABO"	O01+74, O01+95
INA("OBX2LABOL"	O01+71, O01+92
INA("OBX3LABLC3"	O01+76, O01+98
INA("OBX3LABO"	O01+70, O01+96
INA("OBX3LABOL1"	O01+72, O01+93
INA("OBX3LABOL2"	O01+73, O01+94
INA("OBX5LABO"	O01+75, O01+97
INA("ORC11LABO"	O01+12, O01+15, O01+78*
INA("ORC12LABO"	O01+11, O01+16, O01+79*
INA("ORC2LABO"	O01+10, O01+14, O01+77*
INA("PID20LABO"	O01+8, O01+9
INA("SF"	O01+7*
INDA	O01+2!, O01+4*, O01+99
INDA("DG1"	O01+53*
INDA("IN1"	O01+26*
INDA("OBR"	O01+64, O01+86
INDA("OBX"	O01+66, O01+88
INDA("ORC"	O01+63, O01+85
>> INHF	O01+100
>> INSCNT	HLSET+1, HLSET+2, HLSET+3, HLSET+4, HLSET+6, HLSET+7, HLSET+8, HLSET+9, HLSET+10, HLSET+11 , HLSET+12, HLSET+13, HLSET+14, HLSET+15, HLSET+16, HLSET+17, HLSET+18, HLSET+19, HLSET+20, HLSET+21 , HLSET+22, HLSET+23, HLSET+24, HLSET+25, HLSET+26, HLSET+27, HLSET+28, HLSET+29, HLSET+30, HLSET+31 , HLSET+32, HLSET+33
ORI	ADDDX+2~, ADDDX+8*, ADDDX+9, ADDDX+13
PAT	DX2~, HLSET+30, HLSET+31, HLSET+32
RO	ADDDX~, ADDDX+8
TDA	ADDDX+2~, ADDDX+9*, ADDDX+13, ADDDX+16, ADDDX+17, ADDDX+18
TSTDA	ADDDX+2~, ADDDX+3*, ADDDX+4, ADDDX+5, ADDDX+6, ADDDX+16, ADDDX+17, ADDDX+18, ADDDX+19, ADDDX+20 , ADDDX+21
U	SETDX+1, SETDX+2, ADDDX+13, ADDDX+14, ADDDX+15, ADDDX+16, ADDDX+17, ADDDX+18, ADDDX+19, ADDDX+20 , ADDDX+21, HLSET+2, HLSET+3, HLSET+4, HLSET+7, HLSET+8, HLSET+9, HLSET+18, HLSET+19, HLSET+20 , HLSET+22, HLSET+24, HLSET+25, HLSET+27, HLSET+28, HLSET+29, HLSET+31, HLSET+32, O01+17, O01+27 , O01+55, O01+59, O01+67, O01+68, O01+69, O01+70, O01+80, O01+89, O01+90, O01+91 , O01+96, MSG+6
>> Y	DX2+13, DX2+16, DX2+17, DX2+22

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRRLHL2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: