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

Package: Enrollment Application System

Routine: EASMTL10


Information

EASMTL10 ;MIN/TCM ALB/SCK,AMA - AUTOMATED MEANS TEST LETTERS - RERUN LETTERS ; 7/17/01

Source Information

Source file <EASMTL10.m>

Entry Points

Name Comments DBIA/ICR reference
RERUN ; Main entry point to rerun a processing date
FILTER(EASLOC) ; Filter by Patient Preferred Location
; Input: None
ASKDT(EATYP,EASDDD) ; Ask for processing date to look for letters
; Input EATYP Type of letter to be reprinted
AGN
ASKQ
GETDT() ;
LTRTYPE(EATYP) ; Ask for a specific type of letter to print
; Input None
QUE1 ; Queue off the print job
QUEIT ;
EN1 ; Queued entry point for letter rerun
PRINT(EASTMP,EATYP) ;
BLD(EATYP,EASLOC,EASDDD,EASTMP) ; Sort letters for processing date in groups by type
SINGLE ; Rerun a single letter
ASKPAT ; Select patient to reprint a letter for
ASKLTR ; Select LETTER STATUS file entry
ASKTYP ; Allow only letters already sent to be reprinted
QUE2 ; Que off print letter
EN2 ; Queued entry point to re-run a single letter
LIST ; List last processing dates for the Letter Status file
NOTICE ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: RERUN+4
Function Call: WRITE
  • Prompt: !?2,$P($T(NOTICE+XX),";;",2)
  • Line Location: RERUN+5
Function Call: WRITE
  • Prompt: !!,"No valid processing date could be found for ",$S(EATYP=2:30,EATYP=4:0,1:60),"-day letters for ",$$FMTE^XLFDT(EASDT),"."
  • Line Location: AGN+7
Function Call: WRITE
  • Prompt: !,"Please select another date."
  • Line Location: AGN+8
Function Call: WRITE
  • Prompt: !!,"To re-print "_$S(EATYP=2:30,EATYP=4:0,1:60)_"-day letters for "_$$FMTE^XLFDT(EASDT)
  • Line Location: AGN+10
Function Call: WRITE
  • Prompt: !,"the Search/Processing date of "_$$FMTE^XLFDT(EAX)_" will be used."
  • Line Location: AGN+11
Function Call: WRITE
  • Prompt: !,"Please note: all valid "_$S(EATYP=2:30,EATYP=4:0,1:60)_"-day letters for this processing date will print"
  • Line Location: AGN+13
Function Call: WRITE
  • Prompt: !!?5,"Reprint canceled"
  • Line Location: QUEIT+9
Function Call: WRITE
  • Prompt: !!?5,"Letters queued, [",ZTSK,"]"
  • Line Location: QUEIT+10
Function Call: WRITE
  • Prompt: !,"...Gathering letters to re-print..."
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !?3,$CHAR(7),">> No letters found to reprint for these parameters.",!
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: !!?4,$CHAR(7),"The Prohibit flag is set for this patient"
  • Line Location: ASKPAT+11
Function Call: WRITE
  • Prompt: !!?4,$CHAR(7),"Patient is deceased"
  • Line Location: ASKPAT+13
Function Call: WRITE
  • Prompt: !!?4,$CHAR(7),"A Means Test has already been returned by this patient"
  • Line Location: ASKLTR+10
Function Call: WRITE
  • Prompt: !!?4,$CHAR(7),"Patient's Means Test is no longer required"
  • Line Location: ASKLTR+13
Function Call: WRITE
  • Prompt: !!?4,$CHAR(7),"There are no letters to re-print for this patient"
  • Line Location: ASKTYP+9
Function Call: WRITE
  • Prompt: !!,"Available Processing Dates:"
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !?6,$$FMTE^XLFDT(EAX,"2D")
  • Line Location: LIST+6

FileMan Files Accessed Via FileMan Db Call

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