Routine: DGBTEF

Information

DGBTEF ;ALB/SCK - BENEFICIARY TRAVEL ENTER/EDIT CERTIFICATION FILE ; 12/8/92 03/11/93

Package	Total	Call Graph
VA Fileman	7	^%DT COMMA^%DTC ^DIC FILE^DICN ^DIE ^DIK ^DIR
Registration	2	^VADATE 6^VADPT

Package	Total	Caller Graph
Registration	1	DGBT BENE TRAVEL CERTIFICATION

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Last Certification: " Line Location: CERT+3
Function Call: WRITE	Prompt: VADATE("E"),?39,"Eligible: ",$S($P(DGBT,U,3):"YES",1:"NO"),?55,"Amount Certified: ",$P(DGBT,U,4) Line Location: CERT+3
Function Call: WRITE	Prompt: !!,"There is already a certification for " Line Location: ADD+3
Function Call: WRITE	Prompt: VADATE("E"),".",!,"Only one certification per date is necessary." Line Location: ADD+3
Function Call: WRITE	Prompt: " ",VADATE("E") Line Location: LOCK+3
Function Call: WRITE	Prompt: !!,"REPORTED MEANS TEST INCOME: ",DGBTMTI Line Location: DIE+1
Function Call: WRITE	Prompt: !!,"REPORTED MEANS TEST INCOME: ",DGBTMTI Line Location: DIE+2
Function Call: WRITE	Prompt: !!?5," * * * * Discrepancy exists in incomes reported, please verify * * * *",! Line Location: DIE+8
Function Call: WRITE	Prompt: !,"There are no computer entries on file for this patient." Line Location: EDIT+2
Function Call: WRITE	Prompt: !?5,I,". ",?10,$P(Y,"@") Line Location: EDIT+4
Function Call: WRITE	Prompt: " ",VADATE("E") Line Location: CHOZ+2
Function Call: WRITE	Prompt: !!,"Enter the date of annual certification.",!,"Time is required when adding a new certification date.",!,"Future dates are not allowed.",! Line Location: DHELP+1
Routine Call	DIE Line Location: DIE+6
Routine Call	DIC Line Location: CERT+1
Routine Call	DIR Line Location: AE+4 ADD+2 CHOZ+1

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DGBT(392.2 - [#392.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EDIT+4
^DGBT(392.2 - [#392.2]	CERT+2, CERT+3, ADD+3, LOCK+2, DIE+7, DIE+8, EDIT+1, EDIT+2
^DGMT(408.31 - [#408.31]	DIE+1
^DIC(5 - [#5]	DIE+3
^UTILITY($J	EDIT+1*, EDIT+2, EDIT+3, EDIT+4, EDIT+5, CHOZ+2, QUIT+1!

Name	Field # of Occurrence
^(	DIE+1, CHOZ+2
^(0	CERT+2, DIE+1, DIE+3

Name	Field # of Occurrence
%DT	DHELP+1*, QUIT+1!
D	QUIT+1!
DA	DIE+4*, DIE+6, DIE+7, DIE+8, QUIT1+1, QUIT+1!
DD	LOCK+4!, QUIT+1!
DFN	CERT+1*, CERT+2, ADD+3, LOCK+4, DIE+1, EDIT+1, EDIT+2, QUIT+1!
DGBT	CERT+2, CERT+3, QUIT+1!
DGBTA	ADD+2, ADD+3, LOCK+1, LOCK+2, LOCK+3, LOCK+4, DIE+1, DIE+4, EDIT+5*, QUIT+1!
DGBTC	EDIT+1*, QUIT+1!
DGBTCA	DIE+7*, DIE+8, QUIT+1!
DGBTCC	DIE+3*, DIE+5, QUIT+1!
DGBTCH	EDIT+1, EDIT+3, EDIT+4, EDIT+5, CHOZ+2, QUIT+1!
DGBTDT	ADD+2*, ADD+3, LOCK+4, QUIT+1!
DGBTEL	DIE+3*, DIE+5, QUIT+1!
DGBTINFL	DIE+8*, QUIT+1!
DGBTMTD	QUIT+1!
DGBTMTI	DIE+1*, DIE+8, QUIT+1!
DGFL	EDIT+1*, EDIT+3, EDIT+4, EDIT+5, QUIT+1!
DIC	CERT+1!, LOCK+4, QUIT+1!
DIC("DR"	LOCK+4*!
DIC(0	CERT+1, LOCK+4
DIE	DIE+4*, QUIT+1!
DIE("NO^"	DIE+4*
DIK	QUIT1+1*!
DINUM	LOCK+4*, QUIT+1!
DIR	AE+4!, ADD+2!, CHOZ+1!
DIR("?"	AE+1, AE+2, ADD+1*
DIR("A"	AE+1, ADD+1, CHOZ+1*
DIR("B"	AE+1, ADD+1
DIR(0	AE+3, ADD+1, CHOZ+1*
>> DIRUT	CHOZ+1
DO	LOCK+4!, QUIT+1!
DR	DIE+5*, QUIT+1!
DT	DIE+5
>> DTOUT	AE+4, ADD+2, DIE+6
>> DUOUT	AE+4, ADD+2
DUZ	DIE+5
I	ADD+3, EDIT+1, EDIT+3*, EDIT+4, QUIT+1!
J	EDIT+4*, QUIT+1!
K	EDIT+4*, EDIT+5, CHOZ+1, QUIT+1!
U	CERT+3, DIE+7
VA	QUIT+1!
VADAT	QUIT+1!
VADAT("W"	CERT+3, ADD+3, LOCK+3, CHOZ+2
VADATE	QUIT+1!
VADATE("E"	CERT+3, ADD+3, LOCK+3, CHOZ+2
VADM	QUIT+1!
VAEL	QUIT+1!
VAEL(1	DIE+3
VAEL(9	DIE+5
VAERR	QUIT+1!
VAPA	QUIT+1!
VAPA(5	DIE+3, DIE+5
VAPA(7	DIE+3
VAROOT	QUIT+1!
X	LOCK+4, DIE+1!, DIE+7!, EDIT+1, EDIT+3, EDIT+5, DHELP+1*, QUIT+1!
X2	DIE+1!, DIE+7!
Y	CERT+1, AE+4, ADD+2, LOCK+4, EDIT+4*, CHOZ+2, QUIT+1!
Z	QUIT+1!