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
Print Page as PDF
Routine: EASECPC1

Package: Enrollment Application System

Routine: EASECPC1


Information

EASECPC1 ;ALB/LBD,CKN - LTC CoPayment Report continuation ; 12/10/12 5:29pm

Source Information

Source file <EASECPC1.m>

Entry Points

Name Comments DBIA/ICR reference
START ; Generate Report
PRINT ; Print the Report
PRINTROW(TEXT,SIDX,EIDX,NODE) ; Print the Rows
PRTVAR ; Set up variables needed to print report
HEADER ; Print the header
PAUSE(RESP) ; Prompt user for next page or quit
INIT(DATE,ARRY) ; Initialize the Month/Year Table
BLDTBL(ARRY) ; Get the veteran's financial data, do the copay calculations,
; build the data table
CALCALL ; Calculate the allowance and all the copayment amounts
ASSET() ; Initialize asset amount by applying spend-down
ASTSPD() ;Asset Spend down for 180+ days
CALCCPY() ; Calculate the Co-Pay Amount
DOM(MNYR) ; Days in Month
; Returns: number of days in a month
CALCMAX(DAYS) ; Calculate the Maximum Co-Pay Amount
VETMAX(CALCCPY,MAXCPY) ; Calculate the Veteran Maximum Co-Pay Amount
NOTETXT ; Write the Note message
SPNDDWN ; Text of message to explain the asset spend down

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$S(DGSP:"MARRIED",LSEP:"LEGALLY SEPARATED",1:"SINGLE")
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"*** DECLINED TO PROVIDE INCOME INFORMATION -- AGREED TO PAY COPAYMENTS ***"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,"*** VETERAN IS INELIGIBLE FOR LTC SERVICES -- REFUSED TO SIGN 10-10EC ***"
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"LTC COPAY TEST DATE: ",$$FMTE^XLFDT(DGMTDT)
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!!,"LTC COPAYMENT CALCULATION"_$S(IPRPT:"S:",1:":")
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "FOR DAYS 1-180 "
  • Condition for execution: IPRPT
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: CALC1
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,"FOR DAYS 181+ "
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: CALC2
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !!," "
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: $J($P(ARRY(MNTH),"^"),11)
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: !!," "
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: $J($P(ARRY(MNTH),"^"),11)
  • Line Location: PRINT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRINT+37
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: !,TEXT
  • Line Location: PRINTROW+2
Function Call: WRITE
  • Prompt: $J($S($P(ARRY(MNTH),"^",NODE)[".":$P($P(ARRY(MNTH),"^",NODE),"."),1:$P(ARRY(MNTH),"^",NODE)),11)
  • Line Location: PRINTROW+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: RPTDT,?71,"Page: ",$J(PAGE,3)
  • Line Location: HEADER+3
Function Call: WRITE
  • Prompt: !!,HDR
  • Line Location: HEADER+4
Function Call: WRITE
  • Prompt: !!?6,"**This report contains projected estimates based on existing data**"
  • Line Location: HEADER+5
Function Call: WRITE
  • Prompt: !!,NAME,?35,SSN,?62,"DOB: ",$$FMTE^XLFDT(DOB)
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !!,"IMPORTANT NOTICE: The copayment amounts shown in this report are"
  • Line Location: NOTETXT+1
Function Call: WRITE
  • Prompt: " estimates",!,"based on calculations of the copayment amount for "
  • Line Location: NOTETXT+2
Function Call: WRITE
  • Prompt: "an entire month. The",!,"copayment amounts will be adjusted to "
  • Line Location: NOTETXT+3
Function Call: WRITE
  • Prompt: "reflect the actual start date of LTC",!,"services and the "
  • Line Location: NOTETXT+4
Function Call: WRITE
  • Prompt: "copayment exemption for the first 21 days of service. The VET",!
  • Line Location: NOTETXT+5
Function Call: WRITE
  • Prompt: "COPAY amount is based on the assumption that the veteran "
  • Line Location: NOTETXT+6
Function Call: WRITE
  • Prompt: "will be responsible",!,"to pay the lesser of EITHER the calculated"
  • Line Location: NOTETXT+7
Function Call: WRITE
  • Prompt: " copayment (CALC COPAY) OR the",!,"maximum copayment (MAX COPAY). "
  • Line Location: NOTETXT+8
Function Call: WRITE
  • Prompt: "In the event that the calculated copayment",!,"(CALC COPAY) is a "
  • Line Location: NOTETXT+9
Function Call: WRITE
  • Prompt: "negative figure, the veteran copayment (VET COPAY)",!
  • Line Location: NOTETXT+10
Function Call: WRITE
  • Prompt: "will be adjusted to zero (0). If the veteran declined to provide"
  • Line Location: NOTETXT+11
Function Call: WRITE
  • Prompt: " income",!,"information, the veteran will be obligated to pay the"
  • Line Location: NOTETXT+12
Function Call: WRITE
  • Prompt: " maximum copayment."
  • Line Location: NOTETXT+13
Function Call: WRITE
  • Prompt: !!,"EXPLANATION OF ASSET SPEND DOWN CALCULATION:"
  • Line Location: SPNDDWN+1
Function Call: WRITE
  • Prompt: !,"============================================"
  • Line Location: SPNDDWN+2
Function Call: WRITE
  • Prompt: !,"The veteran's assets are included in the calculation of copayments"
  • Line Location: SPNDDWN+3
Function Call: WRITE
  • Prompt: !,"after 180 days of institutional LTC services. The assets then may"
  • Line Location: SPNDDWN+4
Function Call: WRITE
  • Prompt: !,"be reduced each month according to the following formula:"
  • Line Location: SPNDDWN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SPNDDWN+6
Function Call: WRITE
  • Prompt: !,"Single Veteran:"
  • Line Location: SPNDDWN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SPNDDWN+8
Function Call: WRITE
  • Prompt: !," TOTAL ASSETS-(VET COPAY-(INCOME-ALLOWANCE))"
  • Line Location: SPNDDWN+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SPNDDWN+10
Function Call: WRITE
  • Prompt: !,"Married Veteran (spouse residing in the community):"
  • Line Location: SPNDDWN+11
Function Call: WRITE
  • Prompt: !
  • Line Location: SPNDDWN+12
Function Call: WRITE
  • Prompt: !," TOTAL ASSETS-(VET COPAY-(INCOME-EXPENSES-ALLOWANCE))"
  • Line Location: SPNDDWN+13
Function Call: WRITE
  • Prompt: !
  • Line Location: SPNDDWN+14
Function Call: WRITE
  • Prompt: !,"In other words, the assets will be reduced by the amount of the"
  • Line Location: SPNDDWN+15
Function Call: WRITE
  • Prompt: !,"veteran's copayment that is not covered by the veteran's income "
  • Line Location: SPNDDWN+16
Function Call: WRITE
  • Prompt: !,"after all expenses and allowances are subtracted. If the amount"
  • Line Location: SPNDDWN+17
Function Call: WRITE
  • Prompt: !,"of the veteran's income after all expenses and allowances are"
  • Line Location: SPNDDWN+18
Function Call: WRITE
  • Prompt: !,"subtracted is greater than the veteran's copayment then the assets"
  • Line Location: SPNDDWN+19
Function Call: WRITE
  • Prompt: !,"will not be reduced."
  • Line Location: SPNDDWN+20
Function Call: WRITE
  • Prompt: !
  • Line Location: SPNDDWN+21
Info |  Source |  Entry Points |  Interaction Calls