Routine: DGBTSRCH

Information

DGBTSRCH ;ALB/SCK - SEARCH ROUTINE FOR INCOMPLETE DATA IN bt DISTANCE FILE;2/4/93 4/22/93

Source file <DGBTSRCH.m>

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE EN1^DIP ^DIR
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
Beneficiary Travel	1	DGBTDIST

Name	Comments	DBIA/ICR reference
RP1
STCHK	;
FTR	;
ZIP	; list cities with missing zip codes, screen on fields that don't match 5N
START2	;
SETUP	; setup common variables for lookup and edit
OPTION()	; menu options in text form.
YN1
START	;
MILES	; list those cities that have a null default mileage
EXIT	;
MILES1	; add/edit default mileage and division mileage
YESNO()	;
REPORT()	; ask yes no to do report
REMARKS	; list cities and divisions with the additional information field set true
REMARK1	; loop to complete remarks field
ZIP1	; loop to add zip codes

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: START+1
Function Call: WRITE	Prompt: !!!?5,"List the Incomplete data found in the Beneficiary Distance File",!?5,"Any incomplete data should be corrected as soon as possible" Line Location: START2+1
Function Call: WRITE	Prompt: !!?5,*7,"File not available, Please try later..." Line Location: START2+4
Function Call: WRITE	Prompt: !!?5,*7,">> YOU HAVE ",STERR," ERROR(S) IN YOUR STATE IDENTIFIERS,",!?5,"THESE MUST BE CORRECTED BEFORE CONTINUING",! Line Location: STCHK+3
Function Call: WRITE	Prompt: !,"City Name: ",$P($G(^DGBT(392.1,DA,0)),U,1) Line Location: STCHK+4
Function Call: WRITE	Prompt: !,"Enter either YES or NO, '^' to Exit." Line Location: YN1+0
Function Call: WRITE	Prompt: !!?5,"Print Report" Line Location: REPORT+1
Function Call: WRITE	Prompt: !?5,"Enter 'Y'es or 'N'o" Line Location: RP1+0
Function Call: WRITE	Prompt: !!?5,"NOTE:",!?5,"If no data prints, then no problems were found" Line Location: FTR+1
Function Call: WRITE	Prompt: !?5,"in the Distance file.",! Line Location: FTR+2
Routine Call	%ZIS Line Location: START+1
Routine Call	DIE Line Location: REMARK1+1 ZIP1+1 MILES1+1 STCHK+5
Routine Call	DIC Line Location: REMARK1+1 ZIP1+1 MILES1+1
Routine Call	DIR Line Location: REMARK1+1 ZIP1+1 MILES1+1 OPTION+6

Name	Field # of Occurrence
>> %	YN1, YN1+1, RP1, RP1+1
BY	EXIT+2!, REMARKS+2, ZIP+2, MILES+2*
DA	EXIT+2!, REMARK1+1, ZIP1+1, MILES1+1, STCHK+4
DHD	EXIT+2!, REMARKS+2, ZIP+3, MILES+3*
DIC	EXIT+2!, REMARKS+2!, REMARKS+3!, ZIP+2!, ZIP+4!, MILES+2!, MILES+4!, SETUP+1
DIC(0	REMARKS+2, ZIP+2, MILES+2, SETUP+1
DIE	REMARK1+1!, ZIP1+1!, MILES1+1!, STCHK+1, STCHK+6!
DIOEND	EXIT+2!, REMARKS+2, ZIP+3, MILES+3*
DIR	START+1!, EXIT+2!, REMARK1+1!, ZIP1+1!, MILES1+1!, OPTION+6!
DIR("?"	SETUP+2, OPTION+5
DIR("A"	SETUP+1, OPTION+5
DIR(0	REMARK1+1, SETUP+1, OPTION+5*
DIRUT	START2+2, EXIT+2!, REMARK1+1, ZIP1+1, MILES1+1
DIS	EXIT+2!
DIS(0	ZIP+2*
DIS(1	MILES+2*
DR	EXIT+2!, REMARK1+1, ZIP1+1, MILES1+1, STCHK+1
DR(2	REMARK1+1*
FLDS	EXIT+2!, REMARKS+2, ZIP+2, MILES+2*
FR	EXIT+2!, ZIP+2, MILES+2, SETUP+1*
II	EXIT+2!
IOF	START+1
L	EXIT+2!, REMARKS+2, ZIP+2, MILES+2, SETUP+1
OPT	START2+2, START2+3, START2+5, EXIT+2!
STATE	STCHK+6!
STATE(	STCHK+2*, STCHK+4
STERR	STCHK+1, STCHK+2, STCHK+3, STCHK+6!
STREC	STCHK+1, STCHK+2, STCHK+4, STCHK+6!
TO	EXIT+2!, ZIP+2, MILES+2, SETUP+1*
U	STCHK+2, STCHK+4
X	EXIT+2!, REMARK1+1, ZIP1+1, MILES1+1, OPTION+1, OPTION+2, OPTION+3, OPTION+4*, OPTION+5
XX	STCHK+4*, STCHK+6!
Y	START2+3, EXIT+2!, REMARK1+1, ZIP1+1, MILES1+1, OPTION+7