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

Package: Enrollment Application System

Routine: EASMTRPT


Information

EASMTRPT ; MIN/TCM ALB/SCK - AUTOMATED MEANS TEST LETTERS REPORTS ; 7/6/01

Source Information

Source file <EASMTRPT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 3 WAIT^DICD  $$GET1^DIQ  ^DIR  
Kernel 2 ($$FMADD,$$FMTE,$$NOW)^XLFDT  EN^XUTMDEVQ  
Enrollment Application System 1 ($$DECEASED,PAUSE)^EASMTUTL  
Registration 1 (KVA,PID)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Enrollment Application System 3 EAS MT STATISTICS SUMMARY  EAS MT SUMMARY REPORT  EAS MT UNRETURNED LETTERS  

Entry Points

Name Comments DBIA/ICR reference
UNRTN ; Unreturned letters report
PRT1 ;
LTRSTAT ; Means Test Letter Statistics Report
QUE2 ; Queued entry point for letters statistics
PRT2 ;
SUMMRY ; Automated MT Ltrs Summary
QUE3 ; PROCESSING SUMMARY REPORT
HDR(TITLE,SDISP,EDISP) ; Print report header
ASK(PRMPT)
INCPRHB(EASN,EAPRHB) ; Increment Prohibited Letters Flag count
; Input
; EASN -
; EAPRHB -
LAST4(EASIEN) ; Return last four for patient

External References

Name Field # of Occurrence
WAIT^DICD UNRTN+4
$$GET1^DIQ QUE2+19, QUE3+16, QUE3+28, LAST4+3
^DIR HDR+5, ASK+9, ASK+18
$$DECEASED^EASMTUTL QUE3+17
PAUSE^EASMTUTL PRT1+11, PRT2+22
KVA^VADPT LAST4+7
PID^VADPT LAST4+5
$$FMADD^XLFDT QUE2+9, SUMMRY+7
$$FMTE^XLFDT PRT2+5, PRT2+6, QUE3+18, QUE3+20, QUE3+21, QUE3+24, QUE3+26, QUE3+27, QUE3+32, QUE3+33
, HDR+10, HDR+12, ASK+15
$$NOW^XLFDT PRT2+6, HDR+12
EN^XUTMDEVQ LTRSTAT+9, SUMMRY+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: UNRTN+3
Function Call: WRITE
  • Prompt: !!,$CHAR(7),"Summary of Most Recent Unreturned Means Test Letters"
  • Line Location: PRT1+1
Function Call: WRITE
  • Prompt: !!,"60-day letters printed: ",$J(CTR(60),6)
  • Line Location: PRT1+3
Function Call: WRITE
  • Prompt: !!,"30-day letters printed: ",$J(CTR(30),6)
  • Line Location: PRT1+4
Function Call: WRITE
  • Prompt: !!," 0-day letters printed: ",$J(CTR(0),6)
  • Line Location: PRT1+5
Function Call: WRITE
  • Prompt: !,"=============================="
  • Line Location: PRT1+6
Function Call: WRITE
  • Prompt: !!," Total: ",$J(TOT,6)
  • Line Location: PRT1+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRT1+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT2+3
Function Call: WRITE
  • Prompt: !,"MEANS TEST LETTERS STATISTIC REPORT"
  • Line Location: PRT2+4
Function Call: WRITE
  • Prompt: !,"Letter Processing Date Range: ",$$FMTE^XLFDT(EASB)," thru ",$$FMTE^XLFDT(EASE)
  • Line Location: PRT2+5
Function Call: WRITE
  • Prompt: !,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: PRT2+6
Function Call: WRITE
  • Prompt: !!,"Letter type:",?25,"60-day",?35,"30-day",?45,"0-day",?55,"Totals"
  • Line Location: PRT2+8
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: PRT2+9
Function Call: WRITE
  • Prompt: !!,"Letters printed:"
  • Line Location: PRT2+11
Function Call: WRITE
  • Prompt: ?25,EAYTOT(60),?35,EAYTOT(30),?45,EAYTOT(0)
  • Line Location: PRT2+12
Function Call: WRITE
  • Prompt: ?55,EAYTOT(60)+EAYTOT(30)+EAYTOT(0)
  • Line Location: PRT2+13
Function Call: WRITE
  • Prompt: !!,"Means Test returned Totals"
  • Line Location: PRT2+15
Function Call: WRITE
  • Prompt: !," AUTO-GENERATED:",?35,$FN(EAYRTN("AG"),",")
  • Line Location: PRT2+16
