©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
IBERS3 ;ALB/ARH - APPOINTMENT CHECK-OFF SHEET GENERATOR (CONTINUED); 12/6/91
Source file <IBERS3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENDLN | ||
| END | ||
| BILLDX | ;print billing dx's, or at most 3 dx's from last 6 bills
|
|
| ENDBILL | ||
| DX2 | ||
| DX1 | ||
| ENDPTF | ||
| PTFDX | ;701 dx's for last year, or at most 3 dx's from last 6 ptf's
|
|
| DX | ;get appropriate number of DX codes from choosen records
|
|
| LINE | ;prints 1 (IBW=1) 2 (IBW=2) or three (IBW=3) pieces of data on a formated line
|
| Name | Field # of Occurrence |
|---|---|
| $$DAT1^IBOUTL | DX1+3 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | DX2 |
| ^DGCR(399 - [#399] | BILLDX+3, BILLDX+4, BILLDX+5 |
| ^DGPT - [#45] | PTFDX+5 |
| ^DGPT("AAD" | PTFDX+3, PTFDX+4 |
| ^ICD9 - [#80] | DX1+4 |
| ^TMP("IBRSP" | ENDLN* |
| Name | Line Occurrences |
|---|---|
| DX | PTFDX+7, BILLDX+7 |
| DX1 | PTFDX+8, BILLDX+8 |
| DX2 | PTFDX+9, BILLDX+9 |
| ENDBILL | BILLDX+6, BILLDX+7, BILLDX+8 |
| ENDLN | BILLDX+8, END, DX2+1, DX2+2, LINE+3 |
| ENDPTF | PTFDX+6, PTFDX+7, PTFDX+8 |
| LINE | DX2+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DFN | PTFDX+3, PTFDX+4, BILLDX+3 |
| >> IB1 | DX1+6, LINE+3, LINE+5 |
| >> IB2 | LINE+3, LINE+4 |
| >> IB3 | DX1+6, LINE+4 |
| >> IB4 | DX1+6, LINE+4 |
| IBADT | PTFDX+1*, PTFDX+3*, PTFDX+4, ENDPTF! |
| IBBN | BILLDX+1*, BILLDX+3*, BILLDX+4, BILLDX+5, ENDBILL! |
| IBCNT | PTFDX+6*, ENDPTF!, BILLDX+6*, ENDBILL!, DX+1, DX+2, DX+3, DX+4*, DX1, DX1+5 , DX1+7* |
| IBCOL | DX1*, DX1+5*, DX1+8! |
| IBD | PTFDX+7, BILLDX+7, DX1+8! |
| IBD( | DX+4*, DX1+2, DX1+3 |
| IBDDT | DX+1*, DX+2, DX+3, DX+4, DX+5, DX+6!, DX1*, DX1+2*, DX1+3, DX1+8! |
| IBDDTE | DX1+3*, DX1+4, DX1+8! |
| >> IBDSH | END |
| >> IBDT | PTFDX+1, BILLDX+1, DX2 |
| IBDX | DX+3*, DX+4, DX+5, DX+6!, DX1+3*, DX1+4*, DX1+6, DX1+8!, DX2+2*, DX2+3! |
| IBDXP1 | PTFDX+6*, BILLDX+6*, DX+3, DX+6! |
| IBDXP2 | PTFDX+6*, BILLDX+6*, DX+3, DX+6! |
| IBDXP3 | PTFDX+6*, BILLDX+6*, DX+3, DX+6! |
| IBEDT | BILLDX+4*, BILLDX+5, ENDBILL! |
| IBEG | BILLDX+1*, BILLDX+4, ENDBILL!, DX2*, DX2+1, DX2+3! |
| IBEND | PTFDX+1*, PTFDX+3, PTFDX+5, ENDPTF!, BILLDX+1*, BILLDX+4, ENDBILL!, DX2*, DX2+1, DX2+3! |
| IBFD | IBERS3+8*, END, END+1!, DX1* |
| IBG | PTFDX+6, BILLDX+6, DX+6! |
| IBG( | PTFDX+5*, BILLDX+5*, DX+1, DX+2 |
| IBI | DX+3*, DX+4, DX+6! |
| IBL | LINE+4*, LINE+5, LINE+6, LINE+7, ENDLN+1! |
| IBLBL | PTFDX+8*, BILLDX+8*, DX2+1, DX2+3! |
| >> IBLC | ENDLN* |
| IBN | PTFDX+5*, ENDPTF!, BILLDX+5*, ENDBILL!, DX+2*, DX+3, DX+6! |
| IBPDN | IBERS3+8*, END+1!, DX+1, DX+2, DX+3, DX+4 |
| IBPTF | PTFDX+3*, PTFDX+4*, PTFDX+5, ENDPTF! |
| IBR | DX+6! |
| IBR( | DX+3, DX+5* |
| IBRMAX | DX1*, DX1+5*, DX1+8! |
| IBROW | DX1*, DX1+5*, DX1+6, DX1+7*, DX1+8! |
| IBST | PTFDX+1*, ENDPTF!, BILLDX+1*, ENDBILL!, DX+4*, DX2 |
| IBT | LINE+3*, LINE+4*, LINE+6, LINE+7, ENDLN+1! |
| IBTMP | PTFDX+8, BILLDX+8, DX2+3! |
| IBTMP( | DX1+6*, DX2+2 |
| >> IBW | DX2+1*, LINE+3, LINE+4, LINE+7 |
| IBX | BILLDX+8*, ENDBILL!, END*, DX+2*, DX+6!, DX1+2*, DX1+3, DX1+8!, DX2+1*, DX2+2* , DX2+3!, LINE+3*, LINE+5*, LINE+6*, LINE+7*, ENDLN |
| >> IBY | LINE+6* |
| >> IBZ | LINE+7* |
| IOM | DX2+2 |
| Y | DX2*, DX2+3! |