[Home] [Help]
15: Is
16:
17: l_api_version CONSTANT NUMBER := 1.0;
18: l_init_msg_list CONSTANT VARCHAR2(1) := 'F';
19: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
20: l_index VARCHAR2(240);
21:
22: --Party Role
23: l_cplv_tbl_in okc_contract_party_pub.cplv_tbl_type;
88:
89: if l_return_status = 'S' then
90: x_roleid := l_cplv_tbl_out(1).id;
91: else
92: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, p_rle_code || ' Party Role (HEADER)');
93: Raise G_EXCEPTION_HALT_VALIDATION;
94: end if;
95:
96: End;
270: l_rgpv_tbl_out okc_rule_pub.rgpv_tbl_type;
271:
272: l_api_version CONSTANT NUMBER := 1.0;
273: l_init_msg_list CONSTANT VARCHAR2(1) := 'F';
274: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
275: l_index VARCHAR2(240);
276:
277: Begin
278:
299: End If;
300:
301: Exception
302: When Others Then
303: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
304: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
305:
306: End Create_Rule_Group;
307:
300:
301: Exception
302: When Others Then
303: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
304: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
305:
306: End Create_Rule_Group;
307:
308:
349: l_rulv_tbl_out okc_rule_pub.rulv_tbl_type;
350:
351: l_api_version CONSTANT NUMBER := 1.0;
352: l_init_msg_list CONSTANT VARCHAR2(1) := 'F';
353: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
354: l_index NUMBER;
355: l_module VARCHAR2(50) := 'TBL_RULE.CREATE_ROWS';
356: l_debug BOOLEAN := TRUE;
357:
381:
382:
383: Exception
384: When Others Then
385: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
386: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
387:
388: End create_rules;
389:
382:
383: Exception
384: When Others Then
385: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
386: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
387:
388: End create_rules;
389:
390: Procedure Check_Line_Effectivity
449: Where rg.cle_id = p_cle_id;
450:
451: --General
452: l_api_version CONSTANT NUMBER := 1.0;
453: l_init_msg_list CONSTANT VARCHAR2(1) := OKC_API.G_FALSE;
454: l_return_status VARCHAR2(1) := 'S';
455: l_index VARCHAR2(2000);
456:
457: --Contract Line
468: l_rule_id NUMBER;
469:
470: Begin
471:
472: x_status := OKC_API.G_RET_STS_SUCCESS;
473:
474: --Contract Header Date Update
475:
476: l_clev_tbl_in(1).id := p_cle_id;
545: Exception
546: When G_EXCEPTION_HALT_VALIDATION Then
547: Null;
548: When Others Then
549: x_status := OKC_API.G_RET_STS_UNEXP_ERROR;
550: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
551: End;
552:
553:
546: When G_EXCEPTION_HALT_VALIDATION Then
547: Null;
548: When Others Then
549: x_status := OKC_API.G_RET_STS_UNEXP_ERROR;
550: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
551: End;
552:
553:
554:
627: End If;
628:
629: Exception
630: When Others Then
631: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
632: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
633: End;
634:
635: Procedure Check_hdr_Effectivity
628:
629: Exception
630: When Others Then
631: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
632: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
633: End;
634:
635: Procedure Check_hdr_Effectivity
636: (
708:
709:
710: --General
711: l_api_version CONSTANT NUMBER := 1.0;
712: l_init_msg_list CONSTANT VARCHAR2(1) := OKC_API.G_FALSE;
713: l_return_status VARCHAR2(1) := 'S';
714: l_index VARCHAR2(2000);
715:
716: --Contract Header
732: l_rule_id NUMBER;
733:
734: Begin
735:
736: x_status := OKC_API.G_RET_STS_SUCCESS;
737:
738: --Contract Header Date Update
739:
740: l_chrv_tbl_in(1).id := p_chr_id;
805: Exception
806: When G_EXCEPTION_HALT_VALIDATION Then
807: Null;
808: When Others Then
809: x_status := OKC_API.G_RET_STS_UNEXP_ERROR;
810: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
811: End;
812:
813:
806: When G_EXCEPTION_HALT_VALIDATION Then
807: Null;
808: When Others Then
809: x_status := OKC_API.G_RET_STS_UNEXP_ERROR;
810: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
811: End;
812:
813:
814: Procedure Clear_Rule_Table (X_rulv_tbl OUT NOCOPY okc_rule_pub.rulv_tbl_type)
814: Procedure Clear_Rule_Table (X_rulv_tbl OUT NOCOPY okc_rule_pub.rulv_tbl_type)
815: Is
816: Begin
817:
818: x_rulv_tbl(1).id := OKC_API.G_MISS_NUM;
819: x_rulv_tbl(1).rgp_id := OKC_API.G_MISS_NUM;
820: x_rulv_tbl(1).object1_id1 := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
815: Is
816: Begin
817:
818: x_rulv_tbl(1).id := OKC_API.G_MISS_NUM;
819: x_rulv_tbl(1).rgp_id := OKC_API.G_MISS_NUM;
820: x_rulv_tbl(1).object1_id1 := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
816: Begin
817:
818: x_rulv_tbl(1).id := OKC_API.G_MISS_NUM;
819: x_rulv_tbl(1).rgp_id := OKC_API.G_MISS_NUM;
820: x_rulv_tbl(1).object1_id1 := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
817:
818: x_rulv_tbl(1).id := OKC_API.G_MISS_NUM;
819: x_rulv_tbl(1).rgp_id := OKC_API.G_MISS_NUM;
820: x_rulv_tbl(1).object1_id1 := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
818: x_rulv_tbl(1).id := OKC_API.G_MISS_NUM;
819: x_rulv_tbl(1).rgp_id := OKC_API.G_MISS_NUM;
820: x_rulv_tbl(1).object1_id1 := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
819: x_rulv_tbl(1).rgp_id := OKC_API.G_MISS_NUM;
820: x_rulv_tbl(1).object1_id1 := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
820: x_rulv_tbl(1).object1_id1 := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
821: x_rulv_tbl(1).object2_id1 := OKC_API.G_MISS_CHAR;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
822: x_rulv_tbl(1).object3_id1 := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
823: x_rulv_tbl(1).object1_id2 := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
824: x_rulv_tbl(1).object2_id2 := OKC_API.G_MISS_CHAR;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
825: x_rulv_tbl(1).object3_id2 := OKC_API.G_MISS_CHAR;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
826: x_rulv_tbl(1).jtot_object1_code := OKC_API.G_MISS_CHAR;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
827: x_rulv_tbl(1).jtot_object2_code := OKC_API.G_MISS_CHAR;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
828: x_rulv_tbl(1).jtot_object3_code := OKC_API.G_MISS_CHAR;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
829: x_rulv_tbl(1).dnz_chr_id := OKC_API.G_MISS_NUM;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
830: x_rulv_tbl(1).std_template_yn := OKC_API.G_MISS_CHAR;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
831: x_rulv_tbl(1).warn_yn := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
832: x_rulv_tbl(1).priority := OKC_API.G_MISS_NUM;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
833: x_rulv_tbl(1).object_version_number := OKC_API.G_MISS_NUM;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
834: x_rulv_tbl(1).created_by := OKC_API.G_MISS_NUM;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
835: x_rulv_tbl(1).creation_date := OKC_API.G_MISS_DATE;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
836: x_rulv_tbl(1).last_updated_by := OKC_API.G_MISS_NUM;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
837: x_rulv_tbl(1).last_update_date := OKC_API.G_MISS_DATE;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
838: x_rulv_tbl(1).last_update_login := OKC_API.G_MISS_NUM;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
839: x_rulv_tbl(1).attribute_category := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
840: x_rulv_tbl(1).attribute1 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
841: x_rulv_tbl(1).attribute2 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
842: x_rulv_tbl(1).attribute3 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
843: x_rulv_tbl(1).attribute4 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
844: x_rulv_tbl(1).attribute5 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
845: x_rulv_tbl(1).attribute6 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
846: x_rulv_tbl(1).attribute7 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
847: x_rulv_tbl(1).attribute8 := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
848: x_rulv_tbl(1).attribute9 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
849: x_rulv_tbl(1).attribute10 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
850: x_rulv_tbl(1).attribute11 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
851: x_rulv_tbl(1).attribute12 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
852: x_rulv_tbl(1).attribute13 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
853: x_rulv_tbl(1).attribute14 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
854: x_rulv_tbl(1).attribute15 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
855: x_rulv_tbl(1).rule_information_category := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
856: x_rulv_tbl(1).rule_information1 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
857: x_rulv_tbl(1).rule_information2 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
858: x_rulv_tbl(1).rule_information3 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
859: x_rulv_tbl(1).rule_information4 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
860: x_rulv_tbl(1).rule_information5 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
868: x_rulv_tbl(1).rule_information13 := OKC_API.G_MISS_CHAR;
861: x_rulv_tbl(1).rule_information6 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
868: x_rulv_tbl(1).rule_information13 := OKC_API.G_MISS_CHAR;
869: x_rulv_tbl(1).rule_information14 := OKC_API.G_MISS_CHAR;
862: x_rulv_tbl(1).rule_information7 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
868: x_rulv_tbl(1).rule_information13 := OKC_API.G_MISS_CHAR;
869: x_rulv_tbl(1).rule_information14 := OKC_API.G_MISS_CHAR;
870: x_rulv_tbl(1).rule_information15 := OKC_API.G_MISS_CHAR;
863: x_rulv_tbl(1).rule_information8 := OKC_API.G_MISS_CHAR;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
868: x_rulv_tbl(1).rule_information13 := OKC_API.G_MISS_CHAR;
869: x_rulv_tbl(1).rule_information14 := OKC_API.G_MISS_CHAR;
870: x_rulv_tbl(1).rule_information15 := OKC_API.G_MISS_CHAR;
871: End;
864: x_rulv_tbl(1).rule_information9 := OKC_API.G_MISS_CHAR;
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
868: x_rulv_tbl(1).rule_information13 := OKC_API.G_MISS_CHAR;
869: x_rulv_tbl(1).rule_information14 := OKC_API.G_MISS_CHAR;
870: x_rulv_tbl(1).rule_information15 := OKC_API.G_MISS_CHAR;
871: End;
872:
865: x_rulv_tbl(1).rule_information10 := OKC_API.G_MISS_CHAR;
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
868: x_rulv_tbl(1).rule_information13 := OKC_API.G_MISS_CHAR;
869: x_rulv_tbl(1).rule_information14 := OKC_API.G_MISS_CHAR;
870: x_rulv_tbl(1).rule_information15 := OKC_API.G_MISS_CHAR;
871: End;
872:
873:
866: x_rulv_tbl(1).rule_information11 := OKC_API.G_MISS_CHAR;
867: x_rulv_tbl(1).rule_information12 := OKC_API.G_MISS_CHAR;
868: x_rulv_tbl(1).rule_information13 := OKC_API.G_MISS_CHAR;
869: x_rulv_tbl(1).rule_information14 := OKC_API.G_MISS_CHAR;
870: x_rulv_tbl(1).rule_information15 := OKC_API.G_MISS_CHAR;
871: End;
872:
873:
874: FUNCTION GET_CONTRACT_NUMBER (p_hdrid IN Number) RETURN VARCHAR2
960: Select cle_id From OKC_K_LINES_V
961: Where id = p_covered_line_id;
962:
963: l_api_version CONSTANT NUMBER := 1.0;
964: l_init_msg_list CONSTANT VARCHAR2(1) := OKC_API.G_FALSE;
965: l_return_status VARCHAR2(1) := 'S';
966: l_index VARCHAR2(2000);
967:
968: --Contract Line Table
982: Begin
983:
984: If p_new_end_date Is Not Null Then
985:
986: x_return_status := OKC_API.G_RET_STS_SUCCESS;
987: l_clev_tbl_in(1).id := p_covered_line_id;
988: l_clev_tbl_in(1).end_date := p_new_end_date;
989:
990: okc_contract_pub.update_contract_line
1003: Open l_parent_line_csr;
1004: Fetch l_parent_line_csr Into l_parent_line_id;
1005: Close l_parent_line_csr;
1006:
1007: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1008: l_clev_tbl_in(1).id := l_parent_line_id;
1009: l_clev_tbl_in(1).end_date := p_new_end_date;
1010:
1011: okc_contract_pub.update_contract_line
1024: Else
1025: Raise G_EXCEPTION_HALT_VALIDATION;
1026: End if;
1027: Else
1028: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Line Update(UPDATE SUB LINE)');
1029: Raise G_EXCEPTION_HALT_VALIDATION;
1030: End if;
1031:
1032: End If;
1032: End If;
1033:
1034: If p_new_negotiated_amt Is Not Null Then
1035:
1036: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1037: l_clev_tbl_in(1).id := p_covered_line_id;
1038: l_clev_tbl_in(1).price_negotiated := p_new_negotiated_amt;
1039:
1040: okc_contract_pub.update_contract_line
1084: When G_EXCEPTION_HALT_VALIDATION Then
1085: x_return_status := l_return_status;
1086: Null;
1087: When Others Then
1088: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1089: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1090: End;
1091:
1092:
1085: x_return_status := l_return_status;
1086: Null;
1087: When Others Then
1088: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1089: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1090: End;
1091:
1092:
1093:
1144: l_thirdparty_id NUMBER;
1145: l_thirdparty_role VARCHAR2(30);
1146:
1147: l_api_version CONSTANT NUMBER := 1.0;
1148: l_init_msg_list CONSTANT VARCHAR2(1) := OKC_API.G_FALSE;
1149: l_return_status VARCHAR2(1) := 'S';
1150: l_index VARCHAR2(2000);
1151:
1152: i Number;
1209: l_hdr_contactid NUMBER;
1210:
1211: BEGIN
1212:
1213: x_return_status := OKC_API.G_RET_STS_SUCCESS;
1214:
1215: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- MERGE TYPE ' || p_k_header_rec.merge_type );
1216: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- MERGE ID ' || p_k_header_rec.merge_object_id);
1217:
1231:
1232: If l_chrid Is Not Null Then
1233: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- CHR ID IS NULL ');
1234: x_chr_id := l_chrid;
1235: l_return_status := OKC_API.G_RET_STS_SUCCESS;
1236: Raise G_EXCEPTION_HALT_VALIDATION;
1237: End If;
1238:
1239: --Contract Header Routine
1260: l_chrv_tbl_in(1).authoring_org_id := p_k_header_rec.authoring_org_id;
1261: l_chrv_tbl_in(1).inv_organization_id := okc_context.get_okc_organization_id;
1262: l_chrv_tbl_in(1).pre_pay_req_yn := 'N';
1263: l_chrv_tbl_in(1).cust_po_number := p_k_header_rec.cust_po_number;
1264: l_chrv_tbl_in(1).qcl_id := OKC_API.G_MISS_NUM;
1265: l_chrv_tbl_in(1).short_description := Nvl(p_k_header_rec.short_description,'Warranty/Extended Warranty');
1266: l_chrv_tbl_in(1).template_yn := 'N';
1267: l_chrv_tbl_in(1).start_date := p_k_header_rec.start_date;
1268: l_chrv_tbl_in(1).end_date := p_k_header_rec.end_date;
1265: l_chrv_tbl_in(1).short_description := Nvl(p_k_header_rec.short_description,'Warranty/Extended Warranty');
1266: l_chrv_tbl_in(1).template_yn := 'N';
1267: l_chrv_tbl_in(1).start_date := p_k_header_rec.start_date;
1268: l_chrv_tbl_in(1).end_date := p_k_header_rec.end_date;
1269: l_chrv_tbl_in(1).chr_type := OKC_API.G_MISS_CHAR;
1270: l_chrv_tbl_in(1).archived_yn := 'N';
1271: l_chrv_tbl_in(1).deleted_yn := 'N';
1272: l_chrv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1273: l_chrv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1268: l_chrv_tbl_in(1).end_date := p_k_header_rec.end_date;
1269: l_chrv_tbl_in(1).chr_type := OKC_API.G_MISS_CHAR;
1270: l_chrv_tbl_in(1).archived_yn := 'N';
1271: l_chrv_tbl_in(1).deleted_yn := 'N';
1272: l_chrv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1273: l_chrv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1274: l_chrv_tbl_in(1).currency_code := p_k_header_rec.currency;
1275: l_chrv_tbl_in(1).buy_or_sell := 'S';
1276: l_chrv_tbl_in(1).issue_or_receive := 'I';
1269: l_chrv_tbl_in(1).chr_type := OKC_API.G_MISS_CHAR;
1270: l_chrv_tbl_in(1).archived_yn := 'N';
1271: l_chrv_tbl_in(1).deleted_yn := 'N';
1272: l_chrv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1273: l_chrv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1274: l_chrv_tbl_in(1).currency_code := p_k_header_rec.currency;
1275: l_chrv_tbl_in(1).buy_or_sell := 'S';
1276: l_chrv_tbl_in(1).issue_or_receive := 'I';
1277: l_chrv_tbl_in(1).Attribute1 := p_k_header_rec.attribute1;
1309:
1310: If l_return_status = 'S' then
1311: l_chrid := l_chrv_tbl_out(1).id;
1312: Else
1313: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'HEADER (HEADER)');
1314: Raise G_EXCEPTION_HALT_VALIDATION;
1315: end if;
1316:
1317:
1410:
1411: End If;
1412:
1413: If l_add2partyid Is Null Then
1414: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, p_Contact_tbl (i).contact_role
1415: || ' Contact (HEADER) Missing Role Id ' || p_Contact_tbl (i).contact_object_code);
1416: Raise G_EXCEPTION_HALT_VALIDATION;
1417: End If;
1418:
1443:
1444: If l_return_status = 'S' then
1445: l_contact_id := l_ctcv_tbl_out(1).id;
1446: Else
1447: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, p_Contact_tbl (i).contact_role
1448: || ' Contact (HEADER) ' || p_Contact_tbl (i).contact_object_code);
1449: Raise G_EXCEPTION_HALT_VALIDATION;
1450: End if;
1451:
1462:
1463: l_ctrgrp := Nvl(p_k_header_rec.chr_group, Nvl(Fnd_Profile.Value ('OKS_WARR_CONTRACT_GROUP'),2));
1464: l_cgcv_tbl_in(1).cgp_parent_id := l_ctrgrp;
1465: l_cgcv_tbl_in(1).included_chr_id := l_chrid;
1466: l_cgcv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1467: l_cgcv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1468: l_cgcv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1469: l_cgcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1470: l_cgcv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1463: l_ctrgrp := Nvl(p_k_header_rec.chr_group, Nvl(Fnd_Profile.Value ('OKS_WARR_CONTRACT_GROUP'),2));
1464: l_cgcv_tbl_in(1).cgp_parent_id := l_ctrgrp;
1465: l_cgcv_tbl_in(1).included_chr_id := l_chrid;
1466: l_cgcv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1467: l_cgcv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1468: l_cgcv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1469: l_cgcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1470: l_cgcv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1471: l_cgcv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1464: l_cgcv_tbl_in(1).cgp_parent_id := l_ctrgrp;
1465: l_cgcv_tbl_in(1).included_chr_id := l_chrid;
1466: l_cgcv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1467: l_cgcv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1468: l_cgcv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1469: l_cgcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1470: l_cgcv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1471: l_cgcv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1472: l_cgcv_tbl_in(1).included_cgp_id := NULL;
1465: l_cgcv_tbl_in(1).included_chr_id := l_chrid;
1466: l_cgcv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1467: l_cgcv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1468: l_cgcv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1469: l_cgcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1470: l_cgcv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1471: l_cgcv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1472: l_cgcv_tbl_in(1).included_cgp_id := NULL;
1473:
1466: l_cgcv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1467: l_cgcv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1468: l_cgcv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1469: l_cgcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1470: l_cgcv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1471: l_cgcv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1472: l_cgcv_tbl_in(1).included_cgp_id := NULL;
1473:
1474: okc_contract_group_pub.create_contract_grpngs
1467: l_cgcv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1468: l_cgcv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1469: l_cgcv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1470: l_cgcv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1471: l_cgcv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1472: l_cgcv_tbl_in(1).included_cgp_id := NULL;
1473:
1474: okc_contract_group_pub.create_contract_grpngs
1475: (
1486:
1487: If l_return_status = 'S' then
1488: l_grpid := l_cgcv_tbl_out(1).id;
1489: Else
1490: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract Group (HEADER)');
1491: Raise G_EXCEPTION_HALT_VALIDATION;
1492: end if;
1493:
1494:
1496:
1497: l_cpsv_tbl_in(1).pdf_id := p_k_header_rec.pdf_id;
1498: l_cpsv_tbl_in(1).CHR_ID := l_chrid;
1499: l_cpsv_tbl_in(1).USER_ID := FND_global.user_id;
1500: l_cpsv_tbl_in(1).IN_PROCESS_YN := OKC_API.G_MISS_CHAR;
1501: l_cpsv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1502: l_cpsv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1503: l_cpsv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1504: l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1497: l_cpsv_tbl_in(1).pdf_id := p_k_header_rec.pdf_id;
1498: l_cpsv_tbl_in(1).CHR_ID := l_chrid;
1499: l_cpsv_tbl_in(1).USER_ID := FND_global.user_id;
1500: l_cpsv_tbl_in(1).IN_PROCESS_YN := OKC_API.G_MISS_CHAR;
1501: l_cpsv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1502: l_cpsv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1503: l_cpsv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1504: l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1505: l_cpsv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1498: l_cpsv_tbl_in(1).CHR_ID := l_chrid;
1499: l_cpsv_tbl_in(1).USER_ID := FND_global.user_id;
1500: l_cpsv_tbl_in(1).IN_PROCESS_YN := OKC_API.G_MISS_CHAR;
1501: l_cpsv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1502: l_cpsv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1503: l_cpsv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1504: l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1505: l_cpsv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1506: l_cpsv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1499: l_cpsv_tbl_in(1).USER_ID := FND_global.user_id;
1500: l_cpsv_tbl_in(1).IN_PROCESS_YN := OKC_API.G_MISS_CHAR;
1501: l_cpsv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1502: l_cpsv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1503: l_cpsv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1504: l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1505: l_cpsv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1506: l_cpsv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1507:
1500: l_cpsv_tbl_in(1).IN_PROCESS_YN := OKC_API.G_MISS_CHAR;
1501: l_cpsv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1502: l_cpsv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1503: l_cpsv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1504: l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1505: l_cpsv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1506: l_cpsv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1507:
1508: okc_contract_pub.create_contract_process
1501: l_cpsv_tbl_in(1).object_version_number := OKC_API.G_MISS_NUM;
1502: l_cpsv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1503: l_cpsv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1504: l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1505: l_cpsv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1506: l_cpsv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1507:
1508: okc_contract_pub.create_contract_process
1509: (
1502: l_cpsv_tbl_in(1).created_by := OKC_API.G_MISS_NUM;
1503: l_cpsv_tbl_in(1).creation_date := OKC_API.G_MISS_DATE;
1504: l_cpsv_tbl_in(1).last_updated_by := OKC_API.G_MISS_NUM;
1505: l_cpsv_tbl_in(1).last_update_date := OKC_API.G_MISS_DATE;
1506: l_cpsv_tbl_in(1).last_update_login := OKC_API.G_MISS_NUM;
1507:
1508: okc_contract_pub.create_contract_process
1509: (
1510: p_api_version => l_api_version,
1521:
1522: If l_return_status = 'S' then
1523: l_pdfid := l_cpsv_tbl_out(1).id;
1524: Else
1525: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Contract WorkFlow (HEADER)');
1526: Raise G_EXCEPTION_HALT_VALIDATION;
1527: end if;
1528:
1529:
1554:
1555: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- RULE GROUP STATUS '||l_return_status);
1556:
1557:
1558: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1559: l_rule_group_id := l_rgpv_tbl_out(1).id;
1560: Else
1561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Rule Group (HEADER)');
1562: Raise G_EXCEPTION_HALT_VALIDATION;
1557:
1558: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1559: l_rule_group_id := l_rgpv_tbl_out(1).id;
1560: Else
1561: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Rule Group (HEADER)');
1562: Raise G_EXCEPTION_HALT_VALIDATION;
1563: End If;
1564: End If;
1565:
1594:
1595: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- TAX RULE STATUS ' || l_return_Status);
1596:
1597:
1598: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1599: l_rule_id := l_rulv_tbl_out(1).id;
1600: Else
1601: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'TAX EXEMPTION (HEADER)');
1602: Raise G_EXCEPTION_HALT_VALIDATION;
1597:
1598: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1599: l_rule_id := l_rulv_tbl_out(1).id;
1600: Else
1601: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'TAX EXEMPTION (HEADER)');
1602: Raise G_EXCEPTION_HALT_VALIDATION;
1603: End If;
1604:
1605: End If;
1636: );
1637:
1638: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- PRE RULE STATUS ' || l_return_Status);
1639:
1640: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1641: l_rule_id := l_rulv_tbl_out(1).id;
1642: Else
1643: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PRICE LIST (HEADER)');
1644: Raise G_EXCEPTION_HALT_VALIDATION;
1639:
1640: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1641: l_rule_id := l_rulv_tbl_out(1).id;
1642: Else
1643: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PRICE LIST (HEADER)');
1644: Raise G_EXCEPTION_HALT_VALIDATION;
1645: End If;
1646:
1647: End If;
1676: );
1677: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- PTR RULE STATUS ' || l_return_Status);
1678:
1679:
1680: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1681: l_rule_id := l_rulv_tbl_out(1).id;
1682: Else
1683: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PAYMENT TERM (HEADER)');
1684: Raise G_EXCEPTION_HALT_VALIDATION;
1679:
1680: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1681: l_rule_id := l_rulv_tbl_out(1).id;
1682: Else
1683: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PAYMENT TERM (HEADER)');
1684: Raise G_EXCEPTION_HALT_VALIDATION;
1685: End If;
1686:
1687: End If;
1719: );
1720:
1721: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- CVN RULE STATUS ' || l_return_Status);
1722:
1723: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1724: l_rule_id := l_rulv_tbl_out(1).id;
1725: Else
1726: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'CONVERSION TYPE (HEADER)');
1727: Raise G_EXCEPTION_HALT_VALIDATION;
1722:
1723: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1724: l_rule_id := l_rulv_tbl_out(1).id;
1725: Else
1726: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'CONVERSION TYPE (HEADER)');
1727: Raise G_EXCEPTION_HALT_VALIDATION;
1728: End If;
1729:
1730: End If;
1768:
1769: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- SBG RULE STATUS ' || l_return_Status);
1770:
1771:
1772: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1773: l_rule_id := l_rulv_tbl_out(1).id;
1774: Else
1775: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Schedule Billing Rule (HEADER)');
1776: Raise G_EXCEPTION_HALT_VALIDATION;
1771:
1772: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1773: l_rule_id := l_rulv_tbl_out(1).id;
1774: Else
1775: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Schedule Billing Rule (HEADER)');
1776: Raise G_EXCEPTION_HALT_VALIDATION;
1777: End If;
1778:
1779: End If;
1809: );
1810:
1811: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- BTO RULE STATUS ' || l_return_Status);
1812:
1813: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1814: l_rule_id := l_rulv_tbl_out(1).id;
1815: Else
1816: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'BillTo Id (HEADER)');
1817: Raise G_EXCEPTION_HALT_VALIDATION;
1812:
1813: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1814: l_rule_id := l_rulv_tbl_out(1).id;
1815: Else
1816: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'BillTo Id (HEADER)');
1817: Raise G_EXCEPTION_HALT_VALIDATION;
1818: End If;
1819:
1820: End If;
1852:
1853: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- STO RULE STATUS ' || l_return_Status);
1854:
1855:
1856: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1857: l_rule_id := l_rulv_tbl_out(1).id;
1858: Else
1859: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ShipTo Id (HEADER)');
1860: Raise G_EXCEPTION_HALT_VALIDATION;
1855:
1856: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1857: l_rule_id := l_rulv_tbl_out(1).id;
1858: Else
1859: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ShipTo Id (HEADER)');
1860: Raise G_EXCEPTION_HALT_VALIDATION;
1861: End If;
1862:
1863: End If;
1890:
1891: If l_return_status = 'S' then
1892: l_govern_id := l_gvev_tbl_out(1).id;
1893: Else
1894: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Agreement Id (HEADER)');
1895: Raise G_EXCEPTION_HALT_VALIDATION;
1896: End if;
1897:
1898: End If;
1926: );
1927:
1928: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- ARL RULE STATUS ' || l_return_Status);
1929:
1930: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1931: l_rule_id := l_rulv_tbl_out(1).id;
1932: Else
1933: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Accounting Id (HEADER)');
1934: Raise G_EXCEPTION_HALT_VALIDATION;
1929:
1930: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1931: l_rule_id := l_rulv_tbl_out(1).id;
1932: Else
1933: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Accounting Id (HEADER)');
1934: Raise G_EXCEPTION_HALT_VALIDATION;
1935: End If;
1936: End If;
1937:
1967:
1968:
1969: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- IRE RULE STATUS ' || l_return_Status);
1970:
1971: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1972: l_rule_id := l_rulv_tbl_out(1).id;
1973: Else
1974: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Invoice Id (HEADER)');
1975: Raise G_EXCEPTION_HALT_VALIDATION;
1970:
1971: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1972: l_rule_id := l_rulv_tbl_out(1).id;
1973: Else
1974: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Invoice Id (HEADER)');
1975: Raise G_EXCEPTION_HALT_VALIDATION;
1976: End If;
1977:
1978: End If;
2006: );
2007:
2008: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- REN RULE STATUS ' || l_return_Status);
2009:
2010: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2011: l_rule_id := l_rulv_tbl_out(1).id;
2012: Else
2013: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Renewal Type (HEADER)');
2014: Raise G_EXCEPTION_HALT_VALIDATION;
2009:
2010: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2011: l_rule_id := l_rulv_tbl_out(1).id;
2012: Else
2013: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Renewal Type (HEADER)');
2014: Raise G_EXCEPTION_HALT_VALIDATION;
2015: End If;
2016:
2017: End If;
2056:
2057: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- RPT RULE STATUS ' || l_return_Status);
2058:
2059:
2060: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2061: l_rule_id := l_rulv_tbl_out(1).id;
2062: Else
2063: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Renewal Pricing (HEADER)');
2064: Raise G_EXCEPTION_HALT_VALIDATION;
2059:
2060: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2061: l_rule_id := l_rulv_tbl_out(1).id;
2062: Else
2063: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Renewal Pricing (HEADER)');
2064: Raise G_EXCEPTION_HALT_VALIDATION;
2065: End If;
2066:
2067: End If;
2095:
2096: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- RPO RULE STATUS ' || l_return_Status);
2097:
2098:
2099: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2100: l_rule_id := l_rulv_tbl_out(1).id;
2101: Else
2102: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Renewal PO (HEADER)');
2103: Raise G_EXCEPTION_HALT_VALIDATION;
2098:
2099: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2100: l_rule_id := l_rulv_tbl_out(1).id;
2101: Else
2102: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Renewal PO (HEADER)');
2103: Raise G_EXCEPTION_HALT_VALIDATION;
2104: End If;
2105:
2106: End If;
2121: End If;
2122: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- OBJ RULE STATUS ' || l_return_Status);
2123:
2124:
2125: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2126: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Order Header Id (HEADER)');
2127: Raise G_EXCEPTION_HALT_VALIDATION;
2128: End If;
2129:
2122: FND_FILE.PUT_LINE (FND_FILE.LOG,'K HDR CREATION :- OBJ RULE STATUS ' || l_return_Status);
2123:
2124:
2125: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2126: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Order Header Id (HEADER)');
2127: Raise G_EXCEPTION_HALT_VALIDATION;
2128: End If;
2129:
2130:
2133: Exception
2134: When G_EXCEPTION_HALT_VALIDATION Then
2135: x_return_status := l_return_status;
2136: When Others Then
2137: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2138: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2139:
2140: END Create_K_Hdr;
2141:
2134: When G_EXCEPTION_HALT_VALIDATION Then
2135: x_return_status := l_return_status;
2136: When Others Then
2137: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2138: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2139:
2140: END Create_K_Hdr;
2141:
2142:
2152: )
2153: Is
2154:
2155: l_api_version CONSTANT NUMBER := 1.0;
2156: l_init_msg_list CONSTANT VARCHAR2(1) := OKC_API.G_FALSE;
2157: l_return_status VARCHAR2(1) := 'S';
2158: l_index VARCHAR2(2000);
2159:
2160: l_ctcv_tbl_in okc_contract_party_pub.ctcv_tbl_type;
2271: l_obj VARCHAR2(40);
2272:
2273: Begin
2274:
2275: x_return_status := OKC_API.G_RET_STS_SUCCESS;
2276: Okc_context.set_okc_org_context (p_k_line_rec.org_id, p_k_line_rec.organization_id);
2277: l_Line_id := Get_K_Cle_Id
2278: (
2279: p_ChrId => p_k_line_rec.k_id
2286: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- LINE ID ' || l_line_id);
2287:
2288: If l_line_id Is Not Null Then
2289: x_Service_Line_id := l_line_id;
2290: l_return_status := OKC_API.G_RET_STS_SUCCESS;
2291: Raise G_EXCEPTION_HALT_VALIDATION;
2292: End If;
2293:
2294: check_hdr_effectivity
2302: x_status => l_hdrstatus
2303: );
2304:
2305: If l_hdrstatus = 'E' Then
2306: l_return_status := OKC_API.G_RET_STS_ERROR;
2307: Raise G_EXCEPTION_HALT_VALIDATION;
2308:
2309: ElsIf l_hdrstatus = 'Y' Then
2310:
2321: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- UPDATE HDR ' || l_return_status);
2322:
2323:
2324: If Not l_return_Status = 'S' Then
2325: l_return_status := OKC_API.G_RET_STS_ERROR;
2326: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Header Effectivity Update (LINE)');
2327: Raise G_EXCEPTION_HALT_VALIDATION;
2328: End If;
2329:
2322:
2323:
2324: If Not l_return_Status = 'S' Then
2325: l_return_status := OKC_API.G_RET_STS_ERROR;
2326: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Header Effectivity Update (LINE)');
2327: Raise G_EXCEPTION_HALT_VALIDATION;
2328: End If;
2329:
2330: End If;
2335:
2336: If l_mtl_csr%notfound Then
2337: FND_FILE.PUT_LINE (FND_FILE.LOG,'L_LINE_CSR FAILURE');
2338: Close l_mtl_csr ;
2339: l_return_status := OKC_API.G_RET_STS_ERROR;
2340: OKC_API.set_message(G_APP_NAME,'OKS_CUST_PROD_DTLS_NOT_FOUND','INVENTORY_ITEM',p_k_line_rec.srv_id);
2341: Raise G_EXCEPTION_HALT_VALIDATION;
2342: End if;
2343: Close l_mtl_csr;
2336: If l_mtl_csr%notfound Then
2337: FND_FILE.PUT_LINE (FND_FILE.LOG,'L_LINE_CSR FAILURE');
2338: Close l_mtl_csr ;
2339: l_return_status := OKC_API.G_RET_STS_ERROR;
2340: OKC_API.set_message(G_APP_NAME,'OKS_CUST_PROD_DTLS_NOT_FOUND','INVENTORY_ITEM',p_k_line_rec.srv_id);
2341: Raise G_EXCEPTION_HALT_VALIDATION;
2342: End if;
2343: Close l_mtl_csr;
2344:
2395:
2396: If l_return_status = 'S' then
2397: l_line_id := l_clev_tbl_out(1).id;
2398: Else
2399: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Line (LINE)');
2400: Raise G_EXCEPTION_HALT_VALIDATION;
2401: End if;
2402:
2403: okc_time_util_pub.get_duration
2440:
2441: If l_return_status = 'S' then
2442: l_line_item_id := l_cimv_tbl_out(1).id;
2443: Else
2444: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Service Inventory Item ID ' || p_k_line_rec.srv_id || ' ORG ' + okc_context.get_okc_organization_id);
2445: Raise G_EXCEPTION_HALT_VALIDATION;
2446: End if;
2447:
2448: --Create SalesCredits
2462:
2463:
2464: OKS_SALES_CREDIT_PUB.Insert_Sales_Credit(
2465: p_api_version => 1.0,
2466: p_init_msg_list => OKC_API.G_FALSE,
2467: x_return_status => x_return_status,
2468: x_msg_count => x_msg_count,
2469: x_msg_data => x_msg_data,
2470: p_scrv_tbl => l_scrv_tbl_in,
2475:
2476: If l_return_status = 'S' then
2477: l_salescredit_id := l_scrv_tbl_out(1).id;
2478: Else
2479: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Sales Credit Failure');
2480: Raise G_EXCEPTION_HALT_VALIDATION;
2481: End if;
2482:
2483: Exit When i = p_salescredit_Tbl_in.Last;
2513:
2514: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- RULE GROUP STATUS ' || l_return_status);
2515:
2516:
2517: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2518: l_rule_group_id := l_rgpv_tbl_out(1).id;
2519: Else
2520: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Rule Group (LINE)');
2521: Raise G_EXCEPTION_HALT_VALIDATION;
2516:
2517: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2518: l_rule_group_id := l_rgpv_tbl_out(1).id;
2519: Else
2520: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Rule Group (LINE)');
2521: Raise G_EXCEPTION_HALT_VALIDATION;
2522: End If;
2523:
2524: End If;
2556:
2557: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- CAN RULE STATUS ' || l_return_status);
2558:
2559:
2560: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2561: l_rule_id := l_rulv_tbl_out(1).id;
2562: Else
2563: OKC_API.set_message(
2564: p_app_name => 'OKS',
2559:
2560: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2561: l_rule_id := l_rulv_tbl_out(1).id;
2562: Else
2563: OKC_API.set_message(
2564: p_app_name => 'OKS',
2565: p_msg_name => G_REQUIRED_VALUE,
2566: p_token1 => G_COL_NAME_TOKEN,
2567: p_token1_value => 'Customer Account (LINE)'
2641:
2642: If l_return_status = 'S' then
2643: l_line_contact_id := l_ctcv_tbl_out(1).id;
2644: Else
2645: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, p_Contact_tbl (i).contact_role
2646: || ' Contact (LINE) ' || p_Contact_tbl (i).contact_object_code);
2647: Raise G_EXCEPTION_HALT_VALIDATION;
2648: End if;
2649:
2690:
2691: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- ARL RULE STATUS ' || l_return_status);
2692:
2693:
2694: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2695: l_rule_id := l_rulv_tbl_out(1).id;
2696: Else
2697: OKC_API.set_message(
2698: p_app_name => 'OKS',
2693:
2694: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2695: l_rule_id := l_rulv_tbl_out(1).id;
2696: Else
2697: OKC_API.set_message(
2698: p_app_name => 'OKS',
2699: p_msg_name => G_REQUIRED_VALUE,
2700: p_token1 => G_COL_NAME_TOKEN,
2701: p_token1_value => 'Customer Account (LINE)'
2746:
2747: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- QRE RULE STATUS ' || l_return_status);
2748:
2749:
2750: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2751: l_rule_id := l_rulv_tbl_out(1).id;
2752: Else
2753: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'USAGE ITEM (LINE)');
2754: Raise G_EXCEPTION_HALT_VALIDATION;
2749:
2750: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2751: l_rule_id := l_rulv_tbl_out(1).id;
2752: Else
2753: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'USAGE ITEM (LINE)');
2754: Raise G_EXCEPTION_HALT_VALIDATION;
2755: End If;
2756:
2757: End If;
2786:
2787:
2788: FND_FILE.PUT_LINE (FND_FILE.LOG, 'K Line CREATION :- IRE RULE STATUS ' || l_return_Status);
2789:
2790: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2791: l_rule_id := l_rulv_tbl_out(1).id;
2792: Else
2793: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Invoice Id (LINE)');
2794: Raise G_EXCEPTION_HALT_VALIDATION;
2789:
2790: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2791: l_rule_id := l_rulv_tbl_out(1).id;
2792: Else
2793: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Invoice Id (LINE)');
2794: Raise G_EXCEPTION_HALT_VALIDATION;
2795: End If;
2796:
2797: End If;
2826:
2827: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- IRT RULE STATUS ' || l_return_status);
2828:
2829:
2830: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2831: l_rule_id := l_rulv_tbl_out(1).id;
2832: Else
2833: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'INVOICE TEXT (LINE)');
2834: Raise G_EXCEPTION_HALT_VALIDATION;
2829:
2830: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2831: l_rule_id := l_rulv_tbl_out(1).id;
2832: Else
2833: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'INVOICE TEXT (LINE)');
2834: Raise G_EXCEPTION_HALT_VALIDATION;
2835: End If;
2836:
2837: End If;
2863:
2864: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- LRT RULE STATUS ' || l_return_status);
2865:
2866:
2867: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2868: l_rule_id := l_rulv_tbl_out(1).id;
2869: Else
2870: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE RENEWAL TYPE (LINE)');
2871: Raise G_EXCEPTION_HALT_VALIDATION;
2866:
2867: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2868: l_rule_id := l_rulv_tbl_out(1).id;
2869: Else
2870: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE RENEWAL TYPE (LINE)');
2871: Raise G_EXCEPTION_HALT_VALIDATION;
2872: End If;
2873:
2874: End If;
2903:
2904: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- BTO RULE STATUS ' || l_return_status);
2905:
2906:
2907: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2908: l_rule_id := l_rulv_tbl_out(1).id;
2909: Else
2910: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'BillTo ID (LINE)');
2911: Raise G_EXCEPTION_HALT_VALIDATION;
2906:
2907: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2908: l_rule_id := l_rulv_tbl_out(1).id;
2909: Else
2910: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'BillTo ID (LINE)');
2911: Raise G_EXCEPTION_HALT_VALIDATION;
2912: End If;
2913:
2914: End If;
2946:
2947: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- STO RULE STATUS ' || l_return_status);
2948:
2949:
2950: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2951: l_rule_id := l_rulv_tbl_out(1).id;
2952: Else
2953: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ShipTo ID (LINE)');
2954: Raise G_EXCEPTION_HALT_VALIDATION;
2949:
2950: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2951: l_rule_id := l_rulv_tbl_out(1).id;
2952: Else
2953: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ShipTo ID (LINE)');
2954: Raise G_EXCEPTION_HALT_VALIDATION;
2955: End If;
2956:
2957: End If;
3000:
3001: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- SBG RULE STATUS ' || l_return_status);
3002:
3003:
3004: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3005: l_rule_id := l_rulv_tbl_out(1).id;
3006: Else
3007: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Sched Billing Rule (LINE)');
3008: Raise G_EXCEPTION_HALT_VALIDATION;
3003:
3004: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3005: l_rule_id := l_rulv_tbl_out(1).id;
3006: Else
3007: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Sched Billing Rule (LINE)');
3008: Raise G_EXCEPTION_HALT_VALIDATION;
3009: End If;
3010:
3011: End If;
3026:
3027: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- OBJ REL STATUS ' || l_return_status);
3028: End If;
3029:
3030: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3031: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Order Line Id (LINE)');
3032: Raise G_EXCEPTION_HALT_VALIDATION;
3033: End If;
3034:
3027: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- OBJ REL STATUS ' || l_return_status);
3028: End If;
3029:
3030: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3031: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Order Line Id (LINE)');
3032: Raise G_EXCEPTION_HALT_VALIDATION;
3033: End If;
3034:
3035:
3045:
3046: OKS_COVERAGES_PUB.CREATE_ACTUAL_COVERAGE
3047: (
3048: p_api_version => 1.0,
3049: p_init_msg_list => OKC_API.G_FALSE,
3050: x_return_status => l_return_status,
3051: x_msg_count => x_msg_count,
3052: x_msg_data => x_msg_data,
3053: P_ac_rec_in => l_cov_rec,
3055: );
3056:
3057: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- COV STATUS ' || l_return_status);
3058:
3059: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3060: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'CoverageInstantiate (LINE)');
3061: Raise G_EXCEPTION_HALT_VALIDATION;
3062: End If;
3063:
3056:
3057: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- COV STATUS ' || l_return_status);
3058:
3059: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3060: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'CoverageInstantiate (LINE)');
3061: Raise G_EXCEPTION_HALT_VALIDATION;
3062: End If;
3063:
3064: End if; -- for coverages
3086: );
3087:
3088: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- CTR STATUS ' || l_return_status);
3089:
3090: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3091: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Counter Instantiate (LINE)');
3092: Raise G_EXCEPTION_HALT_VALIDATION;
3093: End If;
3094:
3087:
3088: FND_FILE.PUT_LINE (FND_FILE.LOG,'K LINE CREATION :- CTR STATUS ' || l_return_status);
3089:
3090: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3091: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Counter Instantiate (LINE)');
3092: Raise G_EXCEPTION_HALT_VALIDATION;
3093: End If;
3094:
3095: End If;
3100:
3101: When G_EXCEPTION_HALT_VALIDATION Then
3102: x_return_status := l_return_status;
3103: When Others Then
3104: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3105: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3106:
3107: End Create_OSO_K_Service_Lines;
3108:
3101: When G_EXCEPTION_HALT_VALIDATION Then
3102: x_return_status := l_return_status;
3103: When Others Then
3104: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3105: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3106:
3107: End Create_OSO_K_Service_Lines;
3108:
3109: Procedure Create_OSO_K_Covered_Levels
3116: )
3117: Is
3118:
3119: l_api_version CONSTANT NUMBER := 1.0;
3120: l_init_msg_list CONSTANT VARCHAR2(1) := OKC_API.G_FALSE;
3121: l_return_status VARCHAR2(1) := 'S';
3122: l_index VARCHAR2(2000);
3123:
3124: --Contract Line Table
3169: l_mtl_rec l_mtl_csr%rowtype;
3170:
3171: Begin
3172:
3173: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3174:
3175: check_line_effectivity
3176: (
3177: p_cle_id => p_k_covd_rec.Attach_2_Line_Id,
3183: );
3184:
3185: If l_line_status = 'E' Then
3186:
3187: l_return_status := OKC_API.G_RET_STS_ERROR;
3188: Raise G_EXCEPTION_HALT_VALIDATION;
3189:
3190: ElsIf l_line_status = 'Y' Then
3191:
3201: );
3202:
3203: If l_hdrstatus = 'E' Then
3204:
3205: l_return_status := OKC_API.G_RET_STS_ERROR;
3206: Raise G_EXCEPTION_HALT_VALIDATION;
3207:
3208: ElsIf l_hdrstatus = 'Y' Then
3209:
3220: FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- UPDATE HDR STATUS ' || l_return_status);
3221:
3222:
3223: If Not l_return_Status = 'S' Then
3224: l_return_status := OKC_API.G_RET_STS_ERROR;
3225: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Header Effectivity Update (SUB LINE)');
3226: Raise G_EXCEPTION_HALT_VALIDATION;
3227: End If;
3228: End If;
3221:
3222:
3223: If Not l_return_Status = 'S' Then
3224: l_return_status := OKC_API.G_RET_STS_ERROR;
3225: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Header Effectivity Update (SUB LINE)');
3226: Raise G_EXCEPTION_HALT_VALIDATION;
3227: End If;
3228: End If;
3229:
3240:
3241: FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- UPDATE LINE STATUS ' || l_return_status);
3242:
3243: If Not l_return_Status = 'S' Then
3244: l_return_status := OKC_API.G_RET_STS_ERROR;
3245: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE Effectivity Update (SUB LINE)');
3246: Raise G_EXCEPTION_HALT_VALIDATION;
3247: End If;
3248:
3241: FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- UPDATE LINE STATUS ' || l_return_status);
3242:
3243: If Not l_return_Status = 'S' Then
3244: l_return_status := OKC_API.G_RET_STS_ERROR;
3245: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE Effectivity Update (SUB LINE)');
3246: Raise G_EXCEPTION_HALT_VALIDATION;
3247: End If;
3248:
3249: End If;
3254:
3255: If l_mtl_csr%notfound Then
3256: FND_FILE.PUT_LINE (FND_FILE.LOG,'L_LINE_CSR FAILURE');
3257: Close l_mtl_csr ;
3258: l_return_status := OKC_API.G_RET_STS_ERROR;
3259: OKC_API.set_message(G_APP_NAME,'OKS_CUST_PROD_DTLS_NOT_FOUND','CUSTOMER_PRODUCT',p_k_covd_rec.Customer_Product_Id);
3260: Raise G_EXCEPTION_HALT_VALIDATION;
3261: End if;
3262: Close l_mtl_csr;
3255: If l_mtl_csr%notfound Then
3256: FND_FILE.PUT_LINE (FND_FILE.LOG,'L_LINE_CSR FAILURE');
3257: Close l_mtl_csr ;
3258: l_return_status := OKC_API.G_RET_STS_ERROR;
3259: OKC_API.set_message(G_APP_NAME,'OKS_CUST_PROD_DTLS_NOT_FOUND','CUSTOMER_PRODUCT',p_k_covd_rec.Customer_Product_Id);
3260: Raise G_EXCEPTION_HALT_VALIDATION;
3261: End if;
3262: Close l_mtl_csr;
3263: */
3319:
3320: If l_return_status = 'S' then
3321: l_line_id := l_clev_tbl_out(1).id;
3322: Else
3323: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'K LINE (SUB LINE)');
3324: Raise G_EXCEPTION_HALT_VALIDATION;
3325: End if;
3326:
3327:
3352:
3353: If l_return_status = 'S' then
3354: l_line_item_id := l_cimv_tbl_out(1).id;
3355: Else
3356: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'KItem (SUB LINE)');
3357: Raise G_EXCEPTION_HALT_VALIDATION;
3358: End if;
3359:
3360:
3382:
3383: FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- RGP STATUS ' || l_return_status);
3384:
3385:
3386: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3387: l_rule_group_id := l_rgpv_tbl_out(1).id;
3388: Else
3389: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Rule Group (SUB LINE)');
3390: Raise G_EXCEPTION_HALT_VALIDATION;
3385:
3386: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3387: l_rule_group_id := l_rgpv_tbl_out(1).id;
3388: Else
3389: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Rule Group (SUB LINE)');
3390: Raise G_EXCEPTION_HALT_VALIDATION;
3391: End If;
3392:
3393: End If;
3419: );
3420:
3421: FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- IRT RULE STATUS ' || l_return_status);
3422:
3423: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3424: l_rule_id := l_rulv_tbl_out(1).id;
3425: Else
3426: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'INVOICE TEXT (SUB LINE)');
3427: Raise G_EXCEPTION_HALT_VALIDATION;
3422:
3423: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3424: l_rule_id := l_rulv_tbl_out(1).id;
3425: Else
3426: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'INVOICE TEXT (SUB LINE)');
3427: Raise G_EXCEPTION_HALT_VALIDATION;
3428: End If;
3429:
3430: End If;
3464: );
3465:
3466: FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- QRE RULE STATUS ' || l_return_status);
3467:
3468: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3469: l_rule_id := l_rulv_tbl_out(1).id;
3470: Else
3471: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'USAGE ITEM (SUB LINE)');
3472: Raise G_EXCEPTION_HALT_VALIDATION;
3467:
3468: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3469: l_rule_id := l_rulv_tbl_out(1).id;
3470: Else
3471: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'USAGE ITEM (SUB LINE)');
3472: Raise G_EXCEPTION_HALT_VALIDATION;
3473: End If;
3474:
3475: End If; -- end if for QRE rule
3501: );
3502:
3503: FND_FILE.PUT_LINE (FND_FILE.LOG,'K COVD LINE CREATION :- LRT RULE STATUS ' || l_return_status);
3504:
3505: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3506: l_rule_id := l_rulv_tbl_out(1).id;
3507: Else
3508: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE RENEWAL TYPE (SUB LINE)');
3509: Raise G_EXCEPTION_HALT_VALIDATION;
3504:
3505: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3506: l_rule_id := l_rulv_tbl_out(1).id;
3507: Else
3508: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE RENEWAL TYPE (SUB LINE)');
3509: Raise G_EXCEPTION_HALT_VALIDATION;
3510: End If;
3511:
3512: End If;
3636:
3637: If l_return_status = 'S' then
3638: l_priceattrib_id := l_pavv_tbl_out(1).id;
3639: Else
3640: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PRICE ATTRIBUTES (SUB LINE)');
3641: Raise G_EXCEPTION_HALT_VALIDATION;
3642: End if;
3643:
3644: End If;
3647: When G_EXCEPTION_HALT_VALIDATION Then
3648: x_return_status := l_return_status;
3649: Null;
3650: When Others Then
3651: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3652: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3653:
3654: End Create_OSO_K_Covered_Levels;
3655:
3648: x_return_status := l_return_status;
3649: Null;
3650: When Others Then
3651: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3652: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3653:
3654: End Create_OSO_K_Covered_Levels;
3655:
3656:
3671: l_hdr_rec K_Header_Rec_Type;
3672: l_line_rec K_Line_Service_Rec_Type;
3673: l_covd_rec K_Line_Covered_level_Rec_Type;
3674:
3675: l_return_status Varchar2(5) := OKC_API.G_RET_STS_SUCCESS;
3676: l_chrid NUMBER := NULL;
3677: l_lineid NUMBER := NULL;
3678:
3679: Cursor l_party_csr Is Select Name From OKX_PARTIES_V
3687: --SalesCredit
3688: l_salescredit_tbl_in OKS_EXTWARPRGM_OSO_PVT.SalesCredit_Tbl;
3689:
3690: Begin
3691: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3692: Okc_context.set_okc_org_context (p_extwar_rec.hdr_org_id, p_extwar_rec.organization_id);
3693:
3694: Open l_party_csr;
3695: Fetch l_party_csr Into l_party_name;
3694: Open l_party_csr;
3695: Fetch l_party_csr Into l_party_name;
3696: Close l_party_csr;
3697:
3698: l_hdr_rec.contract_number := OKC_API.G_MISS_CHAR;
3699: l_hdr_rec.start_date := p_extwar_rec.hdr_sdt;
3700: l_hdr_rec.end_date := p_extwar_rec.hdr_edt;
3701: l_hdr_rec.sts_code := 'ACTIVE';
3702: l_hdr_rec.class_code := 'SVC';
3744: x_chrid := l_chrid;
3745: FND_FILE.PUT_LINE (FND_FILE.LOG,'OSO IBNEW :- CREATE HDR STATUS l_chrid' || l_chrid);
3746:
3747: l_line_rec.k_id := l_chrid;
3748: l_line_rec.k_line_number:= OKC_API.G_MISS_CHAR;
3749: l_line_rec.org_id := p_extwar_rec.hdr_org_id;
3750: l_line_rec.accounting_rule_id := p_extwar_rec.hdr_acct_rule_id;
3751: l_line_rec.srv_id := p_extwar_rec.srv_id;
3752: l_line_rec.srv_segment1 := p_extwar_rec.srv_name;
3783: End if;
3784:
3785: l_covd_rec.k_id := l_chrid;
3786: l_covd_rec.Attach_2_Line_id := l_lineid;
3787: l_covd_rec.line_number := OKC_API.G_MISS_CHAR;
3788: l_covd_rec.Customer_Product_Id := p_extwar_rec.lvl_cp_id;
3789: l_covd_rec.Product_Segment1 := p_extwar_rec.lvl_inventory_name;
3790: l_covd_rec.Product_Desc := p_extwar_rec.lvl_inventory_desc;
3791: l_covd_rec.Product_Start_Date := p_extwar_rec.srv_sdt;
3838: When G_EXCEPTION_HALT_VALIDATION Then
3839: x_return_status := l_return_status;
3840: Null;
3841: When Others Then
3842: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3843: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3844:
3845: End Create_OSO_Contract_IBNEW;
3846:
3839: x_return_status := l_return_status;
3840: Null;
3841: When Others Then
3842: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3843: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3844:
3845: End Create_OSO_Contract_IBNEW;
3846:
3847: