EASMTL2 ;MIN/TCM ALB/SCK/AEG - AUTOMATED MEANS TEST LETTER - SEARCH ; 7/3/01
Source file <EASMTL2.m>
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) | ;
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DGMT(408.31 - [#408.31] | GET1^DIQ |