Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGBT BENE TRAVEL DISTANCES  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS START+2
$$CHECKS^DGBTDST1 START+4
$$YESNO^DGBTSRCH FIX+3
START^DGBTSRCH FIX+3
STCHK^DGBTSRCH START+3
^DIC LKUP+5
WAIT^DICD START+3
^DIE ADDIT+2, ADDIT+7, DEFMILE+2, DIV+2
^DIK DELETE+2
^DIR LKUP+3, NEXTDV+4

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
Routine Call
  • %ZIS
  • Line Location:
    • START+2
Routine Call
  • DIE
  • Line Location:
    • ADDIT+2
    • ADDIT+7
    • DEFMILE+2
    • DIV+2
Routine Call
  • DIC
  • Line Location:
    • LKUP+5
Routine Call
  • DIR
  • Line Location:
    • LKUP+3
    • NEXTDV+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$ADDIT LKUP+7
$$FIX START+5
$$NEXTDV DIS+1
ADDQ ADDIT+2, ADDIT+3, ADDIT+4
CLEAR START+5, LKUP+7, DIS+2
DEFMILE ADDIT+8
DELETE ADDIT+3
DIV DIS+1
EXIT LKUP+3, LKUP+4, LKUP+5, DIV+1
HEADER LKUP+1
LKUP LKUP+6
MILES ADDIT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All