IBDFRPC2 ;ALB/AAS - Return list of selections, broker call ;29-JAN-96
Source file <IBDFRPC2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
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) |
|
SELQ | ||
GETQLF | ; -- add selection rule and qualifiers from marking area
; subcolumns to results(0) node, but only for bubbles |
|
COPYLIST(RESULT,LIST,COUNT) | ;copies the entries from LIST to @ARY, starting subscript at COUNT+1
|
|
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 |
|
BLDA | ; -- build results array
|
|
URH | ; -- UnReferenced Headers removal
; if a header doesn't have any data under it, then remove the header |
|
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) |
|
RULE | ||
DYNQ | ||
TEST | ||
TEST1 | ||
TESTD | ; -- Test dynamic
|