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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGBTE1

Package: Beneficiary Travel

Routine: DGBTE1


Information

DGBTE1 ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIM DATES ;11/23/92@0800 03/19/93

Source Information

Source file <DGBTE1.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Beneficiary Travel 3 PATIENT^DGBTE  @(^DGBTE1A  QUIT^DGBTEND  
Registration 3 $$LST^DGMTU  ^VADATE  ($$DEP,$$INCOME)^VAFMON  
VA Fileman 3 COMMA^%DTC  (FILE,YN)^DICN  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Beneficiary Travel 1 DGBTE  

Entry Points

Name Comments DBIA/ICR reference
DATE1 ; for past claims, set DGBTDT to inverse date of claim date
SET ; call inhouse generic date routine
MEANS ; find corres. means test entry, gets MT income, status, no. of dependents
APPTS ; search patient file for appointments through claim date (DTI+1), adddates to array DGBTCL
LOCK ;
CERT ; get last BT certification, get date, then get eligibility
STUFF ; stuff departure with address data from patient file, dest from institution file
EXIT ; exit routine
CHKFILES ; section removed, dependents picked up below in MEANS ; abr 10/94
DATE ; get date for claim, either new or past date
ERR1 ; error condition
PREV ; if past claim get SC%, elig.
ASKADD ;

External References

Name Field # of Occurrence
COMMA^%DTC MEANS+9, CERT+6
PATIENT^DGBTE ASKADD+2, ASKADD+9
@(^DGBTE1A DATE+5
QUIT^DGBTEND DATE1+10, ERR1+1
$$LST^DGMTU MEANS+3
FILE^DICN ASKADD+7
YN^DICN ASKADD+2
^DIR DATE+4, DATE1+10
^VADATE DATE1+8, LOCK+3, SET+1
$$DEP^VAFMON MEANS+11
$$INCOME^VAFMON MEANS+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are other claims on this date.",!,"Select by number to edit or <RETURN> to add a new CLAIM.",!
  • Line Location: DATE1+6
Function Call: WRITE
  • Prompt: !?5,I,".",?10,VADATE("E")
  • Line Location: DATE1+8
Function Call: WRITE
  • Prompt: VADATE("E")
  • Line Location: LOCK+3
Function Call: WRITE
  • Prompt: !!,"Are you sure you want to add a new claim"
  • Line Location: ASKADD+1
Function Call: WRITE
  • Prompt: !!,"Enter 'YES' to add a new claim, or 'NO' not to add the claim."
  • Line Location: ASKADD+3
Routine Call
  • DIR
  • Line Location:
    • DATE+4
    • DATE1+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" CERT+5
^DG(40.8 - [#40.8] SET+4, STUFF+4
^DGBT(392 - [#392] DATE1+1, DATE1+4, LOCK+1, LOCK+2, STUFF+1*, STUFF+2, STUFF+4*, PREV+1
^DGBT(392.2 - [#392.2] CERT+1, CERT+3, CERT+4
^DIC(4 - [#4] STUFF+3, STUFF+4
^DIC(8 - [#8] PREV+3
^DPT - [#2] APPTS+1
^TMP("DGBT" DATE+1!
^TMP("DGBTARA" DATE+1!

Label References

Name Line Occurrences
ASKADD ASKADD+3
DATE DATE+6, DATE1+11
ERR1 DATE+4, DATE+6
LOCK DATE1+5, DATE1+11, LOCK+2
SET DATE+6, DATE1+12

Naked Globals

Name Field # of Occurrence
^( APPTS+1
^(1 STUFF+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASKADD+2*, ASKADD+3
>> %DT DATE+5*
>> CHZFLG DATE+5*, DATE+6, PREV+1
>> DA SET+1*
DD ASKADD+4!
>> DFN DATE1+1, DATE1+4, ASKADD+6, MEANS+3, MEANS+5, MEANS+11, CERT+1, CERT+3, APPTS+1
>> DGBT DATE1+5
>> DGBT( DATE1+4*, DATE1+8, DATE1+11, DATE1+12
>> DGBTA DATE+6*, DATE1+2, DATE1+12*, LOCK+1, LOCK+2*, LOCK+3, ASKADD+6, SET+1, MEANS+3, MEANS+5
, MEANS+11, PREV+1
>> DGBTC DATE1+2*, DATE1+4*, DATE1+9
>> DGBTCA CERT+4*, CERT+6*
>> DGBTCD CERT+3*, CERT+4, CERT+6*
>> DGBTCE CERT+3*
>> DGBTCL( APPTS+1*
>> DGBTCSC PREV+1*, PREV+2*
>> DGBTDEP MEANS+11*
>> DGBTDIVI SET+4, STUFF+4
>> DGBTDIVN SET+4*, STUFF+3, STUFF+4
>> DGBTDT DATE1+2*, DATE1+4, SET+1*, STUFF+1, STUFF+2, STUFF+4
>> DGBTDTE SET+3*
>> DGBTDTI SET+3*, APPTS+1
>> DGBTELG PREV+1*, PREV+3*
DGBTIFL MEANS+2~, MEANS+6*, MEANS+10
>> DGBTINC MEANS+10*
>> DGBTMTS MEANS+3*
>> DGBTNEW DATE+2
DIC ASKADD+6*, ASKADD+7!, SET+3!
DIC("DR" ASKADD+6*
DIC(0 ASKADD+6*
>> DINUM ASKADD+6*
DIR DATE+1!, DATE+4!, DATE1+9!, DATE1+10!
DIR("?" DATE+3*, DATE1+9*
DIR("A" DATE+2*, DATE+3*, DATE1+9*
DIR("B" DATE+4*
DIR(0 DATE+4*, DATE1+9*
>> DIRUT DATE+4
DO ASKADD+4!
>> DTOUT DATE+6, DATE1+10
DTSUB DATE+5*!
>> DUOUT DATE1+10
>> I DATE1+4*, DATE1+8*, APPTS+1*
U STUFF+1, STUFF+4, MEANS+3, MEANS+6, MEANS+10, PREV+1, PREV+2, PREV+3
VADAT SET+3!
VADAT("W" DATE1+8*, LOCK+3*, SET+1*
VADATE SET+3!
VADATE("E" DATE1+8, LOCK+3, SET+3
VADATE("I" SET+3
>> VAPA(1 STUFF+1
>> VAPA(11 STUFF+1
>> VAPA(2 STUFF+1
>> VAPA(3 STUFF+1
>> VAPA(4 STUFF+1
>> VAPA(5 STUFF+1
X ASKADD+6*, STUFF+3*, STUFF+4, MEANS+2~, MEANS+3*, MEANS+6*, MEANS+7, MEANS+8*, MEANS+10!, PREV+1*
, CERT+6*!
X2 MEANS+2~, MEANS+9*, MEANS+10!, CERT+6*!
X3 MEANS+2~, MEANS+9*, CERT+6*!
Y DATE+5, DATE1+11, DATE1+12, ASKADD+9, SET+3!, MEANS+2~, MEANS+5*, MEANS+6, CERT+4*, CERT+6!
>> Y1 DATE+6
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 |  Naked Globals |  Local Variables |  All