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

Package: Beneficiary Travel

Routine: DGBTUTL


Information

DGBTUTL ;ALB/SCK - BENEFICIARY/TRAVEL UTILITY ROUTINES;11/14/11

Source Information

Source file <DGBTUTL.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  $$FMDIFF^XLFDT  $$UP^XLFSTR  
Registration 4 $$LST^DGMTCOU1  ($$LST,$$MTS)^DGMTU  (ELIG,MB)^VADPT  $$INCOME^VAFMON  
VA FileMan 4 COMMA^%DTC  ^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Beneficiary Travel 2 $$WVELG^DGBT1  $$MTCHK^DGBTUTL1  

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

Package Total Caller Graph
Beneficiary Travel 17 DGBT1  DGBTALTI  DGBTCE  DGBTDW  DGBTE  DGBTE1  DGBTEE  DGBTEE2  
DGBTR121  DGBTR122  DGBTR123  DGBTR124  DGBTR125  DGBTR17  DGBTRDVW  DGBTSP1  
DGBTUTL1  

Entry Points

Name Comments DBIA/ICR reference
START ;
MILES(DGBTRN,DGBTDX) ;
; DGBTRN holds the record no., and DGBTDX holds the division pointer passed in during the function call
DICLKUP(DGBTRN,DGBTDX,DGBTP) ;
DEPCTY(ZIPCDE) ;
DWAIVER(DFN,DGBTDCV,CLIEN) ;Get Deductible Waiver ***PAVEL
GA(DFN,AA,DGBTDTI,AB) ;Get Alternate Income on file
LI(DFN,DGBTDTI,DGBTDEP,FLAG,DGBTINCA) ;Low Income
EXIT ;
TEST ;
ABP(DGBTU) ;Function returns date if patient has an active bus pass. Function added in patch 20
MHELP ;help text for Mileage/One Way field. Field 32 file 392.
PAUSE(EXCEL) ;
YESNO(PROMPT) ;
DEVICE(RPTNAM,ROUTINE,DGBTEXCEL,COLWID) ;common device call for DGBT reports
SELEXCEL() ; - Returns whether to capture data for Excel report.
; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data)
HEXC ; - 'Do you want to capture data...' prompt
PRINTMSG ;common help message if user selects a printer
EXMSG ;common help message if user selects Excel option
RDV(DGBTRDV,DGBTDTI) ;this will process the remote sites for visits during current month.
NMRNG(PATNAME,SNAME,ENAME,RESULT) ;
SNAM(PNAM,SNAM) ;
ENAM(PNAM,ENAM) ;
DRDV(DFN,DGBTDCV,DGBTDTI,DLM) ;Used in remote data view to get local Deductible
NSC() ;
DAYFLAG() ; See if we have a valid income test

External References

Name Field # of Occurrence
COMMA^%DTC LI+24
^%ZIS DEVICE+8
HOME^%ZIS DEVICE+19
^%ZTLOAD DEVICE+17
$$WVELG^DGBT1 DWAIVER+18
$$MTCHK^DGBTUTL1 DAYFLAG+14
$$LST^DGMTCOU1 DAYFLAG+5
$$LST^DGMTU LI+31
$$MTS^DGMTU DAYFLAG+7
^DIC DICLKUP+3, DEPCTY+2
$$GET1^DIQ DAYFLAG+3, DAYFLAG+7, DAYFLAG+11, DAYFLAG+13, DAYFLAG+16
GETS^DIQ GA+12
^DIR PAUSE+12, YESNO+5, SELEXCEL+8
ELIG^VADPT DWAIVER+17
MB^VADPT DWAIVER+28
$$INCOME^VAFMON LI+17
$$FMDIFF^XLFDT DAYFLAG+11, DAYFLAG+16
$$UP^XLFSTR NMRNG+3, NMRNG+4, NMRNG+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DATE/TIME REQUIRED.."
  • Line Location: TEST+1
Function Call: WRITE
  • Prompt: !,?5,"If patient used a common carrier, then the mileage entered here would be"
  • Line Location: MHELP+3
Function Call: WRITE
  • Prompt: !,?5,"only the mileage needed to get to the common carrier pick up point.",!
  • Line Location: MHELP+4
