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

Package: Beneficiary Travel

Routine: DGBT1


Information

DGBT1 ;ALB/SCK/BLD - BENEFICIARY TRAVEL DISPLAY SCREEN 1;10/31/05

Source Information

Source file <DGBT1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Beneficiary Travel 4 OPT^DGBTRDV  $$WAIV^DGBTRDVW  ($$ABP,$$LI,$$PAUSE)^DGBTUTL  $$MTCHK^DGBTUTL1  
Registration 2 $$LST^DGMTCOU1  PID^VADPT6  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Kernel 1 ($$FMADD,$$FMDIFF,$$FMTH)^XLFDT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Beneficiary Travel 6 DGBTALTI  DGBTE  DGBTR  DGBTRDVW  DGBTUTL  DGBTUTL1  

Entry Points

Name Comments DBIA/ICR reference
LSTMTDT(DFN) ;this will return the last means test date
QUIT ;
MONTOT(TOTRIPS,ONEWAY,RT,MONTHDED,WAIVER,WTYPE,TTRIPS,TDED) ;
PAUSE
LSTMTRIN(DFN,DGBTDTI) ;this will return whether the patient refused to give income
YEAR(DT1) ; DT2 will be a year after DT1 ; /*Tagline added DGBT*1.0*20 RFE */
WVELG() ; Eligibility for waiver being PENSION DGBT*1.0*20 RFE
DAYSTEST(DFN,DAYFLG,RXDAYS,RXCPST,LOWINC,NOTEST) ;determines whether or not a valid MT in last 365 days.
SCREEN ; clear screen and write headers
TESTDATE() ;
WVREQ(INEX) ; Manual deductible waiver request DGBT*1.0*20 RFE
WVEXP() ; Waiver expiration date ; /* Tagline added DGBT*1.0*20 RFE */
ADDCHG(DFN) ;this will print the permanent Address last changed date or the Temporary Address last change date
MONTDISP(TOTRIPS,ONEWAY,RT,MONTHDED,WAIVER,WTYPE) ;
INCOME ; income and eligibility information
SC ; service connected status/information
DTFORMI(TESTDATE) ;
SETVAR
DTFORM(INTDT) ;

External References

Name Field # of Occurrence
OPT^DGBTRDV MONTOT+29
$$WAIV^DGBTRDVW MONTOT+7
$$ABP^DGBTUTL INCOME+14
$$LI^DGBTUTL MONTOT+25, DAYSTEST+11
$$PAUSE^DGBTUTL MONTOT+29, MONTOT+30
$$MTCHK^DGBTUTL1 INCOME+11
$$LST^DGMTCOU1 DAYSTEST+3, WVEXP+16, TESTDATE+4, LSTMTRIN+3
$$GET1^DIQ INCOME+17, ADDCHG+3, ADDCHG+5, ADDCHG+6, WVEXP+15, WVREQ+5, WVREQ+6, WVREQ+10, LSTMTRIN+4
^DIR PAUSE+1
PID^VADPT6 SCREEN+7
$$FMADD^XLFDT WVEXP+16
$$FMDIFF^XLFDT DAYSTEST+6
$$FMTH^XLFDT YEAR+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: !?18,"Beneficiary Travel Claim Information <Screen 1>"
  • Line Location: SCREEN+5
Function Call: WRITE
  • Prompt: !!?2,"Claim Date: ",DGBTDTE
  • Line Location: SCREEN+6
Function Call: WRITE
  • Prompt: !!?8,"Name: ",VADM(1),?40,"PT ID: ",VA("PID"),?64,"DOB: ",$P(VADM(3),"^",2)
  • Line Location: SCREEN+7
Function Call: WRITE
  • Prompt: !!?5,"Address: ",VAPA(1)
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: !?14,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: !?14,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: !?14,VAPA(4),$S(VAPA(4)]"":", "_$P(VAPA(5),"^",2)_" "_$P(VAPA(11),U,2),1:"UNSPECIFIED")
  • Line Location: SCREEN+8
