Routine: IBCNRDV

Package	Total	Call Graph
Integrated Billing	6	($$DFN,$$ICN,$$TFL)^IBARXMU $$ADDSTF^IBCNBES EN^IBCNRDV1 ALL^IBCNS1 ADM^IBTUTL SCH^IBTUTL2
VA FileMan	4	(,$$FIND1)^DIC (FILE,YN)^DICN ^DIE $$GET1^DIQ
Kernel	3	^%ZTLOAD ($$DT,$$FMADD,$$FMDIFF,$$NOW)^XLFDT $$IEN^XUAF4
RPC Broker	2	(EN1,RPCCHK)^XWB2HL7 (CLEAR,RTNDATA)^XWBDRPC
Registration	2	DEM^VADPT $$SITE^VASITE

Package	Total	Caller Graph
Integrated Billing	6	IBCN INSURANCE QUERY IBCN INSURANCE QUERY TASK IBCN REMOTE INSURANCE QUERY IBCNIUH1 IBTRKR IBTRKR2

Entry Points

Name	Comments	DBIA/ICR reference
OPT	; Menu option entry point. This is used to select a patient to request ; information about from the remote treating facilities.
AGAIN
BACKGND	; background/tasked entry point ; IBTYPE is being used as a flag to indicate this is running in background	ICR #4288 Status: Active Usage: Private
VCHECK(IBB)	; Check to make sure the record is not duplicate and passes validity check.
VCHECKX	;
INDEX(DFN)	;
RPC(IBD,IBICN)	; RPC entry for looking up insurance info
MAP	; this is a mapping of data returned from ALL^IBCNS1 to the buffer file ; format is: node number \| piece \| extract node \| extract piece ; \| 355.33 field number \| format out code (if any) ; \| format in code (if any) ; the extract nodes will be sequential to match buffer file DD
SEND(IBH,IBX,IBICN,IBRPC)	; called to send off queries
CHECK(IBR,IBH)	; called to check the return status of an RPC
RETURN(IBR,IBH)	; called to get the return data and clear the broker
TASK	; queue off task job
TRKR(DFN,IBSAVEI,IBSAVEJ,IBDUZ)	; claims tracking entry
ADM(DFN,IBSAVE1,IBSAVE2,IBSAVE3,IBSAVE4)	; admit event entry
FILE(IBX)	; updates data into the log file
VALID(IBARY)	; Check for invalid entries in the incoming data
VALIDQ	;
DUP(IBARY)	; Check for duplicate in the incoming data
EXCTOP	;Plan Types to Exclude

External References

Name	Field # of Occurrence
^%ZTLOAD	TASK+2
^DIC	AGAIN
$$FIND1^DIC	VALID+22
FILE^DICN	FILE+4
YN^DICN	BACKGND+14
^DIE	FILE+7
$$GET1^DIQ	BACKGND+5, INDEX+7, INDEX+8, INDEX+9, INDEX+10, INDEX+11, INDEX+19
$$DFN^IBARXMU	RPC+2
$$ICN^IBARXMU	BACKGND+17
$$TFL^IBARXMU	BACKGND+8, TRKR+3
$$ADDSTF^IBCNBES	BACKGND+76
EN^IBCNRDV1	BACKGND+82
ALL^IBCNS1	INDEX+15, RPC+3
ADM^IBTUTL	BACKGND+78
SCH^IBTUTL2	BACKGND+78
DEM^VADPT	BACKGND+13
$$SITE^VASITE	TRKR+5
$$DT^XLFDT	FILE+3
$$FMADD^XLFDT	BACKGND+85, TASK+2
$$FMDIFF^XLFDT	VALID+7, VALID+11, VALID+13, VALID+18
$$NOW^XLFDT	TASK+2
$$IEN^XUAF4	BACKGND+69
EN1^XWB2HL7	SEND+1
RPCCHK^XWB2HL7	CHECK+1
CLEAR^XWBDRPC	RETURN+2
RTNDATA^XWBDRPC	RETURN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient has no remote treating facilities to query." Line Location: BACKGND+9
Function Call: WRITE	Prompt: !!,"The patient ",VADM(1)," has the following ",IBT," remote facilitie(s)",! Line Location: BACKGND+13
Function Call: WRITE	Prompt: !?10,$P(IBT(IBX),"^",2) Line Location: BACKGND+13
Function Call: WRITE	Prompt: !!,"No ICN for this patient" Line Location: BACKGND+17
Function Call: WRITE	Prompt: !!,"Unable to perform any remote queries.",! Line Location: BACKGND+26
Routine Call	DIC Line Location: AGAIN
Routine Call	DIC Line Location: VALID+22
Routine Call	DIE Line Location: FILE+7

Used in RPC

