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

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point
RPT() ; Select which report to print
; Input: None
; Output: Y - Report Type (1=Pending Expiration; 2=Expired; 0=Quit)
DATE1() ; Select number of days for report 1
; Input: None
; Output: Y - Number of days to report (1-60)
DATE2() ; Select start date for report 2
; Input: None
; Output: Y - Report start date
SRT() ; Select sort
; Input: None
; Output: Y - Sort (N=Name; D=Date)
QUE ; Get the report device, queue if requested
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)
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
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
PRTVAR ; Set up variables needed to print report
HDR ; Print report header
PRINT ; Print report data
FMTDT(X) ;Format date to print on report
SSN(X) ; Format SSN to print on report
PAUSE() ; Prompt for next page or quit, if report is sent to screen

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DGMT(408.31 - [#408.31] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call