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

Package: Enrollment Application System

Routine: EASECPC


Information

EASECPC ;ALB/PHH,CKN,LBD,AMA,SCK - LTC Copayment Report; 29-AUG-2001 ; 12/10/12 5:37pm

Source Information

Source file <EASECPC.m>

Entry Points

Name Comments DBIA/ICR reference
EN
RPT() ; Select which report to print
; Input: None
; Output: Y - Report Type (1=Institutional (IP); 2=Non-Institutional (OP); 0=Quit)
GETDFN() ; Get the veteran's DFN
GETLTC(DFN,EASADM) ; Get the most recent LTC copay test. If no completed test on
; file, test status is exempt or LTC copay rates not defined, quit 0
; Input: DFN - Patient file IEN
; EASADM - LTC Admission Date
; Output: DGMTI - LTC Copay Test IEN (file #408.31)
; DGMTDT - LTC Copay Test Date
; MAXRT - Maximum daily copay rates for OP and IP LTC
; 1=OK to continue; 0=Not OK to continue
ADMDT() ; Get the LTC admission date (for IP report only)
RPTDT() ; Get the start date for the report
RD
QUE ; Get report device. Queue report if requested.
DISCMSG ;EAS*1*105 This is a disclaimer to remind users that this report

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Report of Calculated Long Term Care Copayments"
  • Line Location: RPT+4
Function Call: WRITE
  • Prompt: !,"=============================================="
  • Line Location: RPT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: GETDFN+2
Function Call: WRITE
  • Prompt: !!,"No LTC Copayment Test on file for this veteran for that LTC admission date!"
  • Line Location: GETLTC+11
Function Call: WRITE
  • Prompt: !!,"Copayment rates for LTC are not available at this time.",!!
  • Line Location: GETLTC+16
Function Call: WRITE
  • Prompt: !!,"The LTC Copayment Test is incomplete!"
  • Line Location: GETLTC+20
Function Call: WRITE
  • Prompt: !!,"This veteran is Exempt from LTC copayments!"
  • Line Location: GETLTC+21
Function Call: WRITE
  • Prompt: !!,"This LTC Copayment Test contains an invalid status!"
  • Line Location: GETLTC+22
Function Call: WRITE
  • Prompt: !
  • Line Location: ADMDT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !!,*7,"Report Start Date cannot be before LTC Admission Date!"
  • Line Location: RD+8
Function Call: WRITE
  • Prompt: !
  • Line Location: QUE+4
Function Call: WRITE
  • Prompt: !!,"Report Cancelled!"
  • Line Location: QUE+5
Function Call: WRITE
  • Prompt: !!,"Report "_$S($D(ZTSK):"Queued!",1:"Cancelled!")
  • Line Location: QUE+12
Function Call: WRITE
  • Prompt: !!,"** This report is intended to provide a projected estimate of charges that"
  • Line Location: DISCMSG+2
Function Call: WRITE
  • Prompt: !,"should generate for a patient admitted for a LTC stay. These estimates are"
  • Line Location: DISCMSG+3
Function Call: WRITE
  • Prompt: !,"dependent on existing conditions with the projected estimate out to a year "
  • Line Location: DISCMSG+4
Function Call: WRITE
  • Prompt: !,"being presented in the report. Be advised that changing circumstances or newer"
  • Line Location: DISCMSG+5
Function Call: WRITE
  • Prompt: !,"LTC Copay tests within this timeframe could impact these projected estimates"
  • Line Location: DISCMSG+6
Function Call: WRITE
  • Prompt: !,"and a discrepancy can exist from the actual charges billing generates. **"
  • Line Location: DISCMSG+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call