©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
IBARXEU1 ;AAS/ALB - RX EXEMPTION UTILITY ROUTINE (CONT.) ; 2-NOV-92
Source file <IBARXEU1.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | $$PLUS^IBARXEU0 $$NETW^IBARXEU1 $$MTCOMP^IBARXEU5 |
| Registration | 1 | ($$AUTOINFO,$$LST)^DGMTCOU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INCST(DFN,IBDT) | ; -- return medication copayment exemption reason/date
|
|
| THRES(DATE,TYPE,DEPEND) | ; -- return threshold amount
|
|
| NETW() | ; -- use networth in determining copay exemptions - specs keep changing
|
|
| STATUSQ | ||
| AUTOST(DFN,IBDT) | ; -- Determine automatically exempt patients.
|
|
| NO | ; -- not enough information
|
|
| INCDT(IBDATA) | ; -- calcualtes copay exemption status based on income
|
|
| THRESQ | ||
| AUTOSTQ | ||
| INCSTQ | ||
| STATUS(DFN,IBDT) | ; -- Determine medication copayment exemption status
|
|
| INCDTQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGMT(408.31 - [#408.31] | INCST+6 |
| ^IBE(354.2 - [#354.2] | AUTOSTQ+1, INCST+7, INCDTQ |
| ^IBE(354.3 - [#354.3] | THRES+13 |
| Name | Line Occurrences |
|---|---|
| $$AUTOST | STATUS+7 |
| $$INCDT | INCST+8, INCST+9 |
| $$INCST | STATUS+9 |
| $$NETW | INCDT+27, NO+3, NO+4 |
| $$THRES | INCDT+21, INCDT+30 |
| AUTOSTQ | AUTOST+18 |
| INCSTQ | INCST+7 |
| NO | INCDT+14, INCDT+25, INCDT+27 |
| STATUSQ | STATUS+8 |
| THRESQ | THRES+14 |
| Name | Field # of Occurrence |
|---|---|
| ^( | THRES+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATE | THRES~, THRES+9*, THRES+13 |
| DEPEND | THRES~, THRES+15*, THRES+21, THRES+22 |
| DFN | STATUS~, STATUS+7, STATUS+9, AUTOST~, AUTOST+18, INCST~, INCST+6, INCDT+8~* |
| DT | STATUS+6, AUTOST+9, THRES+18 |
| I | AUTOST+7~, AUTOST+19* |
| IBDATA | INCST+5~, INCST+6*, INCST+7, INCST+8, INCST+9, INCDT~, INCDT+8, INCDT+14, INCDT+16, INCDT+17 , INCDT+18, INCDTQ |
| IBDEPEN | INCDT+7~, INCDT+18*, INCDT+21 |
| IBDT | STATUS~, STATUS+6*, STATUS+7, STATUS+9, AUTOST~, AUTOST+9*, AUTOSTQ+1, INCST~, INCST+6, INCST+7 , INCDT+7~, INCDT+16*, INCDT+21, INCDT+30 |
| IBEXMT | AUTOST+7~, AUTOST+8*, AUTOST+18*, AUTOST+19 |
| IBEXREA | AUTOST+7~, AUTOST+8*, AUTOST+19*, AUTOSTQ, AUTOSTQ+1, INCDT+7~, INCDT+9*, INCDT+14*, INCDT+24*, INCDT+25* , INCDT+32*, NO+1*, NO+3, NO+4, INCDTQ |
| IBINCOM | INCDT+7~, INCDT+17*, INCDT+25, INCDT+32 |
| IBLEVEL | INCDT+7~, INCDT+21*, INCDT+22, INCDT+25, THRES+10~, THRES+11*, THRES+21*, THRES+22*, THRESQ |
| IBNETW | INCDT+7~, INCDT+18*, INCDT+32 |
| IBPRIOR | INCDT+22*, THRES+10~, THRES+18*, THRESQ |
| IBTABLE | INCDT+7~, THRES+10~, THRES+13*, THRES+14, THRES+18, THRES+21, THRES+22, THRESQ |
| IBTHRES | INCDT+7~, INCDT+30*, INCDT+32 |
| TYPE | THRES~, THRES+13, THRES+15 |
| X | STATUS+5~, STATUS+7*, STATUS+8, STATUS+9*, STATUSQ, INCST+5~, INCST+7*, INCST+8*, INCST+9*, INCSTQ , INCDT+7~, INCDT+14* |
| Y | STATUS+5~, NO+3*, NO+4*, INCDTQ |