Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 4 ^DIC  (,FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Kernel 3 ($$DT,$$FMADD,$$FMTHL7,$$NOW)^XLFDT  $$LEAP^XLFDT3  EN^XUTMDEVQ  
Registration 3 $$FUT^DGMTU  (DEM,KVA)^VADPT  PID^VADPT6  
Enrollment Application System 2 $$MTCHK^EASMTCHK  LETTER^EASMTL6A  
MailMan 1 ^XMD  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 17

Package Total Caller Graph
Enrollment Application System 16 EAS MT CLEAR IN USE FLAG  EAS MT PROHIBIT EDIT  EAS MT RETURNED  EAS MT TEST LETTER  EAS150P1  EAS155PT  EAS25UEI  EASMT65  
EASMTL1  EASMTL10  EASMTL2  EASMTL6  EASMTL6A  EASMTL8  EASMTRP1  EASMTRPT  
Kernel 1 ^DIC(19  

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.

External References

Name Field # of Occurrence
$$FUT^DGMTU FUTMT+15
^DIC MTRTN+4
^DIE CLRFLG+9, LOCK+13, CLRLCK+4, PROHBIT+51, EDTLTRS+10, MTRTN+11, CHECKMT+12, FUTMT+21
FILE^DIE PROHBIT+47, PROHBIT+59
UPDATE^DIE PROHBIT+29
$$GET1^DIQ ADRERR+6, DECEASED+6, DECEASED+7, CHECKMT+5, FUTMT+11, FUTMT+12
^DIR PAUSE+2, PROHBIT+6, PROHBIT+13, PROHBIT+19, PROHBIT+25, PROHBIT+41, EDTLTRS+5, TESTLTR+6
$$MTCHK^EASMTCHK CHECKMT+8
LETTER^EASMTL6A TESTIT+1, ZTEST+1
DEM^VADPT ADRERR+4, DECEASED+12
KVA^VADPT DECEASED+14
PID^VADPT6 ADRERR+5
$$DT^XLFDT PROHBIT+39
$$FMADD^XLFDT ADDLEAP+10, SUBLEAP+10
$$FMTHL7^XLFDT ADDLEAP+8, SUBLEAP+8
$$NOW^XLFDT PROHBIT+45
$$LEAP^XLFDT3 ADDLEAP+9, SUBLEAP+9
^XMD ALERT+10, ADRERR+31
EN^XUTMDEVQ TESTLTR+11

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
Routine Call
  • DIC
  • Line Location:
    • MTRTN+4
Routine Call
  • DIE
  • Line Location:
    • CLRFLG+9
    • LOCK+13
    • CLRLCK+4
    • PROHBIT+51
    • EDTLTRS+10
    • MTRTN+11
    • CHECKMT+12
    • FUTMT+21
Routine Call
  • DIE
  • Line Location:
    • PROHBIT+47
    • PROHBIT+59
Routine Call
  • DIE
  • Line Location:
    • PROHBIT+29
Routine Call
  • DIR
  • Line Location:
    • PAUSE+2
    • PROHBIT+6
    • PROHBIT+13
    • PROHBIT+19
    • PROHBIT+25
    • PROHBIT+41
    • EDTLTRS+5
    • TESTLTR+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EAS(713 - [#713] LOCK+10
^EAS(713.1 - [#713.1] PROHBIT+22, PROHBIT+31
^EAS(713.2 - [#713.2] MTRTN+10, MTRTN+13

Label References

Name Line Occurrences
CHKQ CHECKMT+4, CHECKMT+6
DSPLYER PROHBIT+49, PROHBIT+61

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION LOCK~, LOCK+10
DA CLRFLG~, LOCK+12*, CLRLCK+1~, CLRLCK+3*, PROHBIT+50*, EDTLTRS+9*, MTRTN+1~, MTRTN+8*, CHECKMT+1~, CHECKMT+10*
, FUTMT+19*
DATE ADDLEAP~, ADDLEAP+8, ADDLEAP+9, ADDLEAP+10*, ADDLEAP+11, SUBLEAP~, SUBLEAP+8, SUBLEAP+9, SUBLEAP+10*, SUBLEAP+11
DFN ADRERR~, ADRERR+6, ADRERR+20, PROHBIT+1~, PROHBIT+21*, PROHBIT+22, PROHBIT+28, PROHBIT+31, DECEASED~, DECEASED+4*
, DECEASED+7*, DECEASED+8, CHECKMT+1~, CHECKMT+5*, CHECKMT+6, CHECKMT+8, FUTMT+8~, FUTMT+12*, FUTMT+15
DGEFF PROHBIT+35~
DGER DSPLYER+1~, DSPLYER+4*, DSPLYER+5*, DSPLYER+6
DGERR PROHBIT+35~, PROHBIT+48, PROHBIT+49, PROHBIT+60, PROHBIT+61
DGFDA PROHBIT+1~, PROHBIT+35~, PROHBIT+47, PROHBIT+59
DGFDA(1 PROHBIT+28*, PROHBIT+43*, PROHBIT+44*, PROHBIT+45*, PROHBIT+46*, PROHBIT+54*, PROHBIT+55*, PROHBIT+56*, PROHBIT+57*, PROHBIT+58*
DGIEN PROHBIT+35~, PROHBIT+37*, PROHBIT+43, PROHBIT+44, PROHBIT+45, PROHBIT+46, PROHBIT+54, PROHBIT+55, PROHBIT+56, PROHBIT+57
PROHBIT+58
DIC MTRTN+1~, MTRTN+3*, MTRTN+4!
DIC("A" MTRTN+3*
DIC(0 MTRTN+3*
DIE CLRFLG+1~, CLRFLG+8*, CLRFLG+9!, LOCK+12*, LOCK+13!, CLRLCK+1~, CLRLCK+3*, PROHBIT+35~, PROHBIT+50*, PROHBIT+51!
EDTLTRS+9*, MTRTN+1~, MTRTN+8*, MTRTN+11!, CHECKMT+1~, CHECKMT+10*, CHECKMT+12!, FUTMT+19*, FUTMT+21!
DIR PAUSE+2!, PROHBIT+1~, PROHBIT+6!, PROHBIT+13!, PROHBIT+19!, PROHBIT+25!, PROHBIT+35~, PROHBIT+41!, EDTLTRS+1~, EDTLTRS+5!
TESTLTR+1~, TESTLTR+6!
DIR("?" PROHBIT+5*, TESTLTR+5*
DIR("A" PAUSE+1*, PROHBIT+4*, PROHBIT+12*, PROHBIT+18*, PROHBIT+24*, PROHBIT+40*, EDTLTRS+4*, TESTLTR+4*
DIR("B" PROHBIT+23*
DIR(0 PAUSE+1*, PROHBIT+3*, PROHBIT+11*, PROHBIT+17*, PROHBIT+23*, PROHBIT+39*, EDTLTRS+3*, TESTLTR+3*
DIRUT PROHBIT+1~, PROHBIT+7, PROHBIT+10, PROHBIT+16, PROHBIT+20, PROHBIT+22, PROHBIT+26, PROHBIT+27*, PROHBIT+35~, PROHBIT+42
EDTLTRS+6, TESTLTR+1~, TESTLTR+7
DR CLRFLG+1~, CLRFLG+4*, CLRFLG+5*, CLRFLG+6*, CLRFLG+7*, LOCK+12*, CLRLCK+1~, CLRLCK+3*, PROHBIT+50*, EDTLTRS+9*
MTRTN+1~, MTRTN+9*, CHECKMT+1~, CHECKMT+11*, FUTMT+20*
DUZ PROHBIT+46
EACHK CHECKMT+1~, CHECKMT+8*, CHECKMT+9
EADEM DECEASED+1~
EADEM(6 DECEASED+13
EAIEN CHECKMT~, CHECKMT+10
EAS1 DECEASED+1~, DECEASED+6*, DECEASED+7
EASADD ADRERR~
EASADD("BAI" ADRERR+18
EASADD(1 ADRERR+14
EASADD(10 ADRERR+25
EASADD(11 ADRERR+17
EASADD(4 ADRERR+15
EASADD(5 ADRERR+16
EASADD(9 ADRERR+25
EASDEM ADRERR+1~
EASDEM(1 ADRERR+12
EASF PROHBIT+1~, PROHBIT+8*, PROHBIT+10, PROHBIT+16, PROHBIT+38, PROHBIT+53
EASFUT FUTMT+8~, FUTMT+15*, FUTMT+17
EASIEN PROHBIT+1~, PROHBIT+14*, PROHBIT+30*, PROHBIT+31*, PROHBIT+33, PROHBIT+37, PROHBIT+50, EDTLTRS+1~, EDTLTRS+7*, EDTLTRS+9
MTRTN+1~, MTRTN+6*, MTRTN+8, MTRTN+10, MTRTN+13, DECEASED~, DECEASED+3*, DECEASED+5, DECEASED+6, FUTMT~
, FUTMT+11, FUTMT+18, FUTMT+19, TESTLTR+1~, TESTLTR+9*, TESTIT+1, ZTEST+1
EASPRF ADRERR+1~, ADRERR+6*, ADRERR+7*, ADRERR+30
EASPT CHECKMT~, CHECKMT+4, CHECKMT+5
EASPTR FUTMT+8~, FUTMT+11*, FUTMT+12
EATYP TESTLTR+1~, TESTLTR+8*, TESTIT+1, ZTEST+1
EAX CLRFLG~, CLRFLG+3, CLRFLG+4, CLRFLG+5, CLRFLG+6, CLRFLG+7
ERRARY DSPLYER~
ERRARY("DIERR" DSPLYER+5, DSPLYER+6
ERRMSG ALERT~, ALERT+4, PROHBIT+1~
FDAIEN PROHBIT+1~
FDAIEN(1 PROHBIT+30
MSG ALERT+1~, ADRERR+1~
MSG( ADRERR+18*, ADRERR+26*
MSG(1 ALERT+3*, ADRERR+9*
MSG(10 ADRERR+19*
MSG(11 ADRERR+20*
MSG(13 ADRERR+21*
MSG(14 ADRERR+22*
MSG(15 ADRERR+23*
MSG(2 ALERT+4*, ADRERR+10*
MSG(3 ADRERR+11*
MSG(4 ADRERR+12*
MSG(5 ADRERR+13*
MSG(6 ADRERR+14*
MSG(7 ADRERR+15*
MSG(8 ADRERR+16*
MSG(9 ADRERR+17*
RSLT LOCK+8~, LOCK+10, LOCK+14*, LOCK+15, DECEASED+1~, DECEASED+9*, DECEASED+13*, DECEASED+15
RTN CHECKMT+1~, CHECKMT+3*, CHECKMT+4*, CHECKMT+6*, CHECKMT+13*, CHKQ, FUTMT+10*, FUTMT+22*, FUTMT+23
U ADRERR+16, ADRERR+17, ADRERR+18
VA ADRERR+1~
VA("BID" ADRERR+13
VAROOT ADRERR+1~, ADRERR+3*, DECEASED+1~, DECEASED+11*
X PROHBIT+1~
XMDUZ ALERT+1~, ALERT+8*, ADRERR+1~, ADRERR+29*
XMSUB ALERT+1~, ALERT+9*, ADRERR+1~, ADRERR+30*
XMTEXT ALERT+1~, ALERT+7*, ADRERR+1~, ADRERR+28*
XMY ALERT+1~, ADRERR+1~
XMY("G.EAS MT LETTERS" , ALERT+6*, ADRERR+27*
Y PROHBIT+1~, PROHBIT+8, PROHBIT+14, PROHBIT+21, PROHBIT+27, PROHBIT+43, EDTLTRS+7, MTRTN+1~, MTRTN+5, MTRTN+6
TESTLTR+8
YEAR ADDLEAP+7~, ADDLEAP+8*, ADDLEAP+9, SUBLEAP+7~, SUBLEAP+8*, SUBLEAP+9
ZTSAVE TESTLTR+1~, TESTLTR+11
ZTSAVE("EASIEN" TESTLTR+10*
ZTSAVE("EATYP" TESTLTR+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All