Function Call: WRITE
  • Prompt: !!!,PROMPT1
  • Line Location: PAUSE+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PAUSE+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SELEXCEL+5
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: HEXC+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: HEXC+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: HEXC+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: HEXC+4
Function Call: WRITE
  • Prompt: !!,"WARNING - THIS REPORT REQUIRES THAT A DEVICE WITH ",COLWID," COLUMN WIDTH BE USED."
  • Line Location: PRINTMSG+2
Function Call: WRITE
  • Prompt: !,"IT WILL NOT DISPLAY CORRECTLY USING 80 COLUMN WIDTH DEVICES",!
  • Line Location: PRINTMSG+3
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXMSG+1
Function Call: WRITE
  • Prompt: !?5,"detail report data. On some terminals, this can be done by"
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !?5,"Incoming Data' to save to Desktop. This report may take a"
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !?5,"while to run."
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the"
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !?5," file, please enter '0;512;999' at the 'DEVICE:' prompt.",!
  • Line Location: EXMSG+7
Routine Call
  • DIC
  • Line Location:
    • DICLKUP+3
    • DEPCTY+2
Routine Call
  • DIR
  • Line Location:
    • PAUSE+12
    • YESNO+5
    • SELEXCEL+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+8
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGBT(392.1 - [#392.1] Classic Fileman Calls
^DGBT(392.9 - [#392.9] GETS^DIQ
^DGMT(408.31 - [#408.31] GET1^DIQ
^DG(43 - [#43] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DEVICE+11
^DGBT(392 - [#392] ABP+3, DRDV+6
^DGBT(392.1 - [#392.1] MILES+4, MILES+5, MILES+6
^DGBT(392.7 - [#392.7] DWAIVER+8, DWAIVER+10, DWAIVER+11, DWAIVER+12, DWAIVER+13, DWAIVER+14

Label References

Name Line Occurrences
$$DWAIVER DRDV+7
$$ENAM NMRNG+5
$$LI DWAIVER+42
$$SNAM NMRNG+4
EXMSG SELEXCEL+13

Naked Globals

Name Field # of Occurrence
^("B" ABP+3
^(0 MILES+5, DICLKUP+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE+2~, DEVICE+7*
AA GA~, GA+11, GA+17, GA+19
AB GA~, GA+21, GA+22*, GA+23
AC GA+10~, GA+23*
CLIEN DWAIVER~, DWAIVER+9, DWAIVER+14
>> CLMMONTH RDV+5*, RDV+9
COLWID DEVICE~, PRINTMSG+2
CURDATE RDV+3~
DATE ABP+1~, ABP+2*, ABP+3*
>> DAYFLG DWAIVER+21, DWAIVER+23, LI+14
DFN DWAIVER~, DWAIVER+8, DWAIVER+10, DWAIVER+42, GA~, GA+12, GA+13, LI~, LI+17, LI+31
, DRDV~, DRDV+6, DRDV+7, DAYFLAG+5, DAYFLAG+7, DAYFLAG+14
>> DGBTCCMODE DWAIVER+44, DWAIVER+45
>> DGBTCCREQ DWAIVER+44, DWAIVER+45
DGBTCHK MILES+2~, MILES+5*
DGBTDCM DRDV+1~, DRDV+3*, DRDV+6*, DRDV+9
DGBTDCV DWAIVER~, DWAIVER+46, DRDV~, DRDV+7
>> DGBTDEF MILES+3*, MILES+6*
DGBTDEP DWAIVER+42, LI~
>> DGBTDT DRDV+6
DGBTDTI DWAIVER+42, GA~, GA+14, GA+16, GA+18, LI~, LI+17, LI+31, RDV~, RDV+5
, DRDV~, DRDV+5, DRDV+7, DAYFLAG+5, DAYFLAG+10, DAYFLAG+11, DAYFLAG+14, DAYFLAG+16
DGBTDX MILES~, MILES+5, MILES+7!, DICLKUP~, DICLKUP+2
>> DGBTDYFL LI+18
DGBTEXCEL DEVICE~
DGBTIEN RDV+3~, RDV+4*, RDV+6*, RDV+7
DGBTIFL LI+15~, LI+20*, LI+21*, LI+25
DGBTINC DWAIVER+19, DWAIVER+20, DWAIVER+21, LI+15~, LI+21*, LI+25*
DGBTINCA DWAIVER+42, LI~, LI+16*, LI+19, LI+26
DGBTML MILES+2~, MILES+3*, MILES+4, MILES+5*, MILES+6*, MILES+8
>> DGBTMLT DWAIVER+43, DWAIVER+44
DGBTMW DWAIVER+4~, DWAIVER+9*, DWAIVER+10*, DWAIVER+11, DWAIVER+12, DWAIVER+13, DWAIVER+14
>> DGBTNSC DWAIVER+21, DWAIVER+22
DGBTP DICLKUP~, DICLKUP+5, DICLKUP+6
>> DGBTQ PAUSE+6*, DEVICE+9*, DEVICE+13*
>> DGBTQ1 DEVICE+6*
DGBTRDV DWAIVER+4~, RDV~
DGBTRDV( RDV+6, RDV+7
>> DGBTREF DWAIVER+21, DWAIVER+22, DWAIVER+42, LI+13
DGBTRET LI+11~, LI+12*, LI+13, LI+14, LI+21, LI+27, LI+29*, LI+31, LI+33
DGBTRET(0 DWAIVER+7
DGBTRN MILES~, MILES+4, MILES+5, MILES+6, MILES+7!, DICLKUP~
>> DGBTRXTH DWAIVER+21, LI+29, LI+32
DGBTU ABP~, ABP+3
DIC DICLKUP+2*, DEPCTY+2*!
DIC(0 DICLKUP+2*, DEPCTY+2*
DIR PAUSE+2~, YESNO+5!, SELEXCEL+3~, SELEXCEL+8!
DIR("?" YESNO+3*, SELEXCEL+7*
DIR("A" PAUSE+12*, YESNO+4*, SELEXCEL+6*
DIR("B" YESNO+3*, SELEXCEL+5*
DIR("T" SELEXCEL+5*
DIR(0 PAUSE+12*, YESNO+3*, SELEXCEL+5*
DIROUT YESNO+2!, YESNO+5, SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!
DIRUT YESNO+2!, YESNO+5, SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!
DLM DRDV~, DRDV+2*, DRDV+9
DONE NMRNG+2~, SNAM+2*, SNAM+3, SNAM+4*, SNAM+6*, ENAM+2*, ENAM+3, ENAM+4*, ENAM+6*
DT ABP+3
DTIME SELEXCEL+5
DTOUT TEST+2*, YESNO+2!, YESNO+5, SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!
DUOUT YESNO+2!, YESNO+5, SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!
DUZ(2 DRDV+9
ENAM ENAM~, ENAM+1, ENAM+2, ENAM+4, ENAM+5
ENAME NMRNG~, NMRNG+1, NMRNG+5
EXCEL PAUSE~, PAUSE+4*, PAUSE+9, PAUSE+10, SELEXCEL+3~, SELEXCEL+10*, SELEXCEL+13, SELEXCEL+15
EXIT DWAIVER+4~, DWAIVER+5*, DWAIVER+8, DWAIVER+9*, DWAIVER+10, DWAIVER+13*, DWAIVER+15*
EXPDT ABP+1~, ABP+2*, ABP+3*, ABP+4
FDA GA+10~
FDA( GA+13, GA+15
FDD GA+10~, GA+21
FDD( GA+15*, GA+17, GA+18, GA+19, GA+20!, GA+23
FLAG LI~, LI+15
HIT NSC+2~, NSC+3*, NSC+4, NSC+5*, NSC+6
I GA+10~, GA+23*, NMRNG+2~, SNAM+3*, SNAM+4, SNAM+5, ENAM+3*, ENAM+4, ENAM+5, DRDV+1~
, DRDV+5*, DRDV+6*, DRDV+7*, DRDV+9, NSC+3*, NSC+4*, NSC+5
IEN ABP+1~, ABP+2*, ABP+3*
INCOME DWAIVER+27~, LI+11~, LI+17*, LI+18*, LI+19*, LI+27, LI+28*, LI+29, LI+32
IO("Q" DEVICE+13, DEVICE+19!
IOM DEVICE+11*
IOST PAUSE+6, DEVICE+10
LASTVISIT RDV+3~, RDV+8*, RDV+9
LEN1 NMRNG+2~, SNAM+2*, SNAM+3, ENAM+2*, ENAM+3
LEN2 NMRNG+2~, SNAM+2*, SNAM+3, ENAM+2*, ENAM+3
LI DWAIVER+29~, DWAIVER+41*
MTEST DWAIVER+27~, LI+11~, LI+31*
MTIEN DAYFLAG+2~, DAYFLAG+5*, DAYFLAG+6, DAYFLAG+7, DAYFLAG+11, DAYFLAG+13, DAYFLAG+16
PATNAME NMRNG~, NMRNG+3
PNAM NMRNG+2~, NMRNG+3*, NMRNG+4, NMRNG+5, SNAM~, SNAM+2, SNAM+4, SNAM+5, ENAM~, ENAM+2
, ENAM+4, ENAM+5
POP DEVICE+2~, DEVICE+9
PROMPT PAUSE+2~, PAUSE+9*, PAUSE+10*, PAUSE+12, YESNO~, YESNO+4
PROMPT1 PAUSE+2~, PAUSE+5*, PAUSE+6, PAUSE+9
PROMPT2 PAUSE+2~, PAUSE+7*, PAUSE+9
PROMPT3 PAUSE+2~, PAUSE+8*, PAUSE+9, PAUSE+10
RESULT NMRNG~, SNAM+6*, SNAM+7, ENAM+6*, ENAM+7, DAYFLAG+2~, DAYFLAG+11*, DAYFLAG+14*, DAYFLAG+16*, DAYFLAG+17
RETURN DICLKUP+1~, DICLKUP+2*, DICLKUP+5*, DICLKUP+6*, DICLKUP+7, DEPCTY+1~, DEPCTY+2*, DEPCTY+4
ROUTINE DEVICE~, DEVICE+14
RPTNAM DEVICE~, DEVICE+15
SNAM SNAM~, SNAM+1, SNAM+2, SNAM+4, SNAM+5
SNAME NMRNG~, NMRNG+1, NMRNG+4
STATUS DAYFLAG+2~, DAYFLAG+7*, DAYFLAG+8
U MILES+5, MILES+6, DICLKUP+5, DICLKUP+6, DWAIVER+19, DWAIVER+20, DWAIVER+21, DWAIVER+46, GA+19, GA+23
, LI+19, LI+20, LI+25, LI+26, LI+27, ABP+3, DRDV+6, DRDV+9, DAYFLAG+7
VAEL DWAIVER+4~
VAEL(1 NSC+1, NSC+4, NSC+5
VAEL(4 DWAIVER+26
VAMB DWAIVER+28~
VAMB(1 DWAIVER+37
VAMB(2 DWAIVER+38
VAMB(4 DWAIVER+37, DWAIVER+38, DWAIVER+39
VFADT DAYFLAG+2~, DAYFLAG+3*, DAYFLAG+10
>> VISITDATA RDV+7*, RDV+8
X DICLKUP+2*, DEPCTY+2*, GA+10~, GA+15*, LI+11~, LI+20*, LI+21*, LI+22, LI+23*, LI+25
, TEST+2*, DEVICE+11~*
X0 DWAIVER+27~, GA+10~, GA+13*, GA+14, GA+15*, GA+16*, GA+17*, GA+18, GA+19, GA+20
, GA+23*, LI+11~
X1 DWAIVER+27~
X2 DWAIVER+27~, LI+11~, LI+24*
X3 LI+11~, LI+24*
XX MILES+2~, MILES+3*, MILES+4*, MILES+5, DICLKUP+1~, DWAIVER+27~, DWAIVER+42*, DWAIVER+43*, DWAIVER+44, DWAIVER+45
, DWAIVER+46
Y DICLKUP+4, DEPCTY+2, GA+10~, LI+11~, LI+17*, LI+18*, LI+19*, LI+20, LI+21*, PAUSE+3!
, PAUSE+13, YESNO+6, SELEXCEL+10
Y(0 DICLKUP+5, DICLKUP+6
ZIPCDE DEPCTY~, DEPCTY+2, DEPCTY+3!
ZTDESC DEVICE+2~, DEVICE+15*
ZTIO DEVICE+2~
ZTQUEUED DEVICE+2~
ZTRTN DEVICE+2~, DEVICE+14*
ZTSAVE DEVICE+2~
ZTSAVE("*" DEVICE+16*
ZTSK DEVICE+2~, DEVICE+18
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