Function Call: WRITE
  • Prompt: !," Future MT:",?35,$FN(EAYRTN("FUT"),",")
  • Line Location: PRT2+17
Function Call: WRITE
  • Prompt: !," Owned by Other Site:",?35,$FN(EAYRTN("OWN"),",")
  • Line Location: PRT2+18
Function Call: WRITE
  • Prompt: !," Returned by Veteran:",?35,$FN(EAYRTN("OTR"),",")
  • Line Location: PRT2+19
Function Call: WRITE
  • Prompt: !," Total:",?35,$FN(EAYRTN("AG")+EAYRTN("OWN")+EAYRTN("OTR")+EAYRTN("FUT"),",")
  • Line Location: PRT2+20
Function Call: WRITE
  • Prompt: !!,"Count of patient records set to prohibit letter during date range: ",$G(EAPRHB)
  • Line Location: PRT2+21
Function Call: WRITE
  • Prompt: !!,$CHAR(7),"A 132-Column printer is required for this report"
  • Line Location: SUMMRY+9
Function Call: WRITE
  • Prompt: !!,"Entry",?COL2,"Patient",?COL3,"Means Test",?COL4,"Letter",?COL5,"Print",?COL6,"Flag to",?COL7,"Letter",?COL8,"Print",?COL9,"Prohibit"
  • Line Location: QUE3+8
Function Call: WRITE
  • Prompt: !,?COL3,"Date",?COL4,"Type",?COL5,"Date",?COL6,"Print",?COL7,"Printed?",?COL8,"Date",?COL9,"Flag?",!
  • Line Location: QUE3+9
Function Call: WRITE
  • Prompt: !,EASIEN,?COL2,$E($$GET1^DIQ(713.2,EASIEN,2),1,25)_" ("_$$LAST4($P(EANODE0,U,2))_")"
  • Line Location: QUE3+16
Function Call: WRITE
  • Prompt: " *D*"
  • Line Location: QUE3+17
Function Call: WRITE
  • Prompt: ?COL3,$$FMTE^XLFDT($P(EANODE0,U,3),"2D")
  • Line Location: QUE3+18
Function Call: WRITE
  • Prompt: ?COL4,"60-Day",?COL5,$$FMTE^XLFDT($P(EANODE6,U,1),"2D"),?COL6,$S($P(EANODE6,U,2)=1:"YES",1:"NO")
  • Line Location: QUE3+20
Function Call: WRITE
  • Prompt: ?COL7,$S($P(EANODE6,U,3)=1:"YES",1:"NO"),?COL8,$$FMTE^XLFDT($P(EANODE6,U,4),"2D"),?COL9
  • Line Location: QUE3+21
Function Call: WRITE
  • Prompt: "YES"
  • Line Location: QUE3+22
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE3+23
Function Call: WRITE
  • Prompt: ?15,"MT Returned: ",$$FMTE^XLFDT($P(EANODE0,U,5),"2D")
  • Line Location: QUE3+24
Function Call: WRITE
  • Prompt: ?COL4,"30-Day",?COL5,$$FMTE^XLFDT($P(EANODE4,U,1),"2D"),?COL6,$S($P(EANODE4,U,2)=1:"YES",1:"NO")
  • Line Location: QUE3+26
Function Call: WRITE
  • Prompt: ?COL7,$S($P(EANODE4,U,3)=1:"YES",1:"NO"),?COL8,$$FMTE^XLFDT($P(EANODE4,U,4),"2D"),!
  • Line Location: QUE3+27
Function Call: WRITE
  • Prompt: ?15
  • Line Location: QUE3+28
Function Call: WRITE
  • Prompt: $E(WP(1),1,30)
  • Line Location: QUE3+30
Function Call: WRITE
  • Prompt: ?COL4,"0-Day",?COL5,$$FMTE^XLFDT($P(EANODEZ,U,1),"2D"),?COL6,$S($P(EANODEZ,U,2)=1:"YES",1:"NO")
  • Line Location: QUE3+32
Function Call: WRITE
  • Prompt: ?COL7,$S($P(EANODEZ,U,3)=1:"YES",1:"NO"),?COL8,$$FMTE^XLFDT($P(EANODEZ,U,4),"2D"),!
  • Line Location: QUE3+33
Function Call: WRITE
  • Prompt: !?42,$E(LINE,1,IOM-42)
  • Line Location: QUE3+34
