ROR LIST DIVISIONS (1777)    REMOTE PROCEDURE (8994)

Name Value
NAME ROR LIST DIVISIONS
TAG DIVLIST
ROUTINE RORRP015
RETURN VALUE TYPE GLOBAL ARRAY
AVAILABILITY RESTRICTED
WORD WRAP ON TRUE
VERSION 1
DESCRIPTION
The ROR LIST DIVISIONS remote procedure returns a list of divisions 
defined in the MEDICAL CENTER DIVISION file (#40.8).
INPUT PARAMETER
  • PART
    PARAMETER TYPE:   LITERAL
    MAXIMUM DATA LENGTH:   30
    SEQUENCE NUMBER:   1
    DESCRIPTION:   
    The partial match restriction.
    
  • FLAGS
    PARAMETER TYPE:   LITERAL
    SEQUENCE NUMBER:   2
    DESCRIPTION:   
    Flags that control the execution (can be combined):
     
      B  Backwards. Traverses the index in the opposite
         direction of normal traversal.
    
  • NUMBER
    PARAMETER TYPE:   LITERAL
    SEQUENCE NUMBER:   3
    DESCRIPTION:   
    Maximum number of entries to return. A value of "*" or no value in this 
    parameter designates all entries.
    
  • FROM
    PARAMETER TYPE:   LITERAL
    SEQUENCE NUMBER:   4
    DESCRIPTION:   
    The index entry(s) from which to begin the list
          resulting list.
     
    See description of the LIST^DIC for more details about the PART, NUMBER
    and FROM parameters.
      ^01: FromName
      ^02: FromIEN
     
    For example, a FROM value of "VA" would list entries following VA. You can
    use the 2-nd and 3-rd "^"- pieces of the @RESULTS@(0) node to continue the
    listing in the subsequent procedure calls.
     
    NOTE: The FROM value itself is not included in the
    
RETURN PARAMETER DESCRIPTION
A negative value of the first "^"-piece of the Results[0] indicates that 
  Results[i]            Error Descriptor
                          ^01: Error code
                          ^02: Message
                          ^03: Place of the error
 
Otherwise, number of divisions and the value of the FROM parameter for the
next procedure call are returned in the Results[0] and the subsequent
nodes of the global array contain the divisions.
 
  Results[0]          Result Descriptor
an error occurred during the execution of the remote procedure. In this 
                        ^01: Number of divisions
                        ^02: FromName
                        ^03: FromIEN
 
  Results[i]          Division
                        ^01: IEN
                        ^02: Name
                        ^03: Facility Number
                        ^04: Institution IEN
 
case, the second piece of the Results[0] will contain number of the error 
Example:
 
  // Get the list of divisions (10 items at a time), which
  // names start with the 'S'
 
  repeat
    with RPCBroker do
      begin
        Param[0].Value := 'S';
        Param[0].PType := literal;
descriptors returned in the subsequent nodes of the Results array:
        Param[1].Value := '';
        Param[1].PType := literal;
        Param[2].Value := '10';
        Param[2].PType := literal;
        Param[3].Value := Piece(Results[0],'^',2,3);
        Param[3].PType := literal;
        Call;
      end;
 
    n := StrToIntDef(Piece(Results[0],'^'), 0);
  
    for i:=1 to n do
      // Process the division record (Results[i])
      ...
  until Piece(Results[0],'^',2) = '';
  Results[0]            Result Descriptor
                          ^01: The last error code
                          ^02: Number of the error descriptors