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: EASMTL6

Package: Enrollment Application System

Routine: EASMTL6


Information

EASMTL6 ; ALB/SCK,BRM,LBD,PHH - AUTOMATED MEANS TEST LETTER-INTERACTIVE PRINT ; 5/22/03 9:52am

Source Information

Source file <EASMTL6.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$DT,$$FMDIFF)^XLFDT  $$VERSION^XPDUTL  
Enrollment Application System 4 ($$CHKADR,LETTER)^EASMTL6A  $$LTRTYP^EASMTL6B  ($$ADDLEAP,$$CHECKMT,$$DECEASED,$$FUTMT,CLRFLG)^EASMTUTL  $$UESTAT^EASUER  
VA FileMan 3 ^DIE  ($$GET1,GETS)^DIQ  ^DIR  
Registration 2 $$LST^DGMTU  $$SITE^VASITE  
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: 8

Package Total Caller Graph
Enrollment Application System 8 EAS MT 0 DAY LETTER PRINT  EAS MT 30 DAY LETTER PRINT  EAS MT 60 DAY LETTER PRINT  EASMT65  EASMTL10  EASMTL6A  EASMTL6B  EASMTL8  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
; Input, set in option call, if not passed in, or called interactively, user is asked to specify.
; EATYP - Used for selective printing of letters and forms
; 1 : 60-Day
; 2 : 30-Day
; 4 : 0-Day
QUE ; Queue the report
LTR ; Main entry point
RESULT(EASKP,EATYP) ; Send results of letter printing to mail group
BLD(EATYP,EASLOC,EASTMP,EASKP) ; Build TMP array of letters to print
OWNED(PTR1,EAIEN) ; Check - Does this facility "own" this means test
; Returns '1' if means test 'owned' by facility
; '0' if not owned
PRINT(EASTMP,EATYP) ; Print letters
THRSHLD(EATYP,EASIEN) ; Check threshold for letter types
; Input
; EATYP - Letter type to print
; EASIEN - IEN for file #713.2
NOPRT(EATYP,EASIEN) ; Letter not printed, update Letter Status file #713.2
; Input
; EATYP - Letter type to print
; EASIEN - IEN for file #713.2
UPDSTAT(EASN,EAX) ; Update Letter status file, #713.2
FACNUM() ; Get facility number
GETFAC(EADFN,EASARY) ; set facility return address information

External References

Name Field # of Occurrence
^%ZIS EN+29
HOME^%ZIS QUE+11
^%ZISC EN+33
^%ZTLOAD QUE+8
$$S^%ZTLOAD BLD+41, PRINT+8
$$LST^DGMTU OWNED+7
^DIE OWNED+19, NOPRT+14, UPDSTAT+10
$$GET1^DIQ EN+18, EN+28, BLD+8, BLD+12, BLD+14, OWNED+10, THRSHLD+14, GETFAC+3, GETFAC+4, GETFAC+7
, GETFAC+19, GETFAC+22
GETS^DIQ GETFAC+8, GETFAC+15
^DIR EN+13, EN+22, PRINT+11, FACNUM+5
$$CHKADR^EASMTL6A BLD+37
LETTER^EASMTL6A PRINT+6
$$LTRTYP^EASMTL6B BLD+11
$$ADDLEAP^EASMTUTL THRSHLD+15
$$CHECKMT^EASMTUTL BLD+21
$$DECEASED^EASMTUTL BLD+18
$$FUTMT^EASMTUTL BLD+24
CLRFLG^EASMTUTL BLD+16, BLD+19, BLD+22, BLD+25, UPDSTAT+11
$$UESTAT^EASUER BLD+30
$$SITE^VASITE GETFAC+14
$$DT^XLFDT THRSHLD+16
$$FMDIFF^XLFDT THRSHLD+16
^XMD RESULT+21
$$VERSION^XPDUTL OWNED+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"Letters canceled!"
  • Line Location: QUE+9
Function Call: WRITE
  • Prompt: !!?5,"Letters queued! [ ",ZTSK," ]"
  • Line Location: QUE+10
Function Call: WRITE
  • Prompt: !,"...Gathering letters to print...Please wait"
  • Line Location: LTR+6
Function Call: WRITE
  • Prompt: !,"...Printing letters..."
  • Line Location: LTR+9
