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

Package: Beneficiary Travel

Routine: DGBTE1


Information

DGBTE1 ;ALB/SCK/GAH,LAB - BENEFICIARY TRAVEL FIND OLD CLAIM DATES ; 03/20/2019

Source Information

Source file <DGBTE1.m>

Entry Points

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

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: VADATE("E")
  • Line Location: LOCK+6
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

FileMan Files Accessed Via FileMan Db Call

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