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

Package: Enrollment Application System

Routine: EAS155PT


Information

EAS155PT ;ALB/SCK - PATCH 55 USER ENROLLEE MT LETTER CLEANUP ; 9-AUG-04

Source Information

Source file <EAS155PT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMTE,$$HDIFF,$$HTE,$$NOW)^XLFDT  MES^XPDUTL  ($$PRNT,$$STA)^XUAF4  
VA FileMan 2 FILE^DIE  $$GET1^DIQ  
Enrollment Application System 1 $$DECEASED^EASMTUTL  
MailMan 1 ^XMD  
Registration 1 $$SITE^VASITE  

Entry Points

Name Comments DBIA/ICR reference
CHECK ;
EN ; Que off the background task
LETTERS ; Reflag those MT letters which need to be updated for UE Status update
TESTLTR(EASIEN) ; Test letter conditions
UPD(FDA) ; Update file entry
MAIL ;
REPORT ;
HDR ;
FTR ;

External References

Name Field # of Occurrence
^%ZIS EN+8
HOME^%ZIS EN+15
^%ZTLOAD EN+13
FILE^DIE TESTLTR+18, TESTLTR+25, TESTLTR+31, TESTLTR+39, TESTLTR+49, TESTLTR+57, UPD+3
$$GET1^DIQ CHECK+12, CHECK+15, LETTERS+9, LETTERS+13, REPORT+11
$$DECEASED^EASMTUTL LETTERS+11
$$SITE^VASITE CHECK+9
$$FMTE^XLFDT HDR+6
$$HDIFF^XLFDT MAIL+8
$$HTE^XLFDT MAIL+6, MAIL+7
$$NOW^XLFDT EN+10
^XMD CHECK+27, MAIL+16
MES^XPDUTL CHECK+26
$$PRNT^XUAF4 CHECK+11
$$STA^XUAF4 CHECK+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Preparing to run the EAS*1*55 MT Letters Cleanup"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"After the cleanup, you will be sent a MailMan summary of the cleanup"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"statistics. You will also be asked to select a printer to send the"
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"detailed results to. This report could be quite lengthy. Please "
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,"DO NOT run the report to your screen!",!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!?5,"Task: "_ZTSK_" Queued."
  • Line Location: EN+14
Function Call: WRITE
  • Prompt: !!,"There were no letters reset for this letter type"
  • Line Location: REPORT+8
Function Call: WRITE
  • Prompt: !,$$GET1^DIQ(713.2,EASIEN,2),?35,EASIEN,?55,$$GET1^DIQ(713.2,EASIEN,.01)
  • Line Location: REPORT+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patch EAS*1*55 MT Letter Cleanup Results"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,PART1,LINE,PART2
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!,$S(EASLTR="60D":"60-Day",EASLTR="30D":"30-Day",EASLTR="0D":"0-Day",1:"")," Letters for the following Veterans have been reset"
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !?5,"Name",?35,"File 713.2 IEN",?55,"Processing Date"
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !,DDASH
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !!!!?5,"60-Day Letters: "_EASCNT("60D")
  • Line Location: FTR+1
Function Call: WRITE
  • Prompt: !?5,"30-Day Letters: "_EASCNT("30D")
  • Line Location: FTR+2
Function Call: WRITE
  • Prompt: !?5," 0-Day Letters: "_EASCNT("0D")
  • Line Location: FTR+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+8
Routine Call
  • %ZIS
  • Line Location:
    • EN+15