Function Call: WRITE
  • Prompt: !?14,$P(CLMADD,"^",2)
  • Condition for execution: $P(CLMADD,"^",2)]""
  • Line Location: SCREEN+13
Function Call: WRITE
  • Prompt: !?14,$P(CLMADD,"^",3)
  • Condition for execution: $P(CLMADD,"^",3)]""
  • Line Location: SCREEN+13
Function Call: WRITE
  • Prompt: !?14,$P(CLMADD,"^",4),$S($P(CLMADD,"^",4)]"":", "_CLMST_" "_$P(CLMADD,"^",6),1:"UNSPECIFIED")
  • Line Location: SCREEN+13
Function Call: WRITE
  • Prompt: !!?5,$$ADDCHG(DFN)
  • Line Location: SCREEN+14
Function Call: WRITE
  • Prompt: !!," Eligibility: ",$P(DGBTELG,"^",2)
  • Line Location: SETVAR+5
Function Call: WRITE
  • Prompt: ?45,"SC%: ",$P(DGBTCSC,"^",2)
  • Condition for execution: DGBTCSC
  • Line Location: SETVAR+5
Function Call: WRITE
  • Prompt: !!,"Disabilities:"
  • Line Location: SC+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SC+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SC+9
Function Call: WRITE
  • Prompt: ?16
  • Line Location: SC+10
Function Call: WRITE
  • Prompt: I2,!
  • Line Location: SC+10
Function Call: WRITE
  • Prompt: !?2,"BT Alert: ELIGIBLE FOR SC APPOINTMENTS ONLY"
  • Line Location: INCOME+18
Function Call: WRITE
  • Prompt: !!?20,"MEANS TEST ",$P(DGBTMTS,"^",2)
  • Line Location: INCOME+29
Function Call: WRITE
  • Prompt: *7,*7,!!?8,"* * * NOTE * * PATIENT HAS BEEN CERTIFIED INELIGIBLE BASED ON INCOME"
  • Line Location: INCOME+32
Function Call: WRITE
  • Prompt: !!?5,DGBTINFL
  • Line Location: INCOME+33
Function Call: WRITE
  • Prompt: !,?50,$$WVEXP
  • Line Location: INCOME+34
Function Call: WRITE
  • Prompt: !,?50,$$WVEXP
  • Line Location: INCOME+35
Function Call: WRITE
  • Prompt: !,?52,"WAIVER EXPIRES: ",$P(DGBTRET(0),"^",7)
  • Line Location: INCOME+36
Function Call: WRITE
  • Prompt: !
  • Line Location: INCOME+37
Function Call: WRITE
  • Prompt: ?40,"MT Status: ","EXPIRED"
  • Line Location: INCOME+43
Function Call: WRITE
  • Prompt: !,?50,$$WVEXP
  • Line Location: INCOME+45
Function Call: WRITE
  • Prompt: !,?50,$$WVEXP
  • Line Location: INCOME+46
Function Call: WRITE
  • Prompt: !,?52,"WAIVER EXPIRES: ",$P(DGBTRET(0),"^",7)
  • Line Location: INCOME+47
Function Call: WRITE
  • Prompt: !
  • Line Location: INCOME+48
Function Call: WRITE
  • Prompt: !!?2,"Income: ",$P(DGBTINC,U),DGBTDTY,?40,"Source of Income: ","COPAY TEST"
  • Line Location: INCOME+54
Function Call: WRITE
  • Prompt: ?40,"MT Status: ","NOT APPLICABLE"
  • Line Location: INCOME+56
Function Call: WRITE
  • Prompt: ?50,$$WVEXP
  • Line Location: INCOME+58
Function Call: WRITE
  • Prompt: ?50,$$WVEXP
  • Line Location: INCOME+59
Function Call: WRITE
  • Prompt: ?52,"WAIVER EXPIRES: ",$P(DGBTRET(0),"^",7)
  • Line Location: INCOME+60
