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

Package: Beneficiary Travel

Routine: DGBTUTL1


Information

DGBTUTL1 ;PAV - BENEFICIARY/TRAVEL UTILITY ROUTINES ; 11/14/11

Source Information

Source file <DGBTUTL1.m>

Entry Points

Name Comments DBIA/ICR reference
ELIG(DFN) ;***PAVEL
PCE ; Patient Encounter
EXIT ;
VIS(DGBTCSN) ;
BTC ; List of entries in 392.41 file
SETC ;Set entries into 392.41 if these are not there
KILLC ;Remove all entries from 392.41
QUALQUES ;this will ask if the appointment was a qualified appointment if the patient is SC 30% or greater
MTCHK(DFN,DGBTDTI) ;
MTQ ;
RESADDR(DGBTADDR) ;dgbt*1.0*39 - residential address
DASHADDR(DFN) ;dgbt*1.0*39 - function to pull the address for the bt dashboard patient class

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"IS THIS A CLAIM FOR A SERVICE CONNECTED APPOINTMENT"
  • Line Location: PCE+23
Function Call: WRITE
  • Prompt: !,"IS THIS A CLAIM FOR A COMP AND PENSION APPOINTMENT"
  • Line Location: PCE+26
Function Call: WRITE
  • Prompt: !!,"PATIENT IS NOT ELIGIBLE FOR BT REIMBURSEMENT"
  • Line Location: PCE+29
Function Call: WRITE
  • Prompt: !!,"CONTINUE WITH CLAIM"
  • Line Location: PCE+30
Function Call: WRITE
  • Prompt: !!,"Answer NO if you want to deny claim for any reason. Want to continue"
  • Line Location: QUALQUES+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGBT(392 - [#392] GET1^DIQ
^DGBT(392.41 - [#392.41] Classic Fileman Calls
^DGMT(408.31 - [#408.31] GETS^DIQ
^SD(409.1 - [#409.1] GET1^DIQ
^DG(43 - [#43] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call