Routine: DGBTE1

Information

DGBTE1 ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIM DATES ;11/23/92@0800 03/19/93

Source Information

Source file <DGBTE1.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Beneficiary Travel	3	PATIENT^DGBTE @(^DGBTE1A QUIT^DGBTEND
Registration	3	$$LST^DGMTU ^VADATE ($$DEP,$$INCOME)^VAFMON
VA Fileman	3	COMMA^%DTC (FILE,YN)^DICN ^DIR

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Beneficiary Travel	1	DGBTE

Entry Points

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

External References

Name	Field # of Occurrence
COMMA^%DTC	MEANS+9, CERT+6
PATIENT^DGBTE	ASKADD+2, ASKADD+9
@(^DGBTE1A	DATE+5
QUIT^DGBTEND	DATE1+10, ERR1+1
$$LST^DGMTU	MEANS+3
FILE^DICN	ASKADD+7
YN^DICN	ASKADD+2
^DIR	DATE+4, DATE1+10
^VADATE	DATE1+8, LOCK+3, SET+1
$$DEP^VAFMON	MEANS+11
$$INCOME^VAFMON	MEANS+5

Interaction Calls

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: !?5,I,".",?10,VADATE("E") Line Location: DATE1+8
Function Call: WRITE	Prompt: VADATE("E") Line Location: LOCK+3
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+4 DATE1+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
ASKADD	ASKADD+3
DATE	DATE+6, DATE1+11
ERR1	DATE+4, DATE+6
LOCK	DATE1+5, DATE1+11, LOCK+2
SET	DATE+6, DATE1+12

Naked Globals

Name	Field # of Occurrence
^(	APPTS+1
^(1	STUFF+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ASKADD+2*, ASKADD+3
>> %DT	DATE+5*
>> CHZFLG	DATE+5*, DATE+6, PREV+1
>> DA	SET+1*
DD	ASKADD+4!
>> DFN	DATE1+1, DATE1+4, ASKADD+6, MEANS+3, MEANS+5, MEANS+11, CERT+1, CERT+3, APPTS+1
>> DGBT	DATE1+5
>> DGBT(	DATE1+4*, DATE1+8, DATE1+11, DATE1+12
>> DGBTA	DATE+6, DATE1+2, DATE1+12, LOCK+1, LOCK+2*, LOCK+3, ASKADD+6, SET+1, MEANS+3, MEANS+5 , MEANS+11, PREV+1
>> DGBTC	DATE1+2, DATE1+4, DATE1+9
>> DGBTCA	CERT+4, CERT+6
>> DGBTCD	CERT+3, CERT+4, CERT+6
>> DGBTCE	CERT+3*
>> DGBTCL(	APPTS+1*
>> DGBTCSC	PREV+1, PREV+2
>> DGBTDEP	MEANS+11*
>> DGBTDIVI	SET+4, STUFF+4
>> DGBTDIVN	SET+4*, STUFF+3, STUFF+4
>> DGBTDT	DATE1+2, DATE1+4, SET+1, STUFF+1, STUFF+2, STUFF+4
>> DGBTDTE	SET+3*
>> DGBTDTI	SET+3*, APPTS+1
>> DGBTELG	PREV+1, PREV+3
DGBTIFL	MEANS+2~, MEANS+6*, MEANS+10
>> DGBTINC	MEANS+10*
>> DGBTMTS	MEANS+3*
>> DGBTNEW	DATE+2
DIC	ASKADD+6*, ASKADD+7!, SET+3!
DIC("DR"	ASKADD+6*
DIC(0	ASKADD+6*
>> DINUM	ASKADD+6*
DIR	DATE+1!, DATE+4!, DATE1+9!, DATE1+10!
DIR("?"	DATE+3, DATE1+9
DIR("A"	DATE+2, DATE+3, DATE1+9*
DIR("B"	DATE+4*
DIR(0	DATE+4, DATE1+9
>> DIRUT	DATE+4
DO	ASKADD+4!
>> DTOUT	DATE+6, DATE1+10
DTSUB	DATE+5*!
>> DUOUT	DATE1+10
>> I	DATE1+4, DATE1+8, APPTS+1*
U	STUFF+1, STUFF+4, MEANS+3, MEANS+6, MEANS+10, PREV+1, PREV+2, PREV+3
VADAT	SET+3!
VADAT("W"	DATE1+8, LOCK+3, SET+1*
VADATE	SET+3!
VADATE("E"	DATE1+8, LOCK+3, SET+3
VADATE("I"	SET+3
>> VAPA(1	STUFF+1
>> VAPA(11	STUFF+1
>> VAPA(2	STUFF+1
>> VAPA(3	STUFF+1
>> VAPA(4	STUFF+1
>> VAPA(5	STUFF+1
X	ASKADD+6, STUFF+3, STUFF+4, MEANS+2~, MEANS+3, MEANS+6, MEANS+7, MEANS+8, MEANS+10!, PREV+1 , CERT+6*!
X2	MEANS+2~, MEANS+9, MEANS+10!, CERT+6!
X3	MEANS+2~, MEANS+9, CERT+6!
Y	DATE+5, DATE1+11, DATE1+12, ASKADD+9, SET+3!, MEANS+2~, MEANS+5, MEANS+6, CERT+4, CERT+6!
>> Y1	DATE+6

Customize PDF page

Package: Beneficiary Travel

Routine: DGBTE1

Call Graph Total: 9

Caller Graph Total: 1