Routine Call
  • %ZIS
  • Line Location:
    • EN+29
Routine Call
  • %ZIS
  • Line Location:
    • QUE+11
Routine Call
  • DIE
  • Line Location:
    • OWNED+19
    • NOPRT+14
    • UPDSTAT+10
Routine Call
  • DIR
  • Line Location:
    • EN+13
    • EN+22
    • PRINT+11
    • FACNUM+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DIC(4 - [#4] GET1^DIQ,  GETS^DIQ
^DG(408.34 - [#408.34] GET1^DIQ
^DIC(5 - [#5] GET1^DIQ
^EAS(713 - [#713] GET1^DIQ
^EAS(713.1 - [#713.1] GET1^DIQ
^EAS(713.2 - [#713.2] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] OWNED+9
^DIC(4 - [#4] FACNUM+7
^EAS(713.1 - [#713.1] BLD+15
^EAS(713.2 - [#713.2] BLD+7

Label References

Name Line Occurrences
$$FACNUM EN+24
$$THRSHLD BLD+27
BLD LTR+7
LTR EN+32
NOPRT BLD+32, BLD+35
PRINT LTR+10
QUE EN+31
RESULT LTR+8
UPDSTAT PRINT+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+28*, EN+29!
%ZIS("B" EN+28*
ANVDT THRSHLD+9~, THRSHLD+15*, THRSHLD+16
COUNT BLD+1~, BLD+4*
DA OWNED+17*, NOPRT+5~, NOPRT+7*, UPDSTAT+1~, UPDSTAT+3*
DFN BLD+1~, BLD+12*, BLD+14, BLD+30
DIE OWNED+17*, OWNED+19!, NOPRT+5~, NOPRT+7*, UPDSTAT+1~, UPDSTAT+3*, UPDSTAT+10!
DIFF THRSHLD+9~, THRSHLD+16*, THRSHLD+17
DIR EN+7~, EN+13!, EN+22!, PRINT+11!, FACNUM+1~, FACNUM+5!
DIR("?" EN+12*, EN+21*
DIR("A" EN+19*
DIR("B" EN+20*
DIR("S" FACNUM+4*
DIR(0 EN+11*, EN+19*, PRINT+10*, FACNUM+3*
DIRUT EN+7~, EN+10, EN+18, EN+23, FACNUM+6
DR OWNED+18*, NOPRT+5~, NOPRT+11*, NOPRT+13*, UPDSTAT+1~, UPDSTAT+4*, UPDSTAT+5, UPDSTAT+6, UPDSTAT+7*, UPDSTAT+9*
EADFN GETFAC~, GETFAC+4
EAFLG UPDSTAT+1~, UPDSTAT+6*, UPDSTAT+7, UPDSTAT+8
EAIEN OWNED~, OWNED+16, OWNED+17
EAPD UPDSTAT+1~, UPDSTAT+6*, UPDSTAT+7
EAS4 GETFAC+1~
EAS4(4 GETFAC+11, GETFAC+21, GETFAC+22
EASABRT BLD+1~, BLD+7, BLD+41*, PRINT+1~, PRINT+5, PRINT+8*, PRINT+12*
EASARY GETFAC~
EASARY( GETFAC+21*, GETFAC+22*
EASARY("FAC" GETFAC+19*
EASARY("FACNUM" GETFAC+18*
EASARY("TYP" GETFAC+11*, GETFAC+13, GETFAC+16*
EASF GETFAC+1~, GETFAC+9*, GETFAC+11
EASFAC GETFAC+1~, GETFAC+4*, GETFAC+5, GETFAC+7, GETFAC+8, GETFAC+9, GETFAC+14*, GETFAC+15, GETFAC+18, GETFAC+19
, GETFAC+21, GETFAC+22
EASIEN BLD+1~, BLD+6*, BLD+7*, BLD+8, BLD+11, BLD+16, BLD+18, BLD+19, BLD+21, BLD+22
, BLD+24, BLD+25, BLD+27, BLD+32, BLD+35, BLD+39, PRINT+1~, PRINT+4*, PRINT+5*, PRINT+6
, PRINT+7, THRSHLD~, THRSHLD+14, NOPRT~, NOPRT+6, NOPRT+7
EASKP LTR+1~, LTR+7, LTR+8, RESULT~, BLD~
EASKP( RESULT+14, BLD+3*
EASKP("C" RESULT+9, BLD+23*
EASKP("CNT" RESULT+3, BLD+40*
EASKP("D" RESULT+8, BLD+20*
EASKP("F" BLD+26*
EASKP("I" RESULT+7, BLD+38*
EASKP("O" RESULT+12, BLD+36*
EASKP("P" RESULT+10, BLD+17*
EASKP("T" RESULT+4, BLD+28*
EASKP("U" RESULT+11, BLD+33*
EASLOC EN+7~, EN+17*, EN+24*, LTR+7, BLD~, BLD+14
EASN UPDSTAT~, UPDSTAT+3, UPDSTAT+11
EASPTR BLD+1~, BLD+8*, BLD+10, BLD+12, BLD+15, BLD+21, BLD+37
EASTMP LTR+1~, LTR+3*, LTR+4, LTR+7, LTR+10, LTR+11, BLD~, BLD+39, PRINT~, PRINT+5
EASUE BLD+1~, BLD+30*, BLD+31, BLD+34
EATYP EN+10, EN+14*, EN+34!, LTR+7, LTR+8, LTR+10, LTR+11!, RESULT~, RESULT+17, BLD~
, BLD+11, BLD+27, BLD+32, BLD+35, BLD+39, PRINT~, PRINT+6, PRINT+7, THRSHLD~, THRSHLD+12
, THRSHLD+13, NOPRT~, NOPRT+6, NOPRT+8
EAX UPDSTAT~, UPDSTAT+4, UPDSTAT+11, GETFAC+1~, GETFAC+20*, GETFAC+21
EAX2 BLD+1~, BLD+3*
IO PRINT+3
IO("Q" EN+26!, EN+31, BLD+41, PRINT+8, PRINT+9
IOP EN+26!
IOST PRINT+9
LTR NOPRT+5~, NOPRT+8*, NOPRT+9, NOPRT+11, NOPRT+13
MSG RESULT+1~
MSG( RESULT+5*, RESULT+12*
MSG(1 RESULT+3*
MSG(10 RESULT+15*
MSG(2 RESULT+4*
MSG(3 RESULT+6*
MSG(4 RESULT+7*
MSG(5 RESULT+8*
MSG(6 RESULT+9*
MSG(7 RESULT+10*
MSG(8 RESULT+11*
MSG(9 RESULT+13*
MTDT THRSHLD+9~, THRSHLD+14*, THRSHLD+15
MTLST OWNED+4~, OWNED+7*, OWNED+8, OWNED+9
MTNODE OWNED+4~, OWNED+9*, OWNED+10
MTOWN OWNED+4~, OWNED+10*, OWNED+11, OWNED+12
NXTFLG UPDSTAT+1~, UPDSTAT+8*, UPDSTAT+9
POP EN+7~, EN+30
PTR1 OWNED~, OWNED+7
RSLT OWNED+4~, OWNED+6*, OWNED+11*, OWNED+12*, OWNED+15, OWNED+21, THRSHLD+9~, THRSHLD+11*, THRSHLD+17*, THRSHLD+18
, FACNUM+1~, FACNUM+6*, FACNUM+7*, FACNUM+9
THRESH THRSHLD+9~, THRSHLD+13*, THRSHLD+17
TOT RESULT+1~, RESULT+14*, RESULT+15
U OWNED+8, OWNED+9, OWNED+10, FACNUM+7
X1 RESULT+1~, RESULT+14*
XMDUZ RESULT+1~, RESULT+20*
XMSUB RESULT+1~, RESULT+17*
XMTEXT RESULT+1~, RESULT+18*
XMY RESULT+1~
XMY("G.EAS MT LETTERS" , RESULT+19*
Y EN+7~, EN+14, EN+23, PRINT+1~, PRINT+12, FACNUM+1~, FACNUM+7
ZTDESC QUE+1~, QUE+4*
ZTDTH QUE+1~, QUE+6*
ZTQUEUED QUE+1~, LTR+6, LTR+9
ZTRTN QUE+1~, QUE+3*
ZTSAVE QUE+1~
ZTSAVE("EASLOC" QUE+5*
ZTSAVE("EATYP" QUE+5*
ZTSK QUE+1~, QUE+9, QUE+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