2087: l_clev_tbl_tmp okc_contract_pub.clev_tbl_type;
2088: l_rgpv_tbl_in okc_rule_pub.rgpv_tbl_type;
2089: l_rulv_tbl_in okc_rule_pub.rulv_tbl_type;
2090: l_cimv_tbl_in okc_Contract_Item_Pub.cimv_tbl_TYPE;
2091: l_ctcv_tbl_in okc_contract_party_pub.ctcv_tbl_type;
2092: l_cplv_tbl_in okc_contract_party_pub.cplv_tbl_type;
2093: l_crjv_tbl_in okc_k_rel_objs_pub.crjv_tbl_type;
2094: l_api_version CONSTANT NUMBER := 1.0;
2095: l_init_msg_list CONSTANT VARCHAR2(1) := 'T';
2088: l_rgpv_tbl_in okc_rule_pub.rgpv_tbl_type;
2089: l_rulv_tbl_in okc_rule_pub.rulv_tbl_type;
2090: l_cimv_tbl_in okc_Contract_Item_Pub.cimv_tbl_TYPE;
2091: l_ctcv_tbl_in okc_contract_party_pub.ctcv_tbl_type;
2092: l_cplv_tbl_in okc_contract_party_pub.cplv_tbl_type;
2093: l_crjv_tbl_in okc_k_rel_objs_pub.crjv_tbl_type;
2094: l_api_version CONSTANT NUMBER := 1.0;
2095: l_init_msg_list CONSTANT VARCHAR2(1) := 'T';
2096: l_return_status VARCHAR2(1);
2267: end if;
2268: END IF;
2269: IF NOT l_ctcv_tbl_in.COUNT=0
2270: THEN
2271: OKC_CONTRACT_PARTY_PUB.Delete_Contact(
2272: p_api_version => l_api_version,
2273: p_init_msg_list => l_init_msg_list,
2274: x_return_status => l_return_status,
2275: x_msg_count => l_msg_count,
2282: end if;
2283: END IF;
2284: IF NOT l_cplv_tbl_in.COUNT=0
2285: THEN
2286: OKC_CONTRACT_PARTY_PUB.Delete_k_Party_Role(
2287: p_api_version => l_api_version,
2288: p_init_msg_list => l_init_msg_list,
2289: x_return_status => l_return_status,
2290: x_msg_count => l_msg_count,
2542: l_clev_tbl_tmp okc_contract_pub.clev_tbl_type;
2543: l_rgpv_tbl_in okc_rule_pub.rgpv_tbl_type;
2544: l_rulv_tbl_in okc_rule_pub.rulv_tbl_type;
2545: l_cimv_tbl_in okc_Contract_Item_Pub.cimv_tbl_TYPE;
2546: l_ctcv_tbl_in okc_contract_party_pub.ctcv_tbl_type;
2547: l_cplv_tbl_in okc_contract_party_pub.cplv_tbl_type;
2548: l_crjv_tbl_in okc_k_rel_objs_pub.crjv_tbl_type;
2549: l_api_version CONSTANT NUMBER := 1.0;
2550: l_init_msg_list CONSTANT VARCHAR2(1) := 'T';
2543: l_rgpv_tbl_in okc_rule_pub.rgpv_tbl_type;
2544: l_rulv_tbl_in okc_rule_pub.rulv_tbl_type;
2545: l_cimv_tbl_in okc_Contract_Item_Pub.cimv_tbl_TYPE;
2546: l_ctcv_tbl_in okc_contract_party_pub.ctcv_tbl_type;
2547: l_cplv_tbl_in okc_contract_party_pub.cplv_tbl_type;
2548: l_crjv_tbl_in okc_k_rel_objs_pub.crjv_tbl_type;
2549: l_api_version CONSTANT NUMBER := 1.0;
2550: l_init_msg_list CONSTANT VARCHAR2(1) := 'T';
2551: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
2968: end if;
2969: END IF;
2970:
2971: IF (l_debug = 'Y') THEN
2972: okc_debug.log('600: calling OKC_CONTRACT_PARTY_PUB.Delete_Contact', 2);
2973: END IF;
2974:
2975: IF NOT l_ctcv_tbl_in.COUNT=0
2976: THEN
2973: END IF;
2974:
2975: IF NOT l_ctcv_tbl_in.COUNT=0
2976: THEN
2977: OKC_CONTRACT_PARTY_PUB.Delete_Contact(
2978: p_api_version => l_api_version,
2979: p_init_msg_list => l_init_msg_list,
2980: x_return_status => l_return_status,
2981: x_msg_count => l_msg_count,
2993: end if;
2994: END IF;
2995:
2996: IF (l_debug = 'Y') THEN
2997: okc_debug.log('800: calling OKC_CONTRACT_PARTY_PUB.Delete_k_Party_Role', 2);
2998: END IF;
2999:
3000: IF NOT l_cplv_tbl_in.COUNT=0
3001: THEN
2998: END IF;
2999:
3000: IF NOT l_cplv_tbl_in.COUNT=0
3001: THEN
3002: OKC_CONTRACT_PARTY_PUB.Delete_k_Party_Role(
3003: p_api_version => l_api_version,
3004: p_init_msg_list => l_init_msg_list,
3005: x_return_status => l_return_status,
3006: x_msg_count => l_msg_count,
3035: p_rulv_rec => l_rulv_tbl_in(i));
3036:
3037: IF (l_debug = 'Y') THEN
3038: okc_debug.log('1050: l_return_status = ' || l_return_status, 2);
3039: okc_debug.log('1100: calling OKC_CONTRACT_PARTY_PUB.Delete_Contact', 2);
3040: END IF;
3041:
3042: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3043: THEN