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: DGBTDIST

Package: Beneficiary Travel

Routine: DGBTDIST


Information

DGBTDIST ;ALB/SCK-BENEFICIARY TRAVEL DEPARTURE CITY DISTANCE ENTER/EDIT;1/21/93 2/1/93 4/26/93

Source Information

Source file <DGBTDIST.m>

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() ;

Interaction Calls

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

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