©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
IBCF22 ;ALB/ARH - HCFA 1500 19-90 DATA (gather other data) ; 12-JUN-93
Source file <IBCF22.m>
| Package | Total | Call Graph |
|---|---|---|
| Integrated Billing | 3 | $$STATE^IBCF2 ^IBCF23 SET^IBCSC4D |
| Registration | 1 | INP^VADPT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DATES | ||
| DATE(X) | ; returns date in form format
|
|
| END | ||
| LAST3 | ||
| DX | ;S X=14 F IBI="21A","21B","21C","21D" S IBFLD(IBI)=$P($G(^ICD9(+$P(IB("C"),U,X),0)),U,1),X=X+1
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGCR(399 - [#399] | IBCF22+5, DATES+1, LAST3 |
| ^DGPM - [#405] | DATES+5 |
| ^DIC(4 - [#4] | LAST3+1, LAST3+2 |
| ^IBE(350.9 - [#350.9] | DX+12, LAST3+1, LAST3+5 |
| ^ICD9 - [#80] | DX+6 |
| Name | Line Occurrences |
|---|---|
| $$DATE | DATES, DATES+1, DATES+2, DATES+3, DATES+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> IB( | IBCF22+5* |
| >> IB("U" | DATES+2, DATES+3, DX+8 |
| >> IB("U1" | DX+14 |
| >> IB(0 | DATES, DATES+1, DATES+3, DATES+4, DX+13 |
| >> IBDXI( | DX+6* |
| IBDXX | DX+5~ |
| IBDXX( | DX+6 |
| >> IBFLD("16A" | DATES+2* |
| >> IBFLD("16B" | DATES+2* |
| >> IBFLD("18A" | DATES+3*, DATES+5* |
| >> IBFLD("18B" | DATES+3*, DATES+5* |
| >> IBFLD(12 | IBCF22+6* |
| >> IBFLD(13 | IBCF22+7* |
| >> IBFLD(14 | DATES* |
| >> IBFLD(15 | DATES+1* |
| >> IBFLD(19 | DATES+7* |
| >> IBFLD(20 | DATES+8* |
| >> IBFLD(21 | DX+6* |
| >> IBFLD(23 | DX+8* |
| >> IBFLD(25 | DX+12* |
| >> IBFLD(26 | DX+13* |
| >> IBFLD(28 | DX+14* |
| >> IBFLD(31 | LAST3* |
| >> IBFLD(32 | LAST3+2*, LAST3+3*, LAST3+4* |
| >> IBFLD(33 | LAST3+6*, LAST3+7*, LAST3+8* |
| >> IBI | IBCF22+5*, DX+6*, LAST3+1* |
| >> IBIFN | IBCF22+5, DATES+1, DX+5, LAST3 |
| IBPOX | DX+5~, DX+6 |
| IBPOX( | DX+6 |
| >> IBX | LAST3+2*, LAST3+4 |
| U | DATES, DATES+1, DATES+2, DATES+3, DATES+4, DATES+5, DX+6, DX+8, DX+12, DX+13 , DX+14, LAST3+1, LAST3+2, LAST3+3, LAST3+4, LAST3+6, LAST3+7, LAST3+8 |
| VAIN | DATES+6! |
| VAIN(1 | DATES+4, DATES+5 |
| VAIN(7 | DATES+5 |
| VAINDT | DATES+4*, DATES+6! |
| X | DX+5*, DX+6*, LAST3+1*, LAST3+2, LAST3+5*, LAST3+6, LAST3+7, LAST3+8, DATE~, DATE+1 |
| >> Y | LAST3+1*, LAST3+2*, LAST3+3, LAST3+4 |