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

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^EAS(713.2 - [#713.2] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call