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

Entry Points

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

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

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