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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: EASMTL2

Package: Enrollment Application System

Routine: EASMTL2


Information

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

Source Information

Source file <EASMTL2.m>

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) ;

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGMT(408.31 - [#408.31] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call