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

Package: Beneficiary Travel

Routine: DGBTE1A


Information

DGBTE1A ;ALB/SCK - BENEFICIARY TRAVEL FIND OLD CLAIMS PART 2; 1/22/93@1530

Source Information

Source file <DGBTE1A.m>

Entry Points

Name Comments DBIA/ICR reference
NOW ; date/time entry for NOW
OTHR ; date/time entry for manually entered date
OLD ; date/time entry for select from past dates
LIST2 ; find all previous claims, get total count in DGBTC and put those claims in utility file
LIST3 ; list claims (in external format) from temporary global, 5 at a time. Loop thru list until selection made.
EXIT ;
CHOZ ; select from the displayed past claims dates for claim to be edited.
HELP ;
HELP1 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"There are no entries on file for this patient",!
  • Line Location: LIST2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST3+1
Function Call: WRITE
  • Prompt: !?5,X1,".",?10,^TMP("DGBTARA",$J,X1)
  • Line Location: LIST3+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHOZ+1
Function Call: WRITE
  • Prompt: " "
  • Line Location: CHOZ+5
Function Call: WRITE
  • Prompt: !?25,*7,"INVALID ENTRY!"
  • Line Location: CHOZ+7
Function Call: WRITE
  • Prompt: !!,"Time is required when adding a new CLAIM date.",!,"If there is more than one claim per date, select by number to edit."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Enter date invoice was received. Can not be a future date."
  • Line Location: HELP1+2

FileMan Files Accessed Via FileMan Db Call

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