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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^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