Routine: DGBTE1

Package	Total	Call Graph
Beneficiary Travel	5	(EXIT2,PATIENT)^DGBTE QUIT^DGBTEND $$MTTH^DGBTMTTH ($$DAYFLAG,GA)^DGBTUTL RESADDR^DGBTUTL1
VA FileMan	4	COMMA^%DTC (FILE,YN)^DICN $$GET1^DIQ ^DIR
Registration	3	$$LST^DGMTCOU1 ^VADATE ($$DEP,$$INCOME)^VAFMON
Integrated Billing	1	$$THRES^IBARXEU1
Kernel	1	($$FMADD,$$FMTE)^XLFDT
Scheduling	1	$$SDAPI^SDAMA301

Package

Total

Call Graph

Beneficiary Travel

(EXIT2,PATIENT)^DGBTE QUIT^DGBTEND $$MTTH^DGBTMTTH ($$DAYFLAG,GA)^DGBTUTL RESADDR^DGBTUTL1

VA FileMan

COMMA^%DTC (FILE,YN)^DICN $$GET1^DIQ ^DIR

Registration

$$LST^DGMTCOU1 ^VADATE ($$DEP,$$INCOME)^VAFMON

Integrated Billing

$$THRES^IBARXEU1

Kernel

($$FMADD,$$FMTE)^XLFDT

Scheduling

$$SDAPI^SDAMA301

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	DGBTE DGBTEE

Entry Points

Name	Comments	DBIA/ICR reference
DATE	; get date for claim, either new or past date
DATE1	; for past claims, set DGBTDT to inverse date of claim date
LOCK	;
ASKADD	;
SET	; call inhouse generic date routine
STUFF	; stuff departure with address data from patient file, dest from institution file
CHKFILES	; section removed, dependents picked up below in MEANS ; abr 10/94
MEANS	; find corres. means test entry, gets MT income, status, no. of dependents
PREV	; if past claim get SC%, elig.
CERT	; get last BT certification, get date, then get eligibility
APPTS	; search patient file for appointments through claim date (DTI+1), add dates to array DGBTCL
EXIT	; exit routine
ERR1	; error condition

Name	Field # of Occurrence
COMMA^%DTC	MEANS+11, CERT+6
EXIT2^DGBTE	ASKADD+2
PATIENT^DGBTE	ASKADD+10
QUIT^DGBTEND	DATE1+12, ERR1+1
$$MTTH^DGBTMTTH	MEANS+15
$$DAYFLAG^DGBTUTL	MEANS+17
GA^DGBTUTL	SET+5
RESADDR^DGBTUTL1	STUFF+3
$$LST^DGMTCOU1	MEANS+3
FILE^DICN	ASKADD+8
YN^DICN	ASKADD+2
$$GET1^DIQ	DATE1+9, STUFF+1
^DIR	DATE+5, DATE1+12
$$THRES^IBARXEU1	MEANS+16
$$SDAPI^SDAMA301	APPTS+2
^VADATE	DATE1+10, LOCK+6, SET+1
$$DEP^VAFMON	MEANS+13
$$INCOME^VAFMON	MEANS+5
$$FMADD^XLFDT	LOCK+4, LOCK+5
$$FMTE^XLFDT	MEANS+14

Name

Field # of Occurrence

MEANS+11, CERT+6

ASKADD+2

ASKADD+10

DATE1+12, ERR1+1

MEANS+15

MEANS+17

SET+5

STUFF+3

MEANS+3

ASKADD+8

ASKADD+2

DATE1+9, STUFF+1

^DIR

DATE+5, DATE1+12

$$THRES^IBARXEU1

MEANS+16

$$SDAPI^SDAMA301

APPTS+2

^VADATE

DATE1+10, LOCK+6, SET+1

MEANS+13

MEANS+5

LOCK+4, LOCK+5

