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* |