Routine: DGBTDIST

Package	Total	Call Graph
VA FileMan	5	^DIC WAIT^DICD ^DIE ^DIK ^DIR
Beneficiary Travel	2	$$CHECKS^DGBTDST1 ($$YESNO,START,STCHK)^DGBTSRCH
Kernel	1	HOME^%ZIS

Entry Points

Name	Comments	DBIA/ICR reference
START	;
CLEAR	; set division and whether multi or single instit.
LKUP	; lookup departure city using DIR reader for input and DIC call for lookup
DIS	; check to add additional divisions
EXIT	;
NEXTDV()	;
NEXTDIQ
ADDIT()	; enter data for new city and create 1st division
ADDQ
MILES	; print default mileage message
DEFMILE	; compare city's default mileage vs. 1st divisions mileage, update if necessary
DIV	; add additional divisions to existing city
HEADER	;
DELETE	;
FIX()	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+2
Function Call: WRITE	Prompt: !,"No Problems were found in the Distance Data." Line Location: START+4
Function Call: WRITE	Prompt: !?5,*7,"FILE IN USE, PLEASE TRY AGAIN LATER" Line Location: LKUP+4
Function Call: WRITE	Prompt: !?5,*7,"FILE IN USE, PLEASE TRY AGAIN LATER" Line Location: DIV+1
Function Call: WRITE	Prompt: !!,"Enter the CITY as the point of origin. The MILEAGE/ONE-WAY",!,"is the distance from the CITY to the Medical Center Division.",! Line Location: HEADER+1
Function Call: WRITE	Prompt: !!?5,*7,"INCOMPLETE INFORMATION WAS ENTERED, BOTH THE STATE AND ZIP CODE",!?5,"ARE REQUIRED, RECORD DELETED",! Line Location: DELETE+1
Function Call: WRITE	Prompt: !,"You can either correct these problems, or add a new departure city." Line Location: FIX+1
Function Call: WRITE	Prompt: !,"CORRECT PROBLEMS" Line Location: FIX+2
Routine Call	%ZIS Line Location: START+2
Routine Call	DIC Line Location: LKUP+5
Routine Call	DIE Line Location: ADDIT+2 ADDIT+7 DEFMILE+2 DIV+2
Routine Call	DIR Line Location: LKUP+3 NEXTDV+4

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	CLEAR+1
^DGBT(392.1 - [#392.1]	LKUP+4, LKUP+5, ADDIT+3, ADDIT+8, DEFMILE+1, DIV+1, DIV+3

Name	Field # of Occurrence
%	EXIT+1!, FIX+4
CITY	START+1~, LKUP+3*, EXIT+1!
DA	START+1~, LKUP+5, ADDIT+2, ADDIT+3, ADDIT+4, DEFMILE+2, DIV+2, DELETE+2*
DGBTDIV	START+1~, CLEAR+1*, EXIT+1!, ADDIT+6
DGBTMDIV	START+1~, CLEAR+1*, DIS+1, EXIT+1!, MILES+1
DIC	LKUP+5*!, EXIT+1!
DIC("DR"	LKUP+5*
DIC(0	LKUP+5*
DIE	ADDIT+2, ADDIT+7!, DEFMILE+2!, DIV+2*!, DELETE+2!
DIK	DELETE+2*!
DIR	LKUP+2!, LKUP+3!, EXIT+1!, NEXTDV+4!
DIR("?"	LKUP+2, NEXTDV+3
DIR("A"	LKUP+2, NEXTDV+2
DIR("B"	NEXTDV+2*
DIR(0	LKUP+2, NEXTDV+3
DIRUT	LKUP+3, EXIT+1!
DLAYGO	LKUP+5*!
DO	START+1~, DIV+2*
DR	EXIT+1!, ADDIT+2, ADDIT+6, DEFMILE+2, DIV+2
DR(2	ADDIT+7, DIV+2
DTOUT	LKUP+5, EXIT+1!, NEXTDV+4, ADDIT+4
DUOUT	LKUP+5, EXIT+1!, NEXTDV+4
ERR	CLEAR+1, EXIT+1!, ADDIT+1~, ADDIT+2, ADDIT+3, ADDIT+4, ADDQ, DELETE+2*
IOF	START+2
NEWDIV	START+1~, CLEAR+1, LKUP+6, EXIT+1!, ADDIT+6, MILES+1
REC	LKUP+5*, EXIT+1!, ADDIT+2, DEFMILE+1, DEFMILE+2, DIV+2, DELETE+2
U	CLEAR+1, LKUP+6, ADDIT+3, DEFMILE+1
X	START+1~, LKUP+3*, LKUP+6, ADDIT+3
XX	START+1~, DIS+1*, DIV+2
Y	LKUP+3, LKUP+5, LKUP+6, EXIT+1!, NEXTDV+1~, NEXTDV+4*, NEXTDIQ, ADDIT+4