MEANS+14

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are other claims on this date.",!,"Select by number to edit or <RETURN> to add a new CLAIM.",! Line Location: DATE1+6
Function Call: WRITE	Prompt: VADATE("E") Line Location: LOCK+6
Function Call: WRITE	Prompt: !!,"Are you sure you want to add a new claim" Line Location: ASKADD+1
Function Call: WRITE	Prompt: !!,"Enter 'YES' to add a new claim, or 'NO' not to add the claim." Line Location: ASKADD+3
Routine Call	DIR Line Location: DATE+5 DATE1+12

FileNo	Call Tags
^DGBT(392 - [#392]	Classic Fileman Calls, GET1^DIQ

FileNo

Call Tags

^DGBT(392 - [#392]

Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	CERT+5
^DG(40.8 - [#40.8]	SET+4, STUFF+8, PREV+2
^DGBT(392 - [#392]	DATE1+1, DATE1+4, LOCK+4, LOCK+5, ASKADD+2, ASKADD+8, STUFF+5, STUFF+6, STUFF+8, PREV+1
^DGBT(392.2 - [#392.2]	CERT+1, CERT+3, CERT+4
^DIC(4 - [#4]	STUFF+7, STUFF+8
^DIC(8 - [#8]	PREV+4
^TMP("DGBT"	DATE+2!
^TMP("DGBTARA"	DATE+2!
^TMP($J	APPTS+4, APPTS+7, APPTS+9, APPTS+10, APPTS+11, APPTS+13!

Name

Line Occurrences (* Changed, ! Killed)

^DD("DD"

CERT+5

^DG(40.8 - [#40.8]

SET+4, STUFF+8, PREV+2

^DGBT(392 - [#392]

DATE1+1, DATE1+4, LOCK+4, LOCK+5, ASKADD+2, ASKADD+8, STUFF+5*, STUFF+6, STUFF+8*, PREV+1

^DGBT(392.2 - [#392.2]

CERT+1, CERT+3, CERT+4

STUFF+7, STUFF+8

PREV+4

DATE+2!

DATE+2!

APPTS+4, APPTS+7, APPTS+9, APPTS+10, APPTS+11, APPTS+13!

Name	Line Occurrences
@(	DATE+6
ASKADD	ASKADD+3
DATE	DATE+8, DATE1+13
ERR1	DATE+5, DATE+8
LOCK	DATE1+5, DATE1+13, LOCK+5
SET	DATE+8, DATE1+14

Name

Line Occurrences

DATE+6

ASKADD+3

DATE+8, DATE1+13

DATE+5, DATE+8

DATE1+5, DATE1+13, LOCK+5

SET

DATE+8, DATE1+14

Name	Field # of Occurrence
^(1	STUFF+7

Name

Field # of Occurrence

^(1

STUFF+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASKADD+2*, ASKADD+3
>> %DT	DATE+6*
APTDT	APPTS+1~, APPTS+8, APPTS+9, APPTS+10, APPTS+11, APPTS+12, APPTS+13!
>> CHZFLG	DATE+6, DATE+8, DATE1+12, PREV+1
CLIEN	APPTS+1~, APPTS+6, APPTS+7, APPTS+9, APPTS+10, APPTS+11, APPTS+13!
>> DA	SET+1*
DD	ASKADD+4!
>> DFN	DATE1+1, DATE1+4, ASKADD+7, SET+5, MEANS+3, MEANS+5, MEANS+13, CERT+1, CERT+3, APPTS+2 , APPTS+7, APPTS+9, APPTS+10, APPTS+11
DGARRAY	APPTS+1~, APPTS+2, APPTS+13!
DGARRAY("FLDS"	APPTS+1*
DGARRAY(4	APPTS+2*
>> DGBT	DATE1+5
>> DGBT(	DATE1+4*, DATE1+8, DATE1+9, DATE1+10, DATE1+13, DATE1+14
>> DGBTA	DATE+8, DATE1+2, DATE1+14, LOCK+4, LOCK+5, LOCK+6, ASKADD+2, ASKADD+7, ASKADD+8, SET+1 , MEANS+5, MEANS+13, PREV+1
>> DGBTADDR	STUFF+3
>> DGBTADDR(1	STUFF+5
>> DGBTADDR(2	STUFF+5
>> DGBTADDR(3	STUFF+5
>> DGBTADDR(4	STUFF+5
>> DGBTADDR(5	STUFF+5
>> DGBTADDR(6	STUFF+5
>> DGBTC	DATE1+2, DATE1+4, DATE1+11
>> DGBTCA	CERT+4, CERT+6
>> DGBTCD	CERT+3, CERT+4, CERT+6
>> DGBTCE	CERT+3*
>> DGBTCL(	APPTS+11, APPTS+12
>> DGBTCL("ERROR"	APPTS+4*
>> DGBTCMTY	STUFF+1, STUFF+2
>> DGBTCSC	PREV+1, PREV+3
DGBTDCLM	DATE+1~, DATE1+9*, DATE1+10
>> DGBTDEP	MEANS+13*, MEANS+15, MEANS+16
>> DGBTDIVI	SET+4, STUFF+8, PREV+2*
>> DGBTDIVN	SET+4, STUFF+7, STUFF+8, PREV+2
>> DGBTDT	DATE1+2, DATE1+4, LOCK+6, SET+1*, STUFF+1, STUFF+5, STUFF+6, STUFF+8
>> DGBTDTE	SET+3*
>> DGBTDTI	SET+3*, SET+5, MEANS+14, MEANS+15, MEANS+16, APPTS+8, APPTS+9
>> DGBTDTY	MEANS+14*
>> DGBTDYFL	MEANS+17*
>> DGBTELG	PREV+1, PREV+4
DGBTIFL	MEANS+2~, MEANS+8*, MEANS+12
>> DGBTINC	MEANS+12*
>> DGBTINCA	MEANS+7
>> DGBTMTS	MEANS+3*
>> DGBTMTTH	MEANS+15*
>> DGBTNEW	DATE+3
>> DGBTOLD	DATE+7, DATE1+14
>> DGBTRXTH	MEANS+16*
>> DGBTSP2M	STUFF+9
DIC	ASKADD+7*, ASKADD+8!, SET+3!
DIC("DR"	ASKADD+7*
DIC(0	ASKADD+7*
>> DILOCKTM	LOCK+5
>> DINUM	ASKADD+7*
DIR	DATE+2!, DATE+5!, DATE1+11!, DATE1+12!
DIR("?"	DATE+4, DATE1+11
DIR("A"	DATE+3, DATE+4, DATE1+11*
DIR("B"	DATE+5*
DIR(0	DATE+5, DATE1+11
>> DIRUT	DATE+5
DO	ASKADD+4!
DT	MEANS+3
>> DTOUT	DATE+8, DATE1+12
DTSUB	DATE+6*, DATE+7!
>> DUOUT	DATE1+12
ERRCODE	APPTS+1~, APPTS+4*
>> I	DATE1+4, DATE1+8, DATE1+9, DATE1+10, APPTS+2*, APPTS+4, APPTS+5
>> I1	APPTS+4*
>> SDATA	APPTS+10*, APPTS+11, APPTS+12
U	DATE+7, STUFF+5, STUFF+8, MEANS+3, MEANS+6, MEANS+7, MEANS+8, MEANS+12, PREV+1, PREV+2 , PREV+3, PREV+4, APPTS+11, APPTS+12
VADAT	SET+3!
VADAT("W"	DATE1+10, LOCK+6, SET+1*, SET+3
VADATE	SET+3!
VADATE("E"	DATE1+10, LOCK+6, SET+3
VADATE("I"	SET+3
X	ASKADD+7, STUFF+7, STUFF+8, MEANS+2~, MEANS+3, MEANS+8, MEANS+9, MEANS+10, MEANS+12!, PREV+1 , PREV+2, CERT+6*!
X2	MEANS+2~, MEANS+11, MEANS+12!, CERT+6!
X3	MEANS+2~, MEANS+11, CERT+6!
Y	DATE+6, DATE1+12, DATE1+13, DATE1+14, ASKADD+10, SET+3!, MEANS+2~, MEANS+5, MEANS+6, MEANS+7* , MEANS+8, CERT+4*, CERT+6!
>> Y1	DATE+7, DATE+8

Customize PDF page

Package: Beneficiary Travel

Routine: DGBTE1

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: