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 |  Marked Items |  All
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>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  EN^XUTMDEVQ  
Enrollment Application System 4 ($$FACNUM,$$THRSHLD)^EASMTL6  ($$CHKADR,LETTER)^EASMTL6A  ($$CHECKMT,$$DECEASED,$$FUTMT)^EASMTUTL  $$UESTAT^EASUER  
VA FileMan 2 $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Enrollment Application System 2 EAS MT REPRINT LETTERS  EAS MT REPRINT SINGLE LETTER  
Kernel 1 ^DIC(19  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS QUE1+5
HOME^%ZIS RERUN+3, QUEIT+11
^%ZISC QUE1+9
^%ZTLOAD QUEIT+8
$$GET1^DIQ FILTER+13, QUE1+4, BLD+6, BLD+7, BLD+9, ASKLTR+9
^DIR FILTER+17, AGN+19, GETDT+6, LTRTYPE+16, PRINT+9, ASKPAT+4, ASKLTR+5, ASKTYP+13
$$FACNUM^EASMTL6 FILTER+21
$$THRSHLD^EASMTL6 BLD+10
$$CHKADR^EASMTL6A BLD+16
LETTER^EASMTL6A PRINT+6, EN2+2
$$CHECKMT^EASMTUTL BLD+13, ASKLTR+12
$$DECEASED^EASMTUTL BLD+15, ASKPAT+12
$$FUTMT^EASMTUTL BLD+14
$$UESTAT^EASUER BLD+18
$$FMADD^XLFDT AGN+4
$$FMTE^XLFDT AGN+7, AGN+10, AGN+11, AGN+16, LIST+6
EN^XUTMDEVQ QUE2+2

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
Routine Call
  • %ZIS
  • Line Location:
    • RERUN+3
    • QUEIT+11
Routine Call
  • DIR
  • Line Location:
    • FILTER+17
    • AGN+19
    • GETDT+6
    • LTRTYPE+16
    • PRINT+9
    • ASKPAT+4
    • ASKLTR+5
    • ASKTYP+13
Routine Call
  • %ZIS
  • Line Location:
    • QUE1+5

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EAS(713.1 - [#713.1] BLD+12, ASKPAT+10
^EAS(713.2 - [#713.2] AGN+5, BLD+4, BLD+11, ASKTYP+4, LIST+5

Label References

Name Line Occurrences
$$ASKDT RERUN+9
$$FILTER RERUN+7
$$GETDT AGN
$$LTRTYPE RERUN+8
AGN AGN+6, AGN+21
ASKQ AGN+1, AGN+20
BLD EN1+7
EN1 QUE1+8
PRINT EN1+10
QUE1 RERUN+10
QUEIT QUE1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE1+4*, QUE1+5!
%ZIS("B" QUE1+4*
DFN BLD+1~, BLD+7*, BLD+9, BLD+18, SINGLE+1~, ASKPAT+7*, ASKPAT+8, ASKPAT+12
DIR FILTER+10~, FILTER+17!, AGN+19!, GETDT+1~, GETDT+6!, LTRTYPE+11~, LTRTYPE+16!, PRINT+9!, SINGLE+1~, ASKPAT+4!
, ASKLTR+5!, ASKTYP+13!
DIR("?" FILTER+16*, AGN+16*, GETDT+4*, LTRTYPE+15*, ASKPAT+3*, ASKLTR+2*, ASKTYP+12*
DIR("A" FILTER+14*, AGN+17*, GETDT+5*, LTRTYPE+14*, ASKPAT+2*, ASKLTR+3*, ASKTYP+11*
DIR("B" FILTER+15*, AGN+18*
DIR("S" ASKLTR+4*
DIR(0 FILTER+14*, FILTER+20*, AGN+15*, GETDT+3*, LTRTYPE+13*, PRINT+8*, ASKPAT+1*, ASKLTR+1*, ASKTYP+11*
DIRUT FILTER+10~, FILTER+13, FILTER+18, AGN+20, GETDT+1~, GETDT+7, LTRTYPE+11~, LTRTYPE+17, SINGLE+1~, ASKPAT+5
, ASKLTR+6, ASKTYP+14
EASABRT EN1+1~, PRINT+1~, PRINT+5, PRINT+10*
EASDDD RERUN+1~, RERUN+9, ASKDT~, AGN+23*, EN1+7, BLD~, BLD+4
EASDT ASKDT+9~, AGN*, AGN+1, AGN+4, AGN+7, AGN+10
EASIEN EN1+1~, PRINT+1~, PRINT+4*, PRINT+5*, PRINT+6, BLD+1~, BLD+3*, BLD+4*, BLD+6, BLD+10
, BLD+11, BLD+13, BLD+14, BLD+15, BLD+20, SINGLE+1~, ASKLTR+7*, ASKLTR+9, ASKLTR+12, ASKTYP+4
, EN2+2
EASLOC RERUN+1~, RERUN+7, FILTER~, FILTER+12*, FILTER+19*, FILTER+21*, FILTER+23*, EN1+7, BLD~, BLD+9
, SINGLE+1~
EASLTR BLD+1~
EASOFST ASKDT+9~, AGN+3*, AGN+4
EASPTR BLD+1~, BLD+6*, BLD+7, BLD+12, BLD+13, BLD+16, SINGLE+1~, ASKPAT+6*, ASKPAT+10, ASKLTR+12
EASSC ASKTYP+1~, ASKTYP+5*, ASKTYP+6*, ASKTYP+7*, ASKTYP+8, ASKTYP+11
EASTMP EN1+1~, EN1+3*, EN1+4, EN1+7, EN1+8, EN1+10, EN1+11, PRINT~, PRINT+5, BLD~
, BLD+20
EASUE BLD+18~*, BLD+19
EASX QUEIT+1~, QUEIT+5*
EATYP RERUN+1~, RERUN+8, RERUN+9, ASKDT~, AGN+3, AGN+7, AGN+10, AGN+13, LTRTYPE~, LTRTYPE+18*
, EN1+7, EN1+10, PRINT~, PRINT+6, BLD~, BLD+10, BLD+16, BLD+20, ASKTYP+15*, EN2+2
EAX ASKDT+9~, AGN+4*, AGN+5*, AGN+6, AGN+11, AGN+16, AGN+23, SINGLE+1~, ASKTYP+1~, ASKTYP+3*
, ASKTYP+4, ASKTYP+5, ASKTYP+6, ASKTYP+7, LIST+1~, LIST+4*, LIST+5*, LIST+6
IO PRINT+3
IO("Q" QUE1+1!, QUE1+7, PRINT+7
IOF RERUN+3, RERUN+4
IOP QUE1+1!, SINGLE+1~
IOST PRINT+7
POP QUE1+2~, QUE1+6
PRNOVRD SINGLE+1~
RSLT ASKDT+9~, ASKDT+11*, AGN+24*, ASKQ
U ASKTYP+4
XX RERUN+1~, RERUN+5*
Y FILTER+19, AGN+21, GETDT+7*, GETDT+8, LTRTYPE+18, PRINT+10, SINGLE+1~, ASKPAT+6, ASKLTR+7, ASKTYP+15
Y(0 ASKPAT+7
ZTDESC QUEIT+1~, QUEIT+4*
ZTDTH QUEIT+1~, QUEIT+6*
ZTQUEUED QUEIT+1~, EN1+6, EN1+8
ZTRTN QUEIT+1~, QUEIT+3*
ZTSAVE QUEIT+1~, SINGLE+1~, QUE2+2
ZTSAVE( QUEIT+5*
ZTSAVE("EASIEN" QUE2+1*
ZTSAVE("EASLOC" QUE2+1*
ZTSAVE("EASPTR" QUE2+1*
ZTSAVE("EATYP" QUE2+1*
ZTSK QUEIT+1~, QUEIT+9, QUEIT+10

Marked Items

Name Field # of Occurrence
$T(NOTICE+XX RERUN+5
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 |  Marked Items |  All