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 | Naked Globals | Local Variables | All

Print Page as PDF

Routine: EASECU

Package: Enrollment Application System

Routine: EASECU

Information

EASECU ;ALB/PHH,LBD,AMA,HM - LTC Co-Pay Test Utilities ; 22 AUG 2001

Source Information

Source file <EASECU.m>

Call Graph

Call Graph

Call Graph Total: 1

Package	Total	Call Graph
Kernel	1	$$FMDIFF^XLFDT

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

Package	Total	Caller Graph
Enrollment Application System	8	EASEC10E EASECA EASECCAL EASECE EASECEXP EASECPC EASECSCU EASECV
Registration	2	DGMTU3 DGRPD
Clinical Reminders	1	PXRMOBJ
VA Point of Service	1	VPSRPC26

Entry Points

Name	Comments	DBIA/ICR reference
LST(DFN,DGDT,DGMTYPT)	;Last LTC Co-Pay test for a patient ; Input -- DFN Patient IEN ; DGDT Date/Time (Optional- default today@2359) ; DGMTYPT Type of Test (Optional - if not defined ; LTC Co-Pay will be assumed) ; Output -- LTC Co-Pay Test IEN^Date of Test ; ^Status Name^Status Code^Source of Test	ICR #4499 Status: Active Usage: Controlled Subscription ICR #4503 Status: Active Usage: Controlled Subscription
MTS(DGMTS)	;LTC Co-Pay test status -- default current ; Input -- DGMTS LTC Co-Pay Test Status IEN ; Output -- Status Name^Status Code
EXMPT(DFN)	;Check if veteran is exempt from LTC co-payments: ; If the veteran has a compensable SC disability, OR ; If the veteran is a single, NSC pensioner not in receipt of A&A ; If the veteran is a Medal of Honor recipient - EAS1.0174 HM ; and HB benefits ; Input -- DFN Patient IEN ; Output -- 0 = veteran not exempt ; 1 = veteran has compensable SC disability ; 2 = veteran is single NSC pensioner (no A&A, HB) ; 14 = veteran is Medal of Honor recipient - EAS1.0174 HM
EXMPTQ
DIS(DFN)	;Display patient's current LTC Copay Test status and test date ; Input -- DFN IEN of Patient file ; Output -- None	ICR #5331 Status: Withdrawn Usage: Controlled Subscription ICR #6771 Status: Active Usage: Private
FORM(DGMTI)	; Return the version of the 10-10EC form used to complete ; the LTC Copay Test passed in DGMTI ; Input: DGMTI - LTC Copay Test (IEN file #408.31) ; Output: 0 = Original format ; 1 = Revised format
DISDT(DFN,EASADM)	;Display patient's LTC Copay Test status for a given LTC Admission Date ; Input -- DFN - IEN of Patient file ; EASADM - LTC Admission Date ; Output -- None

External References

Name	Field # of Occurrence
$$FMDIFF^XLFDT	DIS+11, DISDT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"LTC Copayment Status: ",DGMTS," Last Test: " Line Location: DIS+7
Function Call: WRITE	Prompt: Y Line Location: DIS+7
Function Call: WRITE	Prompt: " NEW TEST REQUIRED" Line Location: DIS+14
Function Call: WRITE	Prompt: !,"Patient INELIGIBLE to Receive LTC Services -- Did Not Agree to Pay Copayments" Line Location: DIS+15
Function Call: WRITE	Prompt: !,"LTC Copayment Status: ",DGMTS," Last Test: " Line Location: DISDT+8
Function Call: WRITE	Prompt: Y Line Location: DISDT+8
Function Call: WRITE	Prompt: " NEW TEST REQUIRED" Line Location: DISDT+15
Function Call: WRITE	Prompt: !,"Patient INELIGIBLE to Receive LTC Services -- Did Not Agree to Pay Copayments" Line Location: DISDT+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DIS+7, DISDT+8
^DG(408.32 - [#408.32]	MTS+4
^DGMT(408.31 - [#408.31]	LST+9, LST+10, LST+11, DIS+13, DIS+15, FORM+6, DISDT+14, DISDT+16
^DIC(11 - [#11]	EXMPT+23
^DIC(8 - [#8]	EXMPT+15
^DPT - [#2]	EXMPT+15, EXMPT+16, EXMPT+17, EXMPT+19, EXMPT+21, EXMPT+23, EXMPT+26, DIS+12, DISDT+13

Label References

Name	Line Occurrences
$$LST	DIS+5, DISDT+6
$$MTS	LST+11
EXMPTQ	EXMPT+16, EXMPT+17, EXMPT+19, EXMPT+21, EXMPT+24, EXMPT+26, EXMPT+28

Naked Globals

Name	Field # of Occurrence
^(0	LST+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	LST~, LST+9, LST+10, EXMPT~, EXMPT+15, EXMPT+16, EXMPT+17, EXMPT+19, EXMPT+21, EXMPT+23 , EXMPT+26, DIS~, DIS+4, DIS+5, DIS+12, DISDT~, DISDT+5, DISDT+6, DISDT+13
DGDT	LST~, LST+8
DGIDT	LST+7~, LST+8, LST+9, LST+10
DGMTDT	DIS+3~, DIS+6, DIS+7, DIS+11, DISDT+4~, DISDT+7, DISDT+8, DISDT+12
DGMTFL1	LST+7~, LST+9, LST+10, LST+11*
DGMTI	LST+7~, LST+10, LST+11, DIS+3~, DIS+6, DIS+13, DIS+15, FORM~, FORM+5, FORM+6 , DISDT+4~, DISDT+7*, DISDT+14, DISDT+16
DGMTS	MTS~, MTS+4, DIS+3~, DIS+6, DIS+7, DISDT+4~, DISDT+7, DISDT+8
DGMTYPT	LST~, LST+7*, LST+9, LST+10
DGNOD	LST+7~, LST+11*
DGX	DIS+3~, DIS+5, DIS+6, DISDT+4~, DISDT+6, DISDT+7
DT	LST+8, DIS+11, DISDT+12
EASADM	DISDT~, DISDT+5, DISDT+6
ELG	EXMPT+10~, EXMPT+15*, EXMPT+16, EXMPT+17
U	EXMPT+15, EXMPT+16, EXMPT+17, EXMPT+19, EXMPT+21, EXMPT+23, EXMPT+26, EXMPT+28, DIS+6, DIS+12 , DIS+13, DIS+15, FORM+6, DISDT+7, DISDT+13, DISDT+14, DISDT+16
X	EXMPT+10~, EXMPT+15, EXMPT+23, EXMPT+24, EXMPT+26*, EXMPT+28
Y	LST+7~, LST+11, LST+12, MTS+3~, MTS+4, MTS+5, EXMPT+10~, EXMPT+11, EXMPT+16, EXMPT+17* , EXMPT+19, EXMPT+29, EXMPTQ, DIS+7, DISDT+8

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All