Function Call: WRITE
  • Prompt: !!,"Entry",?COL2,"Patient",?COL3,"Means Test",?COL4,"Letter",?COL5,"Print",?COL6,"Flag to",?COL7,"Letter",?COL8,"Print",?COL9,"Prohibit"
  • Line Location: QUE3+38
Function Call: WRITE
  • Prompt: !,?COL3,"Date",?COL4,"Type",?COL5,"Date",?COL6,"Print",?COL7,"Printed?",?COL8,"Date",?COL9,"Flag?",!
  • Line Location: QUE3+39
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: TITLE
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"Date Range: ",$$FMTE^XLFDT(SDISP)," thru ",$$FMTE^XLFDT(EDISP)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !!,"Print Date: ",$$FMTE^XLFDT($$NOW^XLFDT)
  • Line Location: HDR+12
Function Call: WRITE
  • Prompt: ?TAB,"Page "_PAGE
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+16
Routine Call
  • DIR
  • Line Location:
    • HDR+5
    • ASK+9
    • ASK+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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] QUE3+22, INCPRHB+10, INCPRHB+12
^EAS(713.2 - [#713.2] UNRTN+9, UNRTN+10, UNRTN+11, UNRTN+12, QUE2+10, QUE2+12, QUE2+13, QUE2+14, QUE2+15, QUE2+17
QUE3+12, QUE3+14, QUE3+15, QUE3+19, QUE3+25, QUE3+31, INCPRHB+8

Label References

Name Line Occurrences
$$ASK LTRSTAT+3, SUMMRY+3
$$LAST4 QUE3+16
HDR QUE3+6, QUE3+36
INCPRHB QUE2+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
COL QUE3+1~
COL1 QUE3+2~, QUE3+4*
COL2 QUE3+2~, QUE3+4*, QUE3+8, QUE3+16, QUE3+38
COL3 QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+18, QUE3+38, QUE3+39
COL4 QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+20, QUE3+26, QUE3+32, QUE3+38, QUE3+39
COL5 QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+20, QUE3+26, QUE3+32, QUE3+38, QUE3+39
COL6 QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+20, QUE3+26, QUE3+32, QUE3+38, QUE3+39
COL7 QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+21, QUE3+27, QUE3+33, QUE3+38, QUE3+39
COL8 QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+21, QUE3+27, QUE3+33, QUE3+38, QUE3+39
COL9 QUE3+2~, QUE3+4*, QUE3+8, QUE3+9, QUE3+21, QUE3+38, QUE3+39
CTR UNRTN+1~
CTR( UNRTN+6*
CTR(0 UNRTN+10*, PRT1+5, PRT1+7
CTR(30 UNRTN+11*, PRT1+4, PRT1+7
CTR(60 UNRTN+12*, PRT1+3, PRT1+7
DFN LAST4+1~, LAST4+3*, LAST4+4
DIR HDR+5!, ASK+1~, ASK+18!
DIR("?" ASK+6*, ASK+7*, ASK+15*, ASK+16*
DIR("A" ASK+5*, ASK+14*
DIR("B" ASK+8*, ASK+17*
DIR(0 HDR+4*, ASK+4*, ASK+13*
DIRUT ASK+1~, ASK+10, ASK+19
EAIEN QUE2+1~, QUE2+11*, QUE2+12*, QUE2+13, QUE2+14, QUE2+15, QUE2+16, QUE2+17, QUE2+19
EALNE QUE3+1~
EANODE QUE3+1~
EANODE0 QUE3+15!*, QUE3+16, QUE3+18, QUE3+22, QUE3+24, QUE3+28
EANODE4 QUE3+25!*, QUE3+26, QUE3+27
EANODE6 QUE3+19!*, QUE3+20, QUE3+21
EANODEZ QUE3+31!*, QUE3+32, QUE3+33
EAPRHB QUE2+1~, QUE2+5*, QUE2+16, PRT2+21, INCPRHB~, INCPRHB+11*
EAPRHB( INCPRHB+13*
EAS1 QUE2+1~, QUE2+9*, QUE2+10*, QUE2+12
EAS6 UNRTN+1~
EASABRT QUE3+1~, QUE3+12, QUE3+14, QUE3+37, HDR+3, HDR+6*
EASB LTRSTAT+1~, LTRSTAT+6*, QUE2+9, PRT2+5
EASCMT QUE2+1~, QUE2+18!
EASCMT(1 QUE2+20, QUE2+21, QUE2+22
EASDFN INCPRHB+5~, INCPRHB+12*, INCPRHB+13
EASDT LTRSTAT+1~, LTRSTAT+3*, LTRSTAT+4, LTRSTAT+6, SUMMRY+1~, SUMMRY+3*, SUMMRY+4, SUMMRY+5, SUMMRY+6
EASE LTRSTAT+1~, LTRSTAT+6*, QUE2+10, PRT2+5
EASIEN UNRTN+1~, UNRTN+8*, UNRTN+9*, UNRTN+10, UNRTN+11, UNRTN+12, QUE3+1~, QUE3+13*, QUE3+14*, QUE3+15
QUE3+16, QUE3+17, QUE3+19, QUE3+25, QUE3+28, QUE3+31, LAST4~, LAST4+3
EASN UNRTN+1~, QUE3+1~, QUE3+11*, QUE3+12*, QUE3+14, INCPRHB~, INCPRHB+7, INCPRHB+8
EASNODE UNRTN+1~
EASPAT INCPRHB+5~, INCPRHB+8*, INCPRHB+9, INCPRHB+10, INCPRHB+12
EASX QUE2+1~, QUE2+6*, QUE2+7*
EATYP QUE3+1~
EAWP QUE3+1~, QUE3+28*, QUE3+29
EAX UNRTN+1~, UNRTN+6*, QUE2+1~, QUE2+19*, SUMMRY+1~
EAYRTN QUE2+1~
EAYRTN( QUE2+7*
EAYRTN("AG" QUE2+20*, PRT2+16, PRT2+20
EAYRTN("FUT" QUE2+22*, PRT2+17, PRT2+20
EAYRTN("OTR" QUE2+23*, PRT2+19, PRT2+20
EAYRTN("OWN" QUE2+21*, PRT2+18, PRT2+20
EAYTOT QUE2+1~
EAYTOT( QUE2+6*
EAYTOT(0 QUE2+13*, PRT2+12, PRT2+13
EAYTOT(30 QUE2+14*, PRT2+12, PRT2+13
EAYTOT(60 QUE2+15*, PRT2+12, PRT2+13
EDATE SUMMRY+1~, SUMMRY+6*, QUE3+12, ASK+1~, ASK+20*, ASK+21
EDISP SUMMRY+1~, SUMMRY+6*, QUE3+6, QUE3+36, HDR~, HDR+10
IOF UNRTN+3, PRT2+3, HDR+8
IOM PRT2+9, QUE3+34, HDR+13, HDR+16
IOSL QUE3+35
IOST PRT2+22, HDR+3
LINE PRT2+1~, PRT2+9*, QUE3+34*, HDR+1~, HDR+16*
PAGE QUE3+1~, QUE3+5*, HDR+14*
PRMPT ASK~, ASK+5, ASK+14
RSLT LAST4+1~, LAST4+6*, LAST4+8
SDATE SUMMRY+1~, SUMMRY+5*, SUMMRY+7*, QUE3+11, ASK+1~, ASK+11*, ASK+13, ASK+15, ASK+21
SDISP SUMMRY+1~, SUMMRY+5*, QUE3+6, QUE3+36, HDR~, HDR+10
TAB PRT2+1~, HDR+1~, HDR+13*, HDR+14
TITLE HDR~, HDR+9
TOT UNRTN+1~, PRT1+7*, PRT1+8
U UNRTN+10, UNRTN+11, UNRTN+12, LTRSTAT+6, QUE2+13, QUE2+14, QUE2+15, QUE2+17, SUMMRY+5, SUMMRY+6
QUE3+16, QUE3+18, QUE3+20, QUE3+21, QUE3+22, QUE3+24, QUE3+26, QUE3+27, QUE3+28, QUE3+32
QUE3+33, ASK+21
>> VA("BID" LAST4+6
WP QUE3+1~, QUE3+28!
WP(1 QUE3+30
>> Y HDR+6, ASK+11, ASK+20
ZTSAVE LTRSTAT+1~, LTRSTAT+9, SUMMRY+10
ZTSAVE("EASB" LTRSTAT+7*
ZTSAVE("EASE" LTRSTAT+7*
ZTSAVE("EDATE" SUMMRY+8*
ZTSAVE("EDISP" SUMMRY+8*
ZTSAVE("SDATE" SUMMRY+8*
ZTSAVE("SDISP" SUMMRY+8*
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