RPC Name	Call Tags
IBCN INSURANCE QUERY	RPC
IBCN INSURANCE QUERY TASK	RPC

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^IBE(350.9 - [#350.9]	GET1^DIQ
^IBE(355.1 - [#355.1]	FIND1^DIC
^IBA(355.33 - [#355.33]	GET1^DIQ
^IBA(355.34 - [#355.34]	Classic Fileman Calls
^DIC(36 - [#36]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBA(355.33 - [#355.33]	INDEX+5
^IBA(355.34 - [#355.34]	FILE+3, FILE+4, FILE+5, FILE+6, FILE+8
^IBE(355.12 - [#355.12]	BACKGND+70
^IBT(356 - [#356]	BACKGND+85*, TRKR+2
^TMP("IBCNRDV"	VCHECK+16, INDEX+1!, INDEX+12, INDEX+24*, DUP+7
^TMP($J	BACKGND+74, BACKGND+75*, BACKGND+82, BACKGND+88!

Label References

Name	Line Occurrences
$$DUP	VCHECK+4
$$VALID	VCHECK+6
AGAIN	BACKGND+9, BACKGND+14, BACKGND+17, BACKGND+26
CHECK	BACKGND+37
FILE	BACKGND+46, BACKGND+49
INDEX	BACKGND+31
RETURN	BACKGND+40
SEND	BACKGND+22
TASK	TRKR+6, ADM+1
VALIDQ	VALID+7, VALID+8, VALID+17, VALID+18, VALID+24
VCHECK	BACKGND+71
VCHECKX	VCHECK+4, VCHECK+6, VCHECK+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OPT+3~, BACKGND+14*
%Y	OPT+3~
CTR	OPT+3~, BACKGND+74*, BACKGND+75
DA	FILE+2~, FILE+3, FILE+4!, FILE+5, FILE+6, FILE+8
DATA	VALID+3~, VALID+22*
DFN	OPT+3~, AGAIN, BACKGND+8, BACKGND+17, BACKGND+31, BACKGND+76, BACKGND+78, BACKGND+85, INDEX~, INDEX+5 , INDEX+15, RPC+1~, RPC+2, RPC+3, TRKR~, TRKR+2, TRKR+3, ADM~
DIC	OPT+3~, AGAIN, FILE+2~, FILE+4
DIC(0	AGAIN, FILE+4
DIE	FILE+2~, FILE+6*
DO	OPT+3~, FILE+2~
DR	FILE+2~, FILE+7*
DT	BACKGND+85, VALID+7, VALID+11, VALID+13, VALID+18, VALID+27
DTOUT	OPT+3~
DUOUT	OPT+3~
DUZ	TRKR+5~*
DUZ(2	TRKR+5*
EXCLUDE	VALID+3~, VALID+21, VALID+22, VALID+24
IB1	OPT+3~, BACKGND+78*
IBARY	VALID~, VALIDQ+1!, DUP~
IBARY(	VALID+6, VALID+10, VALID+11, VALID+13, VALID+16, VALID+23, VALID+27, VALID+28, VALID+29, VALID+30 , DUP+2, DUP+3, DUP+4, DUP+5, DUP+6
IBB	OPT+3~, BACKGND+71, BACKGND+75, BACKGND+76*, BACKGND+79!, VCHECK~, VCHECK+4, VCHECK+6
IBB(	BACKGND+62, BACKGND+67, BACKGND+69, BACKGND+70*, BACKGND+76, VCHECK+11, VCHECK+12, VCHECK+13, VCHECK+14, VCHECK+15
IBBUFDA	INDEX+2~, INDEX+4, INDEX+5, INDEX+7, INDEX+8, INDEX+9, INDEX+10, INDEX+11
IBD	OPT+3~, RPC~
IBD(	RPC+22*
IBD(0	RPC+2, RPC+4, RPC+7*
IBDOB	VCHECK+10~, VCHECK+15, VCHECK+16, INDEX+6~, INDEX+11, INDEX+12, INDEX+17~, INDEX+23, INDEX+24, DUP+1~ , DUP+6, DUP+7
IBDUZ	TRKR~, TRKR+5
IBEFFDT	VALID+3~, VALID+16*, VALID+17, VALID+18
IBEXPDT	VALID+3~, VALID+6*, VALID+7, VALID+8
IBFASTXT	OPT+3~
IBGRP	VCHECK+10~, VCHECK+12, VCHECK+16, INDEX+6~, INDEX+8, INDEX+12, INDEX+17~, INDEX+20, INDEX+24, DUP+1~ , DUP+3, DUP+7
IBH	OPT+3~, BACKGND+22, SEND~, SEND+1, CHECK~, CHECK+1, RETURN~, RETURN+2
IBH(0	BACKGND+23
IBI	OPT+3~, RPC+1~, RPC+19*, RPC+20, RPC+22
IBICN	OPT+3~, BACKGND+17*, BACKGND+18, BACKGND+22, RPC~, RPC+2, SEND~, SEND+1
IBIEN	INDEX+2~, INDEX+16*, INDEX+18, INDEX+20, INDEX+21, INDEX+22, INDEX+23
IBINS	INDEX+14!, INDEX+25!
IBINS(	INDEX+16, INDEX+18, INDEX+20, INDEX+21, INDEX+22, INDEX+23
IBINS(0	INDEX+16
IBINSIEN	INDEX+17~, INDEX+18*, INDEX+19
IBINSNM	VCHECK+10~, VCHECK+11, VCHECK+16, INDEX+6~, INDEX+7, INDEX+12, INDEX+17~, INDEX+19, INDEX+24, DUP+1~ , DUP+2, DUP+7
IBL	OPT+3~, BACKGND+52, RPC+19
IBM	FILE+2~, FILE+3*, FILE+4
IBNAME	VCHECK+10~, VCHECK+14, VCHECK+16, INDEX+6~, INDEX+10, INDEX+12, INDEX+17~, INDEX+22, INDEX+24, DUP+1~ , DUP+5, DUP+7
IBOK	BACKGND+68~, BACKGND+71, VCHECK+4, VCHECK+6*
IBP	BACKGND+34, BACKGND+56, BACKGND+59, BACKGND+62, RPC+1~, RPC+18, RPC+20, RPC+21, RPC+22
IBR	OPT+3~, BACKGND+37, BACKGND+39!, BACKGND+40, BACKGND+43, CHECK~, CHECK+1, RETURN~, RETURN+2
IBR(	BACKGND+51, BACKGND+56
IBR(0	BACKGND+37, BACKGND+38, BACKGND+43, BACKGND+49
IBR(1	BACKGND+43
IBRPC	SEND~, SEND+1
IBRZ	OPT+3~, BACKGND+43*, BACKGND+46
IBSAVE1	BACKGND+78, ADM~
IBSAVE2	BACKGND+78, ADM~
IBSAVE3	BACKGND+78, ADM~
IBSAVE4	BACKGND+78, ADM~
IBSAVEI	BACKGND+78, TRKR~
IBSAVEJ	BACKGND+78, TRKR~
IBSUBID	VCHECK+10~, VCHECK+13, VCHECK+16, INDEX+6~, INDEX+9, INDEX+12, INDEX+17~, INDEX+21, INDEX+24, DUP+1~ , DUP+4, DUP+7
IBT	OPT+3~, BACKGND+8!, BACKGND+9, BACKGND+10, BACKGND+13, BACKGND+26, BACKGND+27, BACKGND+34, BACKGND+52, BACKGND+56 , BACKGND+59, BACKGND+62, RPC+1~, RPC+19*, RPC+20, RPC+21, RPC+22, TRKR+1~, TRKR+3
IBT(	BACKGND+13, BACKGND+21, BACKGND+34, BACKGND+37, BACKGND+38, BACKGND+40, BACKGND+46!, BACKGND+49, BACKGND+69
IBTOP	VALID+3~, VALID+23*, VALID+24
IBTYPE	OPT+3~, BACKGND+5, BACKGND+9, BACKGND+13, BACKGND+14, BACKGND+17, BACKGND+22, BACKGND+26, BACKGND+31, BACKGND+37 , BACKGND+38, BACKGND+46, BACKGND+49, BACKGND+73, BACKGND+78, BACKGND+82, VCHECK+4, VCHECK+8, TRKR+1~, TRKR+4* , ADM+1~*
IBWAIT	OPT+3~, BACKGND+37*
IBX	OPT+3~, BACKGND+13, BACKGND+21, BACKGND+22, BACKGND+34*, BACKGND+37, BACKGND+38, BACKGND+40, BACKGND+46, BACKGND+49 , BACKGND+69, RPC+1~, SEND~, SEND+1, FILE~, FILE+7
IBY	OPT+3~, BACKGND+51*, BACKGND+56, BACKGND+66, RPC+1~, RPC+4
IBY(	RPC+19, RPC+20
IBY(0	RPC+7
IBZ	OPT+3~, BACKGND+56, BACKGND+62, RPC+1~, RPC+20, RPC+22, RETURN+1~, RETURN+2, FILE+2~, FILE+6* , FILE+7
LN	VALID+3~, VALID+22*
TAG	VALID+3~, VALID+22*
U	BACKGND+38, BACKGND+46, BACKGND+49, INDEX+18, INDEX+20, INDEX+21, INDEX+22, INDEX+23, VALID+24
VADM	OPT+3~
VADM(1	BACKGND+13
VALID	VALID+3~, VALID+4, VALID+7, VALID+8, VALID+11, VALID+13, VALID+17, VALID+18, VALID+24*, VALIDQ+1 , VALIDQ+2
X	OPT+3~, FILE+2~, FILE+4*
Y	OPT+3~, AGAIN, FILE+2~, FILE+4
ZTDESC	TASK+1~, TASK+2*
ZTDTH	TASK+1~, TASK+2*
ZTIO	TASK+1~, TASK+2*
ZTRTN	TASK+1~, TASK+2*
ZTSAVE	TASK+1~
ZTSAVE("DFN"	TASK+2*
ZTSAVE("IBSAVE*"	TASK+2*
ZTSAVE("IBTYPE"	TASK+2*
ZTSK	TASK+1~

Marked Items

Name	Field # of Occurrence
$T(@TAG	VALID+22
$T(MAP+IBL	BACKGND+52, RPC+19

Customize PDF page

Package: Integrated Billing

Routine: IBCNRDV

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items