©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
IBDF18A1 ;ALB/CJM/AAS - ENCOUNTER FORM - utilities for PCE ;12-AUG-94
Source file <IBDF18A1.m>
| Package | Total | Caller Graph |
|---|---|---|
| Automated Information Collection System | 2 | IBDF18A IBDFQSL2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| F2(ARY) | ; -- filter cpt code array to find only codes beginning with 992 and asssicated headers
; -- Copy filtered array to from ibdtmp( to @ary@( |
|
| MODLIST | ; return all CPT Modifiers if defined
|
|
| URH | ; -- UnReferenced Headers (removal)
; if a header doesn't have any data under it, then remove the header |
|
| SUBCOL(LIST,TSUBCOL) | ; -- finds the subcolumn containing the text
; -- TSUBCOL passed by reference - used to return the subcolumn ; LIST is the selection list to search |
|
| COPYLIST(LIST,ARY,COUNT) | ;
; -- copies the entries from LIST to @ARY, starting subscript at COUNT+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.2 - [#357.2] | SUBCOL+9, SUBCOL+11, SUBCOL+12, SUBCOL+13, SUBCOL+14, SUBCOL+17 |
| ^IBE(357.3 - [#357.3] | COPYLIST+15, COPYLIST+17, COPYLIST+18, COPYLIST+19, COPYLIST+20, MODLIST+4, MODLIST+6, MODLIST+8 |
| ^IBE(357.4 - [#357.4] | COPYLIST+8, COPYLIST+10, COPYLIST+11 |
| ^IBE(357.6 - [#357.6] | SUBCOL+9 |
| Name | Line Occurrences |
|---|---|
| MODLIST | COPYLIST+27 |
| SUBCOL | COPYLIST+5 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SUBCOL+13, SUBCOL+14, SUBCOL+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | COPYLIST~, COPYLIST+13, COPYLIST+24, COPYLIST+26, F2~, F2+10, F2+15, F2+16, F2+17, URH+3 , URH+4, URH+5, URH+7, URH+9, MODLIST+8, MODLIST+9 |
| COUNT | COPYLIST~, COPYLIST+13*, COPYLIST+24*, COPYLIST+26*, F2+3~, F2+4*, F2+10*, F2+15*, F2+16*, F2+17 , URH+7*, URH+9*, MODLIST+8, MODLIST+9 |
| GROUP | COPYLIST+3~, COPYLIST+9*, COPYLIST+10*, COPYLIST+11, COPYLIST+15, COPYLIST+17 |
| HDR | COPYLIST+3~, COPYLIST+11*, COPYLIST+12*, COPYLIST+13, URH+2~, URH+4*, URH+5!, URH+7*, URH+9* |
| >> IBDTMP( | F2+8, F2+10, F2+13, F2+15, F2+16 |
| IBQUIT | F2+3~, F2+4*, F2+13, F2+14*, F2+16* |
| LIST | COPYLIST~, COPYLIST+5, COPYLIST+8, COPYLIST+10, COPYLIST+15, COPYLIST+17, SUBCOL~, SUBCOL+9, SUBCOL+11, SUBCOL+12 , SUBCOL+13, SUBCOL+14, SUBCOL+17 |
| MCOUNT | MODLIST+3~, MODLIST+5*, MODLIST+7*, MODLIST+8, MODLIST+9 |
| MOD | MODLIST+3~, MODLIST+6*, MODLIST+8 |
| >> MODIFIER | MODLIST+2 |
| NODE | COPYLIST+3~, COPYLIST+18*, COPYLIST+23, COPYLIST+24, COPYLIST+26, F2+3~, F2+8*, F2+10, F2+13*, F2+15 , F2+16 |
| NODE1 | COPYLIST+3~, COPYLIST+20*, COPYLIST+26 |
| NODE2 | COPYLIST+3~, COPYLIST+19*, COPYLIST+26 |
| ORDER | COPYLIST+3~, COPYLIST+14*, COPYLIST+15*, COPYLIST+17 |
| PI | SUBCOL+7~, SUBCOL+9*, SUBCOL+17 |
| PRNT | COPYLIST+3~, COPYLIST+7*, COPYLIST+8*, COPYLIST+10 |
| SC | SUBCOL+7~, SUBCOL+8*, SUBCOL+11*, SUBCOL+12, SUBCOL+13, SUBCOL+14, SUBCOL+17 |
| SLCTN | COPYLIST+3~, COPYLIST+16*, COPYLIST+17*, COPYLIST+18, COPYLIST+19, COPYLIST+20, MODLIST+4, MODLIST+6, MODLIST+8 |
| TSUBCOL | COPYLIST+3~, COPYLIST+5, COPYLIST+20, COPYLIST+26, SUBCOL~, SUBCOL+8*, SUBCOL+13*, SUBCOL+14*, SUBCOL+17* |
| X | URH+2~, URH+3*, URH+4, URH+5, URH+7, URH+9* |