[Home] [Help]
163: l_return_status VARCHAR2(1);
164:
165: BEGIN
166: IF (l_debug = 'Y') THEN
167: okc_debug.Set_Indentation('Generate Contract Number');
168: okc_debug.log('1000: Entering generate contract number');
169: END IF;
170: -- initialize return status
171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
164:
165: BEGIN
166: IF (l_debug = 'Y') THEN
167: okc_debug.Set_Indentation('Generate Contract Number');
168: okc_debug.log('1000: Entering generate contract number');
169: END IF;
170: -- initialize return status
171: x_return_status := OKC_API.G_RET_STS_SUCCESS;
172:
174: If (x_contract_number = OKC_API.G_MISS_CHAR or
175: x_contract_number is null)
176: Then
177: IF (l_debug = 'Y') THEN
178: okc_debug.log('1010: x_contract_Number is null');
179: END IF;
180: -- Loop till a unique contract number + modifier found
181: -- WHILE (NOT l_unique_number_found)
182: -- LOOP
180: -- Loop till a unique contract number + modifier found
181: -- WHILE (NOT l_unique_number_found)
182: -- LOOP
183: IF (l_debug = 'Y') THEN
184: okc_debug.log('1020: Before Get_K_Number');
185: END IF;
186: OKC_CONTRACT_SEQ_PUB.GET_K_NUMBER (
187: p_scs_code => p_scs_code,
188: p_contract_number_modifier => p_modifier,
188: p_contract_number_modifier => p_modifier,
189: x_contract_number => x_contract_number,
190: x_return_status => l_return_status );
191: IF (l_debug = 'Y') THEN
192: okc_debug.log('1030: After Get_K_Number');
193: okc_debug.log('1040: x_contract_number ' || x_contract_number);
194: END IF;
195:
196: x_return_status := l_return_status;
189: x_contract_number => x_contract_number,
190: x_return_status => l_return_status );
191: IF (l_debug = 'Y') THEN
192: okc_debug.log('1030: After Get_K_Number');
193: okc_debug.log('1040: x_contract_number ' || x_contract_number);
194: END IF;
195:
196: x_return_status := l_return_status;
197: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
209: x_return_status := l_return_status;
210: END LOOP; */
211: End If;
212: IF (l_debug = 'Y') THEN
213: okc_debug.log('1050: Exiting Generate Contract Number');
214: okc_debug.reset_indentation;
215: END IF;
216: exception
217: when G_EXCEPTION_HALT_VALIDATION then
210: END LOOP; */
211: End If;
212: IF (l_debug = 'Y') THEN
213: okc_debug.log('1050: Exiting Generate Contract Number');
214: okc_debug.reset_indentation;
215: END IF;
216: exception
217: when G_EXCEPTION_HALT_VALIDATION then
218: IF (l_debug = 'Y') THEN
215: END IF;
216: exception
217: when G_EXCEPTION_HALT_VALIDATION then
218: IF (l_debug = 'Y') THEN
219: okc_debug.log('1060: Exiting Generate Contract Number');
220: okc_debug.reset_indentation;
221: END IF;
222: when OTHERS then
223: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
216: exception
217: when G_EXCEPTION_HALT_VALIDATION then
218: IF (l_debug = 'Y') THEN
219: okc_debug.log('1060: Exiting Generate Contract Number');
220: okc_debug.reset_indentation;
221: END IF;
222: when OTHERS then
223: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
224: OKC_API.SET_MESSAGE(p_app_name => g_app_name,
227: p_token1_value => sqlcode,
228: p_token2 => g_sqlerrm_token,
229: p_token2_value => sqlerrm);
230: IF (l_debug = 'Y') THEN
231: okc_debug.log('1070: Exiting Generate Contract Number');
232: okc_debug.reset_indentation;
233: END IF;
234: END GENERATE_CONTRACT_NUMBER;
235:
228: p_token2 => g_sqlerrm_token,
229: p_token2_value => sqlerrm);
230: IF (l_debug = 'Y') THEN
231: okc_debug.log('1070: Exiting Generate Contract Number');
232: okc_debug.reset_indentation;
233: END IF;
234: END GENERATE_CONTRACT_NUMBER;
235:
236:
2578: WHERE id=P_Line_Id;
2579: BEGIN
2580:
2581: IF (l_debug = 'Y') THEN
2582: okc_debug.log('100: Validate_Line_id starts', 2);
2583: END IF;
2584: IF P_Line_id = OKC_API.G_MISS_NUM OR
2585: P_Line_Id IS NULL
2586: THEN
2589: l_return_status := OKC_API.G_RET_STS_ERROR;
2590: END IF;
2591:
2592: IF (l_debug = 'Y') THEN
2593: okc_debug.log('200: l_return_status = ' || l_return_status, 2);
2594: END IF;
2595:
2596: OPEN Cur_Line(P_LIne_Id);
2597: FETCH Cur_Line INTO l_Count;
2603: l_return_status := OKC_API.G_RET_STS_ERROR;
2604: END IF;
2605: x_return_status := l_return_status;
2606: IF (l_debug = 'Y') THEN
2607: okc_debug.log('300: validate_line_id ends', 2);
2608: END IF;
2609: EXCEPTION
2610: WHEN OTHERS THEN
2611: -- store SQL error message on message stack for caller
2617: SQLERRM);
2618: -- notify caller of an UNEXPECTED error
2619: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2620: IF (l_debug = 'Y') THEN
2621: okc_debug.log('300: WHEN OTHERS EXCEPTION', 2);
2622: END IF;
2623: END Validate_Line_id;
2624:
2625: PROCEDURE delete_rule(
2664: l_proc varchar2(72) := 'delete_rule';
2665: --
2666: BEGIN
2667: IF (l_debug = 'Y') THEN
2668: okc_debug.log('10: starting delete rule', 2);
2669: END IF;
2670:
2671: OPEN l_atnv_csr;
2672: FETCH l_atnv_csr into l_dummy_var;
2672: FETCH l_atnv_csr into l_dummy_var;
2673: CLOSE l_atnv_csr;
2674: IF l_dummy_var = 'x' THEN
2675: IF (l_debug = 'Y') THEN
2676: okc_debug.log('G_EXCEPTION_CANNOT_DELETE');
2677: END IF;
2678: --RAISE G_EXCEPTION_CANNOT_DELETE;
2679: END IF;
2680:
2686: END LOOP;
2687:
2688: IF i > 0 THEN
2689: IF (l_debug = 'Y') THEN
2690: okc_debug.log('100: calling OKC_RULE_PUB.delete_cover_time', 2);
2691: END IF;
2692: --Delete the details
2693: -- call Public delete procedure
2694: OKC_RULE_PUB.delete_cover_time(
2700: p_ctiv_tbl => l_ctiv_tbl);
2701:
2702: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2703: IF (l_debug = 'Y') THEN
2704: okc_debug.log('200: x_return_status = ' || x_return_status, 2);
2705: END IF;
2706: -- stop delete process
2707: RETURN;
2708: END IF;
2719: IF i > 0 THEN
2720: --Delete the details
2721: -- call Public delete procedure
2722: IF (l_debug = 'Y') THEN
2723: okc_debug.log('300: calling OKC_RULE_PUB.delete_react_interval', 2);
2724: END IF;
2725: OKC_RULE_PUB.delete_react_interval(
2726: p_api_version => p_api_version,
2727: p_init_msg_list => p_init_msg_list,
2731: p_rilv_tbl => l_rilv_tbl);
2732:
2733: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2734: IF (l_debug = 'Y') THEN
2735: okc_debug.log('300: x_return_status = ' || x_return_status, 2);
2736: END IF;
2737: -- stop delete process
2738: RETURN;
2739: END IF;
2762: if (l_col_vals.COUNT>0) then
2763: i := l_col_vals.FIRST;
2764: LOOP
2765: IF (l_debug = 'Y') THEN
2766: okc_debug.log('600: calling okc_time_pub.delete_timevalues_n_tasks', 2);
2767: END IF;
2768: if (l_col_vals(i).col_value is not NULL) then
2769: okc_time_pub.delete_timevalues_n_tasks(
2770: p_api_version => p_api_version,
2774: x_msg_data => x_msg_data,
2775: p_tve_id => l_col_vals(i).col_value);
2776: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2777: IF (l_debug = 'Y') THEN
2778: okc_debug.log('700: x_return_status = ' || x_return_status, 2);
2779: END IF;
2780: -- stop delete process
2781: RETURN;
2782: END IF;
2789: --
2790: -- /tve_id
2791: --
2792: IF (l_debug = 'Y') THEN
2793: okc_debug.log('800: calling OKC_RUL_PVT.delete_row', 2);
2794: END IF;
2795: OKC_RUL_PVT.delete_row(
2796: p_api_version => p_api_version,
2797: p_init_msg_list => p_init_msg_list,
2800: x_msg_data => x_msg_data,
2801: p_rulv_rec => p_rulv_rec);
2802:
2803: IF (l_debug = 'Y') THEN
2804: okc_debug.log('900: x_return_status = ' || x_return_status, 2);
2805: END IF;
2806:
2807: EXCEPTION
2808: /*
2841: END delete_rule;
2842:
2843: BEGIN
2844: IF (l_debug = 'Y') THEN
2845: okc_debug.log('100: starting force delete', 2);
2846: okc_debug.log('200: cle_id=' || to_char(p_line_id),2);
2847: END IF;
2848: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
2849: Validate_Line_id(p_line_id,l_return_status);
2842:
2843: BEGIN
2844: IF (l_debug = 'Y') THEN
2845: okc_debug.log('100: starting force delete', 2);
2846: okc_debug.log('200: cle_id=' || to_char(p_line_id),2);
2847: END IF;
2848: x_return_status:=OKC_API.G_RET_STS_SUCCESS;
2849: Validate_Line_id(p_line_id,l_return_status);
2850: IF NOT l_Return_Status ='S'
2850: IF NOT l_Return_Status ='S'
2851: THEN
2852: x_return_status := l_return_status;
2853: IF (l_debug = 'Y') THEN
2854: okc_debug.log('300: Validate_Line_id failed', 2);
2855: END IF;
2856: RETURN;
2857: END IF;
2858:
2943: END LOOP;
2944: END LOOP;
2945:
2946: IF (l_debug = 'Y') THEN
2947: okc_debug.log('400: calling OKC_K_REL_OBJS_PUB.Delete_Row', 2);
2948: END IF;
2949: IF NOT l_crjv_tbl_in.COUNT=0
2950: THEN
2951:
2957: x_msg_data => l_msg_data,
2958: p_crjv_tbl => l_crjv_tbl_in);
2959:
2960: IF (l_debug = 'Y') THEN
2961: okc_debug.log('500: l_return_status = ' || l_return_status, 2);
2962: END IF;
2963:
2964: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
2965: then
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
2982: x_msg_data => l_msg_data,
2983: p_ctcv_tbl => l_ctcv_tbl_in);
2984:
2985: IF (l_debug = 'Y') THEN
2986: okc_debug.log('700: l_return_status = ' || l_return_status, 2);
2987: END IF;
2988:
2989: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
2990: then
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
3007: x_msg_data => l_msg_data,
3008: p_cplv_tbl => l_cplv_tbl_in);
3009:
3010: IF (l_debug = 'Y') THEN
3011: okc_debug.log('900: l_return_status = ' || l_return_status, 2);
3012: END IF;
3013: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3014: then
3015: x_return_status := l_return_status;
3017: end if;
3018: END IF;
3019:
3020: IF (l_debug = 'Y') THEN
3021: okc_debug.log('1000: calling okc_Rule_pub.delete_Rule', 2);
3022: END IF;
3023: IF NOT l_rulv_tbl_in.COUNT=0
3024: THEN
3025: FOR i IN l_rulv_tbl_in.FIRST..l_rulv_tbl_in.LAST
3034: x_msg_data => l_msg_data,
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)
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
3063:
3064: END IF;
3065:
3066: IF (l_debug = 'Y') THEN
3067: okc_debug.log('1200: calling okc_Rule_pub.delete_Rule_group', 2);
3068: END IF;
3069:
3070: IF NOT l_rgpv_tbl_in.COUNT=0
3071: THEN
3077: x_msg_data => l_msg_data,
3078: p_rgpv_tbl => l_rgpv_tbl_in);
3079:
3080: IF (l_debug = 'Y') THEN
3081: okc_debug.log('1300: l_return_status = ' || l_return_status, 2);
3082: END IF;
3083:
3084: if not (l_return_status = OKC_API.G_RET_STS_SUCCESS)
3085: then
3088: end if;
3089: END IF;
3090:
3091: IF (l_debug = 'Y') THEN
3092: okc_debug.log('1400: calling okc_contract_ITEM_pub.delete_Contract_ITEM', 2);
3093: END IF;
3094:
3095: IF NOT l_cimv_tbl_in.COUNT=0
3096: THEN
3102: x_msg_data => l_msg_data,
3103: p_cimv_tbl => l_cimv_tbl_in);
3104:
3105: IF (l_debug = 'Y') THEN
3106: okc_debug.log('1500: l_return_status = ' || l_return_status, 2);
3107: END IF;
3108:
3109: IF nvl(l_return_status,'*') <> 'S'
3110: THEN
3122: END IF;
3123: END IF;
3124:
3125: IF (l_debug = 'Y') THEN
3126: okc_debug.log('1400: calling okc_cle_pvt.force_delete_row', 2);
3127: END IF;
3128:
3129: IF NOT l_clev_tbl_in.COUNT=0
3130: THEN
3136: x_msg_data => l_msg_data,
3137: p_clev_tbl => l_clev_tbl_in);
3138:
3139: IF (l_debug = 'Y') THEN
3140: okc_debug.log('1500: l_return_status = ' || l_return_status, 2);
3141: END IF;
3142:
3143: -- if the above process is success, delete all ancestrys
3144: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3143: -- if the above process is success, delete all ancestrys
3144: If (l_return_status = OKC_API.G_RET_STS_SUCCESS) Then
3145:
3146: IF (l_debug = 'Y') THEN
3147: okc_debug.log('1600: calling delete_ancestry', 2);
3148: END IF;
3149: FOR v_Index IN l_clev_tbl_in.FIRST .. l_clev_tbl_in.LAST
3150: LOOP
3151: delete_ancestry(
3156: x_msg_data => l_msg_data,
3157: p_cle_id => l_clev_tbl_in(v_Index).id);
3158:
3159: IF (l_debug = 'Y') THEN
3160: okc_debug.log('1700: l_return_status = ' || l_return_status, 2);
3161: END IF;
3162:
3163: If (l_return_status <> OKC_API.G_RET_STS_SUCCESS) Then
3164: x_return_status := l_return_status;
3184: END IF;
3185: END IF;
3186:
3187: IF (l_debug = 'Y') THEN
3188: okc_debug.log('1800: x_return_status = ' || x_return_status, 2);
3189: END IF;
3190:
3191: EXCEPTION
3192: WHEN e_Error THEN
3190:
3191: EXCEPTION
3192: WHEN e_Error THEN
3193: IF (l_debug = 'Y') THEN
3194: okc_debug.log('1900: WHEN e_Error EXCEPTION', 2);
3195: END IF;
3196: -- notify caller of an error as UNEXPETED error
3197: x_msg_count :=l_msg_count;
3198: x_msg_data:=l_msg_data;
3206: '_PVT'
3207: );
3208: WHEN OKC_API.G_EXCEPTION_ERROR THEN
3209: IF (l_debug = 'Y') THEN
3210: okc_debug.log('1900: WHEN OKC_API.G_EXCEPTION_ERROR EXCEPTION', 2);
3211: END IF;
3212: x_msg_count :=l_msg_count;
3213: x_msg_data:=l_msg_data;
3214: x_return_status := OKC_API.HANDLE_EXCEPTIONS
3221: '_PVT'
3222: );
3223: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
3224: IF (l_debug = 'Y') THEN
3225: okc_debug.log('2000: WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR EXCEPTION', 2);
3226: END IF;
3227: x_msg_count :=l_msg_count;
3228: x_msg_data:=l_msg_data;
3229: x_return_status :=OKC_API.HANDLE_EXCEPTIONS
3236: '_PVT'
3237: );
3238: WHEN OTHERS THEN
3239: IF (l_debug = 'Y') THEN
3240: okc_debug.log('2100: WHEN OTHERS EXCEPTION', 2);
3241: END IF;
3242: x_msg_count :=l_msg_count;
3243: OKC_API.SET_MESSAGE(
3244: p_app_name => g_app_name,
4717:
4718:
4719:
4720: IF (l_debug = 'Y') THEN
4721: okc_debug.log('2200: Entered UPDATE_CONTRACT_AMOUNT');
4722: END IF;
4723:
4724: IF ((p_from_ste_code is NULL) OR (p_to_ste_code is NULL) OR (p_id is null)) THEN
4725: raise FND_API.G_EXC_ERROR;
4725: raise FND_API.G_EXC_ERROR;
4726: END IF;
4727:
4728: IF (l_debug = 'Y') THEN
4729: okc_debug.log('2210: Parameter Values ' ||
4730: 'p_id - '|| p_id ||
4731: 'p_from_ste_code - '||p_from_ste_code ||
4732: 'p_to_ste_code - '||p_to_ste_code ||
4733: 'p_cle_id- '||p_cle_id );
4735:
4736: IF (p_cle_id is NOT NULL) THEN -- implies line or subline level
4737:
4738: IF (l_debug = 'Y') THEN
4739: okc_debug.log('2300: p_cle_id is not null; Change Status called from line/subline level');
4740: END IF;
4741:
4742: Open get_line_lvl_csr;
4743: Fetch get_line_lvl_csr into l_cle_id;
4745:
4746: IF (l_cle_id is NOT NULL) THEN --p_cle_id is a subline
4747:
4748: IF (l_debug = 'Y') THEN
4749: okc_debug.log('2310: Updating topline of the subline due to status change of the subline');
4750: END IF;
4751:
4752: Open get_subline_amt_csr(p_cle_id);
4753: Fetch get_subline_amt_csr into l_sub_line_amt;
4755:
4756: IF ((p_from_ste_code = 'ENTERED' ) AND (p_to_ste_code = 'CANCELLED')) THEN
4757:
4758: IF (l_debug = 'Y') THEN
4759: okc_debug.log('2320: ENTERED -> CANCELLED; Updating price_negotiated and cancelled_amount for the topline of the subline');
4760: END IF;
4761:
4762: Update okc_k_lines_b
4763: set price_negotiated = nvl(price_negotiated,0) - nvl(l_sub_line_amt,0),
4767:
4768: ELSIF ((p_from_ste_code = 'CANCELLED' ) AND (p_to_ste_code = 'ENTERED')) THEN
4769:
4770: IF (l_debug = 'Y') THEN
4771: okc_debug.log('2330: CANCELLED -> ENTERED; Updating price_negotiated and cancelled_amount for the topline of the subline');
4772: END IF;
4773:
4774: Update okc_k_lines_b
4775: set price_negotiated = nvl(price_negotiated,0) + nvl(l_sub_line_amt,0),
4782:
4783: ELSE --l_cle_id is NULL --p_cle_id is a top line
4784:
4785: IF (l_debug = 'Y') THEN
4786: okc_debug.log('2400: Updating the topline');
4787: END IF;
4788:
4789: IF ((p_from_ste_code = 'ENTERED') AND (p_to_ste_code = 'CANCELLED')) THEN
4790:
4788:
4789: IF ((p_from_ste_code = 'ENTERED') AND (p_to_ste_code = 'CANCELLED')) THEN
4790:
4791: IF (l_debug = 'Y') THEN
4792: okc_debug.log ('2410: ENTERED -> CANCELLED; Updating price_negotiated and cancelled_amount for topline');
4793: END IF;
4794:
4795: Update okc_k_lines_b
4796: set cancelled_amount = nvl(cancelled_amount, 0) + nvl(price_negotiated, 0),
4809:
4810: IF (l_lse_id = 46 ) THEN --Checking if line type is of SUBSCRIPTION
4811:
4812: IF (l_debug = 'Y') THEN
4813: okc_debug.log ('2420: CANCELLED -> ENTERED; Updating price_negotiated and cancelled_amount for SUBSCRIPTION topline');
4814: END IF;
4815:
4816: --updating the topline price_negotiated and cancelled_amount for SUBSCRIPTION line type
4817:
4824:
4825: ELSE -- line type is not of SUBSCRIPTION type
4826:
4827: IF (l_debug = 'Y') THEN
4828: okc_debug.log('2430: CANCELLED -> ENTERED; Updating price_negotiated and cancelled_amount for NON-SUBSCRIPTION topline');
4829: END IF;
4830:
4831: Open get_uncancelled_amt_csr(p_cle_id, p_id);
4832: Fetch get_uncancelled_amt_csr Into l_uncancelled_amt;
4850:
4851: ELSE -- p_cle_id is NULL --implies action is taken on header
4852:
4853: IF (l_debug = 'Y') THEN
4854: okc_debug.log('2500: Updating Header');
4855: END IF;
4856:
4857: IF ((p_from_ste_code = 'ENTERED') AND (p_to_ste_code = 'CANCELLED')) THEN
4858:
4856:
4857: IF ((p_from_ste_code = 'ENTERED') AND (p_to_ste_code = 'CANCELLED')) THEN
4858:
4859: IF (l_debug = 'Y') THEN
4860: okc_debug.log('2510: ENTERED -> CANCELLED; Updating price_negotiated and cancelled_amount for all toplines of contract');
4861: END IF;
4862:
4863: -- updating price_negotiated and cancelled_amount for all the top lines of the contract
4864:
4872:
4873: ELSIF ((p_from_ste_code = 'CANCELLED' ) AND (p_to_ste_code = 'ENTERED')) THEN
4874:
4875: IF (l_debug = 'Y') THEN
4876: okc_debug.log('2520: CANCELLED -> ENTERED; Updating price_negotiated and cancelled_amount for all toplines of contract');
4877: END IF;
4878:
4879: -- Bug Fix 5026369 maanand 08-FEB-2006
4880: For topline In get_topline_id_csr
4913:
4914: END IF; --p_cle_id is NULL
4915:
4916: IF (l_debug = 'Y') THEN
4917: okc_debug.log('2600: Updating header estimated_amount and cancelled_amount');
4918: END IF;
4919:
4920: -- updating estimated_amount, cancelled_amount for header level of the contract due to change in the status of line/subline/contract
4921:
4938: WHEN FND_API.G_EXC_ERROR THEN
4939: x_return_status := FND_API.G_RET_STS_ERROR;
4940:
4941: IF (l_debug = 'Y') THEN
4942: okc_debug.log('2700: Leaving OKC_CONTRACT_PVT, one or more mandatory parameters missing :FND_API.G_EXC_ERROR');
4943: END IF;
4944:
4945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4945: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4946: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4947:
4948: IF (l_debug = 'Y') THEN
4949: okc_debug.log('2710: Leaving OKC_CONTRACT_PVT: FND_API.G_EXC_UNEXPECTED_ERROR '|| SQLERRM);
4950: END IF;
4951:
4952: WHEN OTHERS THEN
4953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4952: WHEN OTHERS THEN
4953: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4954:
4955: IF (l_debug = 'Y') THEN
4956: okc_debug.log('2720: Leaving OKC_CONTRACT_PVT because of EXCEPTION: '||sqlerrm);
4957: END IF;
4958:
4959: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
4960: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name, SQLERRM );