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

Package: Enrollment Application System

Routine: EASMTUTL


Information

EASMTUTL ; ALB/SCK/BRM/PHH - AUTOMATED MEANS TEST LETTERS UTILITIES ; 7/2/01

Source Information

Source file <EASMTUTL.m>

Entry Points

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.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,"Prohibit Flag Removed from Patient.",!
  • Line Location: PROHBIT+62
Function Call: WRITE
  • Prompt: !!?3,"The following error(s) occurred:"
  • Line Location: DSPLYER+3
Function Call: WRITE
  • Prompt: !?3,ERRARY("DIERR",DGER)," - ",ERRARY("DIERR",DGER,"TEXT",1)
  • Line Location: DSPLYER+6
Function Call: WRITE
  • Prompt: !?3,"Please check, this record update may not have processed completely."
  • Line Location: DSPLYER+7
Function Call: WRITE
  • Prompt: !,$CHAR(7),"Entry is being edited by another user."
  • Line Location: MTRTN+12

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call