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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Enrollment Application System 2 (DEP,INC)^EASECSU3  GETIENS^EASECU2  
Kernel 2 ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  ($$CJ,$$UP)^XLFSTR  
VA FileMan 1 ^DIR  

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

Package Total Caller Graph
Enrollment Application System 2 EASECCAL  EASECPC  

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

External References

Name Field # of Occurrence
^DIR PAUSE+3
DEP^EASECSU3 BLDTBL+11
INC^EASECSU3 BLDTBL+11
GETIENS^EASECU2 BLDTBL+9
$$FMADD^XLFDT ASSET+6
$$FMDIFF^XLFDT PRTVAR+11, BLDTBL+19
$$FMTE^XLFDT PRINT+9, PRINT+10, PRTVAR+3, HEADER+6, INIT+4
$$CJ^XLFSTR PRTVAR+5
$$UP^XLFSTR INIT+4

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
Routine Call
  • DIR
  • Line Location:
    • PAUSE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] BLDTBL+14, BLDTBL+15
^DGPR(408.12 - [#408.12] BLDTBL+8
^DPT - [#2] PRTVAR+6

Label References

Name Line Occurrences
$$ASSET BLDTBL+24
$$ASTSPD BLDTBL+37, ASSET+10
$$CALCCPY CALCALL+2
$$CALCMAX CALCALL+3
$$DOM BLDTBL+28, ASSET+8
$$PAUSE PRINT+41, PRINT+44, PRINT+45
$$VETMAX CALCALL+4
BLDTBL START+4
CALCALL BLDTBL+29, ASSET+9
HEADER PRINT+4, PRINT+42, PRINT+45
INIT START+3
NOTETXT PRINT+43
PRINT START+5
PRINTROW PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+25, PRINT+31, PRINT+32, PRINT+33
, PRINT+34, PRINT+35, PRINT+36, PRINT+38
PRTVAR PRINT+2
SPNDDWN PRINT+45

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGRPAY START+1~, PRINT+7, PRINT+8, BLDTBL+15*, BLDTBL+16
ALLOW BLDTBL+5~, BLDTBL+32, CALCALL+1*, ASSET+1~, ASTSPD+2, ASTSPD+3, ASTSPD+4, CALCCPY+3, CALCCPY+4
ARRY START+1~, START+3, START+4, INIT~, BLDTBL~
ARRY( PRINT+17, PRINT+30, PRINTROW+3, INIT+4*, INIT+5*, INIT+6*, BLDTBL+28, BLDTBL+30*, BLDTBL+31*, BLDTBL+32*
, BLDTBL+33*, BLDTBL+34*, BLDTBL+35*, BLDTBL+36*
CALC1 PRINT+1~, PRINT+12, PRTVAR+8*
CALC2 PRINT+1~, PRINT+13, PRTVAR+9*, PRTVAR+10*
CALCCPY BLDTBL+5~, BLDTBL+33, CALCALL+2*, CALCALL+4, ASSET+1~, VETMAX~, VETMAX+3, VETMAX+4
CPYFLG BLDTBL+4~, BLDTBL+13*, BLDTBL+16*, CALCALL+1, ASTSPD+1, CALCCPY+2, VETMAX+2
CRT PRINT+1~, PRINT+41, PRINT+42, PRINT+44, PRINT+45, PRTVAR+2*
DATE INIT~, INIT+2
DAYS BLDTBL+5~, BLDTBL+28*, BLDTBL+39, CALCALL+1, CALCALL+3, ASSET+1~, ASSET+8*, DOM+2~, DOM+4*, DOM+5
, DOM+6*, DOM+8*, DOM+9*, DOM+10, CALCMAX~, CALCMAX+2
DECINF START+1~, PRINT+7, BLDTBL+14*, BLDTBL+16
>> DFN PRTVAR+6, BLDTBL+8, BLDTBL+9
DGDC BLDTBL+3~
DGDEP BLDTBL+3~
DGDET BLDTBL+3~, BLDTBL+22
DGERR BLDTBL+3~
DGFL BLDTBL+3~
DGIN0 BLDTBL+3~
DGIN1 BLDTBL+3~
DGIN2 BLDTBL+3~
DGINI BLDTBL+3~, BLDTBL+9, BLDTBL+10
DGINT BLDTBL+3~, BLDTBL+22
DGINTF BLDTBL+4~
DGIRI BLDTBL+3~, BLDTBL+9, BLDTBL+10
>> DGMTDT PRINT+9, BLDTBL+9
>> DGMTI BLDTBL+14, BLDTBL+15
DGNC BLDTBL+4~
DGND BLDTBL+4~
DGNWT BLDTBL+3~, BLDTBL+24
DGNWTF BLDTBL+4~
DGPRI BLDTBL+4~, BLDTBL+8*, BLDTBL+9
DGSP START+1~, PRINT+5, PRINT+20, PRINT+33, PRTVAR+9, BLDTBL+23, BLDTBL+41, ASTSPD+3
DGVINI BLDTBL+4~, BLDTBL+10*
DGVIR0 BLDTBL+4~, BLDTBL+17
DGVIRI BLDTBL+4~, BLDTBL+10*
DGVPRI BLDTBL+4~
DIR PAUSE+1~
DIR(0 PAUSE+2*
DIRUT PAUSE+1~
DOB PRINT+1~, PRTVAR+6*, HEADER+6
DONE ASSET+1~, ASSET+2*, ASSET+7, ASSET+10*
DT PRTVAR+3
DTOUT PAUSE+1~
DUOUT PAUSE+1~
>> EASADM PRINT+10, PRTVAR+11, BLDTBL+19, ASSET+6
>> EASRDT START+3, PRTVAR+11, BLDTBL+19
>> EASRPT BLDTBL+12
EIDX PRINT+1~, PRINT+15*, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+25, PRINT+28*
, PRINT+31, PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+36, PRINT+38, PRINTROW~, PRINTROW+3
ERR START+1~, START+4, BLDTBL+7*, BLDTBL+8*, BLDTBL+9*
HDR PRINT+1~, PRTVAR+5*, HEADER+4
IDX INIT+1~, INIT+3*, INIT+4, INIT+5, INIT+6, BLDTBL+4~, BLDTBL+27*, BLDTBL+28, BLDTBL+30, BLDTBL+31
, BLDTBL+32, BLDTBL+33, BLDTBL+34, BLDTBL+35, BLDTBL+36
IO PRINT+3
IOF HEADER+2
IOST PRTVAR+2
IPDR BLDTBL+5~, BLDTBL+18*, CALCMAX+2
IPRPT START+1~, PRINT+11, PRINT+12, PRINT+13, PRINT+18, PRINT+20, PRINT+31, PRINT+33, PRINT+45, PRTVAR+5
, BLDTBL+12*, BLDTBL+19, CALCMAX+2
J ASSET+1~, ASSET+7*
LINE PRINT+1~, PRINT+24, PRINT+26, PRINT+37, PRINT+39, PRTVAR+4*
LOS PRINT+1~, PRINT+20, PRTVAR+11*, BLDTBL+5~, BLDTBL+19*, BLDTBL+21, BLDTBL+38, BLDTBL+39*, BLDTBL+40, ASSET+4
LSEP START+1~, PRINT+5, BLDTBL+17*
MAXCPY BLDTBL+5~, BLDTBL+34, CALCALL+3*, CALCALL+4, ASSET+1~, VETMAX~, VETMAX+2, VETMAX+4, VETMAX+5
>> MAXRT BLDTBL+18
MN DOM+2~, DOM+3*, DOM+4, DOM+5
MNTH PRINT+1~, PRINT+17*, PRINT+30*, PRINTROW+1~, PRINTROW+3*
MNYR INIT+1~, INIT+2*, INIT+4, INIT+6, INIT+7*, INIT+8*, ASSET+1~, ASSET+6*, ASSET+8, ASSET+11*
, DOM~, DOM+3, DOM+7
NAME PRINT+1~, PRTVAR+6*, HEADER+6
NODE PRINTROW~, PRINTROW+3
NUM ASSET+1~, ASSET+4*, ASSET+7
OPDR BLDTBL+5~, BLDTBL+18*, CALCMAX+2
OVR180 BLDTBL+5~, BLDTBL+21*, BLDTBL+23, BLDTBL+24, BLDTBL+36, BLDTBL+37, BLDTBL+40*, BLDTBL+41, CALCCPY+3
PAGE PRINT+1~, PRTVAR+3*, HEADER+1*, HEADER+3
PAT0 PRTVAR+1~, PRTVAR+6*, PRTVAR+7
RESP PAUSE~, PAUSE+4*, PAUSE+5
RPTDT PRINT+1~, PRTVAR+3*, HEADER+3
SIDX PRINT+1~, PRINT+15*, PRINT+18, PRINT+19, PRINT+20, PRINT+21, PRINT+22, PRINT+23, PRINT+25, PRINT+28*
, PRINT+31, PRINT+32, PRINT+33, PRINT+34, PRINT+35, PRINT+36, PRINT+38, PRINTROW~, PRINTROW+3
SRIC START+1~, PRINT+6, PRINT+20, PRINT+33, PRTVAR+9, BLDTBL+17*, BLDTBL+23, BLDTBL+41, CALCALL+1, ASTSPD+3
SSN PRINT+1~, PRTVAR+7*, HEADER+6
TAST BLDTBL+5~, BLDTBL+24*, BLDTBL+36, BLDTBL+37*, ASSET+10*, ASSET+12, ASTSPD+1, ASTSPD+3*, ASTSPD+4*, ASTSPD+5*
, ASTSPD+6, CALCCPY+3
TEXP BLDTBL+5~, BLDTBL+22*, BLDTBL+23*, BLDTBL+31, BLDTBL+41*, ASTSPD+2, ASTSPD+3, CALCCPY+3, CALCCPY+4
TEXT PRINTROW~, PRINTROW+2
TINC BLDTBL+5~, BLDTBL+22*, BLDTBL+30, ASTSPD+2, ASTSPD+3, ASTSPD+4, CALCCPY+3, CALCCPY+4
U PAUSE+1~, BLDTBL+17, BLDTBL+18
VETMAX BLDTBL+5~, BLDTBL+35, CALCALL+4*, ASSET+1~, ASTSPD+2, ASTSPD+3, ASTSPD+4
X PAUSE+1~
Y PAUSE+1~, PAUSE+4
YR DOM+2~, DOM+7*, DOM+8
>> ZTREQ START+2*
>> ZTSK START+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All