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

Package: Enrollment Application System

Routine: EASMTRP1


Information

EASMTRP1 ;ALB/GAH - MEANS TEST DAILY EXPIRATION REPORT ; 10/10/2006

Source Information

Source file <EASMTRP1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 3 HOME^%ZIS  ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
Registration 3 $$LST^DGMTU  KVA^VADPT  PID^VADPT6  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Enrollment Application System 1 $$DECEASED^EASMTUTL  
Scheduling 1 $$SDAPI^SDAMA301  

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 EXPIRATION BG PRINT  EAS MT EXPIRATIONS  
Kernel 1 ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
EN ; Interactive report generation, select date range
PRT(EASTMP,EASDT) ;
HDR(EASDT) ; Print report header
PRTLINE(EASANV,EASDAT) ; Format and print report line
GETAPT(DFN,EASAPT) ; Get future appointments for patient
QUE ; Queued report generation
BLDSD ;
BLD ; Build the list of MT expirations to TMP global

External References

Name Field # of Occurrence
HOME^%ZIS EN+3
$$LST^DGMTU BLD+11
$$GET1^DIQ EN+21, BLD+10, BLD+16, PRTLINE+4, PRTLINE+19
^DIR EN+10, EN+17, PRT+16
$$DECEASED^EASMTUTL BLD+13
$$SDAPI^SDAMA301 BLDSD+17
KVA^VADPT PRTLINE+22
PID^VADPT6 PRTLINE+7
$$DT^XLFDT QUE+3
$$FMADD^XLFDT QUE+3, BLD+5, BLD+6, PRTLINE+10
$$FMTE^XLFDT EN+8, EN+15, PRTLINE+10, PRTLINE+19, HDR+9, HDR+14
$$NOW^XLFDT HDR+14
EN^XUTMDEVQ EN+24, QUE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,$CHAR(7),"Enter date range for anniversary date search"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!?3,">> No Means Test expirations for the selected date range."
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !,$E(EASNAME,1,20)
  • Line Location: PRTLINE+5
Function Call: WRITE
  • Prompt: ?22,VA("PID")
  • Line Location: PRTLINE+8
Function Call: WRITE
  • Prompt: ?35,$TR($$FMTE^XLFDT($$FMADD^XLFDT(EASANV,365),"2F")," ","0")
  • Line Location: PRTLINE+10
Function Call: WRITE
  • Prompt: ?46,$S(EASTAT="C":"MT CPR",EASTAT="A":"MT CPE",EASTAT="R":"REQD",EASTAT="N":"NA",EASTAT="P":"PEND",EASTAT="G":"GMT CPR",1:"")
  • Line Location: PRTLINE+12
Function Call: WRITE
  • Prompt: ?55,$E($$GET1^DIQ(44,EACL,.01),1,15)," ",$$FMTE^XLFDT(EASAPT(EACL),"2D")
  • Line Location: PRTLINE+19
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,HDR
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,HDR
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: !!,"Printed: "_$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?TAB,"Page "_PAGE
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,"Patient",?25,"SSN",?35,"MT Expired",?46,"Status",?57,"Future Appts"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+22
Routine Call
  • %ZIS
  • Line Location:
    • EN+3
