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

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

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

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

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

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

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

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

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:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed