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

Package: Enrollment Application System

Routine: EASECEXP


Information

EASECEXP ;ALB/LBD - Report of Expiring or Expired LTC Copay Tests; 10-SEP-2003

Source Information

Source file <EASECEXP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMDIFF,$$FMTE)^XLFDT  ($$CJ,$$RJ)^XLFSTR  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Enrollment Application System 1 $$LST^EASECU  

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

Package Total Caller Graph
Enrollment Application System 1 EASEC LTC COPAY TEST EXPIRE  

Entry Points

Name Comments DBIA/ICR reference
DATE2() ; Select start date for report 2
; Input: None
; Output: Y - Report start date
PAUSE() ; Prompt for next page or quit, if report is sent to screen
RPT() ; Select which report to print
; Input: None
; Output: Y - Report Type (1=Pending Expiration; 2=Expired; 0=Quit)
EN ; Entry point
HDR ; Print report header
SRT() ; Select sort
; Input: None
; Output: Y - Sort (N=Name; D=Date)
PRINT ; Print report data
PRTVAR ; Set up variables needed to print report
FMTDT(X) ;Format date to print on report
START ; Generate report
; Input: EASRPT - Report Type (1=Pending Expiration; 2=Expired)
; EASUDT - Number of Days or Start Date
; EASSRT - Sort (N=Name; D=Date)
QUE ; Get the report device, queue if requested
CHK(DFN,EASIEN) ;Check if LTC Copay Test meets criteria for the report
; Input: DFN - Patient IEN
; EASIEN - LTC Copay Test IEN
; Output: 1 = meets criteria for report
; 0 = doesn't meet criteria for report
GETREC ; Loop through Annual Means Test File #408.31 to find LTC Copay Tests
; within the date range
SET(DFN,IEN,SRT) ;Store data to be printed in the ^TMP global
; Input: DFN - Patient IEN
; IEN - LTC Copay Test IEN
DATE1() ; Select number of days for report 1
; Input: None
; Output: Y - Number of days to report (1-60)
SSN(X) ; Format SSN to print on report

External References

Name Field # of Occurrence
^%ZIS QUE+3
HOME^%ZIS EN+12
^%ZISC EN+12
^%ZTLOAD QUE+8
$$GET1^DIQ SET+6, SET+8, SET+9
^DIR RPT+13, DATE1+5, DATE2+6, SRT+7, PAUSE+4
$$LST^EASECU CHK+9
$$FMADD^XLFDT DATE2+4, GETREC+5, GETREC+6, GETREC+8, GETREC+9, SET+7
$$FMDIFF^XLFDT CHK+10
$$FMTE^XLFDT PRTVAR+3, PRTVAR+6
$$CJ^XLFSTR PRTVAR+4, PRTVAR+5, PRTVAR+6
$$RJ^XLFSTR HDR+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report of LTC Copayment Tests"
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !!,"Report Cancelled!"
  • Line Location: QUE+3
Function Call: WRITE
  • Prompt: !!,?10,"*** No records to print ***"
  • Line Location: START+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?0,"REPORT DATE: ",RPTDT,?73,"PAGE: ",$$RJ^XLFSTR(PG,3)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,HDR1,!,HDR2,!,HDR3
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?50,"LTC Test",?66,"LTC Test"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"SSN",?14,"Veteran's Name",?46,"Anniversary Date",?67,"Status"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,HDRLN
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?30,"Reason: ",REAS
  • Line Location: PRINT+12
Routine Call
  • %ZIS
  • Line Location:
    • EN+12
Routine Call
  • DIR
  • Line Location:
    • RPT+13
    • DATE1+5
    • DATE2+6
    • SRT+7
    • PAUSE+4
