Routine: BLRREFLA

Package	Total	Call Graph
VA Fileman	2	$$FIND1^DIC ($$GET1,GETS)^DIQ
DRG Grouper	1	$$ICDDX^ICDEX
IHS Changes To Lab	1	(EEP,HEADERDT)^BLRGMENU
Kernel	1	$$IHSDIV^XUS1

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	1	BTIULO11

Entry Points

Name	Comments	DBIA/ICR reference
RLADDRES(F4IEN,ARRAY)	; EP ; F4IEN = IEN from INSTITUTION (#4) file. ; Output (if any) will be put into the ARRAY ; Returns 1 if successful or 0 if failure.
LISTVISD(VFILEIEN,VISITIEN)	; EP - List Visit Data
FINDSOME	; EP - DEBUG
CHPCCSUB(VLABIEN,ARRAY)	; EP - "CH" subscripted tests
VLABDATA(VLABIEN)	; EP - Display VLAB Data
EEP	; Ersatz EP
FINDVFVI	; EP - Find V File visits
MIPCCSUB(VLMICIEN,ARRAY)	; EP - "MI" subscripted tests
PCCRLADR(VFILENUM,VFILEIEN,ARRAY)	; EP - Get Address for Lab V File entry ; VFILENUM = Number of the Lab V File ; VFILEIEN = IEN of the test in the Lab V File
SHOWICD(ICD)	; EP -
FINDVISL	; EP - Find VLAB visits

External References

Name	Field # of Occurrence
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	FINDVISL+16, FINDVFVI+15
$$FIND1^DIC	MIPCCSUB+26, VLABDATA+48
$$GET1^DIQ	CHPCCSUB+5, CHPCCSUB+6, CHPCCSUB+8, CHPCCSUB+9, CHPCCSUB+11, CHPCCSUB+21, CHPCCSUB+27, CHPCCSUB+30, CHPCCSUB+31, CHPCCSUB+34 , MIPCCSUB+5, MIPCCSUB+6, MIPCCSUB+7, MIPCCSUB+9, MIPCCSUB+14, MIPCCSUB+20, MIPCCSUB+22, MIPCCSUB+35, RLADDRES+11, RLADDRES+12 , RLADDRES+13, RLADDRES+14, RLADDRES+15, RLADDRES+16, FINDSOME+13, FINDSOME+15, FINDSOME+16, FINDSOME+21, FINDSOME+24, VLABDATA+3 , VLABDATA+4, VLABDATA+5, VLABDATA+6, VLABDATA+8, VLABDATA+9, VLABDATA+14, VLABDATA+15, VLABDATA+16, VLABDATA+32, VLABDATA+42 , VLABDATA+45, VLABDATA+53, VLABDATA+54, VLABDATA+58, VLABDATA+60, VLABDATA+62, VLABDATA+64, VLABDATA+66, LISTVISD+6
GETS^DIQ	FINDVISL+22, LISTVISD+3
$$ICDDX^ICDEX	SHOWICD+3
$$IHSDIV^XUS1	CHPCCSUB+24, MIPCCSUB+17, VLABDATA+43

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DUZ(2)=",DUZ(2),!!,?4 Line Location: FINDSOME+3
Function Call: WRITE	Prompt: LRDFN Line Location: FINDSOME+31
Function Call: WRITE	Prompt: ?9,LRIDT Line Location: FINDSOME+32
Function Call: WRITE	Prompt: ?25,IFIELD Line Location: FINDSOME+33
Function Call: WRITE	Prompt: ?35,INST Line Location: FINDSOME+34
Function Call: WRITE	Prompt: ?45,REFLAB Line Location: FINDSOME+35
Function Call: WRITE	Prompt: ?55,REFLNAME Line Location: FINDSOME+36
Function Call: WRITE	Prompt: ! Line Location: FINDSOME+37
Function Call: WRITE	Prompt: VLABIEN Line Location: FINDVISL+29
Function Call: WRITE	Prompt: ?9,$G(TARGET(9000010.09,VLABIEN_",",.03,"I")) Line Location: FINDVISL+30
Function Call: WRITE	Prompt: ?19,$G(TARGET(9000010.09,VLABIEN_",",.06,"I")) Line Location: FINDVISL+31
Function Call: WRITE	Prompt: ?34,$G(TARGET(9000010.09,VLABIEN_",",1112,"I")) Line Location: FINDVISL+32
Function Call: WRITE	Prompt: ?34,$$SHOWICD($G(TARGET(9000010.09,VLABIEN_",",1112,"I"))) Line Location: FINDVISL+33
Function Call: WRITE	Prompt: ?44,$G(TARGET(9000010.09,VLABIEN_",",1113,"I")) Line Location: FINDVISL+34
Function Call: WRITE	Prompt: ?54,$E($G(TARGET(9000010.09,VLABIEN_",",1601,"I")),1,18) Line Location: FINDVISL+35
Function Call: WRITE	Prompt: ?74,$E($G(TARGET(9000010.09,VLABIEN_",",1602,"I")),1,6) Line Location: FINDVISL+36
Function Call: WRITE	Prompt: ?74,DFN Line Location: FINDVISL+38
Function Call: WRITE	Prompt: ! Line Location: FINDVISL+39
Function Call: WRITE	Prompt: !! Line Location: VLABDATA+18
Function Call: WRITE	Prompt: "VLABIEN:",VLABIEN,! Line Location: VLABDATA+19
Function Call: WRITE	Prompt: ?4,"F60IEN:",F60IEN Line Location: VLABDATA+20
Function Call: WRITE	Prompt: ?24,"DFN:",DFN Line Location: VLABDATA+21
Function Call: WRITE	Prompt: ?39,"COLLDATE:",COLLDATE Line Location: VLABDATA+22
Function Call: WRITE	Prompt: !! Line Location: VLABDATA+23
Function Call: WRITE	Prompt: ?4,"DATANAME:",DATANAME Line Location: VLABDATA+25
Function Call: WRITE	Prompt: ?19,"LRDFN:",LRDFN Line Location: VLABDATA+26
Function Call: WRITE	Prompt: ?34,"LRIDT:",LRIDT Line Location: VLABDATA+27
Function Call: WRITE	Prompt: !! Line Location: VLABDATA+28
Function Call: WRITE	Prompt: ?4,"VISIT ",VISIENS," Data:",! Line Location: VLABDATA+30
Function Call: WRITE	Prompt: ?9,"LOC. OF ENCOUNTER:",VLOCEIEN Line Location: VLABDATA+31
Function Call: WRITE	Prompt: ! Line Location: VLABDATA+33
Function Call: WRITE	Prompt: ?9,"HOSPITAL LOCATION:",VHLOCIEN Line Location: VLABDATA+34
Function Call: WRITE	Prompt: !! Line Location: VLABDATA+35
Function Call: WRITE	Prompt: "Last $PIECE from File 63 '",DATANAME,"' Node: ",$RE($P($RE($G(^LR(+LRDFN,"CH",+LRIDT,+DATANAME))),"^")),! Line Location: VLABDATA+39
Function Call: WRITE	Prompt: ?4,"Raw Data:",$E($G(^LR(+LRDFN,"CH",+LRIDT,+DATANAME)),1,65),!! Line Location: VLABDATA+40
Function Call: WRITE	Prompt: "'Division' from File 63 Verify Person '",VPIEN,"' IEN: ",$$IHSDIV^XUS1(VPIEN),!! Line Location: VLABDATA+43
Function Call: WRITE	Prompt: "Requesting Location: ",REQLOC,! Line Location: VLABDATA+46
Function Call: WRITE	Prompt: ?4,"Lookup of '",REQLOC,"' in File 44 --",! Line Location: VLABDATA+51
Function Call: WRITE	Prompt: ?19,"IEN: ",F44IEN,! Line Location: VLABDATA+52
Function Call: WRITE	Prompt: ?19,"NAME: ",$$GET1^DIQ(44,F44IEN,"NAME"),! Line Location: VLABDATA+53
Function Call: WRITE	Prompt: ?19,"INSTITUTION: ",$$GET1^DIQ(44,F44IEN,"INSTITUTION","I") Line Location: VLABDATA+54
Function Call: WRITE	Prompt: ! Line Location: VLABDATA+55
Function Call: WRITE	Prompt: ! Line Location: VLABDATA+56
Function Call: WRITE	Prompt: "Requesting LOC/DIV: ",$$GET1^DIQ(63.04,IENS,.111),!! Line Location: VLABDATA+58
Function Call: WRITE	Prompt: "Accessioning Institituion: ",$$GET1^DIQ(63.04,IENS,.112),!! Line Location: VLABDATA+60
Function Call: WRITE	Prompt: "Default Institution in 69.9: ",$$GET1^DIQ(69.9,1_",",3,"I"),!! Line Location: VLABDATA+66
Function Call: WRITE	Prompt: ! Line Location: FINDVFVI+26
Function Call: WRITE	Prompt: VFILEIEN Line Location: LISTVISD+9
Function Call: WRITE	Prompt: ?12,VISITIEN Line Location: LISTVISD+10
Function Call: WRITE	Prompt: ?22,$G(TARGET(VFILEIEN,VISITIEN_",",.01,"I")) Line Location: LISTVISD+11
Function Call: WRITE	Prompt: ?32,$G(TARGET(VFILEIEN,VISITIEN_",",.06,"I")) Line Location: LISTVISD+12
Function Call: WRITE	Prompt: ?52,DFN Line Location: LISTVISD+14
Function Call: WRITE	Prompt: ?62,LRDFN Line Location: LISTVISD+15
Function Call: WRITE	Prompt: ! Line Location: LISTVISD+16
Routine Call	DIC Line Location: MIPCCSUB+26 VLABDATA+48

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	FIND1^DIC, GET1^DIQ
^LAB(60 - [#60]	GET1^DIQ
63.04	GET1^DIQ
^LRO(68 - [#68]	FIND1^DIC
^LAB(69.9 - [#69.9]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVLAB - [#9000010.09]	GET1^DIQ, GETS^DIQ
^AUPNVMIC - [#9000010.25]	GET1^DIQ
^BLRRL - [#9009026]	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ
^AUTTLOC - [#9999999.06]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVLAB - [#9000010.09]	FINDVISL+20, FINDVFVI+21
^AUPNVMIC - [#9000010.25]	FINDVFVI+31
^DPT - [#2]	FINDVISL+37
^LAB(60 - [#60]	MIPCCSUB+31, MIPCCSUB+32
^LR - [#63]	CHPCCSUB+17, FINDSOME+7, FINDSOME+9, VLABDATA+39, VLABDATA+40

Label References

Name	Line Occurrences
$$CHPCCSUB	PCCRLADR+25
$$MIPCCSUB	PCCRLADR+27
$$RLADDRES	CHPCCSUB+40, MIPCCSUB+41
$$SHOWICD	FINDVISL+33
LISTVISD	FINDVFVI+24, FINDVFVI+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ARRAY	PCCRLADR~, PCCRLADR+20!, PCCRLADR+25, PCCRLADR+27, CHPCCSUB~, CHPCCSUB+1, CHPCCSUB+40, MIPCCSUB~, MIPCCSUB+1, MIPCCSUB+41 , RLADDRES~, RLADDRES+4, RLADDRES+6!
ARRAY("CITY"	RLADDRES+22*
ARRAY("NAME"	RLADDRES+20*
ARRAY("ST1"	RLADDRES+20*
ARRAY("ST2"	RLADDRES+21*
ARRAY("STATE"	RLADDRES+22*
ARRAY("ZIP"	RLADDRES+22*
>> CITY	RLADDRES+14*, RLADDRES+19, RLADDRES+22
>> CNT	FINDSOME+5, FINDSOME+7, FINDSOME+9, FINDSOME+27, FINDSOME+29, FINDSOME+30, FINDVISL+18, FINDVISL+20, FINDVISL+40, FINDVFVI+19* , FINDVFVI+21, FINDVFVI+29, FINDVFVI+31, LISTVISD+17
>> CNTACC	FINDSOME+5, FINDSOME+26, FINDSOME+27
>> COLLDATE	CHPCCSUB+11, CHPCCSUB+13, CHPCCSUB+16, MIPCCSUB+9, MIPCCSUB+10, VLABDATA+6*, VLABDATA+11, VLABDATA+22
>> DATANAME	VLABDATA+8*, VLABDATA+25, VLABDATA+39, VLABDATA+40
>> DFN	CHPCCSUB+8, CHPCCSUB+9, MIPCCSUB+6, MIPCCSUB+7, FINDVISL+25, FINDVISL+26, FINDVISL+27, FINDVISL+37, FINDVISL+38, VLABDATA+5 , VLABDATA+9, VLABDATA+21, LISTVISD+5, LISTVISD+6, LISTVISD+13, LISTVISD+14
>> DFN(	FINDVISL+26, FINDVISL+27*
>> DILOCKTM	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> DISYS	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
DT	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
DTIME	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
DUZ	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
DUZ(2	FINDSOME+3, FINDSOME+19
ERRS	MIPCCSUB+25!, FINDVISL+21!, FINDVFVI+22!, LISTVISD+1!
>> F44IEN	VLABDATA+48*, VLABDATA+49, VLABDATA+50, VLABDATA+52, VLABDATA+53, VLABDATA+54
F4IEN	RLADDRES~, RLADDRES+4, RLADDRES+9, RLADDRES+11, RLADDRES+12, RLADDRES+13, RLADDRES+14, RLADDRES+15, RLADDRES+16, RLADDRES+26
>> F60IEN	CHPCCSUB+5, CHPCCSUB+6, MIPCCSUB+5, MIPCCSUB+29, MIPCCSUB+31, MIPCCSUB+32, VLABDATA+3*, VLABDATA+8, VLABDATA+20
>> HEADER(1	FINDVISL+5, FINDVFVI+3
>> HEADER(2	FINDVISL+6, FINDVFVI+4
>> HEADER(3	FINDVISL+7, FINDVISL+8, FINDVISL+9, FINDVISL+10, FINDVISL+11, FINDVISL+12, FINDVISL+14, FINDVFVI+5, FINDVFVI+6, FINDVFVI+7
>> HEADER(4	FINDVFVI+8, FINDVFVI+9, FINDVFVI+10, FINDVFVI+11, FINDVFVI+12, FINDVFVI+13
ICD	SHOWICD~, SHOWICD+3, SHOWICD+5
ICDSTR	SHOWICD+1~, SHOWICD+3, SHOWICD+4, SHOWICD+5*, SHOWICD+6
>> IENS	CHPCCSUB+19, CHPCCSUB+21, CHPCCSUB+27, CHPCCSUB+30, MIPCCSUB+12, MIPCCSUB+14, MIPCCSUB+20, FINDSOME+10, FINDSOME+13, FINDSOME+15 , VLABDATA+37, VLABDATA+42, VLABDATA+45, VLABDATA+58, VLABDATA+60, VLABDATA+62
>> IFIELD	FINDSOME+12, FINDSOME+17, FINDSOME+33
>> INST	CHPCCSUB+3, CHPCCSUB+17, CHPCCSUB+24, CHPCCSUB+27, CHPCCSUB+29, CHPCCSUB+31, CHPCCSUB+34, CHPCCSUB+37, CHPCCSUB+40, MIPCCSUB+3* , MIPCCSUB+17, MIPCCSUB+20, MIPCCSUB+30, MIPCCSUB+31, MIPCCSUB+32, MIPCCSUB+35, MIPCCSUB+38, MIPCCSUB+41, FINDSOME+13, FINDSOME+14 , FINDSOME+16*, FINDSOME+19, FINDSOME+21, FINDSOME+34
>> INSTIEN	MIPCCSUB+30, MIPCCSUB+31, MIPCCSUB+32
IO	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> IOBS	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
IOF	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
IOM	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
ION	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> IOS	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
IOSL	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
IOST	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> IOT	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> IOXY	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> LRAA	MIPCCSUB+26*, MIPCCSUB+29, MIPCCSUB+32
>> LRAAAB	MIPCCSUB+23*, MIPCCSUB+26
>> LRDFN	CHPCCSUB+9, CHPCCSUB+16, CHPCCSUB+17, CHPCCSUB+19, MIPCCSUB+7, MIPCCSUB+12, FINDSOME+6, FINDSOME+7, FINDSOME+9, FINDSOME+10 , FINDSOME+31, VLABDATA+9, VLABDATA+26, VLABDATA+37, VLABDATA+39, VLABDATA+40, LISTVISD+6, LISTVISD+7, LISTVISD+15
>> LRDN	CHPCCSUB+6*, CHPCCSUB+16, CHPCCSUB+17
>> LRIDT	CHPCCSUB+13, CHPCCSUB+17, CHPCCSUB+19, MIPCCSUB+10, MIPCCSUB+12, FINDSOME+8, FINDSOME+9, FINDSOME+10, FINDSOME+32, VLABDATA+11* , VLABDATA+27, VLABDATA+37, VLABDATA+39, VLABDATA+40
>> LRSS	CHPCCSUB+14*, CHPCCSUB+17
>> MAX	FINDSOME+5, FINDSOME+7, FINDSOME+9, FINDVISL+18, FINDVISL+20, FINDVFVI+19, FINDVFVI+21, FINDVFVI+29, FINDVFVI+31
>> NAME	RLADDRES+11*, RLADDRES+19, RLADDRES+20
>> REFLAB	FINDSOME+21*, FINDSOME+22, FINDSOME+24, FINDSOME+35
>> REFLNAME	FINDSOME+24*, FINDSOME+36
>> REQLOC	CHPCCSUB+30, CHPCCSUB+31, FINDSOME+15, FINDSOME+16, VLABDATA+45, VLABDATA+46, VLABDATA+47, VLABDATA+48, VLABDATA+49, VLABDATA+51 , VLABDATA+62, VLABDATA+63, VLABDATA+64
>> ST1	RLADDRES+12*, RLADDRES+19, RLADDRES+20
>> ST2	RLADDRES+13*, RLADDRES+21
>> STATE	RLADDRES+15*, RLADDRES+19, RLADDRES+22
TARGET	FINDVISL+21!, FINDVFVI+22!, LISTVISD+1!
TARGET(	FINDVISL+25, FINDVISL+30, FINDVISL+31, FINDVISL+33, FINDVISL+34, FINDVISL+35, LISTVISD+5, LISTVISD+11, LISTVISD+12, LISTVISD+13
>> TESTIEN	FINDVISL+3, FINDVFVI+18
U	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
VFILEIEN	PCCRLADR~, PCCRLADR+23, PCCRLADR+25, PCCRLADR+27, LISTVISD~, LISTVISD+3, LISTVISD+5, LISTVISD+9, LISTVISD+11, LISTVISD+12 , LISTVISD+13
VFILENUM	PCCRLADR~, PCCRLADR+22, PCCRLADR+23, PCCRLADR+25, PCCRLADR+27, PCCRLADR+29
>> VFLRAS	MIPCCSUB+22*, MIPCCSUB+23
>> VHLOCIEN	VLABDATA+16*, VLABDATA+34
>> VISIENS	VLABDATA+13*, VLABDATA+14, VLABDATA+16, VLABDATA+30
VISITIEN	VLABDATA+4*, VLABDATA+13, LISTVISD~, LISTVISD+3, LISTVISD+5, LISTVISD+10, LISTVISD+11, LISTVISD+12, LISTVISD+13
VLABIEN	CHPCCSUB~, CHPCCSUB+1, CHPCCSUB+5, CHPCCSUB+8, CHPCCSUB+11, FINDVISL+19, FINDVISL+20, FINDVISL+22, FINDVISL+25, FINDVISL+29 , FINDVISL+30, FINDVISL+31, FINDVISL+33, FINDVISL+34, FINDVISL+35, VLABDATA~, VLABDATA+1, VLABDATA+3, VLABDATA+4, VLABDATA+5 , VLABDATA+6, VLABDATA+19, FINDVFVI+20, FINDVFVI+21, FINDVFVI+24
VLMICIEN	MIPCCSUB~, MIPCCSUB+1, MIPCCSUB+5, MIPCCSUB+6, MIPCCSUB+9, MIPCCSUB+22
>> VLOCEIEN	VLABDATA+14*, VLABDATA+15, VLABDATA+31
>> VLOCENIEN	VLABDATA+15*, VLABDATA+32
>> VMICIEN	FINDVFVI+30, FINDVFVI+31, FINDVFVI+32
>> VPIEN	CHPCCSUB+21, CHPCCSUB+24, MIPCCSUB+14, MIPCCSUB+17, VLABDATA+42*, VLABDATA+43
>> XPARSYS	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> XQXFLG	CHPCCSUB+1, MIPCCSUB+1, RLADDRES+4, FINDSOME+1, FINDVISL+1, VLABDATA+1, FINDVFVI+1
>> ZIP	RLADDRES+16*, RLADDRES+19, RLADDRES+22

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRREFLA

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: