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

Entry Points

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

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: !?14,$P(CLMADD,"^",2)
  • Condition for execution: $P(CLMADD,"^",2)]""
  • Line Location: SCREEN+17
Function Call: WRITE
  • Prompt: !?14,$P(CLMADD,"^",3)
  • Condition for execution: $P(CLMADD,"^",3)]""
  • Line Location: SCREEN+17
Function Call: WRITE
  • Prompt: !?14,$P(CLMADD,"^",4),$S($P(CLMADD,"^",4)]"":", "_CLMST_" "_$P(CLMADD,"^",6),1:"UNSPECIFIED")
  • Line Location: SCREEN+17
Function Call: WRITE
  • Prompt: !!?5,$$ADDCHG(DFN)
  • Line Location: SCREEN+18
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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call