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

Package: Integrated Billing

Routine: IBARXEX


Information

IBARXEX ;ALB/AAS - RX COPAY INCOME EXEMPTION ROUTINE - MANUAL UPDATE OPTION ; 16-NOV-92

Source Information

Source file <IBARXEX.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Integrated Billing 6 $$STDATE^IBARXEU  ($$LST,$$TEXT)^IBARXEU0  $$STATUS^IBARXEU1  (AUTO,MANUAL)^IBARXEX1  $$PT^IBEFUNC  ($$DAT1,PAUSE)^IBOUTL  
VA FileMan 4 ^DIC  DT^DICRW  D^DIQ  ^DIR  
Kernel 1 HOME^%ZIS  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 4 IB RX HARDSHIP  IBAERR3  IBARXEI  IBARXEX1  

Entry Points

Name Comments DBIA/ICR reference
PATQ
DISP ; -- single screen display of Pharmacy co-pay income exemption status
STAT ; -- show current status
EN ; -- entry point from alert processing , dfn defined
PAT
HDR
SHOWONE ; -- write display line for one entry
END
SELCY ; -- select calendar year to work with
SELCYQ

External References

Name Field # of Occurrence
HOME^%ZIS %+1
^DIC PAT+3
DT^DICRW %
D^DIQ SELCY+3
^DIR SELCY+5
$$STDATE^IBARXEU SELCY+5
$$LST^IBARXEU0 SELCY+3
$$TEXT^IBARXEU0 SHOWONE+3, STAT+4, HDR+1
$$STATUS^IBARXEU1 STAT+1
AUTO^IBARXEX1 EN+4
MANUAL^IBARXEX1 EN+5
$$PT^IBEFUNC DISP+1
$$DAT1^IBOUTL SHOWONE+2, SHOWONE+5, HDR+1
PAUSE^IBOUTL PATQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Medication Copayment Exemption Update Option",!!
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !,"None"
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,$$DAT1^IBOUTL(+X),?12,$S($P(X,"^",3)=1:"RX COPAY",1:"")
  • Line Location: SHOWONE+2
Function Call: WRITE
  • Prompt: ?22,$$TEXT^IBARXEU0($P(X,"^",4))
  • Line Location: SHOWONE+3
Function Call: WRITE
  • Prompt: ?34,$E($P($G(^IBE(354.2,+$P(X,"^",5),0)),"^"),1,22)
  • Line Location: SHOWONE+4
Function Call: WRITE
  • Prompt: ?56,$S($P(X,"^",6)=1:"SYSTEM",$G(^VA(200,+$P(X,"^",7),0))]"":$E($P(^(0),U),1,14),1:"Unknown"),"/ ",$$DAT1^IBOUTL($P(X,"^",8))
  • Line Location: SHOWONE+5
Function Call: WRITE
  • Prompt: !!,"Medication Copayment Exemption Status Currently computes to: ",$$TEXT^IBARXEU0($P(IBSTAT,"^",4))
  • Line Location: STAT+4
Function Call: WRITE
  • Prompt: !,$P(IBSTAT,"^",2),!!
  • Line Location: STAT+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: SELCY+2
Function Call: WRITE
  • Prompt: !!?4,$C(7),"The DATE selected must be the date of an exemption or today!",!?4,"This is the same date as the date of a Means Test or Copay Test.",!
  • Line Location: SELCY+8
Function Call: WRITE
  • Prompt: @IOF,"Medication Copayment Income Exemption Status"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,$E($P(IBP,"^"),1,20)," ",$P(IBP,"^",3),?27," Currently: ",$$TEXT^IBARXEU0($P(IBPBN,"^",4))_"-"_$P($G(^IBE(354.2,+$P(IBPBN,"^",5),0)),"^"),?65," ",$$DAT1^IBOUTL($P(IBPBN,"^",3))
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"EFFECTIVE TYPE STATUS REASON ADDED BY/ON"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+3
Routine Call
  • %ZIS
  • Line Location:
    • %+1
Routine Call
  • DIC
  • Line Location:
    • PAT+3
Routine Call
  • DIR
  • Line Location:
    • SELCY+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(354 - [#354] DISP+1
^IBA(354.1 - [#354.1] DISP+6, SHOWONE+1, SELCY+8
^IBE(354.2 - [#354.2] SHOWONE+4, STAT+2, HDR+1
^VA(200 - [#200] SHOWONE+5

Label References

Name Line Occurrences
DISP EN+2, PATQ
END PAT+3, PATQ+2
HDR DISP+2
PAT PATQ+3
PATQ EN+4
SELCY SELCY+8
SELCYQ SELCY+6
SHOWONE DISP+6
STAT EN+3, PATQ

Naked Globals

Name Field # of Occurrence
^(0 SHOWONE+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C END!
DA END!
DFN PAT+3*, DISP+1, DISP+6, STAT+1, SELCY+3, SELCY+8, END!
DIC PAT+3*!, END!
DIC("A" PAT+3*
DIC("S" PAT+3*
DIC("W" PAT+1*
DIC(0 PAT+3*
DIE END!
DIR SELCY+5!
DIR("?" SELCY+4*
DIR("A" SELCY+5*
DIR("B" SELCY+3*
DIR(0 SELCY+5*
DIRUT SELCY+6, END!
DPTNOFZY PAT+2~*
DR END!
DT %, DISP+5, STAT+1, SELCY+5, SELCY+8
I END!
IBACTIVE END!
IBADDE END!
IBALERT END!
IBCHANGE PATQ, END!
IBCNT DISP+3*, DISP+6*, DISP+7, END!
IBCODA END!
IBCODP END!
IBDA DISP+6*, SHOWONE+1, END!
IBDT DISP+5*, DISP+6*, SELCY+7*, SELCY+8!, END!
IBEXDA END!
IBEXREA END!
IBJ END!
IBJOB EN+1*, END!
IBNEW PAT+3*, EN+4, END!
IBP DISP+1*, HDR+1, END!
IBPBN EN+4, EN+5, DISP+1*, HDR+1, END!
IBQUIT EN+1*, PATQ, SELCY+6*, END!
IBSTAT EN+4, EN+5, STAT+2*, STAT+4, STAT+5, END!
IBSTATR EN+4, STAT+1*, STAT+2, END!
IBTALK EN+1*, END!
IBWHER END!
IOF PAT, HDR
IOM HDR+3
J END!
U SHOWONE+5
X SHOWONE+1*, SHOWONE+2, SHOWONE+3, SHOWONE+4, SHOWONE+5, END!
X1 END!
XCNP END!
XMZ END!
Y PAT+3, SELCY+3*, SELCY+6, SELCY+7, END!
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