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