Routine Call
  • DIE
  • Line Location:
    • TESTLTR+18
    • TESTLTR+25
    • TESTLTR+31
    • TESTLTR+39
    • TESTLTR+49
    • TESTLTR+57
    • UPD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^EAS(713.2 - [#713.2] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EAS(713.1 - [#713.1] LETTERS+10
^EAS(713.2 - [#713.2] LETTERS+8, TESTLTR+5, TESTLTR+6, TESTLTR+7
^TMP("EAS155P" LETTERS+3!, LETTERS+4*, LETTERS+16*, TESTLTR+3*, TESTLTR+14*, TESTLTR+21*, TESTLTR+27*, TESTLTR+36*, TESTLTR+46*, TESTLTR+55*
, TESTLTR+59*, MAIL+6, MAIL+7, MAIL+8, MAIL+15, REPORT+10

Label References

Name Line Occurrences
FTR REPORT+13
HDR REPORT+6, REPORT+12
MAIL LETTERS+17
REPORT LETTERS+18
TESTLTR LETTERS+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CURSITE CHECK+1~, CHECK+9*, CHECK+10, CHECK+11, CHECK+14
CURSTN CHECK+1~, CHECK+10*, CHECK+15
DDASH HDR+1~, HDR+13*
DT TESTLTR+12, TESTLTR+19, TESTLTR+34, TESTLTR+44, HDR+6
DUZ CHECK+6, MAIL+4
EANAME REPORT+1~
EASCNT LETTERS+1~
EASCNT( LETTERS+6*, REPORT+7
EASCNT("0D" TESTLTR+13*, TESTLTR+54*, MAIL+13, FTR+3
EASCNT("30D" TESTLTR+20*, TESTLTR+45*, MAIL+12, FTR+2
EASCNT("60D" TESTLTR+26*, TESTLTR+35*, MAIL+11, FTR+1
EASCNT("6OD" TESTLTR+26
EASCNT("OFF" MAIL+10
EASDFN LETTERS+1~
EASIEN LETTERS+1~, LETTERS+7*, LETTERS+8*, LETTERS+9, LETTERS+11, LETTERS+13, LETTERS+14, TESTLTR~, TESTLTR+5, TESTLTR+6
, TESTLTR+7, TESTLTR+14, TESTLTR+15, TESTLTR+16, TESTLTR+17, TESTLTR+21, TESTLTR+22, TESTLTR+23, TESTLTR+24, TESTLTR+27
, TESTLTR+28, TESTLTR+29, TESTLTR+30, TESTLTR+36, TESTLTR+37, TESTLTR+38, TESTLTR+46, TESTLTR+47, TESTLTR+48, TESTLTR+55
, TESTLTR+56, REPORT+1~, REPORT+9*, REPORT+10*, REPORT+11
EASLTR LETTERS+1~, REPORT+1~, REPORT+5*, REPORT+7, REPORT+10, HDR+11
EASPTR LETTERS+1~, LETTERS+9*, LETTERS+10
EAX REPORT+1~, REPORT+4*
ERR UPD+1~
FDA TESTLTR+1~, UPD~
FDA(1 TESTLTR+15*, TESTLTR+16*, TESTLTR+17*, TESTLTR+22*, TESTLTR+23*, TESTLTR+24*, TESTLTR+28*, TESTLTR+29*, TESTLTR+30*, TESTLTR+37*
, TESTLTR+38*, TESTLTR+47*, TESTLTR+48*, TESTLTR+56*
FIN TESTLTR+1~, TESTLTR+10, TESTLTR+17*, TESTLTR+24*, TESTLTR+30*, TESTLTR+34, TESTLTR+40*, TESTLTR+44, TESTLTR+50*
IENS TESTLTR+1~
IO REPORT+3
IOF HDR+3
IOM HDR+8, HDR+13
IOSL REPORT+12
LINE HDR+1~, HDR+9*, HDR+10
MSG CHECK+2~, CHECK+26, EN+1~, MAIL+1~
MSG(1 CHECK+14*
MSG(10 MAIL+6*
MSG(2 CHECK+15*
MSG(20 MAIL+7*
MSG(3 CHECK+16*
MSG(30 MAIL+8*
MSG(31 MAIL+9*
MSG(35 MAIL+10*
MSG(4 CHECK+17*
MSG(40 MAIL+11*
MSG(5 CHECK+18*
MSG(50 MAIL+12*
MSG(6 CHECK+20*, CHECK+23*
MSG(60 MAIL+13*
MSG(65 MAIL+14*
MSG(7 CHECK+21*, CHECK+24*
MSG(70 MAIL+15*
MSG(8 CHECK+25*
NODE4 TESTLTR+1~, TESTLTR+6*, TESTLTR+10, TESTLTR+11, TESTLTR+19, TESTLTR+34, TESTLTR+44, TESTLTR+53
NODE6 TESTLTR+1~, TESTLTR+5*, TESTLTR+10, TESTLTR+11, TESTLTR+34, TESTLTR+44
NODEZ TESTLTR+1~, TESTLTR+7*, TESTLTR+10, TESTLTR+11, TESTLTR+12, TESTLTR+44, TESTLTR+53
PAGE REPORT+1~, REPORT+4*, HDR+4*, HDR+7
PART1 HDR+1~, HDR+6*, HDR+8, HDR+10
PART2 HDR+1~, HDR+7*, HDR+8, HDR+10
PRNT CHECK+1~, CHECK+11*, CHECK+12, CHECK+16
PTYP CHECK+1~, CHECK+12*, CHECK+17, CHECK+19
SPACE HDR+1~, HDR+8*, HDR+9
U CHECK+9, CHECK+16, TESTLTR+10, TESTLTR+11, TESTLTR+12, TESTLTR+19, TESTLTR+34, TESTLTR+44, TESTLTR+53
XMDUZ CHECK+2~, CHECK+5*, MAIL+1~, MAIL+3*
XMSUB CHECK+2~, CHECK+4*, MAIL+1~, MAIL+3*
XMTEXT CHECK+2~, CHECK+7*, MAIL+1~, MAIL+5*
XMY CHECK+2~, MAIL+1~
XMY( CHECK+6*, MAIL+4*
XX CHECK+2~, LETTERS+1~, LETTERS+6*, MAIL+1~
ZTDESC EN+1~, EN+12*
ZTDH EN+1~, EN+10*
ZTIO EN+1~
ZTRTN EN+1~, EN+9*
ZTSAVE EN+1~
ZTSAVE("DUZ" EN+11*
ZTSK EN+1~, EN+14
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All