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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA FileMan 5 YN^DICN  UPDATE^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Beneficiary Travel 3 $$WVELG^DGBT1  CLRLTR^DGBTDLT  $$LI^DGBTUTL  
Registration 2 $$LST^DGMTCOU1  (ADD,ELIG,MB)^VADPT  
Kernel 1 $$FMADD^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 7

Package Total Caller Graph
Beneficiary Travel 7 DGBT1  DGBTALTI  DGBTCR  DGBTE  DGBTE1  DGBTEF  DGBTUTL  

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

External References

Name Field # of Occurrence
$$WVELG^DGBT1 ELIG+15
CLRLTR^DGBTDLT PCE+23, PCE+26, PCE+32, QUALQUES+4, QUALQUES+6
$$LI^DGBTUTL ELIG+25
$$LST^DGMTCOU1 MTCHK+5
YN^DICN PCE+23, PCE+26, PCE+30, QUALQUES+4
UPDATE^DIE SETC+2
^DIK KILLC+1
$$GET1^DIQ PCE+21, PCE+22, VIS+6, QUALQUES+3, MTCHK+10
GETS^DIQ MTCHK+7
^DIR PCE+34, PCE+39
ADD^VADPT RESADDR+14
ELIG^VADPT ELIG+8
MB^VADPT ELIG+19
$$FMADD^XLFDT MTCHK+17

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
Routine Call
  • DIE
  • Line Location:
    • SETC+2
