Routine: LA7VQINS

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Automated Lab Instruments	3	(BUILDSEG,FILE6249,FILESEG)^LA7VHLU $$OBX1^LA7VOBX $$ACCT^LA7VQINS
DRG Grouper	1	$$ICDDX^ICDEX
Health Level Seven	1	$$HLNAME^HLFNC
IHS Changes To Lab	1	$$DIAGICD^BLRICDU0
IHS Patient Registration	1	($$GETMCR,$$GETRRE)^AGUTL
VA Fileman	1	($$GET1,GETS)^DIQ

Package	Total	Caller Graph
Automated Lab Instruments	4	LA7SMP LA7VORM1 LA7VPID LA7VQINS
IHS Changes To Lab	2	BLRAG09D BLRAG09F

Package

Total

Caller Graph

Automated Lab Instruments

LA7SMP LA7VORM1 LA7VPID LA7VQINS

IHS Changes To Lab

BLRAG09D BLRAG09F

Entry Points

Name	Comments	DBIA/ICR reference
WC(INS,IEN,ST)	;-- workmans comp
ACCT(OR)	;-- get the account number and billing type string
MCD(IEN,ST)	;medicaid
RR(IEN,PE,ST)	;-- get railroad insurance
DGP(ORI)	;
IN1(IN1)	;
OBX(ORD,UI)	;-- build the OBX segment for ask at order questions
PI(IEN,PE,ST)	;private insurance
INS(STORE,OR)	;Handle insurance
MCR(IEN,PE,ST)	;medicare.
AO(UID)	;-- print ask at order questions/responses
GT1(GT1)	;
ADD(FILE)	;
SFMAP(MNE)	;-- get sliding fee scale if mnemonic is Labcorp sliding scale
PRT(UID)	;EP -- print out insurance information on manifest
GAR(DFN,REL,PAT,ST)	;SELF AS GUARANTOR
DG1(UID)	;
GEN	;-- generate the OBX segment
WR(CAP,VAL,TAB,NL)	;-- write out the line

External References

