Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: DGBTSRCH

Package: Beneficiary Travel

Routine: DGBTSRCH


Information

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

Source Information

Source file <DGBTSRCH.m>

Entry Points

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

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGBT(392.1 - [#392.1] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call