Routine: DGBTE

Information

DGBTE ;ALB/SCK-BENEFICIARY TRAVEL SETUP/MAIN ENTRY CALL UP; 11/20/92@1000; 11/25/92

Source file <DGBTE.m>

Package	Total	Call Graph
Beneficiary Travel	5	SCREEN^DGBT1 SCREEN^DGBT2 ^DGBTE1 SCREEN^DGBTEE (,DELETE,DELETE1,KVAR,QUIT,QUIT1)^DGBTEND
VA Fileman	5	^%DT ^DIC YN^DICN ^DIE ^DIR
Kernel	1	^%ZIS
Registration	1	(6,PID)^VADPT

Package	Total	Caller Graph
Beneficiary Travel	2	DGBTE1 DGBTEND
Registration	1	DGBT BENE TRAVEL SCREEN

Name	Comments	DBIA/ICR reference
PATIENT	; patient lookup, quit if patient doesn't exist
EXIT3	;
START	;
SCREEN	; display B/T claim information through screen1
HELP1	;
SCREEN2	;
COMPLT	; complete claims processing ;
EXIT	; kills off all variables before quitting
DIVISN	; if MED CTR DIV file set up (first record) and record does not exist, write warning, kill variables, and exit
INSTIT	; check for pointer to institution file and for address information on institution
EXIT2	; delete claim through DIK call, return to patient label
OLDCLAIM	; find any past claims through DGBTE1 call

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"WARNING...MEDICAL CENTER DIVISION FILE IS NOT SET UP",!,"USE THE ADT PARAMETER OPTION FILE TO SET UP DIVISION" Line Location: DIVISN+1
Function Call: WRITE	Prompt: !! Line Location: DIVISN+4
Function Call: WRITE	Prompt: !!,"***WARNING...BENE TRAVEL PARAMETERS HAVE NOT BEEN SET UP",!,"USE THE BENEFICIARY TRAVEL PARAMETER RATES ENTER/EDIT OPTION TO PROPERLY INITIALIZE" Line Location: OLDCLAIM+4
Function Call: WRITE	Prompt: !!,"Eligibility is missing from registration and is required to continue." Line Location: SCREEN+2
Function Call: WRITE	Prompt: !!,"Complete claim for ",DGBTDTE Line Location: COMPLT+2
Function Call: WRITE	Prompt: !!?10,$S(%=-1:"SORRY, '^' NOT ALLOWED",1:"ENTER 'Y'ES OR 'N'O") Line Location: HELP1+1
Function Call: WRITE	Prompt: !!,"INSTITUTION HAS NOT BEEN DEFINED FOR ",$P(^(0),"^"),!,"USE THE ADT PARAMETER OPTION TO UPDATE",! Line Location: INSTIT+2
Function Call: WRITE	Prompt: !!,"INSTITUTION ADDRESS NOT ENTERED. PLEASE UPDATE USING THE INSTITUTION FILE ENTER/EDIT",! Line Location: INSTIT+3
Routine Call	DIE Line Location: COMPLT+2
Routine Call	DIC Line Location: DIVISN+5 PATIENT+3
Routine Call	DIR Line Location: SCREEN+4
Routine Call	%ZIS Line Location: START+2

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIVISN+1, DIVISN+9, INSTIT+1
^DG(43 - [#43]	DIVISN+3, OLDCLAIM+2
^DG(43.1 - [#43.1]	OLDCLAIM+2
^DGBT(392 - [#392]	PATIENT+6, COMPLT+2
^DIC(4 - [#4]	INSTIT+3

Name	Field # of Occurrence
>> %	COMPLT+2*, HELP1+1
>> %DT	START+5*
>> ANS	SCREEN+4*
>> DA	COMPLT+2*
>> DFN	PATIENT+5*, PATIENT+6
>> DGBTA	OLDCLAIM+1
>> DGBTDIV	DIVISN+6, DIVISN+9
>> DGBTDIVI	DIVISN+6, DIVISN+9, COMPLT+2, INSTIT+1
>> DGBTDIVN	INSTIT+1*, INSTIT+2, INSTIT+3
>> DGBTDT	OLDCLAIM+2, COMPLT+2
>> DGBTDTE	COMPLT+2
>> DGBTIME	START+3*
>> DGBTMD	DIVISN+7*
>> DGBTNEW	PATIENT+6*
>> DGBTTOUT	PATIENT+2*, COMPLT+3
DIC	DIVISN+4, DIVISN+5!, PATIENT+2, PATIENT+3!
DIC("A"	DIVISN+4, PATIENT+2
DIC(0	DIVISN+4, PATIENT+2
>> DIE	COMPLT+2*
DIR	SCREEN+4!
DIR("?"	SCREEN+3*
DIR("A"	SCREEN+3*
DIR("B"	SCREEN+3*
DIR(0	SCREEN+3*
>> DR	COMPLT+2*
DT	START+5*, COMPLT+2
DTIME	START+3*
>> DTOUT	SCREEN+4
>> DUOUT	SCREEN+4
DUZ	COMPLT+2
IOP	START+2*!
>> PRCABN	START+2*
>> S	START+5*
U	START+3*, DIVISN+3, DIVISN+6, DIVISN+9
>> VAEL(1	SCREEN+2
>> X	DIVISN+1*
>> Y	START+5, DIVISN+3, DIVISN+5, DIVISN+6, PATIENT+3, PATIENT+5, SCREEN+4