Routine: DGBTEE1

Package	Total	Caller Graph
Beneficiary Travel	2	DGBTCE DGBTEE

Entry Points

Name	Comments	DBIA/ICR reference
ESET1	;
ESET	;
ELIG1	; select eligibility from those available in TMP list
SCREEN	; called by dgbtee,dgbtce
QUIT	;
START	; ask date/time, and division
CERT	; stuff of certification date if appropriate ; naked global ref file #392.2, certification file.
DEFLT1()	;
ACCT	; allowed to select only valid active accounts
ECHOZ	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: SCREEN+3
Function Call: WRITE	Prompt: !!,"Module has not been properly initialized - to continue you should first complete",!,"the parameters" Line Location: SCREEN+4
Function Call: WRITE	Prompt: !?16,"Beneficiary Travel Claim Information <Enter/Edit>" Line Location: SCREEN+5
Function Call: WRITE	Prompt: !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),"^",2),! Line Location: SCREEN+7
Function Call: WRITE	Prompt: !?5,"Another user is editing this entry.",*7 Line Location: START+8
Function Call: WRITE	Prompt: !?3,"SORRY, '^' NOT ALLOWED!!" Line Location: ELIG1+4
Function Call: WRITE	Prompt: !,"ELIGIBILITY REQUIRED." Line Location: ELIG1+7
Function Call: WRITE	Prompt: !!,"Choose by NUMBER the primary eligibility or other entitled eligibilities",! Line Location: ECHOZ+1
Function Call: WRITE	Prompt: !?5,I,?10,$P(^TMP("DGBT",$J,I),"^",2) Line Location: ECHOZ+2
Function Call: WRITE	Prompt: " ?? ",!,"Select ELIGIBILITY: " Line Location: ECHOZ+5
Function Call: WRITE	Prompt: !,"ACCOUNT IS REQUIRED!!" Line Location: ACCT+5
Routine Call	DIE Line Location: START+5
Routine Call	DIC Line Location: ACCT+4
Routine Call	DIR Line Location: ELIG1+4 ECHOZ+4

FileNo	Call Tags
^DGBT(392 - [#392]	Classic Fileman Calls
^DGBT(392.3 - [#392.3]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	SCREEN+4
^DG(43.1 - [#43.1]	SCREEN+4
^DGBT(392 - [#392]	SCREEN+1, SCREEN+2, START+7, START+8, ELIG1+2, ELIG1+6
^DGBT(392.2 - [#392.2]	CERT+2
^DGBT(392.3 - [#392.3]	ACCT+1, ACCT+2, DEFLT1+2, DEFLT1+3
^DIC(8 - [#8]	ELIG1+2, ESET+2, ESET1+1
^TMP("DGBT"	START+1!, ELIG1+8, ELIG1+9, ECHOZ+2, ECHOZ+5, ESET+1, QUIT+1!

Name	Field # of Occurrence
^(	SCREEN+2, ELIG1+8, ELIG1+9
^(0	ELIG1+6, CERT+2, DEFLT1+3

Name	Field # of Occurrence
A	QUIT+1!
C	QUIT+1!
>> DFN	CERT+2
>> DGBTACCT	ACCT+6*
>> DGBTACTN	ACCT+6*
>> DGBTCD	CERT+2*
DGBTCT	ECHOZ+2, ECHOZ+3, QUIT+1!
DGBTDIV	QUIT+1!
>> DGBTDT	SCREEN+1, SCREEN+2, SCREEN+4, START+7, START+8, ELIG1+2, ELIG1+6, CERT+2, DEFLT1+3
>> DGBTELIG	ELIG1+1, ELIG1+6, ESET+1*, ESET+2, ESET1+1
>> DGBTFLAG	SCREEN+3*
DGBTIDT	CERT+2*, QUIT+1!
>> DGBTML	ACCT+8*
>> DGBTMLT	ACCT+8*
>> DGBTMR	ACCT+8
>> DGBTOACT	ACCT+1*
>> DGBTOWRT	ACCT+8*
>> DGBTSCP	ESET1+1*
>> DGBTTOUT	START+5, START+8, ELIG1+5, ACCT+4
DGBTVAR	SCREEN+2!
DGBTVAR(	SCREEN+2*
DGBTVAR("M"	ACCT+8
DGBTVAR(0	ACCT+1, ACCT+2
DIC	START+1!, ACCT+3*, ACCT+4!
DIC("A"	ACCT+2*
DIC("B"	ACCT+2*
DIC("S"	ACCT+3*
DIC(0	ACCT+3*
DIDEL	START+4*, START+5!
DIE	START+2*, START+5!
DIE("NO^"	START+2*
DIR	ELIG1+4!, ECHOZ+3!, ECHOZ+4!
DIR("?"	ELIG1+3, ECHOZ+3
DIR("A"	ELIG1+2, ECHOZ+3
DIR("B"	ELIG1+2*
DIR(0	ELIG1+3, ECHOZ+3
>> DIRUT	ECHOZ+4
DQ	START+5!
DR	START+3*, START+5!
DTOUT	START+5, ELIG1+5, ACCT+4!
>> DUOUT	ELIG1+4
I	SCREEN+2, ELIG1+8, ELIG1+9, ECHOZ+2, CERT+2*, QUIT+1!
IA	QUIT+1!
IOF	SCREEN+3
J	QUIT+1!
REC	DEFLT1+1~, DEFLT1+2*, DEFLT1+3
U	DEFLT1+3
>> VA("PID"	SCREEN+7
>> VADM(1	SCREEN+7
>> VADM(3	SCREEN+7
>> VAEL(1	ELIG1+1, ELIG1+2, ELIG1+6, ESET+1
>> VAEL(3	ESET1+1, CERT+2
X	START+1!, START+6!, ELIG1+7, ELIG1+8, ECHOZ+3!, ACCT+2!*, QUIT+1!
XX	ELIG1+8, ELIG1+9, ECHOZ+4*, ESET+1, ESET+2, QUIT+1!
Y	START+5, ELIG1+6, ELIG1+8, ELIG1+9, ECHOZ+4, ECHOZ+5, ESET+1, ESET+2, ACCT+5, ACCT+6 , DEFLT1+1~, DEFLT1+2, DEFLT1+3*, DEFLT1+4
Y(0	ACCT+6