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

Package: Enrollment Application System

Routine: EASECA


Information

EASECA ;ALB/PHH,LBD,HM - Add a New LTC Co-Pay Test ;10 AUG 2001

Source Information

Source file <EASECA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point to add a new LTC Co-Pay test
DT
EXMPT ; Is veteran exempt from LTC copayments?
Q
ADD ;Add LTC Copay test
; Input -- DFN Patient IEN
; DGMTDT Date
; DGMTYPT Type of Test 3 = LTC Copay
; Output -- DGMTI Annual LTC Copay Test IEN
ADDQ
DEL ;Delete incomplete LTC Copay test
; Input -- DGMTI LTC Copay test IEN

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"Patient died on: ",$$FMTE^XLFDT(DGMDOD,"1D")
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"Patient is not a Veteran."
  • Line Location: EN+8
Function Call: WRITE
  • Prompt: !
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !?3,*7,"The date of test must be after the date of the last test on "
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: DT+1
Function Call: WRITE
  • Prompt: Y,"."
  • Line Location: DT+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+20
Function Call: WRITE
  • Prompt: "="
  • Line Location: EXMPT+20
Function Call: WRITE
  • Prompt: !!,?10,"Veteran is NOT EXEMPT from Long Term Care copayments based"
  • Line Location: EXMPT+21
Function Call: WRITE
  • Prompt: !,?10,"on last year's income and must complete a 10-10EC form."
  • Line Location: EXMPT+22
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+23
Function Call: WRITE
  • Prompt: "="
  • Line Location: EXMPT+23
Function Call: WRITE
  • Prompt: !!
  • Line Location: EXMPT+25

FileMan Files Accessed Via FileMan Db Call

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