Routine Call
  • DIR
  • Line Location:
    • EN+10
    • EN+17
    • PRT+16

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGMT(408.31 - [#408.31] GET1^DIQ
^SC - [#44] GET1^DIQ
^EAS(713 - [#713] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] BLD+7, BLD+9
^DPT - [#2] BLDSD+6
^TMP("EASEXP" BLD+3!, BLD+18*, BLDSD+3, BLDSD+4, BLDSD+5
^TMP($J BLD+24!, BLDSD+18*, BLDSD+20, BLDSD+21*, BLDSD+22!, PRTLINE+14, GETAPT+2, GETAPT+3, GETAPT+4, HDR+18

Label References

Name Line Occurrences
BLDSD BLD+22
GETAPT PRTLINE+15
HDR PRT+4, PRT+18
PRT BLD+23
PRTLINE PRT+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+24, QUE+1~
%ZIS("B" EN+22*
ACNT EN+1~, BLDSD+1~, BLDSD+2*, BLDSD+7, BLDSD+9*
DFN BLD+1~, BLD+10*, BLD+11, BLD+13, BLD+18, PRT+1~, PRTLINE+1~, PRTLINE+3*, PRTLINE+4, PRTLINE+15
, GETAPT~, GETAPT+2, GETAPT+3, GETAPT+4
DGARRAY EN+1~, BLD+24!, BLDSD+1~, BLDSD+13!, BLDSD+17
DGARRAY("FLDS" BLDSD+14*
DGARRAY("SORT" BLDSD+14*
DGARRAY(1 BLDSD+14*
DGARRAY(4 BLDSD+16*
DIR EN+10!, EN+17!, PRT+16!
DIR("?" EN+8*, EN+15*
DIR("A" EN+9*, EN+16*
DIR("B" EN+8*, EN+15*
DIR(0 EN+8*, EN+15*, PRT+15*
>> DIRUT EN+11, EN+18
DT EN+8, EN+15, BLDSD+14
EACL PRTLINE+1~, PRTLINE+17*, PRTLINE+19
EASABRT PRT+1~, PRT+9, PRT+11, PRT+17*
EASANV BLD+1~, BLD+6*, BLD+7*, BLD+9, BLD+18, PRT+1~, PRT+3*, PRT+9*, PRT+11, PRT+12
, PRT+13, PRTLINE~, PRTLINE+10
EASAP GETAPT+1~, GETAPT+3*, GETAPT+4
EASAPT PRTLINE+1~, PRTLINE+15, PRTLINE+16, GETAPT~
EASAPT( PRTLINE+17, PRTLINE+19, GETAPT+5*
>> EASBEG EN+12*, QUE+3*, BLD+6, BLD+21
EASCL GETAPT+1~, GETAPT+5*
EASDAT PRT+12*, PRT+13, PRTLINE~, PRTLINE+3, PRTLINE+11
EASDT BLD+1~, BLD+23, PRT~, PRT+4, PRT+18, HDR~
EASDT("BEG" BLD+21*, HDR+9
EASDT("END" BLD+21*, HDR+9
>> EASEND EN+19*, QUE+3*, BLD+5, BLD+21
EASENDT BLD+1~, BLD+5*, BLD+7
EASF PRTLINE+1~, PRTLINE+18, PRTLINE+20*
EASIEN BLD+1~, BLD+8*, BLD+9*, BLD+10, BLD+12, BLD+18, PRT+1~, PRT+10*, PRT+11*, PRT+12
EASLST BLD+1~, BLD+11*, BLD+12, BLD+14, BLD+16, BLD+18
EASNAME PRTLINE+1~, PRTLINE+4*, PRTLINE+5
EASND GETAPT+1~, GETAPT+4*, GETAPT+5
EASP PRT+1~
EASTAT PRTLINE+1~, PRTLINE+11*, PRTLINE+12
EASTMP BLD+1~, BLD+20*, BLD+23, PRT~, PRT+6, PRT+9, PRT+11, PRT+12
EAX EN+21*, EN+22, QUE+1~
EDATE EN+1~, BLDSD+1~, BLDSD+3*, BLDSD+4, BLDSD+5
ERROR EN+1~, BLDSD+1~, BLDSD+12*, BLDSD+15, BLDSD+20*, BLDSD+21, HDR+1~, HDR+18*, HDR+19
HDR HDR+1~, HDR+6*, HDR+7!, HDR+11*, HDR+12!
I EN+1~, BLD+24!, BLDSD+1~, BLDSD+15*, BLDSD+16
IOF EN+4, HDR+3
IOM HDR+5, HDR+10, HDR+16, HDR+22
>> IOP QUE+5*
IOSL PRT+14
IOST PRT+14, HDR+3
LINE HDR+1~, HDR+22*
MTREC EN+1~, BLDSD+1~, BLDSD+4*, BLDSD+5
PAGE PRT+1~, PRT+3*, HDR+15*, HDR+17
PIEN EN+1~, BLDSD+1~, BLDSD+5*, BLDSD+6, BLDSD+7
RCNT EN+1~, BLDSD+1~, BLDSD+2*, BLDSD+7*, BLDSD+9*
SDCNT EN+1~, BLD+24!, BLDSD+1~, BLDSD+17*, BLDSD+18, BLDSD+19
SPACE HDR+1~, HDR+5*, HDR+6, HDR+10*, HDR+11
TAB HDR+1~, HDR+16*, HDR+17
TXT HDR+1~, HDR+4*, HDR+5, HDR+6, HDR+9*, HDR+10, HDR+11
U BLD+14, BLD+16, BLD+18, PRTLINE+3, PRTLINE+11, GETAPT+5
>> VA("PID" PRTLINE+8
VARR EN+1~, BLD+24!, BLDSD+1~
VARR( BLDSD+7*, BLDSD+15, BLDSD+16
>> Y EN+12, EN+19, PRT+17
ZTDESC QUE+1~
ZTRTN QUE+1~
ZTSAVE EN+24, QUE+1~, QUE+6
ZTSAVE("EASBEG" EN+23*, QUE+4*
ZTSAVE("EASEND" EN+23*, QUE+4*
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