Routine Call
  • %ZIS
  • Line Location:
    • QUE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGMT(408.31 - [#408.31] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGMT(408.31 - [#408.31] GETREC+12, GETREC+13, GETREC+14, SET+7, CHK+7, CHK+15
^DPT - [#2] CHK+12
^TMP("EASECEXP" START+5!, START+9, START+11!, SET+10*, SET+11*

Label References

Name Line Occurrences
$$CHK GETREC+16
$$DATE1 EN+5
$$DATE2 EN+6
$$FMTDT PRINT+6
$$PAUSE START+10, PRINT+9
$$RPT EN+3
$$SRT EN+9
$$SSN PRINT+10
GETREC START+6
HDR START+8, PRINT+9
PRINT START+10
PRTVAR START+7
QUE EN+11
SET GETREC+16
START QUE+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS QUE+2!, QUE+3*
ANNDT SET+5~, SET+7*, SET+10, SET+11, PRINT+1~, PRINT+6*, PRINT+10
CHKDT CHK+6~, CHK+7*, CHK+10
CRT START+4~, START+10, PRTVAR+1*, PRTVAR+3, PAUSE+2
DFN GETREC+2~, GETREC+12*, GETREC+13, GETREC+16, SET~, SET+3, SET+6, CHK~, CHK+5, CHK+9
, CHK+12
DIR RPT+3~, DATE1+3~, DATE2+3~, SRT+3~, PAUSE+1~
DIR("?" RPT+7*, RPT+8*, RPT+9*, RPT+10*, RPT+11*, RPT+12*, SRT+5*, SRT+6*
DIR("A" RPT+6*, DATE1+4*, DATE2+5*, SRT+4*
DIR(0 RPT+5*, DATE1+4*, DATE2+5*, SRT+4*, PAUSE+3*
DIROUT RPT+3~, DATE1+3~, DATE2+3~, SRT+3~
DIRUT RPT+3~, DATE1+3~, DATE2+3~, SRT+3~, PAUSE+1~
DT DATE2+4, GETREC+5, GETREC+9, CHK+10, PRTVAR+3
DTOUT RPT+3~, RPT+13, DATE1+3~, DATE1+5, DATE2+3~, DATE2+6, SRT+3~, SRT+7, PAUSE+1~
DUOUT RPT+3~, RPT+13, DATE1+3~, DATE1+5, DATE2+3~, DATE2+6, SRT+3~, SRT+7, PAUSE+1~
EASEDT GETREC+2~, GETREC+6*, GETREC+9*, GETREC+12
EASI PRINT+1~, PRINT+2*, PRINT+3*, PRINT+4, PRINT+5, PRINT+6
EASIEN GETREC+2~, GETREC+13*, GETREC+14, GETREC+16, CHK~, CHK+5, CHK+7, CHK+15
EASJ PRINT+1~, PRINT+3*, PRINT+4, PRINT+5, PRINT+6
EASRPT EN+1~, EN+3*, EN+5, QUE+6, GETREC+4, PRTVAR+5
EASSDT GETREC+2~, GETREC+5*, GETREC+6, GETREC+8*, GETREC+12
EASSRT EN+1~, EN+9*, GETREC+16, PRTVAR+7, PRINT+5, PRINT+6
EASUDT EN+1~, EN+5*, EN+6*, EN+7, GETREC+6, GETREC+8, PRTVAR+5, PRTVAR+6
EDT DATE2+3~, DATE2+4*, DATE2+5, GETREC+2~, GETREC+12*, GETREC+13
HDR1 START+4~, PRTVAR+4*, HDR+4
HDR2 START+4~, PRTVAR+5*, PRTVAR+6*, HDR+4
HDR3 START+4~, PRTVAR+7*, HDR+4
HDRLN START+4~, PRTVAR+8*, HDR+7
IEN SET~, SET+3, SET+7, SET+8, SET+9
IO START+8
IO("Q" QUE+4
IOF HDR+2
IOP QUE+2!
IOST PRTVAR+1
LINE START+4~, HDR+1*, PRINT+9, PRINT+11*, PRINT+12*
LTC CHK+6~, CHK+9*
LTCDT CHK+6~, CHK+9*, CHK+10
LTCST CHK+6~, CHK+9*, CHK+10
MXLNE START+4~, PRTVAR+3*, PRINT+9
NAME SET+5~, SET+6*, SET+10, SET+11, PRINT+1~, PRINT+5*, PRINT+10
OUT START+4~, START+10*, PRTVAR+3*, PRINT+3, PRINT+9*
PG START+4~, PRTVAR+3*, HDR+1*, HDR+3
POP QUE+1~, QUE+3
REAS SET+5~, SET+9*, SET+10, SET+11, PRINT+1~, PRINT+8*, PRINT+12
REC PRINT+1~, PRINT+4*, PRINT+7, PRINT+8
RPTDT START+4~, PRTVAR+3*, HDR+3
SDT DATE2+3~, DATE2+4*, DATE2+5
SRT SET~, SET+4*, SET+10
SSN SET+5~, SET+6*, SET+10, SET+11, PRINT+1~, PRINT+3*, PRINT+4, PRINT+10
ST GETREC+2~, GETREC+11*, GETREC+12*, GETREC+13
STAT SET+5~, SET+8*, SET+10, SET+11, PRINT+1~, PRINT+7*, PRINT+10, PRINT+12
TMP START+4~, PRTVAR+2*, PRINT+3, PRINT+4
U SET+10, SET+11, CHK+9, CHK+12, CHK+15, PRINT+7, PRINT+8
X RPT+3~, DATE1+3~, DATE2+3~, SRT+3~, FMTDT~, FMTDT+1, SSN~, SSN+1, PAUSE+1~
Y RPT+3~, RPT+13, RPT+14, DATE1+3~, DATE1+5, DATE1+6, DATE2+3~, DATE2+6, DATE2+7, SRT+3~
, SRT+8, PAUSE+1~, PAUSE+4
ZTDESC QUE+1~, QUE+6*
ZTIO QUE+1~
>> ZTREQ START+5*
ZTRTN QUE+1~, QUE+5*
ZTSAVE QUE+1~
ZTSAVE("EASRPT" QUE+7*
ZTSAVE("EASSRT" QUE+7*
ZTSAVE("EASUDT" QUE+7*
ZTSK QUE+1~, QUE+9, START+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 |  All