[Home] [Help]
26: -- IN p_driving_table IN VARCHAR2
27: -- The table that drives the VO associated with the
28: -- contract document currently being crawled. There are
29: -- two possible values: 'okc_rep_contracts_all' (for
30: -- repository contracts) and 'okc_rep_contract_vers'
31: -- (for archived contracts).
32: -- OUT : x_acl OUT VARCHAR2
33: -- A space-delimited string of ACL keys that define
34: -- access to this document.
79: -- Get owner IDs for a given archive contract
80: CURSOR owner_archive_csr
81: IS
82: SELECT owner_id
83: FROM okc_rep_contract_vers
84: WHERE
85: contract_id = p_bus_doc_id
86: AND contract_version_num = p_bus_doc_version;
87:
155: FOR owner_rep_rec IN owner_rep_csr
156: LOOP
157: x_acl := x_acl || 'o' || to_char(owner_rep_rec.owner_id) || ' ';
158: END LOOP;
159: -- Else, the driving table is 'okc_rep_contract_vers' (the archive of
160: -- contracts) and we need to match the version as well as the ID. See
161: -- the owner_archive_csr cursor.
162: ELSE
163: FOR owner_archive_rec IN owner_archive_csr