Routine: DGBTRDV

Information

DGBTRDV ;ALB/BLD,KAR - Beneficiary Travel information VIA RDV ;1/16/19 14:05

Package	Total	Call Graph
Master Patient Index VistA	2	($$GETDFN,$$GETICN,GETDFN,GETICN)^MPIF001 $$MPINODE^MPIFAPI
RPC Broker	2	(EN1,RPCCHK)^XWB2HL7 (CLEAR,RTNDATA)^XWBDRPC
Registration	2	TFL^VAFCTFU1 $$SITE^VASITE
Beneficiary Travel	1	$$WAIV^DGBTRDVW

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Beneficiary Travel	2	DGBT CLAIM DEDUCTIBLE PAID DGBT1

Entry Points

Name	Comments	DBIA/ICR reference
OPT(DFN,DGBTDTI)	; Menu option entry point. ; information about from the remote treating facilities.
BACKGND	; background/tasked entry point ; DGBTYPE is being used as a flag to indicate this is running in background ; DGBTRDV is array of treating facilities ; look up treating facilities
RPC(DGBTRET,DGBTICN,DGBTDTI)	; RPC entry for Beneficiary Travel Claims for a given month
SEND(DGBTRET,DGBTIEN,DGBTICN,DGBTRPC,DGBTDTI)	; called to send off queries
CHECK(DGBTRET,DGBTHDL)	; called to check the return status of an RPC
RETURN(DGBTRTN,DGBTHDL)	; called to get the return data and clear the broker
TFL(DFN,DGBTIBT)	; returns treating facility list (pass IBT by reference) ; supported references ia #2990 and #10112, value returned is count ; needed to N Y because VAFCTFU1 will kill it
SITE()	; returns site number and info
ICN(DFN)	; returns icn for dfn ia #2701 and #2702
DFN(DGBTIBICN)	; returns dfn for icn ia #2701

External References

Name	Field # of Occurrence
$$WAIV^DGBTRDVW	RPC+4
$$GETDFN^MPIF001	DFN+2
$$GETICN^MPIF001	ICN+4
GETDFN^MPIF001	DFN+2
GETICN^MPIF001	ICN+2
$$MPINODE^MPIFAPI	ICN+3
TFL^VAFCTFU1	TFL+5
$$SITE^VASITE	SITE+1
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+5
Function Call: WRITE	Prompt: !!,"No ICN for this patient" Line Location: BACKGND+10
Function Call: WRITE	Prompt: !!,"Unable to perform any remote queries.",! Line Location: BACKGND+24

Used in RPC

RPC Name	Call Tags
DGBT CLAIM DEDUCTIBLE PAID	RPC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("BARRY"	OPT+5!
^TMP("DGBTRDV"	OPT+5!
^TMP("FROM CHEY246"	RPC+2*

Label References

Name	Line Occurrences
$$DFN	RPC+3
$$ICN	BACKGND+10
$$SITE	TFL+6
$$TFL	BACKGND+4
CHECK	BACKGND+32
RETURN	BACKGND+34
SEND	BACKGND+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	OPT+2~
%Y	OPT+2~
DFN	OPT~, BACKGND+4, BACKGND+10, RPC+1~, RPC+3, RPC+4, TFL~, TFL+5, ICN~, ICN+3 , ICN+4, DFN+1~, DFN+2, DFN+3
DGBTD	OPT+2~
DGBTDGBTIBY	OPT+2~
>> DGBTDT	TFL+10
DGBTDTI	OPT~, BACKGND+20, RPC~, RPC+4, SEND~, SEND+1
DGBTHDL	OPT+3~, CHECK~, CHECK+1, RETURN~, RETURN+2
DGBTIB1	OPT+3~
DGBTIBB	OPT+2~
DGBTIBC	TFL+3~, TFL+6, TFL+11, TFL+12
DGBTIBFT	TFL+3~
DGBTIBI	OPT+2~
DGBTIBICN	ICN+1~, ICN+3, ICN+4, ICN+5, DFN~, DFN+2
DGBTIBRZ	OPT+2~, BACKGND+28, BACKGND+37, BACKGND+40, BACKGND+41
DGBTIBS	TFL+3~, TFL+6*, TFL+11
DGBTIBT	TFL~
DGBTIBT(	TFL+11*
DGBTIBZ	TFL+3~, TFL+5, TFL+6, TFL+8, TFL+9, TFL+10, TFL+11
DGBTIBZ(	TFL+8, TFL+9, TFL+10, TFL+11
DGBTIBZ(1	TFL+5
DGBTICN	OPT+2~, BACKGND+10*, BACKGND+11, BACKGND+20, RPC~, RPC+3, SEND~, SEND+1
DGBTIEN	OPT+2~, BACKGND+19, BACKGND+20, BACKGND+28, BACKGND+29*, BACKGND+32, BACKGND+33, BACKGND+34, BACKGND+40, BACKGND+41 , SEND~, SEND+1
DGBTR	OPT+3~, BACKGND+32, BACKGND+34, BACKGND+37
DGBTR(0	BACKGND+32, BACKGND+33, BACKGND+37
DGBTR(1	BACKGND+37
DGBTRDV	BACKGND+4!, BACKGND+5, BACKGND+6, BACKGND+24, BACKGND+25, BACKGND+29, RPC+5
DGBTRDV(	BACKGND+19, BACKGND+29, BACKGND+32, BACKGND+33, BACKGND+34, BACKGND+40!, BACKGND+41!
DGBTRET	BACKGND+20, RPC~, RPC+1!, RPC+3*, SEND~, SEND+1, CHECK~, CHECK+1, RETURN+2
DGBTRET(0	BACKGND+21, RPC+4*, RPC+5, RETURN+3
DGBTRPC	OPT+3~, BACKGND+18*, BACKGND+20, SEND~, SEND+1
DGBTRTN	RETURN~
DGBTWAIT	OPT+2~, BACKGND+32*
>> DGBTX	BACKGND+40
DGBTYPE	OPT+3~, OPT+7*, BACKGND+5, BACKGND+10, BACKGND+24, BACKGND+32, BACKGND+33, BACKGND+40
DGBTZ	OPT+2~, RETURN+1~, RETURN+2
DIC	OPT+2~
DO	OPT+3~
DTOUT	OPT+2~
DUOUT	OPT+2~
I	RETURN+1~, RETURN+3*
>> RDVMSG	OPT+7, BACKGND+5, BACKGND+10, BACKGND+24, BACKGND+33, BACKGND+40
RET	OPT+3~
>> RETURN	RETURN+3*
U	BACKGND+33, BACKGND+40
VADM	OPT+2~
X	OPT+2~
Y	OPT+2~

Marked Items

Name	Field # of Occurrence
$T(GETDFN^MPIF001	DFN+2
$T(GETICN^MPIF001	ICN+2

Customize PDF page

Package: Beneficiary Travel