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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Integrated Billing 4 PRINT^IBARXEL  $$VFAOK^IBARXEU  ($$ACODE,$$TEXT)^IBARXEU0  $$DAT1^IBOUTL  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMDIFF)^XLFDT  
Registration 2 $$LST^DGMTCOU1  $$BIL^DGMTUB  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IB RX REPRINT REMINDER  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS REPR+53
HOME^%ZIS REPR+57
^%ZISC REPRQ
^%ZTLOAD REPR+57
$$LST^DGMTCOU1 REPR+36
$$BIL^DGMTUB REPR+46
^DIC REPR+6
^DIR REPR+50
PRINT^IBARXEL DQ+1
$$VFAOK^IBARXEU REPR+16
$$ACODE^IBARXEU0 REPR+19, REPR+29
$$TEXT^IBARXEU0 REPR+21, REPR+30
$$DAT1^IBOUTL REPR+13, REPR+22, REPR+31, REPR+35, REPR+37
$$FMADD^XLFDT REPR+36, REPR+43
$$FMDIFF^XLFDT REPR+43

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
Routine Call
  • %ZIS
  • Line Location:
    • REPR+53
Routine Call
  • %ZIS
  • Line Location:
    • REPR+57
Routine Call
  • DIC
  • Line Location:
    • REPR+6
Routine Call
  • DIR
  • Line Location:
    • REPR+50

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] REPR+13
^IBA(354.1 - [#354.1] REPR+9, REPR+10, REPR+27, REPR+28
^IBE(354.2 - [#354.2] REPR+21, REPR+30
^IBE(354.6 - [#354.6] REPR+1

Label References

Name Line Occurrences
REPR REPR+11, REPR+16, REPR+41
REPRQ REPR+2, REPR+6, REPR+50, REPR+53, REPR+54

Naked Globals

Name Field # of Occurrence
^( REPR+9, REPR+13, REPR+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS REPR+53*
DFN REPR+6*, REPR+9, REPR+13, REPR+27, REPR+36, REPR+46, REPRQ+1!
DIC REPR+4*, REPR+6!
DIC("A" REPR+4*
DIC("S" REPR+4*
DIC(0 REPR+4*
DIR REPR+50!
DIR("?" REPR+49*
DIR("A" REPR+49*
DIR(0 REPR+49*
DIROUT REPR+50!
DIRUT REPR+50!
DPTNOFZY REPR+5~*
DT REPR+9, REPR+36, REPR+43, REPR+46
DTOUT REPR+50!
DUOUT REPR+50!
>> I REPR+56*
IBALIN REPRQ+1!
IBCHK REPR+26*, REPR+41!, REPR+43, REPRQ+1!
IBDATA REPRQ+1!
IBEX REPR+9*, REPR+10, REPR+27*, REPR+28, REPRQ+1!
IBEXD REPR+10*, REPR+11, REPR+16, REPR+19, REPR+21, REPR+22, REPR+27, REPR+28*, REPR+29, REPR+30
, REPR+31, REPR+34, REPR+35, REPR+43, REPRQ+1!
IBEXPD REPRQ+1!
IBEXREA REPR+19*, REPR+25, REPR+29*, REPR+41, REPRQ+1!
IBLET REPR+1*, REPR+2, REPRQ+1!
IBNAM REPRQ+1!
IBQUIT REPRQ+1!
IO REPR+61
IO("Q" REPR+54, REPR+57!, REPR+59!
>> POP REPR+53
>> X REPR+36*, REPR+37
>> Y REPR+6, REPR+50
>> ZTDESC REPR+55*
>> ZTQUEUED DQ+2
>> ZTREQ DQ+2*
>> ZTRTN REPR+55*
>> ZTSAVE( REPR+56*
ZTSK REPR+58, REPR+59!
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 |  Naked Globals |  Local Variables  | All