Routine: EASMTL2

Information

EASMTL2 ;MIN/TCM ALB/SCK/AEG - AUTOMATED MEANS TEST LETTER - SEARCH ; 7/3/01

Package	Total	Call Graph
Enrollment Application System	2	$$MTCHK^EASMTCHK $$DECEASED^EASMTUTL
Kernel	2	($$FMTE,$$NOW)^XLFDT $$VERSION^XPDUTL
Registration	2	($$FUT,$$LST)^DGMTU (DEM,PID)^VADPT
VA FileMan	2	UPDATE^DIE $$GET1^DIQ
List Manager	1	$$SETSTR^VALM1
MailMan	1	^XMD

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Enrollment Application System	2	EAS122PT EASMTL1

Entry Points

Name	Comments	DBIA/ICR reference
EN60	; Entry point for inital 60-day letter search for candidates
NEWLTR(EASPT,EASDT)	; Add new entry to the work list file #713.2. ; Input ; EASPT - Ptr to 713.1 file ; EASDT - Worklist date array
UPDLTR(EAS1,TYPE)	; Update Flagged to print field for letter type ; Input ; EAS1 - Ptr to file 713.2 ; TYPE - Letter type (1:60d, 2:30d, 4:0d)
NEWSTAT(DFN,EASPT)	; Update the Patient status file, #713.1 ; Input ; DFN - Patient's DFN ; EASPT - Return Var, New IEN to 713.1 file
PRNTDT(EARY,ETYPE)	; Retrieve Print date and flagged to print status for letter type ; Input ; EARY - Data array from Patient Status file, #713.1, MT Anniversary date field, #11 ; ETYPE - Search type, 30 or 0 day
CHKSTAT(EASIEN,DFN)	; Check for means test status, still required or not ; Input ; EASIEN - Internal Entry Number to the ANNUAL MEANS TEST File, #408.31
FUTURE(DFN)	; Future Means Test available?
TEST(DFN)	; Test Patient?
CHKDFN(DFN,MTIEN)	; Checks for a valid zero node in the patient file entry. ; If no valid zero node, sets bad ptr entry
ERRMSG	; Send mail message if any errors were generated during processing
ERRORS	;
BADPTR	;
SEND(MSG)	;

External References

