Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: IBDFRPC2

Package: Automated Information Collection System

Routine: IBDFRPC2


Information

IBDFRPC2 ;ALB/AAS - Return list of selections, broker call ;29-JAN-96

Source Information

Source file <IBDFRPC2.m>

Entry Points

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
Info |  Source |  Entry Points