[Home] [Help]
1: PACKAGE BODY OKC_PHI_PVT AS
2: /* $Header: OKCRPHIB.pls 120.0 2005/05/25 19:47:34 appldev noship $ */
3:
4: l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5:
6: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
7: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLCODE';
8: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLERRM';
264: AND p_operation_code='UPDATE' then
265:
266: -- This is the case of creation and updation of Modfiers .
267:
268: fnd_profile.put('QP_SOURCE_SYSTEM_CODE','OKC');
269: --Setting the QP system Profile Option to OKC.so that Modifier cannot be updated from QP screens.
270:
271: IF (l_debug = 'Y') THEN
272: okc_util.print_trace(2,'Profile Option QP_SOURCE_SYSTEM_CODE set to OKC');
528: END IF; --IF l_ph_lines.ph_qp_reference_id IS NULL then
529:
530: l_MODIFIERS_tbl(l_line_cnt).start_date_active := l_ph_lines.start_date;
531: l_MODIFIERS_tbl(l_line_cnt).end_date_active := l_ph_lines.end_date;
532: l_MODIFIERS_tbl(l_line_cnt).incompatibility_grp_code := fnd_profile.value('OKC_PH_LINE_INCOMPATIBILITY_GROUP');
533:
534: IF (l_debug = 'Y') THEN
535: okc_util.print_trace(3,'Incompatibility Group : '||l_MODIFIERS_tbl(l_line_cnt).incompatibility_grp_code );
536: END IF;
955:
956: l_call_qp_api := true ;
957:
958: -- case of end date modifier.
959: fnd_profile.put('QP_SOURCE_SYSTEM_CODE','OKC');
960:
961: --Setting the QP system Profile Option to OKC.so that Modifer cannot be updated from QP screens.
962:
963: IF (l_debug = 'Y') THEN
1294:
1295:
1296: IF l_call_qp_api THEN
1297:
1298: fnd_profile.put('QP_SOURCE_SYSTEM_CODE','OKC');
1299: --Setting the QP system Profile Option to OKC.so that Modifer cannot be updated from QP screens.
1300:
1301: IF (l_debug = 'Y') THEN
1302: okc_util.print_trace(2,'Calling QP_Modifiers_proces_modifiers');