IBDFRPC2 ;ALB/AAS - Return list of selections, broker call ;29-JAN-96
Source file <IBDFRPC2.m>
Package | Total | Caller Graph |
---|---|---|
Automated Information Collection System | 1 | IBDFRPC1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
TEST1 | ||
DYNQ | ||
SEL(RESULT,IBDF) | ; -- Procedure
; -- called by ibdfrpc1, returns list for one selection list ; see ibdfrpc1 for complete input/output lists ; -- Input IBDF("IEN") := pointer to selection list (357.2) ; IBDF("PI") := pointer to package interface (357.6) (optional) ; IBDF("DFN") := pointer to patient (2) (optional) ; IBDF("CLINIC") := pointer to clinic (44) (optional) |
|
DYN(RESULT,IBDF) | ; -- Procedure
; -- called by ibdfrpc1 to return selection list for dynamic selections ; see ibdfrpc1 for complete input/output lists ; -- Input IBDF("PI") := pointer to package interface (357.6) ; IBDF("IEN") := pointer to selection list (357.2) ; IBDF("DFN") := pointer to patient (2) (optional for provider selections) ; IBDF("CLINIC") := pointer to clinic (44) (optional for active problem selections) |
|
BLDA | ; -- build results array
|
|
URH | ; -- UnReferenced Headers removal
; if a header doesn't have any data under it, then remove the header |
|
RULE | ||
SELQ | ||
GETQLF | ; -- add selection rule and qualifiers from marking area
; subcolumns to results(0) node, but only for bubbles |
|
TESTD | ; -- Test dynamic
|
|
COPYLIST(RESULT,LIST,COUNT) | ;copies the entries from LIST to @ARY, starting subscript at COUNT+1
|
|
TEST | ||
SUBCOL(LIST) | ; -- function
; -- returns the subcolumn containing the text ; input LIST := selection list internal entry ; -- Assumes data returned by the package interface, piece 2 is the description |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | DYN+13 |
^IBD(357.98 - [#357.98] | GETQLF+6 |
^IBE(357.2 - [#357.2] | SEL+15, GETQLF+4, GETQLF+5, SUBCOL+8, SUBCOL+9, SUBCOL+10, SUBCOL+11, SUBCOL+12, SUBCOL+13, DYN+19 |
^IBE(357.3 - [#357.3] | COPYLIST+18, COPYLIST+20, COPYLIST+22, COPYLIST+32, COPYLIST+33, COPYLIST+37, COPYLIST+38, COPYLIST+42 |
^IBE(357.4 - [#357.4] | COPYLIST+10, COPYLIST+12, COPYLIST+13, COPYLIST+14 |
^IBE(357.6 - [#357.6] | DYN+22 |
^IBE(357.91 - [#357.91] | GETQLF+3 |
^SC("B" | DYN+25 |
^TMP("IBD-DUP" | COPYLIST+52! |
Name | Line Occurrences |
---|---|
$$SUBCOL | COPYLIST+7 |
@( | DYN+31 |
BLDA | COPYLIST+49 |
COPYLIST | SEL+19 |
DYN | TESTD+9 |
DYNQ | DYN+12, DYN+13, DYN+19, DYN+22, DYN+28, RULE+3 |
GETQLF | SEL+23, RULE+2 |
RULE | DYN+15 |
SEL | TEST+2, TEST1+2 |
SELQ | SEL+14, SEL+15, DYN+18 |
Name | Field # of Occurrence |
---|---|
^(0 | SUBCOL+10, SUBCOL+11, SUBCOL+12, SUBCOL+13 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ARRY | SEL+9*, SEL+10*, SEL+11, SEL+13, SEL+22, GETQLF+6, GETQLF+9*, COPYLIST+4*, COPYLIST+5*, COPYLIST+16 , COPYLIST+28, COPYLIST+29, BLDA+1, BLDA+2*, BLDA+3*, BLDA+4*, BLDA+5*, BLDA+6*, BLDA+7*, BLDA+8* , BLDA+9*, BLDA+10*, BLDA+12*, URH+3, URH+4, URH+5, URH+6, URH+7, DYN+9*, DYN+10* , DYN+11, DYN+12, DYN+13, DYN+17, DYN+21, DYN+26, DYN+33, RULE, RULE+11, RULE+15 , RULE+16 |
BUBB | GETQLF+2~, GETQLF+3*, GETQLF+6 |
BUBBCNT | GETQLF+2~, GETQLF+3*, GETQLF+6*, GETQLF+9 |
CNT | DYN+8~, RULE+5*, RULE+6, RULE+11, RULE+15, RULE+16 |
COUNT | SEL+8~, SEL+11*, SEL+19, SEL+22, COPYLIST~, COPYLIST+16*, COPYLIST+28*, COPYLIST+29*, COPYLIST+49*, BLDA+1 , BLDA+2, BLDA+3, BLDA+4, BLDA+5, BLDA+6, BLDA+7, BLDA+8, BLDA+9, BLDA+10, BLDA+12 , URH+6*, URH+7*, DYN+8~, DYN+11* |
CSUBCOL | COPYLIST+2~, COPYLIST+7*, COPYLIST+37, COPYLIST+39, SUBCOL+5~, SUBCOL+6*, SUBCOL+11*, SUBCOL+13*, SUBCOL+14 |
DCODE | SEL+8~, COPYLIST+2~, COPYLIST+21*, COPYLIST+39*, BLDA+2 |
DFN | DYN+8~, DYN+14* |
GROUP | COPYLIST+2~, COPYLIST+11*, COPYLIST+12*, COPYLIST+13, COPYLIST+14, COPYLIST+18, COPYLIST+20 |
HDR | COPYLIST+2~, COPYLIST+13*, COPYLIST+14*, COPYLIST+15*, COPYLIST+16, COPYLIST+28*, COPYLIST+29*, URH+2~, URH+4*, URH+5! , URH+6*, URH+7* |
IBARY | DYN+8~, DYN+30*, DYN+33, RULE+5, RULE+6, RULE+11, RULE+15, RULE+16 |
IBCLINIC | DYN+8~, DYN+24*, DYN+25*, DYN+26, RULE+10 |
IBDF | SEL~, DYN~, TEST!, TEST+2, TEST1!, TEST1+2, TESTD+1!, TESTD+9 |
IBDF("CLINIC" | DYN+24, TESTD+8* |
IBDF("DFN" | DYN+12, DYN+13, DYN+14, TESTD+7* |
IBDF("IEN" | SEL+14, SEL+15, SEL+19, GETQLF+4, GETQLF+5, DYN+18, DYN+19, TEST+1*, TEST1+1*, TESTD+5* |
IBDF("PI" | DYN+22, TESTD+5* |
IBDF("RULE-ONLY" | SEL+19, DYN+15, RULE, RULE+3 |
IEN | COPYLIST+2~, COPYLIST+21*, COPYLIST+22*, BLDA+3 |
LIST | COPYLIST~, COPYLIST+7, COPYLIST+10, COPYLIST+12, COPYLIST+18, COPYLIST+20, SUBCOL~, SUBCOL+8, SUBCOL+9, SUBCOL+10 , SUBCOL+11, SUBCOL+12, SUBCOL+13 |
NAME | DYN+8~, DYN+28*, DYN+29*, DYN+30, RULE+9, RULE+14 |
NODE | GETQLF+2~, GETQLF+5*, GETQLF+6, COPYLIST+2~, COPYLIST+22*, COPYLIST+23, COPYLIST+26, COPYLIST+27, COPYLIST+28, COPYLIST+29 , COPYLIST+33*, COPYLIST+34, COPYLIST+38*, COPYLIST+39, COPYLIST+42*, COPYLIST+43, COPYLIST+46 |
NOTREAL | COPYLIST+2~, COPYLIST+21*, COPYLIST+26*, COPYLIST+27, BLDA+3, BLDA+7 |
ORDER | COPYLIST+2~, COPYLIST+17*, COPYLIST+18*, COPYLIST+20 |
OTEXT | SEL+8~, COPYLIST+21*, COPYLIST+43*, BLDA+5 |
PI | DYN+8~, DYN+22*, DYN+28 |
>> PRNT | COPYLIST+9*, COPYLIST+10*, COPYLIST+12 |
QUANTITY | COPYLIST+2~, COPYLIST+23*, BLDA+8 |
RESULT | SEL~, SEL+9, SEL+19, COPYLIST~, COPYLIST+4, DYN~, DYN+9 |
RTN | DYN+8~, DYN+28*, DYN+31 |
SC | SEL+8~, GETQLF+2~, GETQLF+3*, GETQLF+4*, GETQLF+5, GETQLF+9*, SUBCOL+5~, SUBCOL+7*, SUBCOL+8*, SUBCOL+9 , SUBCOL+10, SUBCOL+11, SUBCOL+12, SUBCOL+13 |
SECOND | SEL+8~, COPYLIST+2~, COPYLIST+21*, COPYLIST+46*, BLDA+9 |
SLCTN | COPYLIST+2~, COPYLIST+19*, COPYLIST+20*, COPYLIST+22, COPYLIST+32, COPYLIST+33, COPYLIST+37, COPYLIST+38, COPYLIST+42, BLDA+12 |
SUBCOL | COPYLIST+2~, COPYLIST+7*, COPYLIST+32*, COPYLIST+33, COPYLIST+37*, COPYLIST+38 |
TERM | SEL+8~, COPYLIST+21*, COPYLIST+43*, BLDA+6 |
TEXT | SEL+8~, COPYLIST+2~, COPYLIST+21*, COPYLIST+34*, COPYLIST+49, BLDA+1 |
THIRD | SEL+8~, COPYLIST+2~, COPYLIST+21*, COPYLIST+46*, BLDA+10 |
TSUBCOL | COPYLIST+2~, COPYLIST+7*, COPYLIST+32, COPYLIST+34, SUBCOL+5~, SUBCOL+6*, SUBCOL+10*, SUBCOL+12*, SUBCOL+14 |
VAR | TEST!, TEST+2, TEST1!, TEST1+2, TESTD+1!, TESTD+9 |
X | URH+2~, URH+3*, URH+4, URH+5, URH+6, URH+7* |