EASMTUTL ; ALB/SCK/BRM/PHH - AUTOMATED MEANS TEST LETTERS UTILITIES ; 7/2/01
Source file <EASMTUTL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PAUSE | ; Screen pause, user must press key to continue
|
|
CLRFLG(EAX,DA) | ; Clears flags in File #713.2, For development
|
|
LOCK(ACTION) | ; Flag IN USE field in EAS Parameters file, #713
; Input ; ACTION - Locking action ; 1 = Flag IN USE for Automated Generator is running ; 0 = Flag IN USE for Automated Generator is not running ; Output ; 1 if action was successful ; 0 if action was not successful |
|
ALERT(ERRMSG) | ; Post an alert message to the EAS Letters Mail group
|
|
ADRERR(EASADD,DFN) | ; Error notification for missing or invalid patient address
|
|
CLRLCK | ; Clears IN USE field of the EAS MT PARAMETERS if an error occurs and locks the field
|
|
PROHBIT | ; Set or delete the Prohibit fields in the Patient Status file, #713.1
|
|
DSPLYER(ERRARY) | ;
|
|
EDTLTRS | ;
|
|
MTRTN | ; Update the letter status file, #713.2, with returned Means Test information
|
|
DECEASED(EASIEN,DFN) | ; Check deceased status for patient
|
|
CHECKMT(EASPT,EAIEN) | ; Check current MT status
|
|
CHKQ | ||
FUTMT(EASIEN) | ; Check for a future MT
; Input ; EASIEN - IEN for record in Letter Status file |
|
TESTLTR | ;
|
|
TESTIT | ;
|
|
ZTEST | ;
|
|
ADDLEAP(DATE) | ; Adding a year with Leap Year checking
; Input: ; DATE - Date passed in. |
|
SUBLEAP(DATE) | ; Subtracting a year with Leap Year checking
; Input: ; DATE - Date passed in. |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^EAS(713 - [#713] | Classic Fileman Calls |
^EAS(713.1 - [#713.1] | Classic Fileman Calls, GET1^DIQ |
^EAS(713.2 - [#713.2] | Classic Fileman Calls, GET1^DIQ |
^EAS(713.3 - [#713.3] | Classic Fileman Calls |