©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBARXEU0 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE ; 2-NOV-92
Source file <IBARXEU0.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | $$STDATE^IBARXEU $$STATUS^IBARXEU1 (ADDEX,ADDP)^IBAUTL6 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IBX(DFN,IBDT) | ; -- format output from current status
|
|
| AEX(DFN,IBDT) | ; -- add exemption
|
|
| IBXOLD(DFN,IBDT) | ; -- format output from old exemption
|
|
| RXEXMT(DFN,IBDT) | ; -- Check income exemption status of patient
|
|
| MINUS(X1) | ; -- computes minus 1 year (into past)
|
|
| ACODE(Y) | ; -- return lookup code of reason, input zeroth node of exemption
|
|
| PLUS(X1) | ; -- computes plus 1 year (into future)
|
|
| ON() | ; -- is copay exemption testing on
|
|
| REASON(Y) | ; -- return reason description, input zeroth node of exemption
|
|
| RXEXMTQ | ;I $D(XRT0),$D(XRTN) D T1^%ZOSV
|
|
| TEXT(X) | ; -- convert 0 or 1 to text
|
|
| LST(DFN,IBDT) | ; -- returns last exemption entry before date x
|
|
| LSTAC(DFN) | ; -- computes last reason code and date for a patient
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBA(354 - [#354] | RXEXMT+24, RXEXMT+30, IBX+2 |
| ^IBA(354.1 - [#354.1] | RXEXMT+39, LST+5, LSTAC+3 |
| ^IBE(354.2 - [#354.2] | IBXOLD+3, ACODE+1, REASON+1, LSTAC+4 |
| Name | Line Occurrences |
|---|---|
| $$ACODE | IBX+3, IBXOLD+4 |
| $$IBX | RXEXMT+27, RXEXMT+30, RXEXMT+33 |
| $$IBXOLD | RXEXMT+47 |
| $$LST | IBX+2, IBXOLD+2 |
| $$ON | RXEXMT+15 |
| $$PLUS | RXEXMT+27, RXEXMT+33, RXEXMT+44 |
| $$REASON | IBX+3, IBXOLD+4 |
| $$TEXT | IBX+3, IBXOLD+4 |
| AEX | RXEXMT+30, RXEXMT+33, RXEXMT+41, RXEXMT+44 |
| RXEXMTQ | RXEXMT+22, RXEXMT+27, RXEXMT+30, RXEXMT+33 |
| Name | Field # of Occurrence |
|---|---|
| ^( | RXEXMT+39, LST+5, LSTAC+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | RXEXMT+13~ |
| DFN | RXEXMT~, RXEXMT+24, RXEXMT+27, RXEXMT+30, RXEXMT+33, RXEXMT+39, RXEXMT+41, RXEXMT+44, RXEXMT+47, AEX~ , AEX+4, IBX~, IBX+2, IBXOLD~, IBXOLD+2, LST~, LST+5, LSTAC~, LSTAC+3 |
| DIC | RXEXMT+13~ |
| DIE | RXEXMT+13~ |
| DR | RXEXMT+13~ |
| DT | RXEXMT+18, RXEXMT+19, LST+4, LSTAC+3 |
| IBDT | RXEXMT~, RXEXMT+18*, RXEXMT+19*, RXEXMT+22, RXEXMT+27, RXEXMT+30, RXEXMT+33, RXEXMT+36, RXEXMT+39, RXEXMT+41 , RXEXMT+44, RXEXMT+47, AEX~, AEX+4, IBX~, IBX+2, IBXOLD~, IBXOLD+2, LST~, LST+4* , LST+5 |
| IBEXERR | RXEXMT+13~, RXEXMT+17*, RXEXMT+30 |
| IBJOB | RXEXMT+13~, RXEXMT+17* |
| IBON | RXEXMT+13~, RXEXMT+15* |
| IBWHER | RXEXMT+13~ |
| IBX | RXEXMT+13~, RXEXMT+17*, RXEXMT+22*, RXEXMT+27*, RXEXMT+30*, RXEXMT+33*, RXEXMT+47*, RXEXMTQ+2 |
| X | RXEXMT+13~, RXEXMT+24*, RXEXMT+27, RXEXMT+30*, RXEXMT+33, RXEXMT+36, AEX+3~, AEX+4*, AEX+5, IBX+1~ , IBX+2*, IBX+3, IBXOLD+1~, IBXOLD+3*, IBXOLD+4, TEXT~, TEXT+1 |
| X1 | PLUS~, PLUS+2, MINUS~, MINUS+1, LSTAC+2~, LSTAC+3*, LSTAC+4 |
| Y | RXEXMT+13~, RXEXMT+39*, RXEXMT+41, RXEXMT+44, IBX+1~, IBX+2*, IBX+3, IBXOLD+1~, IBXOLD+2*, IBXOLD+3 , IBXOLD+4, ACODE~, ACODE+1, REASON~, REASON+1 |