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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Problem List | 1 | GMPLBLDF |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETFORM() | ;allows the user to select an encounter form with a Clinic Common Problem List
|
|
COPYFORM(FORM,ARY) | ;creates a list of problem groups and problems found in FORM on the list of clinic common problems
|
|
COPYLIST(LIST,ARY,COUNT) | ;copies the entries from LIST to @ARY, starting subscript at COUNT+1
|
|
SUBCOL(LIST,TSUBCOL) | ;finds the subcolumn containing the text
|
|
FIND(FORM,BLK,LIST,INTRFACE) | ;finds the block & list containing the Clinic Common Problem List
|
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* |