Routine Call
  • DIR
  • Line Location:
    • PCE+34
    • PCE+39

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.32 - [#408.32] MTCHK+25
^DGBT(392.41 - [#392.41] KILLC+1

Label References

Name Line Occurrences
MTQ MTCHK+14, MTCHK+18, MTCHK+22, MTCHK+27, MTCHK+32
QUALQUES ELIG+11, ELIG+12, ELIG+13, ELIG+15, ELIG+16, ELIG+18, ELIG+20, ELIG+26
RESADDR DASHADDR+4
SETC ELIG+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PCE+23*, PCE+24, PCE+25, PCE+26*, PCE+27, PCE+28, PCE+30*, PCE+31, PCE+33, QUALQUES+4*
, QUALQUES+5, QUALQUES+6, QUALQUES+7
DA KILLC+1~*
DFN ELIG~, ELIG+25, MTCHK~, MTCHK+5, RESADDR+14, DASHADDR~, DASHADDR+1
DGBTADDR RESADDR~
DGBTADDR(1 RESADDR+17*, RESADDR+31*
DGBTADDR(2 RESADDR+18*, RESADDR+32*
DGBTADDR(3 RESADDR+19*, RESADDR+33*
DGBTADDR(4 RESADDR+20*, RESADDR+34*
DGBTADDR(5 RESADDR+21*, RESADDR+35*
DGBTADDR(6 RESADDR+24*, RESADDR+25*, RESADDR+36*
DGBTADDR(7 RESADDR+26*, RESADDR+37*
>> DGBTAPPTYP PCE+31*
DGBTARY DASHADDR+2~, DASHADDR+4
DGBTARY(1 DASHADDR+6
DGBTARY(2 DASHADDR+6
DGBTARY(3 DASHADDR+6
DGBTARY(4 DASHADDR+6
DGBTARY(5 DASHADDR+6
DGBTARY(6 DASHADDR+6
>> DGBTCPAP PCE+22*, PCE+26*
DGBTCS VIS+4~, VIS+5*
DGBTCSN VIS~, VIS+5, VIS+6
>> DGBTDEP ELIG+25
DGBTDTI ELIG+25, PCE+21, PCE+22, QUALQUES+3, MTCHK~, MTCHK+5
>> DGBTDYFL ELIG+16, ELIG+18
>> DGBTELL ELIG+11, ELIG+12, ELIG+13, ELIG+15, ELIG+16, ELIG+17, ELIG+20, ELIG+26, QUALQUES+5*, QUALQUES+7*
>> DGBTINC ELIG+12, ELIG+13, ELIG+16, ELIG+18, ELIG+25
>> DGBTINCA ELIG+25
DGBTMT MTCHK+1~, MTCHK+8*
DGBTMT( MTCHK+14, MTCHK+17, MTCHK+19, MTCHK+22, MTCHK+23, MTCHK+27, MTCHK+28, MTCHK+29, MTCHK+32, MTCHK+33
, MTCHK+34, MTCHK+37, MTCHK+38, MTCHK+39, MTCHK+40, MTCHK+41
>> DGBTNSC ELIG+16, ELIG+18, PCE+23, PCE+24, PCE+25
>> DGBTQAP QUALQUES+3*, QUALQUES+4*
>> DGBTREF ELIG+16, ELIG+17, ELIG+25
DGBTRES RESADDR+28, DASHADDR+2~, DASHADDR+3*
>> DGBTRXTH ELIG+16, ELIG+18
>> DGBTSCAP PCE+21*, PCE+23*
DGBTX ELIG+8~, ELIG+9*, ELIG+17, ELIG+18*
DGCBK PCE+1~
DGDONE MTCHK+1~, MTCHK+3*, MTCHK+18, MTCHK+19*, MTCHK+22, MTCHK+23*, MTCHK+27, MTCHK+29*, MTCHK+32, MTCHK+34*
DGDT1 PCE+1~, VIS+2
DGIEN MTCHK+1~
DGMTST MTCHK+1~, MTCHK+25*, MTCHK+27, MTCHK+32
DGQUERY PCE+1~
DGVAL PCE+1~
DIK KILLC+1~*
DIR PCE+34!, PCE+39!
DIR("A" PCE+34*, PCE+39*
DIR(0 PCE+34*, PCE+39*
DT MTCHK+14
ERR MTCHK+1~
FDA SETC+1~
FDA( SETC+2*
IENC SETC+1~
IENC(1 SETC+2*
II SETC+1~, SETC+2*
LI ELIG+23~, ELIG+24*, ELIG+25*, ELIG+26, QUALQUES+5*
MTDATA MTCHK+1~
MTDATA( MTCHK+8
MTDAYS MTCHK+1~, MTCHK+17*, MTCHK+18
MTIEN MTCHK+1~, MTCHK+5*, MTCHK+6, MTCHK+7, MTCHK+8
RESULT MTCHK+1~, MTCHK+3*, MTCHK+19*, MTCHK+23*, MTCHK+29*, MTCHK+34*, MTCHK+41*, MTQ+1
SDOE0 PCE+1~, VIS+2
SDSTOP PCE+1~, VIS+2*, VIS+3
U ELIG+11, ELIG+12, ELIG+13, ELIG+16, ELIG+17, ELIG+18, PCE+35, PCE+40, VIS+5
VAEL ELIG+8~
VAEL(3 ELIG+11, ELIG+17
VAMB ELIG+19~
VAMB(4 ELIG+20
>> VAPA(1 RESADDR+31
>> VAPA(11 RESADDR+36
>> VAPA(2 RESADDR+32
>> VAPA(3 RESADDR+33
>> VAPA(30 RESADDR+15, RESADDR+17
>> VAPA(31 RESADDR+18
>> VAPA(32 RESADDR+19
>> VAPA(33 RESADDR+20
>> VAPA(34 RESADDR+21
>> VAPA(35 RESADDR+22, RESADDR+24, RESADDR+25
>> VAPA(36 RESADDR+26
>> VAPA(4 RESADDR+34
>> VAPA(5 RESADDR+35
>> VAPA(7 RESADDR+37
VFADAYS MTCHK+1~
VFADT MTCHK+1~, MTCHK+10*, MTCHK+11, MTCHK+18, MTCHK+22
X RESADDR+13~
XX ELIG+23~, ELIG+26*, VIS+7*, VIS+8*
>> Y PCE+35, PCE+36, PCE+37, PCE+40, PCE+41
YY VIS+4~, VIS+6*, VIS+7, VIS+8

Marked Items

Name Field # of Occurrence
$T(BTC+(3) ELIG+26
$T(BTC+1 ELIG+11
$T(BTC+10 PCE+27
$T(BTC+11 PCE+36
$T(BTC+12 PCE+37
$T(BTC+13 PCE+41
$T(BTC+14 ELIG+11, ELIG+12, ELIG+13, ELIG+15, ELIG+16, ELIG+17, ELIG+20, ELIG+26, PCE+25, PCE+28
, PCE+33, PCE+35, PCE+40
$T(BTC+15 ELIG+11, ELIG+12, ELIG+13, ELIG+15, ELIG+16, ELIG+17, ELIG+20, ELIG+26, PCE+31
$T(BTC+16 ELIG+16
$T(BTC+17 ELIG+17
$T(BTC+18 ELIG+12
$T(BTC+19 ELIG+13
$T(BTC+2 ELIG+15, ELIG+20
$T(BTC+7 VIS+7
$T(BTC+8 VIS+8
$T(BTC+9 PCE+24
$T(BTC+II SETC+2
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 |  Marked Items  | All