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

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBTDIST  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS START+1
^DIC REMARK1+1, ZIP1+1, MILES1+1
YN^DICN YN1, RP1
^DIE REMARK1+1, ZIP1+1, MILES1+1, STCHK+5
EN1^DIP REMARKS+3, ZIP+4, MILES+4
^DIR REMARK1+1, ZIP1+1, MILES1+1, OPTION+6

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

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)
^DGBT(392.1 - [#392.1] START2+4, START2+5, EXIT+1, STCHK+2, STCHK+4

Label References

Name Line Occurrences
$$OPTION START2+2
$$REPORT REMARKS+1, ZIP+1, MILES+1
$$YESNO REMARKS+4, ZIP+5, MILES+5
@( START2+5
EXIT START2+2, START2+3, START2+4
MILES1 MILES1+2
REMARK1 REMARK1+2
RP1 RP1
SETUP REMARK1+1, ZIP1+1, MILES1+1
START2 START2+5
YN1 YN1
ZIP1 ZIP1+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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