©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
IBDF18 ;A;B/CJM - ENCOUNTER FORM - utilities for Problem List ;15OCT93
Source file <IBDF18.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 1 | $$SLCTFORM^IBDFU4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FIND(FORM,BLK,LIST,INTRFACE) | ;finds the block & list containing the Clinic Common Problem List
|
|
| SUBCOL(LIST,TSUBCOL) | ;finds the subcolumn containing the text
|
|
| COPYFORM(FORM,ARY) | ;creates a list of problem groups and problems found in FORM on the list of clinic common problems
|
|
| GETFORM() | ;allows the user to select an encounter form with a Clinic Common Problem List
|
|
| COPYLIST(LIST,ARY,COUNT) | ;copies the entries from LIST to @ARY, starting subscript at COUNT+1
|
| Name | Field # of Occurrence |
|---|---|
| $$SLCTFORM^IBDFU4 | GETFORM+4 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357 - [#357] | GETFORM+11 |
| ^IBE(357.1 - [#357.1] | FIND+12 |
| ^IBE(357.2 - [#357.2] | SUBCOL+8, FIND+9, FIND+13 |
| ^IBE(357.3 - [#357.3] | COPYLIST+8, COPYLIST+11, COPYLIST+12, COPYLIST+14 |
| ^IBE(357.4 - [#357.4] | COPYLIST+9 |
| ^IBE(357.6 - [#357.6] | FIND+5 |
| Name | Line Occurrences |
|---|---|
| COPYLIST | COPYFORM+22 |
| FIND | GETFORM+6, COPYFORM+22 |
| SUBCOL | COPYLIST+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | GETFORM+2~, GETFORM+9*, GETFORM+10 |
| ARY | COPYFORM~, COPYFORM+19, COPYFORM+22, COPYLIST~, COPYLIST+10, COPYLIST+14 |
| BLK | FIND~, FIND+2*, FIND+6*, FIND+8, FIND+9, FIND+10, FIND+12*, FIND+13, FIND+14* |
| BLOCK | COPYFORM+20~, COPYFORM+21*, COPYFORM+22 |
| COUNT | COPYFORM+20~, COPYFORM+21*, COPYFORM+22, COPYFORM+23, COPYLIST~, COPYLIST+10*, COPYLIST+14* |
| DTIME | GETFORM+9 |
| FORM | GETFORM+2~, GETFORM+4*, GETFORM+5, GETFORM+6, GETFORM+10*, GETFORM+11, COPYFORM~, COPYFORM+18, COPYFORM+22, FIND~ , FIND+12 |
| GROUP | COPYLIST+2~, COPYLIST+8*, COPYLIST+9, COPYLIST+11 |
| HDR | COPYLIST+2~, COPYLIST+9*, COPYLIST+10 |
| IEN | COPYLIST+2~, COPYLIST+12*, COPYLIST+13, COPYLIST+14 |
| INTRFACE | COPYFORM+20~, COPYFORM+21*, COPYFORM+22, FIND~, FIND+1~, FIND+2*, FIND+5*, FIND+6, FIND+9, FIND+13 |
| LIST | GETFORM+2~, GETFORM+3*, GETFORM+6, GETFORM+7, COPYFORM+20~, COPYFORM+21*, COPYFORM+22, COPYLIST~, COPYLIST+4, COPYLIST+8 , COPYLIST+11, SUBCOL~, SUBCOL+8, FIND~, FIND+2*, FIND+6*, FIND+9*, FIND+10, FIND+13*, FIND+14* |
| NODE | COPYLIST+2~, COPYLIST+12*, COPYLIST+14*, SUBCOL+5~, SUBCOL+8* |
| NOTREAL | COPYLIST+2~, COPYLIST+12*, COPYLIST+13 |
| ORDER | COPYLIST+2~, COPYLIST+11* |
| PIECE | SUBCOL+5~, SUBCOL+8* |
| QUIT | GETFORM+2~, GETFORM+3*, GETFORM+5*, GETFORM+7*, GETFORM+10*, FIND+1~, FIND+11*, FIND+12, FIND+13* |
| SC | SUBCOL+5~*, SUBCOL+8* |
| SLCTN | COPYLIST+2~, COPYLIST+11*, COPYLIST+12, COPYLIST+14 |
| SUBCOL | COPYLIST+2~, COPYLIST+14* |
| TEXT | COPYLIST+2~, COPYLIST+14* |
| TSUBCOL | COPYLIST+2~, COPYLIST+4, COPYLIST+6, COPYLIST+14, SUBCOL~, SUBCOL+3*, SUBCOL+8* |