Name	Field # of Occurrence
$$FUT^DGMTU	FUTURE+3
$$LST^DGMTU	EN60+19
UPDATE^DIE	NEWLTR+31, UPDLTR+8, NEWSTAT+12
$$GET1^DIQ	EN60+13, EN60+14, CHKSTAT+17, ERRORS+9
$$MTCHK^EASMTCHK	CHKSTAT+22
$$DECEASED^EASMTUTL	EN60+22
DEM^VADPT	TEST+4
PID^VADPT	ERRORS+8
$$SETSTR^VALM1	BADPTR+7, BADPTR+8, BADPTR+10, BADPTR+11, BADPTR+16, BADPTR+17
$$FMTE^XLFDT	SEND+1
$$NOW^XLFDT	SEND+1
^XMD	SEND+5
$$VERSION^XPDUTL	NEWLTR+27

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^DGMT(408.31 - [#408.31]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGMT(408.31 - [#408.31]	EN60+7, EN60+11
^DPT - [#2]	CHKDFN+6
^EAS(713.1 - [#713.1]	NEWSTAT+9, NEWSTAT+18, NEWSTAT+20
^EAS(713.2 - [#713.2]	NEWLTR+14
^TMP("EASBDPTR"	EN60+33!, CHKDFN+8*, ERRMSG+2, BADPTR+15, BADPTR+17
^TMP("EASERR"	EN60+3!, EN60+33!, NEWSTAT+14, NEWSTAT+15, ERRMSG+1, ERRORS+7, ERRORS+9

Label References

Name	Line Occurrences
$$CHKDFN	EN60+17
$$CHKSTAT	EN60+24
$$FUTURE	EN60+25
$$NEWLTR	EN60+28
$$TEST	EN60+18
BADPTR	ERRMSG+2
ERRMSG	EN60+32
ERRORS	ERRMSG+1
NEWSTAT	EN60+26
SEND	ERRORS+12, BADPTR+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANNVDT	EN60+1~, EN60+5, EN60+7, EN60+11, NEWLTR+9~, NEWLTR+11, NEWLTR+14, NEWLTR+19
CNT	EN60+1~, EN60+4, EN60+30, EN60+31
DFN	EN60+1~, EN60+14, EN60+16, EN60+17, EN60+18, EN60+19, EN60+22, EN60+24, EN60+25, EN60+26 , NEWSTAT~, NEWSTAT+9, NEWSTAT+10, NEWSTAT+14, NEWSTAT+15, NEWSTAT+18, NEWSTAT+19, NEWSTAT+20, CHKSTAT~, CHKSTAT+15 , CHKSTAT+22, FUTURE~, FUTURE+3, TEST~, CHKDFN~, CHKDFN+5, CHKDFN+6, CHKDFN+8, ERRORS+1~, ERRORS+8
DGFDA	UPDLTR+5~, NEWSTAT+5~
DGFDA(1	UPDLTR+7, NEWSTAT+10, NEWSTAT+11*
DT	NEWLTR+27
>> EADT	NEWLTR+17
EARY	PRNTDT~
EARY(11	PRNTDT+11
EARY(12	PRNTDT+12
EARY(17	PRNTDT+11
EARY(18	PRNTDT+12
EAS1	UPDLTR~, UPDLTR+7
>> EAS6CNT	EN60+31*
>> EAS6CNT(	EN60+31*
EASDEM	TEST+1~
EASDEM(2	TEST+5
EASDFN	ERRORS+1~, ERRORS+6, ERRORS+7, ERRORS+8, ERRORS+9, BADPTR+1~, BADPTR+14, BADPTR+15, BADPTR+16, BADPTR+17 , BADPTR+18
EASDT	EN60+28, NEWLTR~
EASDT("0"	NEWLTR+23
EASDT("30"	NEWLTR+22
EASDT("60"	NEWLTR+21
EASDT("ANV"	EN60+5, NEWLTR+11
EASERR	ERRORS+1~, BADPTR+1~
EASIEN	EN60+1~, EN60+10, EN60+11, EN60+13, EN60+14, EN60+17, EN60+20, EN60+24, NEWSTAT+5~, CHKSTAT~ , CHKSTAT+17
EASLAST	EN60+1~, EN60+19*, EN60+20, EN60+21
>> EASPRCDT	EN60+31
EASPT	EN60+26, EN60+27, EN60+28, NEWLTR~, NEWLTR+14, NEWLTR+18, NEWSTAT~, NEWSTAT+16, NEWSTAT+20
EASTAT	CHKSTAT+8~, CHKSTAT+17*, CHKSTAT+18
ERRMSG	UPDLTR+5~
ERROUT	NEWSTAT+5~, NEWSTAT+13
ERROUT(1	NEWSTAT+14
ETYPE	PRNTDT~, PRNTDT+11, PRNTDT+12
FDA	NEWLTR+9~
FDA(1	NEWLTR+17, NEWLTR+18, NEWLTR+19, NEWLTR+20, NEWLTR+21, NEWLTR+22, NEWLTR+23, NEWLTR+24, NEWLTR+28!, NEWLTR+29*
FDAIEN	NEWSTAT+5~
FDAIEN(1	NEWSTAT+15, NEWSTAT+16
MSG	ERRORS+1~, ERRORS+12, BADPTR+1~, BADPTR+20, SEND~
MSG(	ERRORS+3, ERRORS+4, ERRORS+9, BADPTR+3, BADPTR+4, BADPTR+5, BADPTR+6, BADPTR+9, BADPTR+12, BADPTR+18
MTIEN	CHKDFN~, CHKDFN+5*, CHKDFN+8
RSLT	NEWLTR+9~, PRNTDT+9~, PRNTDT+11, PRNTDT+12, PRNTDT+13, CHKSTAT+8~, CHKSTAT+15, CHKSTAT+18, CHKSTAT+21, CHKSTAT+22* , CHKSTAT+24, FUTURE+1~, FUTURE+3, FUTURE+4, CHKDFN+3~, CHKDFN+6, CHKDFN+7, CHKDFN+10
TYPE	UPDLTR~, UPDLTR+7
U	EN60+21, TEST+5
VA	ERRORS+1~, ERRORS+10!
VA("BID"	ERRORS+9
VADM	EN60+1~
VAROOT	TEST+1~, TEST+3*
X	BADPTR+1~, BADPTR+7, BADPTR+8, BADPTR+9, BADPTR+10, BADPTR+11, BADPTR+12, BADPTR+16, BADPTR+17, BADPTR+18
>> XMDUZ	SEND+4*
>> XMSUB	SEND+1*
>> XMTEXT	SEND+2*
>> XMY("G.EAS MT	LETTERS" , SEND+3*
ZSSN	TEST+1~, TEST+5*, TEST+6

Customize PDF page

Package: Enrollment Application System