Name	Field # of Occurrence
$$GETMCR^AGUTL	MCR+15
$$GETRRE^AGUTL	RR+15
$$DIAGICD^BLRICDU0	DGP+8
$$GET1^DIQ	PRT+7, PRT+10, PRT+13
GETS^DIQ	MCR+3, MCR+4, MCR+6, MCD+4, MCD+6, PI+4, PI+6, WC+6, WC+7, WC+10 , WC+11, RR+3, RR+4, RR+6, GAR+8
$$HLNAME^HLFNC	MCR+12, MCR+13, MCD+12, PI+15, WC+20, RR+12, RR+13, GAR+9
$$ICDDX^ICDEX	DG1+10
BUILDSEG^LA7VHLU	GEN+10
FILE6249^LA7VHLU	IN1+7, GT1+6, DG1+13, GEN+12
FILESEG^LA7VHLU	IN1+6, GT1+5, DG1+12, GEN+11
$$OBX1^LA7VOBX	GEN+5
$$ACCT^LA7VQINS	MCR+22, MCD+21, PI+19, WC+24, RR+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?11,$E(LA7LINE,1,41) Line Location: PRT+12
Function Call: WRITE	Prompt: !,?11,$E(LA7LINE,1,41) Line Location: PRT+53
Function Call: WRITE	Prompt: ! Line Location: WR+1
Function Call: WRITE	Prompt: ?TAB,CAP,VAL Line Location: WR+2
Function Call: WRITE	Prompt: !!,"ORDER ENTRY QUESTIONS: " Line Location: AO+11

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ
^AUPNMCR - [#9000003]	GETS^DIQ
^AUPN3PPH - [#9000003.1]	GETS^DIQ
9000003.11	GETS^DIQ
^AUPNMCD - [#9000004]	GETS^DIQ
^AUPNRRE - [#9000005]	GETS^DIQ
9000005.11	GETS^DIQ
^AUPNWC - [#9000042]	GETS^DIQ
9000042.11	GETS^DIQ
^BLRRLO - [#9009026.3]	GET1^DIQ
^AUTNINS - [#9999999.18]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNGUAR - [#9000043]	GAR+6
^AUPNPRVT - [#9000006]	PI+20
^AUTNEGRP - [#9999999.77]	MCR+18, MCD+20, PI+12, WC+17, RR+18
^AUTTRLSH - [#9999999.36]	MCD+15, MCD+16, PI+20
^BLRRLO - [#9009026.3]	INS+5, INS+7, INS+9, INS+10, DG1+5, DG1+7, ACCT+4, PRT+15, PRT+20, PRT+22 , DGP+3, DGP+5, AO+5, AO+6, OBX+5, OBX+6
^BLRRLO("ACC"	INS+3, PRT+5, AO+2
^BLRRLO("B"	INS+2, DG1+3, ACCT+2, OBX+2
^BLRSITE - [#9009029]	PRT+3
^DIC(5 - [#5]	ADD+8
^ICD9 - [#80]	DG1+8, DGP+6
^ICDS(0	DG1+10
^TMP($J	PRT+8, PRT+9*

Label References

Name	Line Occurrences
$$ADD	MCR+20, MCR+21, MCD+9, MCD+22, PI+9, PI+17, WC+14, WC+22, RR+20, RR+21 , GAR+10
DGP	PRT+54
GAR	PRT+11
GEN	OBX+16
GT1	GAR+16
IN1	INS+8, MCR+24, MCD+24, PI+24, WC+30, RR+24
MCD	INS+14, PRT+26
MCR	INS+17, INS+20, PRT+29, PRT+32
PI	INS+27, PRT+39
RR	INS+23, PRT+35
WR	PRT+13, PRT+14, PRT+16, PRT+17, PRT+18, PRT+40, PRT+42, PRT+43, PRT+44, PRT+45 , PRT+46, PRT+47, PRT+48, PRT+49, PRT+50, PRT+51, PRT+52, DGP+9, DGP+10, AO+15 , AO+17

Name	Field # of Occurrence
^(	GAR+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACC	AO+4~, AO+7, AO+8, OBX+4~, OBX+7, OBX+8
ACCT	ACCT+1~, ACCT+5*, ACCT+7
ANS	AO+4~, AO+13, AO+17, OBX+4~, OBX+10, OBX+15
BDA	INS+1~, INS+9, INS+10, DG1+1~, DG1+5, DG1+7, PRT+20, PRT+22, DGP+1~, DGP+3 , DGP+5
BTP	ACCT+1~, ACCT+6, ACCT+7, PRT+1~, PRT+10, PRT+14
CAP	WR~, WR+2
CNT	INS+6, MCR+1, MCD+1, PI+1, WC+2, RR+1, IN1+3, DG1+1~, DG1+2, DG1+6 , DG1+11, PRT+1~, PRT+19, PRT+21, PRT+55, DGP+1~, DGP+2, DGP+4
DATA	ACCT+1~, ACCT+4, ACCT+5, ACCT+6, AO+4~, AO+6, AO+7, AO+12, AO+13, AO+14 , OBX+4~, OBX+6*, OBX+7, OBX+9, OBX+10, OBX+11
DFN	PI+20, WC+9, GAR~, GAR+3, GAR+4, GAR+6*, GAR+7, PRT+11
DFN1	GAR+3~*, GAR+6
DFNS	WC+1!, WC+9*, WC+11, WC+28!, PRT+2!
DT	MCR+15, RR+15, DG1+10
DUZ(2	PRT+3
DX	DG1+1~, DG1+7, DG1+8, DG1+10, DGP+1~, DGP+5, DGP+6, DGP+8
DXE	DG1+1~, DG1+8, DG1+11, DGP+1~, DGP+6, DGP+9
DXEE	DGP+1~, DGP+8*, DGP+10
>> EINS	MCR+4, RR+4
FILE	ADD~, ADD+2*, ADD+4, ADD+5, ADD+7, ADD+8
>> GBL	IN1+6, GT1+5, DG1+12, GEN+11
GT1	GAR+5!, GAR+16, GT1~
GT1(	GT1+4
GT1(12	GAR+12*
GT1(13	GAR+13*
GT1(17	GAR+14*
GT1(4	GAR+9*, PRT+16, PRT+49
GT1(6	GAR+10*, PRT+18, PRT+51
GT1(7	GAR+11, GT1+3, PRT+17, PRT+50
HEAD	AO+1~, AO+9, AO+10*, AO+18!
I	ADD+6~, ADD+7, IN1+5, GAR+6, GT1+4
ICDT	DG1+9~, DG1+10*, DG1+11
IEIEN	INS+1~, INS+13, INS+16, INS+17, INS+19, INS+20, INS+22, INS+23, INS+26, INS+27 , PRT+1~, PRT+25, PRT+28, PRT+29, PRT+31, PRT+32, PRT+34, PRT+35, PRT+38, PRT+39
IEN	MCR~, MCR+2, MCR+15, MCD~, MCD+3, PI~, PI+3, WC~, WC+4, WC+5 , RR~, RR+2, RR+15
IENS	MCR+2~, MCR+3, MCR+4, MCR+5, MCR+12, MCR+13, MCR+17, MCR+19, MCD+2~, MCD+3 , MCD+4, MCD+5, MCD+12, MCD+14, MCD+18, MCD+19, PI+2~, PI+3, PI+4, PI+5 , PI+11, PI+13, PI+15, PI+18, WC+3~, WC+4, WC+7, WC+16, WC+18, WC+23 , RR+2~*, RR+3, RR+4, RR+5, RR+12, RR+13, RR+17, RR+19, ADD+7, ADD+8
IIEN	INS+1~, INS+11, INS+14, INS+17, INS+20, INS+23, PRT+1~, PRT+23, PRT+26, PRT+29 , PRT+32, PRT+35
>> IN	WC+5*, WC+6, WC+20
>> IN(	MCR+7, MCR+8, MCR+9, MCR+16, MCR+17, MCD+7, MCD+8, MCD+10, PI+5, PI+7 , PI+8, PI+10, PI+11, PI+13, PI+14, PI+15, PI+18, WC+12, WC+13, WC+15 , WC+16, WC+18, WC+19, WC+23, RR+7, RR+8, RR+9, RR+16, RR+17, ADD+7 , ADD+8
>> IN(2	GAR+9, GAR+11, GAR+13, GAR+14
>> IN(9000003	MCR+5, MCR+12, MCR+13, MCR+19
>> IN(9000004	MCD+5, MCD+12, MCD+14, MCD+18, MCD+19
>> IN(9000005	RR+5, RR+12, RR+13, RR+19
>> IN(9000042	WC+20
IN1	INS+8, MCR+24, MCD+24, PI+24, WC+30, RR+24, IN1~
IN1(	IN1+5
IN1("18E"	MCD+16, PI+22, WC+27*, PRT+47
IN1(10	MCR+19, PI+13, WC+18, RR+19
IN1(16	MCR+10, MCD+11, PI+14, WC+19, RR+10*
IN1(17	MCR+12, MCR+13, MCD+12, PI+15, WC+20, RR+12, RR+13*, PRT+46
IN1(18	MCR+11, MCD+13, MCD+15, MCD+17, PI+20, PI+21, PI+22, WC+26, WC+27, RR+11
IN1(20	MCR+21, MCD+22, PI+17, WC+22, RR+21*, PRT+48
IN1(37	MCR+15, MCD+18, PI+18, WC+23, RR+15*, PRT+52
IN1(4	MCR+7, MCR+16, MCD+7, PI+7, WC+12, RR+7, RR+16*, PRT+40
IN1(48	INS+7, MCR+22, MCD+21, PI+19, WC+24, RR+22
IN1(5	MCR+8, MCD+8, PI+8, WC+13, RR+8*, PRT+43
IN1(6	MCR+20, MCD+9, PI+9, WC+14, RR+20*, PRT+45
IN1(7	MCR+9, MCD+10, PI+10, WC+15, RR+9*, PRT+44
IN1(9	MCR+17, MCR+18, MCD+19, MCD+20, PI+11, PI+12, WC+16, WC+17, RR+17, RR+18 , PRT+42
INS	MCR+5, MCR+6, MCR+7, MCR+8, MCR+9, MCR+16, MCD+5, MCD+6, MCD+7, MCD+8 , MCD+10, PI+5, PI+6, PI+7, PI+8, PI+10, PI+14, WC~, WC+8, WC+10 , WC+12, WC+13, WC+15, WC+19, RR+5, RR+6, RR+7, RR+8, RR+9, RR+16 , ADD+7, ADD+8, GAR+1!, GAR+7, GAR+8, GAR+9, GAR+11, GAR+13, GAR+14, PRT+2!
IPIEN	INS+1~, INS+25, INS+27, PRT+1~, PRT+37, PRT+39
>> LA76249	IN1+7, GT1+6, DG1+13, GEN+12
>> LA7BLG	IN1+6, IN1+7, GT1+5, GT1+6, DG1+12, DG1+13
>> LA7BLG(0	IN1+2!, IN1+3, IN1+5, GT1+2, GT1+4, DG1+11*
LA7DATA	GEN+1~, GEN+10, GEN+11, GEN+12
>> LA7DGQ	DG1+14*
>> LA7ECH	MCR+12, MCR+13, MCD+12, PI+15, WC+20, RR+12, RR+13, ADD+7, ADD+8, GAR+9 , PRT+4*
>> LA7FS	IN1+3, IN1+5, GT1+2, GT1+4, DG1+11, GEN+10
>> LA7GUAR	GAR+2, GAR+17*, GT1+1
>> LA7LINE	PRT+12, PRT+53
LA7OBX	AO+4~, OBX+4~, GEN+10
LA7OBX(0	GEN+3*
LA7OBX(1	GEN+5*
LA7OBX(2	OBX+12*
LA7OBX(3	OBX+14*
LA7OBX(5	OBX+15*
>> LA7OBXSN	GEN+5
LINE	ADD+3~, ADD+4, ADD+5*, ADD+7, ADD+8
MNE	SFMAP~, SFMAP+1, SFMAP+2, SFMAP+3, SFMAP+4, SFMAP+5, SFMAP+6, SFMAP+7, SFMAP+8, SFMAP+9 , SFMAP+10, SFMAP+11, SFMAP+12, SFMAP+13, SFMAP+14, SFMAP+15, SFMAP+16, SFMAP+17, SFMAP+18, SFMAP+19 , SFMAP+20, SFMAP+21, SFMAP+22
NINS	PRT+1~, PRT+3*, PRT+21
NL	WR~, WR+1
ODA	AO+4~, AO+5, AO+6, OBX+4~, OBX+5, OBX+6
OR	INS~, INS+2, INS+3, ACCT~, ACCT+2, OBX+1~, OBX+2*, OBX+3, OBX+5, OBX+6
ORD	MCR+22, MCD+21, PI+19, WC+24, RR+22, PRT+1~, PRT+7*, PRT+8, PRT+9, OBX~ , OBX+2
ORI	INS+1~, INS+2, INS+3, INS+4, INS+5, INS+7, INS+9, INS+10, DG1+1~, DG1+3* , DG1+4, DG1+5, DG1+7, ACCT+1~, ACCT+2, ACCT+3, ACCT+4, PRT+1~, PRT+5, PRT+6 , PRT+7, PRT+10, PRT+13, PRT+15, PRT+20, PRT+22, PRT+54, DGP~, DGP+3, DGP+5 , AO+1~, AO+2*, AO+3, AO+5, AO+6
PAT	GAR~, GAR+4*, GAR+6
PE	MCR~, MCR+4, MCD+14*, MCD+15, MCD+16, PI~, PI+20, RR~, RR+4
QUES	AO+4~, AO+12, AO+15, AO+16, OBX+4~, OBX+9, OBX+14
REL	GAR~, GAR+6!, GAR+12
RSC	AO+4~, AO+14, OBX+4~, OBX+11, OBX+14
ST	MCR~, MCR+23, MCD~, MCD+23, PI~, PI+23, WC~, WC+29, RR~, RR+23 , GAR~, GAR+15
STORE	INS~, INS+14, INS+17, INS+20, INS+23, INS+27
STR	INS+1~, INS+10, INS+11, INS+12, INS+13, INS+15, INS+16, INS+18, INS+19, INS+21 , INS+22, INS+24, INS+25, INS+26, PRT+1~, PRT+22, PRT+23, PRT+24, PRT+25, PRT+27 , PRT+28, PRT+30, PRT+31, PRT+33, PRT+34, PRT+36, PRT+37, PRT+38, PRT+41
TAB	WR~, WR+2
TB	AO+1~, AO+16*, AO+17
U	INS+5, INS+7, MCR+18, MCR+22, MCD+15, MCD+16, MCD+20, MCD+21, PI+12, PI+19 , PI+20, WC+17, WC+24, RR+18, RR+22, ADD+7, ADD+8, DG1+7, DG1+8, DG1+10 , ACCT+5, ACCT+6, ACCT+7, PRT+3, PRT+15, DGP+5, DGP+6, AO+7, AO+12, AO+13 , AO+14, OBX+7, OBX+9, OBX+10, OBX+11, OBX+14
UI	OBX~, OBX+8
UID	DG1~, DG1+3, PRT~, PRT+5, PRT+9, AO~, AO+2, AO+8
VAL	WR~, WR+2
X	ADD+6~, ADD+7, ADD+8*, ADD+9

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7VQINS

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: