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

Package: Integrated Billing

Routine: IBARXEL1


Information

IBARXEL1 ;ALB/CPM - RX COPAY EXEMPTION REMINDER REPRINT ;14-APR-95

Source Information

Source file <IBARXEL1.m>

Entry Points

Name Comments DBIA/ICR reference
REPR ; Reprint a single income test reminder letter.
DQ ; Queued entry point.
REPRQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You do not have the Income Test Reminder letter defined!"
  • Line Location: REPR+2
Function Call: WRITE
  • Prompt: !!,"This veteran has never had an active copayment exemption status!"
  • Line Location: REPR+11
Function Call: WRITE
  • Prompt: !!,*7,"Please note that this veteran died on ",$$DAT1^IBOUTL(+^(.35)),"."
  • Line Location: REPR+13
Function Call: WRITE
  • Prompt: !!,"This veteran's current exemption is based on a Means Test and a new test is not required."
  • Line Location: REPR+16
Function Call: WRITE
  • Prompt: !!,$TR($J("",80)," ","=")
  • Line Location: REPR+20
Function Call: WRITE
  • Prompt: !?10,"Exemption Status: ",$$TEXT^IBARXEU0(+$P(IBEXD,"^",4))," (",$P($G(^IBE(354.2,+$P(IBEXD,"^",5),0)),"^"),")"
  • Line Location: REPR+21
Function Call: WRITE
  • Prompt: !?12,"Exemption Date: ",$$DAT1^IBOUTL(+IBEXD)
  • Line Location: REPR+22
Function Call: WRITE
  • Prompt: !,$TR($J("",80)," ","=")
  • Line Location: REPR+38
Function Call: WRITE
  • Prompt: !!,"You may only generate a letter for an exemption based on income!",!
  • Line Location: REPR+41
Function Call: WRITE
  • Prompt: !!,"Please note that this exemption is not due to expire for ",$$FMDIFF^XLFDT(+IBEXD+10000,DT)," days!"
  • Line Location: REPR+43
Function Call: WRITE
  • Prompt: !!,"**Please note that this veteran no longer requires a Means Test**"
  • Line Location: REPR+46
Function Call: WRITE
  • Prompt: !!,"*** Please note that the reminder letter prints in 80 columns. ***",!
  • Line Location: REPR+52

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