Function Call: WRITE
  • Prompt: !
  • Line Location: INCOME+61
Function Call: WRITE
  • Prompt: $$PAUSE^DGBTUTL(0)
  • Line Location: MONTOT+29
Function Call: WRITE
  • Prompt: $$PAUSE^DGBTUTL(0)
  • Line Location: MONTOT+30
Function Call: WRITE
  • Prompt: !?2,"TOTAL TRIPS THIS MONTH: ",$G(ONEWAY)_" ONE WAY, ",$G(RT)_" RD TRIP"
  • Line Location: MONTDISP+2
Function Call: WRITE
  • Prompt: ?52,"WAIVER GRANTED: ",$G(WAIVER)
  • Line Location: MONTDISP+3
Function Call: WRITE
  • Prompt: !?2,"TOTAL DEDUCTIBLE THIS MONTH: ",MONTHDED
  • Line Location: MONTDISP+4
Routine Call
  • DIR
  • Line Location:
    • PAUSE+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGBT(392.7 - [#392.7] GET1^DIQ
^DGMT(408.31 - [#408.31] GET1^DIQ
^DG(43 - [#43] GET1^DIQ
^DIC(8.1 - [#8.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INCOME+20
^DGBT(392 - [#392] SCREEN+8, SCREEN+9, SCREEN+11
^DGBT(392.7 - [#392.7] WVEXP+4, WVREQ+1, WVREQ+4, WVREQ+8, WVREQ+11
^DGMT(408.31 - [#408.31] LSTMTDT+3, LSTMTDT+4
^DIC(31 - [#31] SC+4
^DIC(5 - [#5] SCREEN+12
^DPT - [#2] SC+3, SC+9

Label References

Name Line Occurrences
$$ADDCHG SCREEN+14
$$DAYSTEST INCOME+8
$$DTFORM TESTDATE+1, TESTDATE+2, TESTDATE+6, TESTDATE+8, WVREQ+18
$$DTFORMI WVEXP+8
$$LSTMTDT DAYSTEST+5
$$LSTMTRIN MONTOT+17
$$TESTDATE WVEXP+7
$$WVELG WVEXP+2
$$WVEXP INCOME+34, INCOME+35, INCOME+45, INCOME+46, INCOME+58, INCOME+59
$$WVREQ WVEXP+4, WVEXP+11
MONTDISP QUIT+2
MONTOT SCREEN+2
PAUSE SC+5
QUIT INCOME+23, INCOME+40

Naked Globals

Name Field # of Occurrence
^( SC+4
^(0 SC+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BUSEXP INCOME+2~, INCOME+14*, INCOME+19, INCOME+20
>> CHZFLG SCREEN+8, SCREEN+9, SETVAR+1
CLMADD SCREEN+10~, SCREEN+11*, SCREEN+12, SCREEN+13
CLMST SCREEN+10~, SCREEN+12*, SCREEN+13
DATE ADDCHG+2~, ADDCHG+5*, ADDCHG+6*, ADDCHG+8
DAYFLG INCOME+6*, INCOME+8, INCOME+12*, INCOME+23, INCOME+40, INCOME+50, DAYSTEST~, DAYSTEST+2*, DAYSTEST+7*, DAYSTEST+13
, TESTDATE+5
DFN SCREEN+14, SC+3, SC+9, INCOME+8, INCOME+11, INCOME+14, MONTOT+7, MONTOT+17, MONTOT+25, MONTOT+29
, DAYSTEST~, DAYSTEST+3, DAYSTEST+5, DAYSTEST+11, ADDCHG~, ADDCHG+3, ADDCHG+5, ADDCHG+6, WVEXP+4, WVEXP+16
, TESTDATE+4, WVREQ+1, WVREQ+4, LSTMTDT~, LSTMTDT+3, LSTMTRIN~, LSTMTRIN+3
>> DGBTA WVREQ+8, WVREQ+9, WVREQ+10, WVREQ+14
>> DGBTCA INCOME+31, INCOME+33, INCOME+44
>> DGBTCD INCOME+31, INCOME+44
>> DGBTCE INCOME+31, INCOME+32, INCOME+44
>> DGBTCSC SETVAR+1*, SETVAR+2*, SETVAR+5, SC+1, SC+8
DGBTDATA INCOME+2~, DAYSTEST+1~, DAYSTEST+3*, DAYSTEST+4, DAYSTEST+8, DAYSTEST+9
DGBTDAYS INCOME+2~, DAYSTEST+1~, DAYSTEST+6*, DAYSTEST+7
>> DGBTDEP INCOME+25, INCOME+42, INCOME+55, MONTOT+25, DAYSTEST+11
>> DGBTDT SCREEN+8, SCREEN+9, SCREEN+11, INCOME+11, DAYSTEST+3
>> DGBTDTE SCREEN+6
DGBTDTI MONTOT+7, MONTOT+17, MONTOT+25, MONTOT+29, DAYSTEST+6, DAYSTEST+11, WVEXP+9, WVEXP+16, TESTDATE+4, TESTDATE+6
, TESTDATE+7, WVREQ+17, LSTMTRIN~, LSTMTRIN+3
>> DGBTDTY INCOME+24, INCOME+51, INCOME+52, INCOME+53, INCOME+54
DGBTDW WVREQ+2~, WVREQ+3*, WVREQ+4, WVREQ+7*, WVREQ+8*, WVREQ+11*, WVREQ+12, WVREQ+13, WVREQ+14
>> DGBTDYFL SETVAR+3, INCOME+12*, MONTOT+18
>> DGBTELG SETVAR+1*, SETVAR+2, SETVAR+3, SETVAR+4*, SETVAR+5
DGBTIFL INCOME+2~, INCOME+5*, INCOME+24
>> DGBTINC SETVAR+4, INCOME+5, INCOME+24, INCOME+33, INCOME+54, MONTOT+21, MONTOT+24, MONTOT+25, MONTOT+26
>> DGBTINCA INCOME+23, INCOME+51, INCOME+52, INCOME+53, INCOME+54, MONTOT+25, DAYSTEST+11, WVEXP+10, TESTDATE+1, TESTDATE+2
>> DGBTINFL INCOME+33*
>> DGBTMTS INCOME+27, INCOME+28, INCOME+29, INCOME+33, INCOME+43, INCOME+56
>> DGBTMTTH MONTOT+24
>> DGBTNSC MONTOT+19
DGBTOTHER SCREEN+1~, SCREEN+3*, SETVAR+8*, SETVAR+9*, SETVAR+10*, INCOME+18
>> DGBTQUIT SCREEN+2, MONTOT+27, MONTOT+29*
>> DGBTREF SETVAR+3, MONTOT+16*, MONTOT+17*, MONTOT+22, MONTOT+24
>> DGBTRET DAYSTEST+11*, DAYSTEST+12
>> DGBTRET(0 INCOME+34, INCOME+35, INCOME+36, INCOME+45, INCOME+46, INCOME+47, INCOME+58, INCOME+59, INCOME+60, MONTOT+29
>> DGBTRXTH SETVAR+4, MONTOT+22
DGBTST INCOME+2~, DAYSTEST+1~
DGMTST DAYSTEST+1~, DAYSTEST+2*, DAYSTEST+8*
DGMTSTAT DAYSTEST+1~
DGMTYPT1 DAYSTEST+1~, DAYSTEST+2*, DAYSTEST+3, DAYSTEST+8, DAYSTEST+9, WVEXP+6~, WVEXP+13, TESTDATE+3*, TESTDATE+4, TESTDATE+5*
DGNOTEST INCOME+2~, INCOME+8, DAYSTEST+13*
DGQUIT SC+2~, SC+3, SC+5, SC+6, PAUSE+1*
DGRXDATA INCOME+2~, DAYSTEST+1~
DGTSTTYP DAYSTEST+1~
DIR PAUSE+1~
DIR(0 PAUSE+1*
DT1 YEAR~, YEAR+2, YEAR+3
DT2 YEAR+1~, YEAR+2*, YEAR+4*, YEAR+5*, YEAR+6
>> ELIGTYP INCOME+17*, INCOME+18
EXPDT WVREQ+2~, WVREQ+6*, WVREQ+7, WVREQ+15, WVREQ+16, WVREQ+17, WVREQ+18
HIT WVELG+4~, WVELG+5*, WVELG+6, WVELG+7*, WVELG+9*, WVELG+10*, WVELG+11
>> I SETVAR+6*, SETVAR+7, SETVAR+8, SETVAR+9, SETVAR+10, SC+3*, SC+4, SC+9, INCOME+37*, INCOME+48*
, INCOME+61*, WVELG+5*, WVELG+6*, WVELG+7, WVELG+9, WVELG+10, WVREQ+3*, WVREQ+4*, WVREQ+5, WVREQ+6
, WVREQ+8, WVREQ+9, WVREQ+10, WVREQ+11
I1 SC+4*, QUIT+1!
I2 SC+4*, SC+10, QUIT+1!
I3 SC+1*, SC+4*, QUIT+1!
INCOM DAYSTEST+1~, DAYSTEST+2*
INCOME MONTOT+20~, MONTOT+21*, MONTOT+22
INEX WVREQ~, WVREQ+15
INTDT DTFORM~, DTFORM+1
IOF SCREEN+4, SC+5
IOSL SC+5
IOST PAUSE+1
LABL WVEXP+12~, WVEXP+13*, WVEXP+17, WVEXP+19
LOWINC INCOME+2~, INCOME+8, INCOME+18, DAYSTEST~, DAYSTEST+12*, WVEXP+11
>> LSTMTDT LSTMTDT+4*, LSTMTDT+5
MO YEAR+1~, YEAR+3*, YEAR+4, YEAR+5
MONTHDED SCREEN+1~, SCREEN+2, QUIT+2, MONTOT~, MONTOT+11*, MONTOT+27, MONTOT+33*, MONTOT+43, MONTDISP~, MONTDISP+4
>> MONTOT MONTOT+43*
MTIEN LSTMTDT+1~, LSTMTDT+2*, LSTMTDT+3*, LSTMTDT+4, LSTMTRIN+1~, LSTMTRIN+3*, LSTMTRIN+4
NOTEST INCOME+2~, DAYSTEST~
ONEWAY SCREEN+1~, SCREEN+2, QUIT+2, MONTOT~, MONTOT+8*, MONTOT+13, MONTOT+31*, MONTOT+43, MONTDISP~, MONTDISP+2
>> RDVMSG MONTOT+29, MONTOT+30
REFUSED LSTMTRIN+1~, LSTMTRIN+2*, LSTMTRIN+4*, LSTMTRIN+5
RETURN MONTOT+2~, MONTOT+3*, MONTOT+7*, MONTOT+8, MONTOT+9, MONTOT+10, MONTOT+11, MONTOT+12, MONTOT+14, MONTOT+15
, MONTOT+22*, MONTOT+24*, MONTOT+25*, MONTOT+26*, MONTOT+27, MONTOT+28*, MONTOT+31, MONTOT+32, MONTOT+33, MONTOT+34
, MONTOT+35, MONTOT+36, MONTOT+37*, MONTOT+38*, MONTOT+39*, MONTOT+40*, MONTOT+41, MONTOT+42, WVEXP+1~
RT SCREEN+1~, SCREEN+2, QUIT+2, MONTOT~, MONTOT+9*, MONTOT+13, MONTOT+32*, MONTOT+43, MONTDISP~, MONTDISP+2
RXCP INCOME+2~, INCOME+51, INCOME+52, INCOME+53, INCOME+54, DAYSTEST+10*
RXCPDATA INCOME+2~
RXCPST INCOME+2~, INCOME+8, INCOME+23, INCOME+27, INCOME+50, DAYSTEST~, DAYSTEST+2*, DAYSTEST+9*, DAYSTEST+10
RXCPTS INCOME+2~, INCOME+6*
RXDAYS INCOME+2~, INCOME+6*, INCOME+8, DAYSTEST~
TDED SCREEN+1~, SCREEN+2, MONTOT~, MONTOT+15*, MONTOT+36*, MONTOT+39, MONTOT+40, MONTOT+43
TESTDATA DAYSTEST+1~
TESTDATE INCOME+2~, DAYSTEST+5*, DAYSTEST+6, WVEXP+7*, WVEXP+8, WVEXP+10, WVEXP+19, TESTDATE+4*, TESTDATE+5*, TESTDATE+6
, TESTDATE+7, TESTDATE+8, DTFORMI~, DTFORMI+1
TESTDATEI WVEXP+6~, WVEXP+8*, WVEXP+9
TFIEN SCREEN+1~
THRESHLD DAYSTEST+1~, DAYSTEST+2*
TMPADD ADDCHG+2~, ADDCHG+3*, ADDCHG+4
TOTRIPS SCREEN+1~, SCREEN+2, QUIT+2, MONTOT~, MONTOT+13*, MONTOT+27, MONTOT+34*, MONTOT+37, MONTOT+43, MONTDISP~
TTRIPS SCREEN+1~, SCREEN+2, MONTOT~, MONTOT+14*, MONTOT+35*, MONTOT+38, MONTOT+40, MONTOT+43
U SCREEN+8, SETVAR+3, SETVAR+4, INCOME+5, INCOME+24, INCOME+27, INCOME+33, INCOME+54, MONTOT+14, MONTOT+15
, MONTOT+21, MONTOT+22, MONTOT+24, MONTOT+25, MONTOT+35, MONTOT+36, MONTOT+43, WVEXP+16, TESTDATE+1, TESTDATE+2
, TESTDATE+4, WVELG+8, WVREQ+14
>> VA("PID" SCREEN+7
>> VADM(1 SCREEN+7
>> VADM(3 SCREEN+7
>> VAEL(1 SETVAR+1, SETVAR+6, SETVAR+7, SETVAR+8, SETVAR+9, SETVAR+10, INCOME+18, WVELG+1, WVELG+2, WVELG+3
, WVELG+6, WVELG+7, WVELG+9, WVELG+10
>> VAEL(3 SETVAR+1, INCOME+18, MONTOT+24, WVELG+8
>> VAPA(1 SCREEN+8
>> VAPA(11 SCREEN+8
>> VAPA(2 SCREEN+8
>> VAPA(3 SCREEN+8
>> VAPA(4 SCREEN+8
>> VAPA(5 SCREEN+8
VFADT WVEXP+1~, WVEXP+15*, WVEXP+17
VFAMTDT WVEXP+1~, WVEXP+16*
VFAMTDTP WVEXP+1~, WVEXP+16*, WVEXP+17
WAIVER SCREEN+1~, SCREEN+2, QUIT+2, MONTOT~, MONTOT+10*, MONTOT+18, MONTOT+22*, MONTOT+24*, MONTOT+25*, MONTOT+41*
, MONTOT+42*, MONTOT+43, MONTDISP~, MONTDISP+3
WTYPE SCREEN+1~, SCREEN+2, QUIT+2, MONTOT~, MONTOT+12*, MONTDISP~
WVREQEXP WVEXP+3~, WVEXP+4*, WVEXP+5, TESTDATE+1, TESTDATE+6
X DAYSTEST+1~
>> Y INCOME+20*, INCOME+21, MONTOT+29, PAUSE+1
YR YEAR+1~, YEAR+3*, YEAR+4, YEAR+5
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