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

Package: Enrollment Application System

Routine: EASECSCC


Information

EASECSCC ;ALB/LBD - LTC Co-Pay Test Screen Completion;13 AUG 2001 ; 3/20/03 2:24pm

Source Information

Source file <EASECSCC.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Enrollment Application System 5 $$QUE^EASEC10E  INIT^EASECDEP  $$GETLTC4^EASECMT  (DEP,INC)^EASECSU3  GETIENS^EASECU2  
Registration 3 $$UPD^DGENDBS  $$YN^DGMTSCU1  GETREL^DGMTU11  
VA FileMan 2 ^DIE  ^DIR  
Integrated Billing 1 $$THRES^IBARXEU1  
Kernel 1 $$NOW^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: 3

Package Total Caller Graph
Enrollment Application System 3 EASECA  EASECE  EASECSC  

Entry Points

Name Comments DBIA/ICR reference
EN
STA ;Ask test status
REFQ
COM ;Check if user wants to complete the LTC co-pay test
UPD
CHK ;Check if LTC copay test can be completed
; For LTC III (EAS*1*34) removed check if expenses greater than income
Q
PRT ;Print Extended Care Services test (1010EC)
PRTQ
EXMPT(DFN,DGMTI,EX) ; Veteran is exempt from LTC co-payments
; Complete LTC co-pay test in Annual Means Test file (#408.31)
; Input -- DFN Patient IEN
; DGMTI Annual Means Test IEN
; EX Copay exemption code
; 1 = SC compensable disability
; 2 = NSC, single, receiving VA pension (no A&A, HB)
; or
; Income (last year) is below single pension threshold
; 12 = Income (current year) is below single pension threshold
REF ;Check if patient declines to provide income information
AGREE ;Ask if vet agrees to pay co-payment

External References

Name Field # of Occurrence
$$UPD^DGENDBS EXMPT+22
$$YN^DGMTSCU1 REF+3, AGREE+3
GETREL^DGMTU11 CHK+3
^DIE UPD
^DIR COM+3, REF+7, STA+10, STA+20, AGREE+11, PRT+3
$$QUE^EASEC10E PRT+4
INIT^EASECDEP CHK+14
$$GETLTC4^EASECMT EXMPT+20
DEP^EASECSU3 EN+2
INC^EASECSU3 EN+2
GETIENS^EASECU2 CHK+16
$$THRES^IBARXEU1 EN+5, STA+6
$$NOW^XLFDT EXMPT+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?3,*7,"LTC copay test cannot be completed."
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?3,"...The LTC copay test has been completed with a status of ",DGSTA,"..."
  • Line Location: UPD+1
Function Call: WRITE
  • Prompt: !?3,"Marital section must be completed."
  • Line Location: CHK+5
Function Call: WRITE
  • Prompt: !?3,"Married is 'YES'. An active spouse for this LTC copay test does not exist."
  • Line Location: CHK+7
Function Call: WRITE
  • Prompt: !?3,"An active spouse exists for this LTC copay test. Married should be 'YES'."
  • Line Location: CHK+8
Function Call: WRITE
  • Prompt: !?3,"Dependent Children section must be completed."
  • Line Location: CHK+9
Function Call: WRITE
  • Prompt: !?3,"Dependent Children is 'YES'. No active children exist."
  • Line Location: CHK+10
Function Call: WRITE
  • Prompt: !?3,"Active children exist. Dependent Children should be 'YES'."
  • Line Location: CHK+11
Function Call: WRITE
  • Prompt: !?3,"Patient has more than one spouse for this LTC copay test."
  • Line Location: CHK+18
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+12
Function Call: WRITE
  • Prompt: "="
  • Line Location: EXMPT+12
Function Call: WRITE
  • Prompt: !!,?10,"Veteran is EXEMPT from Long Term Care copayments."
  • Line Location: EXMPT+13
Function Call: WRITE
  • Prompt: !,?10,"Reason for Exemption: ",$P($G(^EAS(714.1,EX,0)),U)
  • Line Location: EXMPT+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+15
Function Call: WRITE
  • Prompt: "="
  • Line Location: EXMPT+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+16
Function Call: WRITE
  • Prompt: !,"ERROR: COULD NOT UPDATE LTC COPAY TEST",!!
  • Line Location: EXMPT+23
Routine Call
  • DIE
  • Line Location:
    • UPD
Routine Call
  • DIR
  • Line Location:
    • COM+3
    • REF+7
    • STA+10
    • STA+20
    • AGREE+11
    • PRT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGMT(408.31 - [#408.31] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(408.32 - [#408.32] STA+4, EXMPT+17
^DGMT(408.22 - [#408.22] CHK+17
^DGMT(408.31 - [#408.31] REF+3, STA+2, STA+3, AGREE+3
^EAS(714.1 - [#714.1] STA+14, EXMPT+14

Label References

Name Line Occurrences
AGREE EN+17
CHK EN+9
EXMPT EN+6
PRT EN+7, UPD+2
PRTQ PRT+3
Q EN+5, EN+9, EN+11, EN+15, EN+17, UPD
REF EN+12
REFQ REF+7
STA EN+15, STA+20

Naked Globals

Name Field # of Occurrence
^(0 REF+3, AGREE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACT CHK+13~
CNT CHK+13~, CHK+14*, CHK+15*, CHK+16
DA UPD*!
DATA EXMPT+11~, EXMPT+22
DATA( EXMPT+17*, EXMPT+18*, EXMPT+19*, EXMPT+20*, EXMPT+21*
DFN EN+6, CHK+3, CHK+16, PRT+4, EXMPT~, EXMPT+20
DGA CHK+2~
DGAGR EN~, AGREE+12*
DGCAT EN~
DGCOMF EN~, EN+2*
DGCOPS EN~
DGCOST EN~
DGD CHK+2~, CHK+4*, CHK+9, CHK+10, CHK+11
DGDC EN~
DGDEP CHK+2~, CHK+13~
DGDEP( CHK+15, CHK+16
DGDET EN~, EXMPT+19
>> DGEFLG STA+18
>> DGERR EN+1*, EN+9, UPD*, CHK+5*, CHK+7*, CHK+8*, CHK+9*, CHK+10*, CHK+11*, CHK+12
, CHK+15, CHK+18*
DGFIN UPD, Q!
DGIN0 EN~
DGIN1 EN~
DGIN2 EN~
DGINCP CHK+13~, CHK+17*
DGINT EN~, EN+5, STA+6, EXMPT+19
DGINTF EN~, EN+11
>> DGIRI CHK+17
DGL CHK+2~, CHK+4*, CHK+7
DGM CHK+2~, CHK+4*, CHK+5, CHK+7, CHK+8
>> DGMTDT EN+5, CHK+3, CHK+16, STA+6
DGMTI EN+6, UPD, REF+3, CHK+3, STA+2, STA+3, AGREE+3, PRT+4, EXMPT~, EXMPT+10
, EXMPT+22
DGMTS EN~, STA+2*, STA+4, STA+11*
DGNC EN~
DGND EN~, EXMPT+20
>> DGNSTA STA+7
DGNWT EN~, EXMPT+19
DGNWTF EN~, EN+11
DGRE EN~, STA+3*, STA+6, STA+14, STA+22*
DGREF EN+13, Q!, REF+8*, EXMPT+21
DGREF1 EN~, EN+11*
DGREL CHK+2~
DGREL("C" CHK+10, CHK+11
DGREL("S" CHK+7, CHK+8
DGSP EN~
DGSTA EN~, EN+13*, EN+17, UPD+1, STA+4*, STA+5*, STA+6*, STA+7*, STA+8, STA+11*
DGTHA EN~
DGTHB EN~
DGTYC EN~
DGVIR0 EN~, CHK+4
DIE UPD*!
DIE("NO^" UPD*
DIR COM+1~, REF+1~, REF+7!, STA+1~, STA+10!, STA+20!, AGREE+1~, AGREE+11!, PRT+1~
DIR("?" REF+5*, REF+6*, AGREE+5*, AGREE+6*, AGREE+7*, AGREE+8*, AGREE+9*, AGREE+10*
DIR("A" COM+2*, REF+2*, STA+8*, STA+13*, AGREE+2*, PRT+2*
DIR("B" COM+3*, REF+3*, REF+4*, STA+8*, STA+14*, AGREE+3*, AGREE+4*, PRT+3*
DIR("S" STA+9*, STA+19*
DIR(0 COM+3*, REF+7*, STA+9*, STA+20*, AGREE+11*, PRT+3*
DR UPD*!
DTOUT EN+11, EN+15, EN+17, Q!, REF+7, STA+10, STA+20, AGREE+11, PRT+3
DUOUT EN+11, EN+15, EN+17, Q!, REF+7, STA+10, STA+20, AGREE+11, PRT+3
DUZ EXMPT+17
EX EXMPT~, EXMPT+10, EXMPT+14, EXMPT+17
FLAG CHK+13~, CHK+17*, CHK+18
I CHK+2~, EXMPT+11~, EXMPT+12*, EXMPT+15*
SCRN STA+1~, STA+18*, STA+19
U CHK+15, CHK+16, STA+2, STA+3, STA+4, STA+11, STA+14, AGREE+3, EXMPT+14, EXMPT+20
X PRT+1~
Y Q!, REF+1~, REF+8, STA+1~, STA+10, STA+11, STA+20, STA+22, AGREE+1~, AGREE+12
, PRT+1~, PRT+3
ZTSK PRT+1~, PRT+4*
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