[Home] [Help]
45: OPEN l_line_csr;
46: FETCH l_line_csr Into l_line_csr_rec;
47:
48: ----dbms_output.put_line('service_start_date'||p_srv_sdt ||'start date '|| l_line_csr_rec.Start_Date);
49: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv Start date : '|| p_srv_sdt );
50: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv End date : '|| p_srv_edt );
51: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line Start_date: '|| l_line_csr_rec.Start_Date );
52: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line End_date : '|| l_line_csr_rec.End_Date );
53:
46: FETCH l_line_csr Into l_line_csr_rec;
47:
48: ----dbms_output.put_line('service_start_date'||p_srv_sdt ||'start date '|| l_line_csr_rec.Start_Date);
49: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv Start date : '|| p_srv_sdt );
50: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv End date : '|| p_srv_edt );
51: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line Start_date: '|| l_line_csr_rec.Start_Date );
52: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line End_date : '|| l_line_csr_rec.End_Date );
53:
54: If l_line_csr%FOUND Then
47:
48: ----dbms_output.put_line('service_start_date'||p_srv_sdt ||'start date '|| l_line_csr_rec.Start_Date);
49: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv Start date : '|| p_srv_sdt );
50: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv End date : '|| p_srv_edt );
51: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line Start_date: '|| l_line_csr_rec.Start_Date );
52: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line End_date : '|| l_line_csr_rec.End_Date );
53:
54: If l_line_csr%FOUND Then
55: If TRUNC(p_srv_sdt) >= TRUNC(l_line_csr_rec.Start_Date) And
48: ----dbms_output.put_line('service_start_date'||p_srv_sdt ||'start date '|| l_line_csr_rec.Start_Date);
49: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv Start date : '|| p_srv_sdt );
50: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Srv End date : '|| p_srv_edt );
51: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line Start_date: '|| l_line_csr_rec.Start_Date );
52: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Line End_date : '|| l_line_csr_rec.End_Date );
53:
54: If l_line_csr%FOUND Then
55: If TRUNC(p_srv_sdt) >= TRUNC(l_line_csr_rec.Start_Date) And
56: TRUNC(p_srv_edt) <= TRUNC(l_line_csr_rec.End_Date) Then
71: x_Status := 'Y';
72:
73: End If;
74: Else
75: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Start date and End date of the Line not Found');
76: x_Status := 'E';
77: End If;
78: EXCEPTION
79: WHEN OTHERS THEN
77: End If;
78: EXCEPTION
79: WHEN OTHERS THEN
80: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
81: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CHECK_LINE_EFFECTIVITY :: Error:'||SQLCODE ||':'||SQLERRM);
82:
83: END CHECK_LINE_EFFECTIVITY;
84: -----------------------------------------------------------------------------
85: -- Procedure for creating party roles
149: l_cplv_tbl_in(1).cle_id := p_cleid;
150:
151: End If;
152:
153: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: rle_code: '|| p_rle_code );
154: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: p_partyid: '|| p_partyid );
155: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: p_object_code: '|| p_object_code );
156: ----dbms_output.put_line('party role rle_code'||p_rle_code);
157: ----dbms_output.put_line('party role p_partyid'||p_partyid);
150:
151: End If;
152:
153: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: rle_code: '|| p_rle_code );
154: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: p_partyid: '|| p_partyid );
155: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: p_object_code: '|| p_object_code );
156: ----dbms_output.put_line('party role rle_code'||p_rle_code);
157: ----dbms_output.put_line('party role p_partyid'||p_partyid);
158: ----dbms_output.put_line('party role p_object_code'||p_object_code);
151: End If;
152:
153: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: rle_code: '|| p_rle_code );
154: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: p_partyid: '|| p_partyid );
155: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: p_object_code: '|| p_object_code );
156: ----dbms_output.put_line('party role rle_code'||p_rle_code);
157: ----dbms_output.put_line('party role p_partyid'||p_partyid);
158: ----dbms_output.put_line('party role p_object_code'||p_object_code);
159:
174: p_cplv_tbl => l_cplv_tbl_in,
175: x_cplv_tbl => l_cplv_tbl_out
176: );
177:
178: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Party_Role :: create_k_party_role status: '|| l_return_status);
179: ----dbms_output.put_line('party role:'||l_return_status);
180:
181: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
182:
182:
183: x_roleid := l_cplv_tbl_out(1).id;
184: Else
185: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, p_rle_code || ' Party Role (HEADER)');
186: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB):Party_Role :: Error in Create_k_party role' );
187: Raise G_EXCEPTION_HALT_VALIDATION;
188:
189:
190: End if;
195: x_return_status := l_return_status ;
196: WHEN OTHERS THEN
197: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
198: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
199: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB):Party_Role :: Error:'||SQLCODE ||':'||SQLERRM );
200:
201: End Party_Role;
202:
203: /*
329: Open l_art_release_csr(l_sae_id);
330: Fetch l_art_release_csr into l_sae_release;
331: Close l_art_release_csr;
332:
333: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CREATE_ARTICLES :: l_sae_id:'|| l_sae_id);
334: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CREATE_ARTICLES :: l_sae_release:'|| l_sae_release);
335:
336: l_catv_tbl_in(1).sav_sae_id := l_sae_id;
337: l_catv_tbl_in(1).sbt_code := p_articles_tbl(l_ptr).subject_code;
330: Fetch l_art_release_csr into l_sae_release;
331: Close l_art_release_csr;
332:
333: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CREATE_ARTICLES :: l_sae_id:'|| l_sae_id);
334: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CREATE_ARTICLES :: l_sae_release:'|| l_sae_release);
335:
336: l_catv_tbl_in(1).sav_sae_id := l_sae_id;
337: l_catv_tbl_in(1).sbt_code := p_articles_tbl(l_ptr).subject_code;
338: l_catv_tbl_in(1).cat_type := 'STA';
353: x_msg_data => l_msg_data ,
354: p_catv_tbl => l_catv_tbl_in ,
355: x_catv_tbl => l_catv_tbl_out
356: );
357: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CREATE_ARTICLES :: Create_k_article status:'|| l_return_status);
358: x_return_status := l_return_status;
359:
360: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
361: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'ARITCLES (HEADER)');
373:
374: WHEN Others THEN
375: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
376: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
377: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).CREATE_ARTICLES :: Error : '||SQLCODE ||':'|| SQLERRM);
378:
379: End Create_articles;
380: ------------------------------------------------------------------------------------------
381: /*********function to validate credit card WHICH Returns 0' failure, 1' success*****/
456: END IF;
457:
458: EXCEPTION
459: When Others Then
460: OKS_RENEW_PVT.DEBUG_LOG( 'VALIDATE CREDIT CARD :: Error in Validate Credit card');
461: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
462:
463: END Validate_Credit_Card;
464:
481: IF p_line_rec.srv_id IS NULL THEN
482:
483: x_return_status := OKC_API.G_RET_STS_ERROR;
484: ----dbms_output.put_line('K LINE VALIDATION :- SRV ID REQUIRED FOR LINE RECORD');
485: OKS_RENEW_PVT.DEBUG_LOG( 'OKS_CONTARACTS_PUB .VALIDATE_LINE_RECORD :: SRV_Id required for line record');
486: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' SRV ID REQUIRED FOR LINE RECORD');
487: Raise G_EXCEPTION_HALT_VALIDATION;
488:
489: ELSIF p_line_rec.organization_id IS NULL THEN
489: ELSIF p_line_rec.organization_id IS NULL THEN
490:
491: x_return_status := OKC_API.G_RET_STS_ERROR;
492: ----dbms_output.put_line('(OKS_CONTRACTS_PUB): K LINE VALIDATION :- ORGANIZATION ID REQUIRED FOR LINE RECORD');
493: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: Organization_Id required for line record');
494: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' ORGANIZATION ID REQUIRED FOR LINE RECORD');
495: Raise G_EXCEPTION_HALT_VALIDATION;
496:
497: ELSIF p_line_rec.srv_sdt IS NULL THEN
497: ELSIF p_line_rec.srv_sdt IS NULL THEN
498:
499: x_return_status := OKC_API.G_RET_STS_ERROR;
500: ----dbms_output.put_line('K LINE VALIDATION :- SRV START DATE REQUIRED FOR LINE RECORD');
501: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: SRV Start_Date required for line record');
502: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' SRV START DATE REQUIRED FOR LINE RECORD');
503: Raise G_EXCEPTION_HALT_VALIDATION;
504:
505: ELSIF p_line_rec.srv_edt IS NULL THEN
505: ELSIF p_line_rec.srv_edt IS NULL THEN
506:
507: x_return_status := OKC_API.G_RET_STS_ERROR;
508: ----dbms_output.put_line('K LINE VALIDATION :- SRV END DATE REQUIRED FOR LINE RECORD');
509: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: SRV End_Date required for line record');
510: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' SRV END DATE REQUIRED FOR LINE RECORD');
511: Raise G_EXCEPTION_HALT_VALIDATION;
512:
513: ELSIF p_line_rec.k_hdr_id IS NULL THEN
513: ELSIF p_line_rec.k_hdr_id IS NULL THEN
514:
515: x_return_status := OKC_API.G_RET_STS_ERROR;
516: ----dbms_output.put_line('K LINE VALIDATION :- K_hdr_id REQUIRED FOR LINE RECORD');
517: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: Header_Id required for line record');
518: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' K_hdr_id REQUIRED FOR LINE RECORD');
519: Raise G_EXCEPTION_HALT_VALIDATION;
520:
521:
522: ELSIF p_line_rec.org_id IS NULL THEN
523:
524: x_return_status := OKC_API.G_RET_STS_ERROR;
525: ----dbms_output.put_line('K LINE VALIDATION :- ORG_ID REQUIRED FOR LINE RECORD');
526: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: ORG Id required for line record');
527: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' ORG_ID REQUIRED FOR LINE RECORD');
528: Raise G_EXCEPTION_HALT_VALIDATION;
529:
530: ELSIF (p_line_rec.usage_type = 'VRT' OR p_line_rec.usage_type = 'QTY' OR p_line_rec.usage_type = 'FRT')
531: AND ( p_line_rec.usage_period IS NULL) THEN
532:
533: x_return_status := OKC_API.G_RET_STS_ERROR;
534: ----dbms_output.put_line('K LINE VALIDATION :- USAGE PERIOD REQUIRED FOR LINE RECORD');
535: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: Usage_Period required for line record');
536: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' USAGE PERIOD REQUIRED FOR LINE RECORD');
537: Raise G_EXCEPTION_HALT_VALIDATION;
538:
539: ELSIF (p_line_rec.usage_type = 'VRT' OR p_line_rec.usage_type = 'QTY') AND (p_line_rec.invoicing_rule_type <> -3) THEN
539: ELSIF (p_line_rec.usage_type = 'VRT' OR p_line_rec.usage_type = 'QTY') AND (p_line_rec.invoicing_rule_type <> -3) THEN
540:
541: x_return_status := OKC_API.G_RET_STS_ERROR;
542: ----dbms_output.put_line('K LINE VALIDATION :- ARRERS INVOICE TYPE REQUIRED FOR LINE RECORD');
543: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: Arrers Invoice Type required for line record');
544: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, ' ARRERS INVOICE TYPE REQUIRED.');
545: Raise G_EXCEPTION_HALT_VALIDATION;
546:
547: END IF;
552: NULL;
553: WHEN Others THEN
554: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
555: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
556: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: Error :'||SQLCODE ||':'|| SQLERRM);
557:
558: END Validate_Line_Record;
559:
560:
580: IF p_cp_rec.Product_start_date IS NULL THEN
581:
582: x_return_status := OKC_API.G_RET_STS_ERROR;
583: ----dbms_output.put_line('K COVERED PRODUCT VALIDATION :- PRODUCT START DATE REQUIRED FOR COVERED PRODUCT');
584: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_CP_REC :: Product_Start_Date required for CP');
585: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PRODUCT START DATE REQUIRED FOR COVERED PRODUCT');
586: Raise G_EXCEPTION_HALT_VALIDATION;
587:
588: ELSIF p_cp_rec.Product_end_date IS NULL THEN
588: ELSIF p_cp_rec.Product_end_date IS NULL THEN
589:
590: x_return_status := OKC_API.G_RET_STS_ERROR;
591: ----dbms_output.put_line('K COVERED PRODUCT VALIDATION :- PRODUCT END DATE REQUIRED FOR COVERED PRODUCT');
592: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_CP_REC :: Product_End_Date required for CP');
593: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PRODUCT END DATE REQUIRED FOR COVERED PRODUCT');
594: Raise G_EXCEPTION_HALT_VALIDATION;
595:
596: ELSIF p_cp_rec.Customer_Product_Id IS NULL THEN
596: ELSIF p_cp_rec.Customer_Product_Id IS NULL THEN
597:
598: x_return_status := OKC_API.G_RET_STS_ERROR;
599: ----dbms_output.put_line('K COVERED PRODUCT VALIDATION :- PRODUCTID REQUIRED FOR COVERED PRODUCT');
600: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_CP_REC :: Product_Id required for CP');
601: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PRODUCT ID REQUIRED FOR COVERED PRODUCT');
602: Raise G_EXCEPTION_HALT_VALIDATION;
603:
604: ELSIF p_usage_type = 'FRT' AND p_cp_rec.fixed_qty IS NULL THEN
604: ELSIF p_usage_type = 'FRT' AND p_cp_rec.fixed_qty IS NULL THEN
605:
606: x_return_status := OKC_API.G_RET_STS_ERROR;
607: ----dbms_output.put_line('K COVERED PRODUCT VALIDATION :- FIXED_QTY REQUIRED FOR COVERED PRODUCT');
608: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_CP_REC :: Fixed_qty required for CP');
609: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'FIXED_QTY REQUIRED FOR COVERED PRODUCT');
610: Raise G_EXCEPTION_HALT_VALIDATION;
611:
612: ELSIF p_usage_type = 'NPR' AND p_cp_rec.negotiated_amount IS NULL THEN
612: ELSIF p_usage_type = 'NPR' AND p_cp_rec.negotiated_amount IS NULL THEN
613:
614: x_return_status := OKC_API.G_RET_STS_ERROR;
615: ----dbms_output.put_line('K COVERED PRODUCT VALIDATION :- NEGOTIATED_AMOUNT REQUIRED FOR COVERED PRODUCT');
616: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_CP_REC :: Negotiated_amount required for CP');
617: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'NEGOTIATED_AMOUNT REQUIRED FOR COVERED PRODUCT');
618: Raise G_EXCEPTION_HALT_VALIDATION;
619:
620: ELSIF (p_usage_type = 'VRT' OR p_usage_type = 'QTY')AND
621: (p_cp_rec.default_qty IS NULL OR p_cp_rec.base_reading IS NULL)THEN
622:
623: x_return_status := OKC_API.G_RET_STS_ERROR;
624: ----dbms_output.put_line('K COVERED PRODUCT VALIDATION :- DEFAULT_QTY AND BASE_READING REQUIRED REQUIRED FOR COVERED PRODUCT');
625: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_CP_REC :: Default_Qty and Base_reading required for CP');
626: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'DEFAULT_QTY AND BASE_READING REQUIRED FOR COVERED PRODUCT');
627: Raise G_EXCEPTION_HALT_VALIDATION;
628:
629: END IF;
634: NULL;
635: WHEN Others THEN
636: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
637: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
638: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_CP_REC :: Error :' || SQLCODE ||':'|| SQLERRM);
639: END Validate_Cp_Rec;
640:
641:
642: -------------------------------------------------------------------------------------
683:
684: l_tavv_tbl_in(1).dnz_chr_id := l_line_rec.dnz_chr_id;
685: l_tavv_tbl_in(1).datetime := l_line_rec.start_date;
686:
687: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRCACTS_PUB).CREATE_TIMEVAL :: dnz_chr_id: '||l_line_rec.dnz_chr_id);
688: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRCACTS_PUB).CREATE_TIMEVAL :: datetime: '||l_line_rec.start_date);
689:
690:
691: OKC_TIME_PUB.CREATE_TPA_VALUE
684: l_tavv_tbl_in(1).dnz_chr_id := l_line_rec.dnz_chr_id;
685: l_tavv_tbl_in(1).datetime := l_line_rec.start_date;
686:
687: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRCACTS_PUB).CREATE_TIMEVAL :: dnz_chr_id: '||l_line_rec.dnz_chr_id);
688: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRCACTS_PUB).CREATE_TIMEVAL :: datetime: '||l_line_rec.start_date);
689:
690:
691: OKC_TIME_PUB.CREATE_TPA_VALUE
692: (
698: p_tavv_tbl => l_tavv_tbl_in,
699: x_tavv_tbl => l_tavv_tbl_out
700: );
701:
702: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRCACTS_PUB).CREATE_TIMEVAL :: CREATE_TPA_VALUE status: '||l_return_status);
703:
704: x_return_status := l_return_status;
705: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
706: x_time_val := l_tavv_tbl_out(1).id;
706: x_time_val := l_tavv_tbl_out(1).id;
707: Else
708:
709: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE,G_COL_NAME_TOKEN, 'CREATE_TPA_VALUE');
710: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRCACTS_PUB).CREATE_TIMEVAL :: Error in create timeval');
711: Raise G_EXCEPTION_HALT_VALIDATION ;
712:
713: End If;
714:
720: NULL;
721: WHEN Others THEN
722: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
723: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
724: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).VALIDATE_LINE_RECORD :: Error :'||SQLCODE ||':'|| SQLERRM);
725:
726: END Create_timeval;
727:
728:
751: IF p_strm_level_tbl(1).cle_id IS NULL THEN
752:
753: x_return_status := OKC_API.G_RET_STS_ERROR;
754: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'LINE ID REQUIRED FOR SLH');
755: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Bill_Schedule :: Line Id required for SLH');
756: Raise G_EXCEPTION_HALT_VALIDATION ;
757:
758: END IF;
759:
771: x_time_val => l_time_val,
772: x_return_status => x_return_status
773: );
774:
775: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Bill_Schedule :: Create_timeval status:'|| x_return_status);
776:
777: IF x_return_status = 'S' THEN
778: l_slh_rec.Object2_Id1 := l_time_val;
779: ELSIF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
795: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
796: x_return_status => x_return_status
797: );
798:
799: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Bill_Schedule :: Create_bill_sch_rules status:'|| x_return_status);
800: --FND_FILE.PUT_LINE (FND_FILE.LOG,'K BILL SCHEDULE STATUS:- ' || x_return_status);
801: IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
802: RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
803: ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
811:
812: WHEN Others THEN
813: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
814: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
815: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Bill_Schedule :: Error: '||SQLCODE ||':'|| SQLERRM);
816:
817: END Create_Bill_Schedule;
818:
819:
866: p_tavv_tbl => l_tavv_tbl_in,
867: x_tavv_tbl => l_tavv_tbl_out
868: );
869:
870: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: Create_TPA_value status:'|| l_return_status ||'Id'||l_tavv_tbl_out(1).id);
871: ----dbms_output.put_line('TPA value status '||l_return_status);
872:
873: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
874: l_tpa_id := l_tavv_tbl_out(1).id;
885: x_timeunit => l_timeunits,
886: x_return_status => l_return_status
887: );
888:
889: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: get_duration status:'|| l_return_status);
890: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: Duration:'|| l_duration ||'time unit' ||l_timeunits);
891:
892: ----dbms_output.put_line('get duration status '||l_return_status);
893:
886: x_return_status => l_return_status
887: );
888:
889: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: get_duration status:'|| l_return_status);
890: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: Duration:'|| l_duration ||'time unit' ||l_timeunits);
891:
892: ----dbms_output.put_line('get duration status '||l_return_status);
893:
894: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
927: l_sll_tbl(1).level_amount := p_amount;
928: l_sll_tbl(1).invoice_offset_days := Null;
929: l_sll_tbl(1).interface_offset_days := Null;
930:
931: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: P_amount :'|| P_amount);
932: ----dbms_output.put_line('before bill sch rule ');
933:
934: OKS_BILL_SCH.Create_Bill_Sch_Rules
935: (
939: , x_bil_sch_out_tbl => l_bil_sch_out
940: , x_return_status => l_return_status
941: );
942:
943: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: Create_Bill_Sch_Rules status: '||l_return_status);
944: ----dbms_output.put_line('K LINE CREATION :- Create_Bill_Sch_Rules STATUS ' || l_return_status );
945:
946: If l_return_status <> OKC_API.G_RET_STS_SUCCESS Then
947: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Sched Billing Rule (LINE)');
955: Null;
956: When Others Then
957: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
958: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
959: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Billing_Schd :: Error: '|| SQLCODE|| ':' ||SQLERRM);
960:
961: End;
962:
963: /*
1002: l_rul_grp_id := CHECK_RULE_GRP_EXISTS(p_chr_id, NULL);
1003:
1004: END IF;
1005:
1006: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Rule_Grp :: Rule group Id:'|| l_rul_grp_id);
1007: ----dbms_output.put_line('l_rul_grp_id'||l_rul_grp_id);
1008:
1009: IF l_rul_grp_id IS NULL THEN
1010:
1033: x_rgpv_tbl => l_rgpv_tbl_out
1034: );
1035:
1036: x_return_status := l_return_status;
1037: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Rule_Grp :: create_rule_group status:'|| x_return_status);
1038: --dbms_output.put_line('OKC_RULE_PUB.create_rule_group = ' || l_return_status);
1039:
1040: IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
1041:
1047:
1048: END IF;
1049:
1050: x_rul_grp_id := l_rgpv_tbl_out(1).id;
1051: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Rule_Grp :: Rule group Id: '||x_rul_grp_id);
1052: ELSE
1053: x_rul_grp_id := l_rul_grp_id;
1054: END IF;
1055:
1059: WHEN Others THEN
1060:
1061: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1062: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1063: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Rule_Grp :: Error:'||SQLCODE ||':'|| SQLERRM );
1064:
1065: -----end rule group check
1066: End Create_Rule_Grp;
1067: */
1151: x_msg_data => x_msg_data,
1152: x_return_status => l_return_status
1153: );
1154:
1155: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Merchant Role Creation CPL_Id: '||l_partyid_v);
1156: --dbms_output.put_line( ' MERCHANT ROLE CREATION :- CPL ID ' || l_partyid_v);
1157:
1158: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
1159: Raise G_EXCEPTION_HALT_VALIDATION;
1173: x_msg_data => x_msg_data,
1174: x_return_status => l_return_status
1175: );
1176:
1177: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Subscriber Role Creation CPL_Id: '||l_partyid);
1178: --dbms_output.put_line( ' SUBSCRIBER ROLE CREATION :- CPL ID ' || l_partyid);
1179:
1180: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
1181: Raise G_EXCEPTION_HALT_VALIDATION;
1196: x_msg_data => x_msg_data,
1197: x_return_status => l_return_status
1198: );
1199:
1200: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Vendor Role Creation CPL_Id: '||l_partyid_v);
1201: --dbms_output.put_line( ' VENDOR ROLE CREATION :- CPL ID ' || l_partyid_v);
1202:
1203: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
1204: Raise G_EXCEPTION_HALT_VALIDATION;
1218: x_msg_data => x_msg_data,
1219: x_return_status => l_return_status
1220: );
1221:
1222: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Customer Role Creation CPL_Id: '||l_partyid);
1223: --dbms_output.put_line( ' CUSTOMER ROLE CREATION :- CPL ID ' || l_partyid);
1224:
1225: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
1226: Raise G_EXCEPTION_HALT_VALIDATION;
1249: x_msg_data => x_msg_data,
1250: x_return_status => l_return_status
1251: );
1252:
1253: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Third Party Role Creation CPL_Id: '||l_partyid_t);
1254: --dbms_output.put_line( ' THIRD PARTY ROLE CREATION :- CPL ID ' || l_partyid_t);
1255:
1256: If l_return_status <> OKC_API.G_RET_STS_SUCCESS then
1257: Raise G_EXCEPTION_HALT_VALIDATION;
1264: If p_contact_info_tbl.count > 0 Then
1265: i := p_Contact_info_tbl.First;
1266: Loop
1267:
1268: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Parrt Role: '||p_Contact_info_tbl (i).party_role);
1269: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Contact Id: '||p_Contact_info_tbl (i).contact_id);
1270: --dbms_output.put_line( ' CONTACT CREATION :- PARTY ROLE ' ||p_Contact_info_tbl (i).party_role);
1271: --dbms_output.put_line( ' CONTACT CREATION :- CONTACT ID ' ||p_Contact_info_tbl (i).contact_id );
1272:
1265: i := p_Contact_info_tbl.First;
1266: Loop
1267:
1268: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Parrt Role: '||p_Contact_info_tbl (i).party_role);
1269: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Contact Id: '||p_Contact_info_tbl (i).contact_id);
1270: --dbms_output.put_line( ' CONTACT CREATION :- PARTY ROLE ' ||p_Contact_info_tbl (i).party_role);
1271: --dbms_output.put_line( ' CONTACT CREATION :- CONTACT ID ' ||p_Contact_info_tbl (i).contact_id );
1272:
1273: l_ctcv_tbl_in.DELETE;
1280: Open l_ra_hcontacts_cur (p_contact_info_tbl (i).contact_id);
1281: fetch l_ra_hcontacts_cur into l_rah_party_id, l_hdr_contactid;
1282: close l_ra_hcontacts_cur;
1283:
1284: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Third Party Id: '||l_thirdparty_id);
1285: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Customer Id: '||p_party_role.party_id);
1286: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Org contact Id: '||p_contact_info_tbl (i).contact_id);
1287: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah party contact Id: '||l_rah_party_id);
1288: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah contact Id: '||l_hdr_contactid );
1281: fetch l_ra_hcontacts_cur into l_rah_party_id, l_hdr_contactid;
1282: close l_ra_hcontacts_cur;
1283:
1284: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Third Party Id: '||l_thirdparty_id);
1285: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Customer Id: '||p_party_role.party_id);
1286: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Org contact Id: '||p_contact_info_tbl (i).contact_id);
1287: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah party contact Id: '||l_rah_party_id);
1288: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah contact Id: '||l_hdr_contactid );
1289: --dbms_output.put_line( ' CONTACT CREATION :- THIRDP ID ' ||l_thirdparty_id);
1282: close l_ra_hcontacts_cur;
1283:
1284: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Third Party Id: '||l_thirdparty_id);
1285: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Customer Id: '||p_party_role.party_id);
1286: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Org contact Id: '||p_contact_info_tbl (i).contact_id);
1287: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah party contact Id: '||l_rah_party_id);
1288: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah contact Id: '||l_hdr_contactid );
1289: --dbms_output.put_line( ' CONTACT CREATION :- THIRDP ID ' ||l_thirdparty_id);
1290: --dbms_output.put_line( ' CONTACT CREATION :- CUSTMR ID ' ||p_party_role.party_id);
1283:
1284: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Third Party Id: '||l_thirdparty_id);
1285: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Customer Id: '||p_party_role.party_id);
1286: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Org contact Id: '||p_contact_info_tbl (i).contact_id);
1287: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah party contact Id: '||l_rah_party_id);
1288: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah contact Id: '||l_hdr_contactid );
1289: --dbms_output.put_line( ' CONTACT CREATION :- THIRDP ID ' ||l_thirdparty_id);
1290: --dbms_output.put_line( ' CONTACT CREATION :- CUSTMR ID ' ||p_party_role.party_id);
1291: --dbms_output.put_line( ' CONTACT CREATION :- ORG CTC ID ' ||p_contact_info_tbl (i).contact_id );
1284: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Third Party Id: '||l_thirdparty_id);
1285: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Customer Id: '||p_party_role.party_id);
1286: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Org contact Id: '||p_contact_info_tbl (i).contact_id);
1287: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah party contact Id: '||l_rah_party_id);
1288: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Rah contact Id: '||l_hdr_contactid );
1289: --dbms_output.put_line( ' CONTACT CREATION :- THIRDP ID ' ||l_thirdparty_id);
1290: --dbms_output.put_line( ' CONTACT CREATION :- CUSTMR ID ' ||p_party_role.party_id);
1291: --dbms_output.put_line( ' CONTACT CREATION :- ORG CTC ID ' ||p_contact_info_tbl (i).contact_id );
1292: --dbms_output.put_line( ' CONTACT CREATION :- RAH PTY ID ' ||l_rah_party_id );
1305: Raise G_EXCEPTION_HALT_VALIDATION;
1306: End If;
1307:
1308:
1309: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CPL ID: '||l_add2partyid );
1310: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CRO CD: '||p_contact_info_tbl (i).contact_role);
1311: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CTC CD: '||l_hdr_contactid);
1312: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: JTO CD: '||p_contact_info_tbl (i).contact_object_code);
1313: --dbms_output.put_line( ' CONTACT CREATION :- CPL ID ' || l_add2partyid);
1306: End If;
1307:
1308:
1309: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CPL ID: '||l_add2partyid );
1310: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CRO CD: '||p_contact_info_tbl (i).contact_role);
1311: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CTC CD: '||l_hdr_contactid);
1312: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: JTO CD: '||p_contact_info_tbl (i).contact_object_code);
1313: --dbms_output.put_line( ' CONTACT CREATION :- CPL ID ' || l_add2partyid);
1314: --dbms_output.put_line( ' CONTACT CREATION :- CRO CD ' || p_contact_info_tbl (i).contact_role);
1307:
1308:
1309: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CPL ID: '||l_add2partyid );
1310: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CRO CD: '||p_contact_info_tbl (i).contact_role);
1311: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CTC CD: '||l_hdr_contactid);
1312: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: JTO CD: '||p_contact_info_tbl (i).contact_object_code);
1313: --dbms_output.put_line( ' CONTACT CREATION :- CPL ID ' || l_add2partyid);
1314: --dbms_output.put_line( ' CONTACT CREATION :- CRO CD ' || p_contact_info_tbl (i).contact_role);
1315: --dbms_output.put_line( ' CONTACT CREATION :- CTC CD ' || l_hdr_contactid);
1308:
1309: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CPL ID: '||l_add2partyid );
1310: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CRO CD: '||p_contact_info_tbl (i).contact_role);
1311: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: CTC CD: '||l_hdr_contactid);
1312: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: JTO CD: '||p_contact_info_tbl (i).contact_object_code);
1313: --dbms_output.put_line( ' CONTACT CREATION :- CPL ID ' || l_add2partyid);
1314: --dbms_output.put_line( ' CONTACT CREATION :- CRO CD ' || p_contact_info_tbl (i).contact_role);
1315: --dbms_output.put_line( ' CONTACT CREATION :- CTC CD ' || l_hdr_contactid);
1316: --dbms_output.put_line( ' CONTACT CREATION :- JTO CD ' || p_contact_info_tbl (i).contact_object_code);
1332: p_ctcv_tbl => l_ctcv_tbl_in,
1333: x_ctcv_tbl => l_ctcv_tbl_out
1334: );
1335:
1336: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Insert contact status: '||l_return_status );
1337: --dbms_output.put_line('insert contact'||l_return_status);
1338:
1339: x_return_status := l_return_status;
1340:
1358: x_return_status := l_return_status;
1359: WHEN Others THEN
1360: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1361: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1362: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contacts :: Error: '||SQLCODE||':'|| SQLERRM);
1363:
1364: END Create_Contacts;
1365:
1366:
1425: p_cgcv_tbl => l_cgcv_tbl_in,
1426: x_cgcv_tbl => l_cgcv_tbl_out
1427: );
1428:
1429: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Groups :: create contract groups status :'|| l_return_status );
1430: --dbms_output.put_line( 'K HDR CREATION :- GROUPING STATUS ' || l_return_status);
1431:
1432: x_return_status := l_return_status;
1433:
1462: p_cpsv_tbl => l_cpsv_tbl_in,
1463: x_cpsv_tbl => l_cpsv_tbl_out
1464: );
1465:
1466: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Groups :: Create contract process status: '|| l_return_status );
1467: --dbms_output.put_line( 'K HDR CREATION :- PROCESS DEF STATUS ' || l_return_status);
1468:
1469: X_return_status := l_return_status;
1470:
1484: x_return_status := l_return_status;
1485: WHEN Others THEN
1486: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
1487: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
1488: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Groups :: Error: '|| SQLCODE||':'|| SQLERRM);
1489:
1490: END Create_Groups;
1491:
1492:
1716: p_khrv_tbl => l_khrv_tbl_in,
1717: x_khrv_tbl => l_khrv_tbl_out,
1718: p_validate_yn => 'N'
1719: );
1720: OKS_RENEW_PVT.DEBUG_LOG('(OKS_EXTWARPRGM_PVT).Create_K_Hdr :: OKS contract header : '|| l_return_status);
1721: FND_FILE.PUT_LINE(fnd_file.LOG,'K HDR CREATION :- OKS Contract Header STATUS '|| l_return_status );
1722:
1723: IF NOT l_return_status = okc_api.g_ret_sts_success THEN
1724: OKC_API.SET_MESSAGE(
1764: p_rulv_tbl => l_rulv_tbl_in,
1765: x_rulv_tbl => l_rulv_tbl_out
1766: );
1767:
1768: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: Tax rule status:'|| l_return_status);
1769: --dbms_output.put_line( 'K HDR CREATION :- TAX RULE STATUS ' || l_return_Status);
1770: x_return_status := l_return_status;
1771:
1772: IF l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
1809: x_rulv_tbl => l_rulv_tbl_out
1810: );
1811:
1812:
1813: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: PRE rule status:'|| l_return_status);
1814: --dbms_output.put_line( 'K HDR CREATION :- PRE RULE STATUS ' || l_return_Status);
1815: x_return_status := l_return_status;
1816:
1817:
1855: p_rulv_tbl => l_rulv_tbl_in,
1856: x_rulv_tbl => l_rulv_tbl_out
1857: );
1858:
1859: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: QTO rule status:'|| l_return_status);
1860: --dbms_output.put_line('K HDR CREATION :- QTO RULE STATUS ' || l_return_Status);
1861:
1862: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1863: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'QTO RUle (HEADER)');
1880: x_return_status => l_return_status,
1881: x_msg_count => x_msg_count,
1882: x_msg_data => x_msg_data
1883: );
1884: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: QTO rule status:'|| l_return_status);
1885: --dbms_output.put_line('K HDR CREATION :- QTO RULE STATUS ' || l_return_Status);
1886:
1887: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
1888: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'QTO RUle (HEADER)');
1920: p_rulv_tbl => l_rulv_tbl_in,
1921: x_rulv_tbl => l_rulv_tbl_out
1922: );
1923:
1924: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: PTR rule status:'|| l_return_status);
1925: x_return_status := l_return_status;
1926: --dbms_output.put_line( 'K HDR CREATION :- PTR RULE STATUS ' || x_return_Status);
1927:
1928:
1968: p_rulv_tbl => l_rulv_tbl_in,
1969: x_rulv_tbl => l_rulv_tbl_out
1970: );
1971:
1972: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: CVN rule status:'|| l_return_status);
1973: x_return_status := l_return_status;
1974: --dbms_output.put_line( 'K HDR CREATION :- CVN RULE STATUS ' || l_return_Status);
1975:
1976: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2013: p_rulv_tbl => l_rulv_tbl_in,
2014: x_rulv_tbl => l_rulv_tbl_out
2015: );
2016:
2017: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: BTO rule status:'|| l_return_status);
2018: x_return_status := l_return_status;
2019: --dbms_output.put_line( 'K HDR CREATION :- BTO RULE STATUS ' || l_return_Status);
2020:
2021: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2058: p_rulv_tbl => l_rulv_tbl_in,
2059: x_rulv_tbl => l_rulv_tbl_out
2060: );
2061:
2062: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: STO rule status:'|| l_return_status);
2063: x_return_status := l_return_status;
2064: --dbms_output.put_line( 'K HDR CREATION :- STO RULE STATUS ' || l_return_Status);
2065:
2066: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2091: x_gvev_tbl => l_gvev_tbl_out
2092: );
2093:
2094:
2095: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: Agreement rule status:'|| l_return_status);
2096: --dbms_output.put_line( 'K HDR CREATION :- AGREEMENT RULE STATUS ' || l_return_Status);
2097:
2098: x_return_status := l_return_status;
2099: If l_return_status = 'S' then
2136: p_rulv_tbl => l_rulv_tbl_in,
2137: x_rulv_tbl => l_rulv_tbl_out
2138: );
2139:
2140: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: ARL rule status:'|| l_return_status);
2141: x_return_status := l_return_status;
2142: --dbms_output.put_line( 'K HDR CREATION :- ARL RULE STATUS ' || l_return_Status);
2143:
2144: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2181: p_rulv_tbl => l_rulv_tbl_in,
2182: x_rulv_tbl => l_rulv_tbl_out
2183: );
2184:
2185: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: IRE rule status:'|| l_return_status);
2186: x_return_status := l_return_status;
2187: --dbms_output.put_line( 'K HDR CREATION :- IRE RULE STATUS ' || l_return_Status);
2188:
2189: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2225: p_rulv_tbl => l_rulv_tbl_in,
2226: x_rulv_tbl => l_rulv_tbl_out
2227: );
2228:
2229: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: REN rule status:'|| l_return_status);
2230: x_return_status := l_return_status;
2231: --dbms_output.put_line( 'K HDR CREATION :- REN RULE STATUS ' || l_return_Status);
2232:
2233: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2279: x_rulv_tbl => l_rulv_tbl_out
2280: );
2281:
2282:
2283: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: RPT rule status:'|| l_return_status);
2284: x_return_status := l_return_status;
2285: --dbms_output.put_line( 'K HDR CREATION :- RPT RULE STATUS ' || l_return_Status);
2286:
2287: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2323: p_rulv_tbl => l_rulv_tbl_in,
2324: x_rulv_tbl => l_rulv_tbl_out
2325: );
2326:
2327: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: RPO rule status:'|| l_return_status);
2328: x_return_status := l_return_status;
2329: --dbms_output.put_line( 'K HDR CREATION :- RPO RULE STATUS ' || l_return_Status);
2330:
2331: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2370: p_rulv_tbl => l_rulv_tbl_in,
2371: x_rulv_tbl => l_rulv_tbl_out
2372: );
2373:
2374: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: SBG rule status:'|| l_return_status);
2375: x_return_status := l_return_status;
2376: --dbms_output.put_line( 'K HDR CREATION :- SBG RULE STATUS ' || l_return_Status);
2377:
2378: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2415: p_rulv_tbl => l_rulv_tbl_in,
2416: x_rulv_tbl => l_rulv_tbl_out
2417: );
2418:
2419: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: RER rule status:'|| l_return_status);
2420: x_return_status := l_return_status;
2421: --dbms_output.put_line( 'K HDR CREATION :- RER RULE STATUS ' || l_return_Status);
2422:
2423: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2480: p_rulv_tbl => l_rulv_tbl_in,
2481: x_rulv_tbl => l_rulv_tbl_out
2482: );
2483:
2484: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: CCR rule status:'|| l_return_status);
2485: x_return_status := l_return_status;
2486: --dbms_output.put_line( 'K HDR CREATION :- CCR RULE STATUS ' || l_return_Status);
2487:
2488: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2526: p_rulv_tbl => l_rulv_tbl_in,
2527: x_rulv_tbl => l_rulv_tbl_out
2528: );
2529:
2530: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: REV rule status:'|| l_return_status);
2531: x_return_status := l_return_status;
2532: --dbms_output.put_line( 'K HDR CREATION :- RVE RULE STATUS ' || l_return_Status);
2533:
2534: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2548: x_return_status := l_return_status;
2549: WHEN Others THEN
2550: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2551: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2552: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_All_Rules :: Error:'|| SQLCODE||':'|| SQLERRM);
2553:
2554: END Create_All_Rules;
2555:
2556:
2608: p_scrv_tbl => l_scrv_tbl_in,
2609: x_scrv_tbl => l_scrv_tbl_out
2610: );
2611:
2612: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Sales_Credits :: Insert sales credit status:'|| l_return_status);
2613: x_return_status := l_return_status;
2614: --dbms_output.put_line('K LINE CREATION :- SALESCREDIT STATUS ' || l_return_status);
2615:
2616: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
2632:
2633: When Others Then
2634: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2635: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2636: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Sales_Credits :: Error:'|| SQLCODE||':'||SQLERRM);
2637:
2638:
2639: END Create_Sales_Credits;
2640:
2723:
2724: When Others Then
2725: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2726: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2727: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Obj_Rel ::Error :'||SQLCODE||':'|| SQLERRM);
2728:
2729: END Create_Obj_Rel;
2730:
2731:
2821:
2822: Exception
2823: When Others Then
2824: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2825: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Check_hdr_Effectivity ::Error: '||SQLCODE ||':'||SQLERRM );
2826:
2827: End Check_hdr_Effectivity;
2828: ---------------------------------------------------------------------------
2829: -- Priced YN
2903: Exception
2904: When Others Then
2905: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2906: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2907: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).create_rules :: Error: '||SQLCODE||':'||SQLERRM );
2908:
2909: End create_rules;
2910: ------------------------------------------------------------------------------------
2911: -- Check for usage
2953: Open l_Counter_group_csr ;
2954: Fetch l_Counter_group_csr into l_counter_group_id ;
2955: Close l_Counter_group_csr ;
2956:
2957: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Check_for_usage :: Counter group Id: '||l_counter_group_id );
2958: --dbms_output.put_line('in check for usage'||p_CP_id||' '||l_counter_group_id);
2959:
2960: i := 1;
2961:
2976:
2977: When Others Then
2978: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
2979: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
2980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Check_for_usage ::Error: '||SQLCODE ||':'||SQLERRM );
2981:
2982: End ;
2983:
2984: --------------------------------------------------------------------------
3030: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3031:
3032: Okc_context.set_okc_org_context (p_K_header_rec.authoring_org_id, p_K_header_rec.organization_id);
3033:
3034: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::CREATE CONTRACT HEADER: ');
3035: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header merge type : '||p_k_header_rec.merge_type );
3036: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header Status code : '||p_k_header_rec.sts_code );
3037: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header SCS code : '||p_k_header_rec.scs_code );
3038:
3031:
3032: Okc_context.set_okc_org_context (p_K_header_rec.authoring_org_id, p_K_header_rec.organization_id);
3033:
3034: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::CREATE CONTRACT HEADER: ');
3035: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header merge type : '||p_k_header_rec.merge_type );
3036: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header Status code : '||p_k_header_rec.sts_code );
3037: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header SCS code : '||p_k_header_rec.scs_code );
3038:
3039:
3032: Okc_context.set_okc_org_context (p_K_header_rec.authoring_org_id, p_K_header_rec.organization_id);
3033:
3034: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::CREATE CONTRACT HEADER: ');
3035: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header merge type : '||p_k_header_rec.merge_type );
3036: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header Status code : '||p_k_header_rec.sts_code );
3037: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header SCS code : '||p_k_header_rec.scs_code );
3038:
3039:
3040: If p_k_header_rec.merge_type = 'NEW' Then
3033:
3034: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::CREATE CONTRACT HEADER: ');
3035: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header merge type : '||p_k_header_rec.merge_type );
3036: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header Status code : '||p_k_header_rec.sts_code );
3037: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Header SCS code : '||p_k_header_rec.scs_code );
3038:
3039:
3040: If p_k_header_rec.merge_type = 'NEW' Then
3041:
3073: End If;
3074:
3075: End If;
3076:
3077: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header :: Header Id: '||to_char(l_chrid) );
3078: --Contract Header Routine
3079:
3080: If Nvl(p_k_header_rec.sts_code,'ENTERED') = 'ACTIVE' Then
3081: l_chrv_tbl_in(1).date_signed := p_k_header_rec.start_date;
3164: x_msg_data => x_msg_data,
3165: x_chrv_tbl => l_chrv_tbl_out
3166: );
3167:
3168: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header :: Create_contract_header status: '||l_return_status );
3169: --dbms_output.put_line( 'K HDR CREATION :- HDR STATUS ' || l_return_status);
3170: x_return_status := l_return_status;
3171:
3172: If l_return_status = 'S' then
3176: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'HEADER (HEADER)');
3177: Raise G_EXCEPTION_HALT_VALIDATION;
3178: End if;
3179:
3180: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header :: Header Id: '||to_char(l_chrid) );
3181:
3182: /* ----create rules group
3183:
3184: Create_Rule_grp
3191: x_msg_data => x_msg_data,
3192: x_msg_count => x_msg_count
3193: );
3194:
3195: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Create_Rule_grp status : '||l_return_status );
3196:
3197: x_return_status := l_return_status;
3198: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3199: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Order Header Id (HEADER)');
3221: x_msg_data => x_msg_data,
3222: x_msg_count => x_msg_count
3223: );
3224:
3225: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Create_contacts status : '||l_return_status );
3226: --dbms_output.put_line('COntacts'||l_return_status);
3227: x_return_status := l_return_status;
3228:
3229: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3245: x_msg_data => x_msg_data,
3246: x_msg_count => x_msg_count
3247: );
3248:
3249: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Create_Groups status : '||l_return_status );
3250: --dbms_output.put_line('create group'||l_return_status);
3251: x_return_status := l_return_status;
3252:
3253: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3268: x_msg_data => x_msg_data,
3269: x_msg_count => x_msg_count
3270: );
3271:
3272: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Create_All_Rules status : '||l_return_status );
3273: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Rule group Id : '||to_char(l_rule_group_id) );
3274:
3275: x_return_status := l_return_status;
3276:
3269: x_msg_count => x_msg_count
3270: );
3271:
3272: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Create_All_Rules status : '||l_return_status );
3273: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Rule group Id : '||to_char(l_rule_group_id) );
3274:
3275: x_return_status := l_return_status;
3276:
3277: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3291: x_msg_data => x_msg_data,
3292: x_msg_count => x_msg_count
3293: );
3294:
3295: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Create_Sales_Credits status : '||l_return_status );
3296: x_return_status := l_return_status;
3297:
3298: --dbms_output.put_line( 'K HDR CREATION :- Sales Credit STATUS '||l_return_status);
3299:
3313: x_msg_count => x_msg_count,
3314: x_msg_data => x_msg_data
3315: );
3316:
3317: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Create_Obj_Rel status : '||l_return_status );
3318: x_return_status := l_return_status;
3319:
3320: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3321: OKC_API.set_message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'Order Header Id (HEADER)');
3335: x_msg_count => x_msg_count,
3336: x_msg_data => x_msg_data
3337: );
3338:
3339: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::create_articles status : '||l_return_status );
3340: x_return_status := l_return_status;
3341: --dbms_output.put_line( 'K HDR CREATION :- ARTICLE CREATION ' || l_return_Status);
3342:
3343: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3352: x_return_status := l_return_status;
3353: WHEN Others THEN
3354: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
3355: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
3356: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract_Header ::Error : '||SQLCODE|| ':'||SQLERRM );
3357:
3358: END Create_Contract_Header;
3359:
3360: -----------------------------------------------------------------------------
3554: BEGIN
3555:
3556: x_return_status := OKC_API.G_RET_STS_SUCCESS;
3557:
3558: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: CREATE SERVICE LINE FOR LINE TYPE : '||p_k_line_rec.line_type );
3559:
3560: Validate_Line_Record
3561: ( p_line_rec => p_k_line_rec,
3562: x_return_status => l_return_status
3561: ( p_line_rec => p_k_line_rec,
3562: x_return_status => l_return_status
3563: );
3564:
3565: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Validate_Line_Record status : '||l_return_status );
3566: --dbms_output.put_line('validate line rec'||l_return_status);
3567:
3568: IF NOT l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
3569: x_return_status := OKC_API.G_RET_STS_ERROR;
3580: ELSE
3581: Close l_header_csr;
3582: END IF;
3583:
3584: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Header Scs code : '||l_header_rec.scs_code );
3585: --dbms_output.put_line('header id '|| l_header_rec.id);
3586: --dbms_output.put_line('header scs code '||l_header_rec.scs_code ||' line type' ||p_K_line_rec.line_type );
3587:
3588: Okc_context.set_okc_org_context (p_K_line_rec.org_id, p_K_line_rec.organization_id);
3616: x_return_status := 'E';
3617: Raise G_EXCEPTION_HALT_VALIDATION;
3618: END IF;
3619:
3620: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Lse Id : '||l_line_lse_id );
3621: --dbms_output.put_line('Line lse id'||l_line_lse_id);
3622:
3623:
3624: l_Line_id := Get_K_Cle_Id
3628: , p_StartDate => p_k_line_rec.srv_sdt
3629: , p_EndDate => p_k_line_rec.srv_edt
3630: );
3631:
3632: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Id : '||to_char(l_line_id ));
3633: --dbms_output.put_line('K LINE CREATION :- LINE ID ' || l_line_id);
3634:
3635: If l_line_id Is Not Null Then
3636: x_Service_Line_id := l_line_id;
3648: x_org_id => l_hdrorgid,
3649: x_status => l_hdrstatus
3650: );
3651:
3652: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: check_hdr_effectivity status : '||l_hdrstatus );
3653: --x_return_status := l_return_status;
3654:
3655: If l_hdrstatus = 'N' Then
3656: NULL;
3731: p_clev_tbl => l_clev_tbl_in,
3732: x_clev_tbl => l_clev_tbl_out
3733: );
3734:
3735: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: create_contract_line for' ||p_k_line_rec.line_type||' status : '||l_return_status );
3736: --dbms_output.put_line('K LINE CREATION :- LINE STATUS ' || l_return_status);
3737:
3738: x_return_status := l_return_status;
3739:
3745: End if;
3746:
3747: -- rules inserted by oks --IRT
3748:
3749: OKS_RENEW_PVT.DEBUG_LOG('Accounting id ' || p_k_line_rec.accounting_rule_type);
3750: --OKS_RENEW_PVT.DEBUG_LOG('commitment id ' || p_k_line_rec.commitment_id );
3751:
3752: l_klnv_tbl_in( 1 ).cle_id := l_line_id;
3753: l_klnv_tbl_in( 1 ).dnz_chr_id := l_header_rec.id;
3746:
3747: -- rules inserted by oks --IRT
3748:
3749: OKS_RENEW_PVT.DEBUG_LOG('Accounting id ' || p_k_line_rec.accounting_rule_type);
3750: --OKS_RENEW_PVT.DEBUG_LOG('commitment id ' || p_k_line_rec.commitment_id );
3751:
3752: l_klnv_tbl_in( 1 ).cle_id := l_line_id;
3753: l_klnv_tbl_in( 1 ).dnz_chr_id := l_header_rec.id;
3754: l_klnv_tbl_in( 1 ).invoice_text := Substr(p_k_line_rec.srv_desc,1,50); --IRT
3781: );
3782: RAISE G_EXCEPTION_HALT_VALIDATION;
3783: END IF;
3784:
3785: OKS_RENEW_PVT.DEBUG_LOG('(OKS_EXTWARPRGM_PVT).Create_K_Service_Lines :: OKS create line Status : ' || l_return_status );
3786: FND_FILE.PUT_LINE( fnd_file.LOG, 'OKS K LINE CREATION :- LINE STATUS ' || l_return_status );
3787:
3788:
3789: okc_time_util_pub.get_duration
3794: x_timeunit => l_timeunits,
3795: x_return_status => l_return_status
3796: );
3797:
3798: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: get_duration status : '||l_return_status );
3799: x_return_status := l_return_status;
3800: --dbms_output.put_line('get duration status = ' || x_return_status );
3801:
3802: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3802: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3803: Raise G_EXCEPTION_HALT_VALIDATION;
3804: End If;
3805:
3806: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line jtot_obj_code : '||l_line_jtot_obj_code );
3807: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Srv Id : '||p_k_line_rec.srv_id );
3808: --dbms_output.put_line('jtot_object1_code'||l_line_jtot_obj_code||'id'||p_k_line_rec.srv_id);
3809:
3810: --Create Contract Item
3803: Raise G_EXCEPTION_HALT_VALIDATION;
3804: End If;
3805:
3806: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line jtot_obj_code : '||l_line_jtot_obj_code );
3807: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Srv Id : '||p_k_line_rec.srv_id );
3808: --dbms_output.put_line('jtot_object1_code'||l_line_jtot_obj_code||'id'||p_k_line_rec.srv_id);
3809:
3810: --Create Contract Item
3811: --If l_line_lse_id = 46 Then
3834: p_cimv_tbl => l_cimv_tbl_in,
3835: x_cimv_tbl => l_cimv_tbl_out
3836: );
3837:
3838: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: create_contract_item status : '||l_return_status );
3839: --dbms_output.put_line('K LINE CREATION :- KITEM STATUS ' || l_return_status);
3840:
3841: x_return_status := l_return_status;
3842:
3858: x_msg_data => x_msg_data,
3859: x_msg_count => x_msg_count
3860: );
3861:
3862: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Create_Sales_Credits status : '||l_return_status );
3863: x_return_status := l_return_status;
3864: --dbms_output.put_line('LINE CREATION :- SALES CREDIT STATUS ' || l_return_status);
3865:
3866: /*
3877: x_msg_data => x_msg_data,
3878: x_msg_count => x_msg_count
3879: );
3880:
3881: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Create_Rule_grp status : '||l_return_status );
3882: x_return_status := l_return_status;
3883: --dbms_output.put_line( 'LINE CREATION :- RULE GROUP STATUS '||l_return_status);
3884:
3885: --Customer Account
3912: x_msg_count => x_msg_count,
3913: x_msg_data => x_msg_data
3914: );
3915:
3916: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Create CAN Rule status : '||l_return_status );
3917: --dbms_output.put_line('K LINE CREATION :- CAN RULE STATUS ' || l_return_status);
3918: x_return_status := l_return_status;
3919:
3920: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
3993: l_role := 'CUST_SHIPPING';
3994: l_obj := 'OKX_CONTSHIP';
3995: End if;
3996:
3997: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: CPL Id : '||l_line_party_role_id );
3998: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Party Id : '||l_lin_party_id );
3999: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Org Contact Id : '||p_Contact_tbl (i).contact_id );
4000: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: RAH Contact Id : '||l_lin_contactid );
4001: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact Role : '||p_Contact_tbl (i).contact_role );
3994: l_obj := 'OKX_CONTSHIP';
3995: End if;
3996:
3997: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: CPL Id : '||l_line_party_role_id );
3998: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Party Id : '||l_lin_party_id );
3999: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Org Contact Id : '||p_Contact_tbl (i).contact_id );
4000: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: RAH Contact Id : '||l_lin_contactid );
4001: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact Role : '||p_Contact_tbl (i).contact_role );
4002: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact OBJ : '||p_Contact_tbl (i).contact_object_code );
3995: End if;
3996:
3997: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: CPL Id : '||l_line_party_role_id );
3998: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Party Id : '||l_lin_party_id );
3999: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Org Contact Id : '||p_Contact_tbl (i).contact_id );
4000: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: RAH Contact Id : '||l_lin_contactid );
4001: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact Role : '||p_Contact_tbl (i).contact_role );
4002: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact OBJ : '||p_Contact_tbl (i).contact_object_code );
4003:
3996:
3997: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: CPL Id : '||l_line_party_role_id );
3998: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Party Id : '||l_lin_party_id );
3999: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Org Contact Id : '||p_Contact_tbl (i).contact_id );
4000: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: RAH Contact Id : '||l_lin_contactid );
4001: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact Role : '||p_Contact_tbl (i).contact_role );
4002: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact OBJ : '||p_Contact_tbl (i).contact_object_code );
4003:
4004: l_ctcv_tbl_in(1).cpl_id := l_line_party_role_id;
3997: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: CPL Id : '||l_line_party_role_id );
3998: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Party Id : '||l_lin_party_id );
3999: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Org Contact Id : '||p_Contact_tbl (i).contact_id );
4000: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: RAH Contact Id : '||l_lin_contactid );
4001: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact Role : '||p_Contact_tbl (i).contact_role );
4002: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact OBJ : '||p_Contact_tbl (i).contact_object_code );
4003:
4004: l_ctcv_tbl_in(1).cpl_id := l_line_party_role_id;
4005: l_ctcv_tbl_in(1).dnz_chr_id := l_header_rec.id;
3998: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Party Id : '||l_lin_party_id );
3999: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Org Contact Id : '||p_Contact_tbl (i).contact_id );
4000: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: RAH Contact Id : '||l_lin_contactid );
4001: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact Role : '||p_Contact_tbl (i).contact_role );
4002: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Contact OBJ : '||p_Contact_tbl (i).contact_object_code );
4003:
4004: l_ctcv_tbl_in(1).cpl_id := l_line_party_role_id;
4005: l_ctcv_tbl_in(1).dnz_chr_id := l_header_rec.id;
4006: l_ctcv_tbl_in(1).cro_code := l_role;
4018: p_ctcv_tbl => l_ctcv_tbl_in,
4019: x_ctcv_tbl => l_ctcv_tbl_out
4020: );
4021:
4022: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: create_contact '||i||':'||l_return_status );
4023: x_return_status := l_return_status;
4024:
4025: If l_return_status = OKC_API.G_RET_STS_SUCCESS then
4026: l_line_contact_id := l_ctcv_tbl_out(1).id;
4075: p_rulv_tbl => l_rulv_tbl_in,
4076: x_rulv_tbl => l_rulv_tbl_out
4077: );
4078:
4079: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: TAX rule Status:'||l_return_status );
4080: --dbms_output.put_line( 'K LINE CREATION :- TAX RULE STATUS ' || l_return_Status);
4081:
4082: x_return_status := l_return_status;
4083:
4123: x_msg_count => x_msg_count,
4124: x_msg_data => x_msg_data
4125: );
4126:
4127: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: ARL rule Status:'||l_return_status );
4128: --dbms_output.put_line('K LINE CREATION :- ARL RULE STATUS ' || l_return_status);
4129: x_return_status := l_return_status;
4130:
4131: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
4180: x_msg_count => x_msg_count,
4181: x_msg_data => x_msg_data
4182: );
4183:
4184: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: QRE rule Status:'||l_return_status );
4185: --dbms_output.put_line('K LINE CREATION :- QRE RULE STATUS ' || l_return_status);
4186:
4187: x_return_status := l_return_status;
4188:
4227: x_msg_count => x_msg_count,
4228: x_msg_data => x_msg_data
4229: );
4230:
4231: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: IRE rule Status:'||l_return_status );
4232: --dbms_output.put_line( 'K LINE CREATION :- IRE RULE STATUS ' || l_return_Status);
4233:
4234: x_return_status := l_return_status;
4235:
4271: x_msg_count => x_msg_count,
4272: x_msg_data => x_msg_data
4273: );
4274:
4275: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: IRT rule Status:'||l_return_status );
4276: --dbms_output.put_line('K LINE CREATION :- IRT RULE STATUS ' || l_return_status);
4277: x_return_status := l_return_status;
4278:
4279: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
4309: x_msg_count => x_msg_count,
4310: x_msg_data => x_msg_data
4311: );
4312:
4313: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: LRT rule Status:'||l_return_status );
4314: --dbms_output.put_line('K LINE CREATION :- LRT RULE STATUS ' || l_return_status);
4315: x_return_status := l_return_status;
4316:
4317: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
4351: x_msg_count => x_msg_count,
4352: x_msg_data => x_msg_data
4353: );
4354:
4355: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: BTO rule Status:'||l_return_status );
4356: --dbms_output.put_line('K LINE CREATION :- BTO RULE STATUS ' || l_return_status);
4357: x_return_status := l_return_status;
4358:
4359: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
4394: x_msg_count => x_msg_count,
4395: x_msg_data => x_msg_data
4396: );
4397:
4398: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: STO rule Status:'||l_return_status );
4399: --dbms_output.put_line('K LINE CREATION :- STO RULE STATUS ' || l_return_status);
4400:
4401: x_return_status := l_return_status;
4402:
4428: x_msg_count => x_msg_count,
4429: x_msg_data => x_msg_data
4430: );
4431:
4432: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Create_Obj_Rel Status:'||l_return_status );
4433: --dbms_output.put_line('K LINE CREATION :- OBJ REL STATUS ' || l_return_status);
4434:
4435: x_return_status := l_return_status;
4436:
4459: ELSE
4460: Close l_template_csr;
4461: END IF;
4462:
4463: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Template Id:'||l_template_id );
4464: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: SRV ID :'||p_k_line_rec.srv_id );
4465: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Id :'||l_line_id );
4466:
4467: --dbms_output.put_line('l_line_id :: '|| l_line_id);
4460: Close l_template_csr;
4461: END IF;
4462:
4463: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Template Id:'||l_template_id );
4464: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: SRV ID :'||p_k_line_rec.srv_id );
4465: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Id :'||l_line_id );
4466:
4467: --dbms_output.put_line('l_line_id :: '|| l_line_id);
4468: --dbms_output.put_line('l_template_id:: '|| l_template_id);
4461: END IF;
4462:
4463: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Template Id:'||l_template_id );
4464: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: SRV ID :'||p_k_line_rec.srv_id );
4465: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Line Id :'||l_line_id );
4466:
4467: --dbms_output.put_line('l_line_id :: '|| l_line_id);
4468: --dbms_output.put_line('l_template_id:: '|| l_template_id);
4469: --dbms_output.put_line('start date:: '||p_k_line_rec.srv_sdt );
4484: x_Actual_coverage_id => l_cov_id
4485: );
4486:
4487:
4488: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Create_Actual_Coverage Status :'||l_return_status );
4489: --dbms_output.put_line('K LINE CREATION :- COV STATUS ' || l_return_status);
4490: x_return_status := l_return_status;
4491:
4492: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
4521: X_CTR_GRP_ID_TEMPLATE => l_ctr_grp_id_template,
4522: X_CTR_GRP_ID_INSTANCE => l_ctr_grp_id_instance
4523: );
4524:
4525: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: autoinstantiate_counters Status :'||l_return_status );
4526: --dbms_output.put_line('K LINE CREATION :- CTR STATUS ' || l_return_status);
4527: x_return_status := l_return_status;
4528:
4529: If Not l_return_status = OKC_API.G_RET_STS_SUCCESS Then
4541: x_return_status := l_return_status;
4542: When Others Then
4543: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
4544: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
4545: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Service_Line :: Error:'||SQLCODE ||':'|| SQLERRM);
4546:
4547: End Create_Service_line;
4548:
4549:
4644:
4645:
4646: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4647:
4648: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: CREATE COVERED LINE FOR LINE :'||p_k_covd_rec.Attach_2_Line_id );
4649: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Attached to line type :'||p_k_covd_rec.product_sts_code );
4650:
4651: IF p_k_covd_rec.Attach_2_Line_id IS NULL THEN
4652:
4645:
4646: x_return_status := OKC_API.G_RET_STS_SUCCESS;
4647:
4648: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: CREATE COVERED LINE FOR LINE :'||p_k_covd_rec.Attach_2_Line_id );
4649: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Attached to line type :'||p_k_covd_rec.product_sts_code );
4650:
4651: IF p_k_covd_rec.Attach_2_Line_id IS NULL THEN
4652:
4653: x_return_status := OKC_API.G_RET_STS_ERROR;
4669: ELSE
4670: Close l_parent_line_csr;
4671: END IF;
4672:
4673: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Parent line Id :'||to_char(l_parent_line_rec.id) );
4674: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Parent line Lse Id :'||to_char(l_parent_line_rec.lse_id) );
4675:
4676: IF l_parent_line_rec.lse_id = 12 THEN
4677:
4670: Close l_parent_line_csr;
4671: END IF;
4672:
4673: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Parent line Id :'||to_char(l_parent_line_rec.id) );
4674: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Parent line Lse Id :'||to_char(l_parent_line_rec.lse_id) );
4675:
4676: IF l_parent_line_rec.lse_id = 12 THEN
4677:
4678: OPEN l_usage_type_csr(l_parent_line_rec.id);
4688: ELSE
4689: l_usage_type := NULL;
4690: END IF;
4691:
4692: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Usage Type :'||l_usage_type );
4693:
4694: Validate_Cp_Rec
4695: (
4696: p_cp_rec => p_k_covd_rec,
4697: p_usage_type => l_usage_type,
4698: x_return_status => l_return_status
4699: );
4700:
4701: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Validate_Cp_Rec Status :'||l_return_status );
4702:
4703:
4704: IF NOT l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
4705: x_return_status := OKC_API.G_RET_STS_ERROR;
4717: x_line_edt => l_line_edt,
4718: x_status => l_return_status
4719: );
4720:
4721: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Check_line_effectivity Status :'||l_return_status );
4722: x_return_status := l_return_status;
4723: --dbms_output.put_line('validate line effectivity '|| x_return_status );
4724:
4725: If l_return_status = OKC_API.G_RET_STS_ERROR Then
4739: x_org_id => l_hdrorgid,
4740: x_status => l_hdrstatus
4741: );
4742:
4743: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: check_hdr_effectivity Status :'||l_hdrstatus );
4744: x_return_status := l_hdrstatus;
4745: --dbms_output.put_line('hdr effectivity '|| x_return_status );
4746:
4747:
4773:
4774: END IF;
4775:
4776: --dbms_output.put_line('l_cp_lse_id = ' || (l_cp_lse_id));
4777: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: CP Lse Id :'|| to_char(l_cp_lse_id) );
4778: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: CP Jtot_object :'||l_cp_jtot_object );
4779:
4780: l_clev_tbl_in(1).chr_id := Null;
4781: l_clev_tbl_in(1).sfwt_flag := 'N';
4774: END IF;
4775:
4776: --dbms_output.put_line('l_cp_lse_id = ' || (l_cp_lse_id));
4777: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: CP Lse Id :'|| to_char(l_cp_lse_id) );
4778: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: CP Jtot_object :'||l_cp_jtot_object );
4779:
4780: l_clev_tbl_in(1).chr_id := Null;
4781: l_clev_tbl_in(1).sfwt_flag := 'N';
4782: l_clev_tbl_in(1).lse_id := l_cp_lse_id;
4824: p_clev_tbl => l_clev_tbl_in,
4825: x_clev_tbl => l_clev_tbl_out
4826: );
4827:
4828: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: create_contract_line status:'|| l_return_status);
4829: --dbms_output.put_line('K COVD LINE CREATION :- LINE STATUS ' || l_return_status);
4830: x_return_status := l_return_status;
4831:
4832: If l_return_status = OKC_API.G_RET_STS_SUCCESS then
4866: p_klnv_tbl => l_klnv_tbl_in,
4867: x_klnv_tbl => l_klnv_tbl_out,
4868: p_validate_yn => 'N'
4869: );
4870: OKS_RENEW_PVT.DEBUG_LOG('(OKS_EXTWARPRGM_PVT).OKS create cov lvl status :: ' || l_return_status );
4871: FND_FILE.PUT_LINE(fnd_file.LOG, 'OKS COV LINE CREATION :- LINE STATUS '|| l_return_status );
4872:
4873: IF NOT l_return_status = 'S' THEN
4874: OKC_API.SET_MESSAGE(
4902: p_cimv_tbl => l_cimv_tbl_in,
4903: x_cimv_tbl => l_cimv_tbl_out
4904: );
4905:
4906: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: create_contract_item status:'|| l_return_status);
4907: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Item Id :'|| l_cimv_tbl_out(1).id );
4908: --dbms_output.put_line('K COVD LINE CREATION :- KITEM STATUS ' || l_return_status);
4909:
4910: x_return_status := l_return_status;
4903: x_cimv_tbl => l_cimv_tbl_out
4904: );
4905:
4906: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: create_contract_item status:'|| l_return_status);
4907: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Item Id :'|| l_cimv_tbl_out(1).id );
4908: --dbms_output.put_line('K COVD LINE CREATION :- KITEM STATUS ' || l_return_status);
4909:
4910: x_return_status := l_return_status;
4911:
4930: x_msg_data => x_msg_data,
4931: x_msg_count => x_msg_count
4932: );
4933:
4934: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Create_Rule_grp status :'|| l_return_status );
4935: --dbms_output.put_line('K COVD LINE CREATION :- RGP STATUS ' || l_return_status);
4936: x_return_status := l_return_status;
4937:
4938: If NOT l_return_status = OKC_API.G_RET_STS_SUCCESS Then
4964: x_msg_count => x_msg_count,
4965: x_msg_data => x_msg_data
4966: );
4967:
4968: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: IRT Rule status :'|| l_return_status );
4969: --dbms_output.put_line('K COVD LINE CREATION :- IRT RULE STATUS ' || l_return_status);
4970: x_return_status := l_return_status;
4971:
4972: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
5012: x_msg_count => x_msg_count,
5013: x_msg_data => x_msg_data
5014: );
5015:
5016: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: QRE Rule status :'|| l_return_status );
5017: --dbms_output.put_line('K COVD LINE CREATION :- QRE RULE STATUS ' || l_return_status);
5018: x_return_status := l_return_status;
5019:
5020: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
5054: x_msg_count => x_msg_count,
5055: x_msg_data => x_msg_data
5056: );
5057:
5058: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: LRT Rule status :'|| l_return_status );
5059: --dbms_output.put_line('K COVD LINE CREATION :- LRT RULE STATUS ' || l_return_status);
5060: x_return_status := l_return_status;
5061:
5062: If l_return_status = OKC_API.G_RET_STS_SUCCESS Then
5188: p_pavv_tbl => l_pavv_tbl_in,
5189: x_pavv_tbl => l_pavv_tbl_out
5190: );
5191:
5192: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: create_price_att_value status :'|| l_return_status );
5193: --dbms_output.put_line('K COVD LINE CREATION :- PRICE ATTRIB STATUS ' || l_return_status);
5194:
5195: x_return_status := l_return_status;
5196:
5211: When Others Then
5212:
5213: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5214: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5215: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Covered_Line :: Error :'|| SQLCODE||':'|| SQLERRM);
5216:
5217:
5218: End Create_Covered_Line;
5219:
5281: ,x_msg_count => x_msg_count
5282: ,x_msg_data => x_msg_data
5283: );
5284:
5285: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Item :: create_item_instance status :'|| l_return_status );
5286: --dbms_output.put_line('create item instance status:- ' || l_return_status);
5287:
5288: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5289: RAISE G_EXCEPTION_HALT_VALIDATION;
5296: Null;
5297: When Others Then
5298: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5299: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5300: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Item :: Error :'|| SQLCODE||':'||SQLERRM );
5301: End create_item;
5302:
5303:
5304:
5394: BEGIN
5395:
5396: DBMS_TRANSACTION.SAVEPOINT('BEFORE_TRANSACTIONS');
5397:
5398: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Subscription line :'|| p_k_line_rec.srv_id );
5399: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Support Line :'|| p_K_support_rec.srv_id );
5400: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SB line :'|| p_k_line_rec.negotiated_amount );
5401: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SU line :'|| p_K_support_rec.negotiated_amount );
5402: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for Covered line :'|| p_K_support_rec.negotiated_amount );
5395:
5396: DBMS_TRANSACTION.SAVEPOINT('BEFORE_TRANSACTIONS');
5397:
5398: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Subscription line :'|| p_k_line_rec.srv_id );
5399: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Support Line :'|| p_K_support_rec.srv_id );
5400: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SB line :'|| p_k_line_rec.negotiated_amount );
5401: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SU line :'|| p_K_support_rec.negotiated_amount );
5402: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for Covered line :'|| p_K_support_rec.negotiated_amount );
5403:
5396: DBMS_TRANSACTION.SAVEPOINT('BEFORE_TRANSACTIONS');
5397:
5398: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Subscription line :'|| p_k_line_rec.srv_id );
5399: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Support Line :'|| p_K_support_rec.srv_id );
5400: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SB line :'|| p_k_line_rec.negotiated_amount );
5401: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SU line :'|| p_K_support_rec.negotiated_amount );
5402: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for Covered line :'|| p_K_support_rec.negotiated_amount );
5403:
5404: l_contract_header_id := p_contract_header_id;
5397:
5398: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Subscription line :'|| p_k_line_rec.srv_id );
5399: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Support Line :'|| p_K_support_rec.srv_id );
5400: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SB line :'|| p_k_line_rec.negotiated_amount );
5401: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SU line :'|| p_K_support_rec.negotiated_amount );
5402: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for Covered line :'|| p_K_support_rec.negotiated_amount );
5403:
5404: l_contract_header_id := p_contract_header_id;
5405:
5398: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Subscription line :'|| p_k_line_rec.srv_id );
5399: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: SRV Id for Support Line :'|| p_K_support_rec.srv_id );
5400: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SB line :'|| p_k_line_rec.negotiated_amount );
5401: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for SU line :'|| p_K_support_rec.negotiated_amount );
5402: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Negotiated amount for Covered line :'|| p_K_support_rec.negotiated_amount );
5403:
5404: l_contract_header_id := p_contract_header_id;
5405:
5406: -- calling create item procedure to create CP
5439: p_txn_rec.source_transaction_date := SYSDATE;
5440: p_txn_rec.transaction_date := SYSDATE;
5441:
5442:
5443: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: ord Id for Item :'|| p_instance_rec.vld_organization_id );
5444: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Uom for Item :'|| p_instance_rec.unit_of_measure );
5445: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active Satrt date of Item:'|| p_instance_rec.active_start_date );
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5440: p_txn_rec.transaction_date := SYSDATE;
5441:
5442:
5443: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: ord Id for Item :'|| p_instance_rec.vld_organization_id );
5444: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Uom for Item :'|| p_instance_rec.unit_of_measure );
5445: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active Satrt date of Item:'|| p_instance_rec.active_start_date );
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5448: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Inventory Item Id :'|| p_instance_rec.inventory_item_id );
5441:
5442:
5443: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: ord Id for Item :'|| p_instance_rec.vld_organization_id );
5444: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Uom for Item :'|| p_instance_rec.unit_of_measure );
5445: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active Satrt date of Item:'|| p_instance_rec.active_start_date );
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5448: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Inventory Item Id :'|| p_instance_rec.inventory_item_id );
5449: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Po order line Id of Item:'|| p_instance_rec.po_order_line_Id );
5442:
5443: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: ord Id for Item :'|| p_instance_rec.vld_organization_id );
5444: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Uom for Item :'|| p_instance_rec.unit_of_measure );
5445: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active Satrt date of Item:'|| p_instance_rec.active_start_date );
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5448: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Inventory Item Id :'|| p_instance_rec.inventory_item_id );
5449: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Po order line Id of Item:'|| p_instance_rec.po_order_line_Id );
5450: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Location Id of Item :'|| p_instance_rec.location_Id );
5443: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: ord Id for Item :'|| p_instance_rec.vld_organization_id );
5444: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Uom for Item :'|| p_instance_rec.unit_of_measure );
5445: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active Satrt date of Item:'|| p_instance_rec.active_start_date );
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5448: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Inventory Item Id :'|| p_instance_rec.inventory_item_id );
5449: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Po order line Id of Item:'|| p_instance_rec.po_order_line_Id );
5450: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Location Id of Item :'|| p_instance_rec.location_Id );
5451:
5444: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Uom for Item :'|| p_instance_rec.unit_of_measure );
5445: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active Satrt date of Item:'|| p_instance_rec.active_start_date );
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5448: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Inventory Item Id :'|| p_instance_rec.inventory_item_id );
5449: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Po order line Id of Item:'|| p_instance_rec.po_order_line_Id );
5450: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Location Id of Item :'|| p_instance_rec.location_Id );
5451:
5452: /*
5445: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active Satrt date of Item:'|| p_instance_rec.active_start_date );
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5448: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Inventory Item Id :'|| p_instance_rec.inventory_item_id );
5449: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Po order line Id of Item:'|| p_instance_rec.po_order_line_Id );
5450: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Location Id of Item :'|| p_instance_rec.location_Id );
5451:
5452: /*
5453: Create_item
5446: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Active End Date of Item :'|| p_instance_rec.active_end_date );
5447: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Party account Id of Item :'|| p_account_tbl(1).party_account_id );
5448: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Inventory Item Id :'|| p_instance_rec.inventory_item_id );
5449: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Po order line Id of Item:'|| p_instance_rec.po_order_line_Id );
5450: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Location Id of Item :'|| p_instance_rec.location_Id );
5451:
5452: /*
5453: Create_item
5454: (
5464: ,x_msg_count => x_msg_count
5465: ,x_msg_data => x_msg_data
5466: );
5467:
5468: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: create_item status :'|| l_return_status );
5469: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Item Id :'||p_instance_rec.instance_id );
5470: --dbms_output.put_line('create item status:- ' || l_return_status);
5471: --dbms_output.put_line('create item status :: item id:- ' || p_instance_rec.instance_id);
5472:
5465: ,x_msg_data => x_msg_data
5466: );
5467:
5468: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: create_item status :'|| l_return_status );
5469: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Item Id :'||p_instance_rec.instance_id );
5470: --dbms_output.put_line('create item status:- ' || l_return_status);
5471: --dbms_output.put_line('create item status :: item id:- ' || p_instance_rec.instance_id);
5472:
5473: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5494: ,x_msg_count => x_msg_count
5495: ,x_msg_data => x_msg_data
5496: );
5497:
5498: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create SB Service Line status :'|| l_return_status );
5499: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Service line Id for SB Line :'|| l_sb_service_line_id );
5500: --dbms_output.put_line('K SUBSCRIPTION LINE CREATION STATUS:- ' || l_return_status);
5501:
5502: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5495: ,x_msg_data => x_msg_data
5496: );
5497:
5498: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create SB Service Line status :'|| l_return_status );
5499: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Service line Id for SB Line :'|| l_sb_service_line_id );
5500: --dbms_output.put_line('K SUBSCRIPTION LINE CREATION STATUS:- ' || l_return_status);
5501:
5502: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5503: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTIONS');
5515: x_msg_data => x_msg_data,
5516: p_cle_id => l_sb_service_line_id,
5517: p_intent => Null);
5518:
5519: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create default sch status :'|| l_return_status );
5520: --dbms_output.put_line('K SUBSCRIPTION LINE CREATION STATUS:- ' || l_return_status);
5521:
5522: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5523: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTIONS');
5545: ,x_msg_count => x_msg_count
5546: ,x_msg_data => x_msg_data
5547: );
5548:
5549: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create SU Service Line status :'|| l_return_status);
5550: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Service line Id for Su Line :'|| l_su_service_line_id);
5551: --dbms_output.put_line('K CONTRACT SUPPORT SERVICE LINE CREATION STATUS:- ' || l_return_status);
5552:
5553: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5546: ,x_msg_data => x_msg_data
5547: );
5548:
5549: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create SU Service Line status :'|| l_return_status);
5550: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Service line Id for Su Line :'|| l_su_service_line_id);
5551: --dbms_output.put_line('K CONTRACT SUPPORT SERVICE LINE CREATION STATUS:- ' || l_return_status);
5552:
5553: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5554: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTIONS');
5597: ,x_msg_count => x_msg_count
5598: ,x_msg_data => x_msg_data
5599: );
5600:
5601: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Covered_Line for SU line status :'|| l_return_status );
5602: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Covered line id for support line :'|| l_cp_line_id );
5603: --dbms_output.put_line('K COVERED PRODUCT CREATION FOR SUPPORT SERVICE LINE STATUS:- ' || l_return_status);
5604:
5605: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5598: ,x_msg_data => x_msg_data
5599: );
5600:
5601: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Covered_Line for SU line status :'|| l_return_status );
5602: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Covered line id for support line :'|| l_cp_line_id );
5603: --dbms_output.put_line('K COVERED PRODUCT CREATION FOR SUPPORT SERVICE LINE STATUS:- ' || l_return_status);
5604:
5605: IF Not l_return_status = OKC_API.G_RET_STS_SUCCESS THEN
5606: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTIONS');
5620: , x_msg_data => x_msg_data
5621: , x_msg_count => x_msg_count
5622: );
5623:
5624: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Check_for_usage status :'|| x_return_status);
5625: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Number of Usage Lines :'|| l_counter_tbl.count );
5626: --dbms_output.put_line('CHECK FOR USAGE LINE STATUS:- ' || x_return_status||' ctr tbl'||l_counter_tbl.count);
5627:
5628: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5621: , x_msg_count => x_msg_count
5622: );
5623:
5624: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Check_for_usage status :'|| x_return_status);
5625: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Number of Usage Lines :'|| l_counter_tbl.count );
5626: --dbms_output.put_line('CHECK FOR USAGE LINE STATUS:- ' || x_return_status||' ctr tbl'||l_counter_tbl.count);
5627:
5628: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5629: RAISE G_EXCEPTION_HALT_VALIDATION;
5676: ,x_return_status => x_return_status
5677: ,x_msg_count => x_msg_count
5678: ,x_msg_data => x_msg_data
5679: );
5680: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Service_Line status :'|| x_return_status );
5681: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Service Line Id sor usage line :'|| l_u_service_line_id );
5682:
5683: --dbms_output.put_line('K CONTRACT USAGE LINE CREATION STATUS:- ' || x_return_status);
5684:
5677: ,x_msg_count => x_msg_count
5678: ,x_msg_data => x_msg_data
5679: );
5680: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Service_Line status :'|| x_return_status );
5681: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Service Line Id sor usage line :'|| l_u_service_line_id );
5682:
5683: --dbms_output.put_line('K CONTRACT USAGE LINE CREATION STATUS:- ' || x_return_status);
5684:
5685: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5748: ,x_return_status => x_return_status
5749: ,x_msg_count => x_msg_count
5750: ,x_msg_data => x_msg_data
5751: );
5752: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Covered_Line status :'|| x_return_status );
5753: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Line Id for usage covered line :'|| l_cp_line_id );
5754:
5755: --dbms_output.put_line('K COVERED PRODUCT CREATION FOR USAGE LINE STATUS:- ' || x_return_status);
5756:
5749: ,x_msg_count => x_msg_count
5750: ,x_msg_data => x_msg_data
5751: );
5752: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Covered_Line status :'|| x_return_status );
5753: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Line Id for usage covered line :'|| l_cp_line_id );
5754:
5755: --dbms_output.put_line('K COVERED PRODUCT CREATION FOR USAGE LINE STATUS:- ' || x_return_status);
5756:
5757: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5828: , X_msg_count => X_msg_count
5829: , X_Return_status => l_Return_status
5830: );
5831:
5832: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Billing_Schd for SB Line status :'|| l_return_status );
5833: --dbms_output.put_line('SUBSCRIPTION LINE BILL SCHEDULE STATUS:- ' || l_return_status);
5834:
5835: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5836: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTIONS');
5863: -- IF l_slh_rec.Object1_Id1 IS NULL THEN
5864: -- l_slh_rec.Object1_Id1 := '1';
5865: -- END IF;
5866:
5867: -- OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Object2_id1 :'|| l_slh_rec.Object2_Id1 );
5868: /*
5869: IF l_slh_rec.Object2_Id1 IS NULL THEN
5870: Create_timeval
5871: (
5873: x_time_val => l_time_val,
5874: x_return_status => l_return_status
5875: );
5876:
5877: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Create_timeval :'|| l_return_status );
5878: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Time val :'|| l_time_val );
5879: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Rule Information catagory :'|| l_slh_rec.Rule_Information_Category );
5880: --dbms_output.put_line('create time val '|| x_return_status);
5881:
5874: x_return_status => l_return_status
5875: );
5876:
5877: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Create_timeval :'|| l_return_status );
5878: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Time val :'|| l_time_val );
5879: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Rule Information catagory :'|| l_slh_rec.Rule_Information_Category );
5880: --dbms_output.put_line('create time val '|| x_return_status);
5881:
5882: IF l_return_status = 'S' THEN
5875: );
5876:
5877: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Create_timeval :'|| l_return_status );
5878: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Time val :'|| l_time_val );
5879: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription ::Rule Information catagory :'|| l_slh_rec.Rule_Information_Category );
5880: --dbms_output.put_line('create time val '|| x_return_status);
5881:
5882: IF l_return_status = 'S' THEN
5883: l_slh_rec.Object2_Id1 := l_time_val;
5897: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
5898: x_return_status => l_return_status
5899: );
5900:
5901: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Create_Bill_Sch_Rules for Support Line status :'|| l_return_status );
5902: --dbms_output.put_line('K BILL SCHEDULE FOR SERVICE LINE STATUS ' || l_return_status);
5903: */
5904: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5905: RAISE G_EXCEPTION_HALT_VALIDATION;
5919: Null;
5920: When Others Then
5921: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
5922: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
5923: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Subscription :: Error :'|| SQLCODE || SQLERRM);
5924:
5925: END Create_subscription;
5926:
5927:
5974: BEGIN
5975:
5976: DBMS_TRANSACTION.SAVEPOINT('BEFORE_TRANSACTION');
5977:
5978: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Style :'|| p_K_line_rec.line_type );
5979: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Support line style :'|| p_K_Support_rec.line_type );
5980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Usage type :'|| p_K_line_rec.usage_type );
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5975:
5976: DBMS_TRANSACTION.SAVEPOINT('BEFORE_TRANSACTION');
5977:
5978: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Style :'|| p_K_line_rec.line_type );
5979: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Support line style :'|| p_K_Support_rec.line_type );
5980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Usage type :'|| p_K_line_rec.usage_type );
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5976: DBMS_TRANSACTION.SAVEPOINT('BEFORE_TRANSACTION');
5977:
5978: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Style :'|| p_K_line_rec.line_type );
5979: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Support line style :'|| p_K_Support_rec.line_type );
5980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Usage type :'|| p_K_line_rec.usage_type );
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5977:
5978: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Style :'|| p_K_line_rec.line_type );
5979: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Support line style :'|| p_K_Support_rec.line_type );
5980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Usage type :'|| p_K_line_rec.usage_type );
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5985: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header End Date :'|| p_K_header_rec.end_date );
5978: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Style :'|| p_K_line_rec.line_type );
5979: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Support line style :'|| p_K_Support_rec.line_type );
5980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Usage type :'|| p_K_line_rec.usage_type );
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5985: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header End Date :'|| p_K_header_rec.end_date );
5986: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Customer Product Id :'|| p_K_covd_rec.customer_product_id );
5979: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Support line style :'|| p_K_Support_rec.line_type );
5980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Usage type :'|| p_K_line_rec.usage_type );
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5985: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header End Date :'|| p_K_header_rec.end_date );
5986: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Customer Product Id :'|| p_K_covd_rec.customer_product_id );
5987: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Product Description :'|| p_K_covd_rec.product_desc );
5980: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Usage type :'|| p_K_line_rec.usage_type );
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5985: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header End Date :'|| p_K_header_rec.end_date );
5986: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Customer Product Id :'|| p_K_covd_rec.customer_product_id );
5987: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Product Description :'|| p_K_covd_rec.product_desc );
5988:
5981: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Renewal type :'|| p_K_header_rec.renewal_type );
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5985: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header End Date :'|| p_K_header_rec.end_date );
5986: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Customer Product Id :'|| p_K_covd_rec.customer_product_id );
5987: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Product Description :'|| p_K_covd_rec.product_desc );
5988:
5989:
5982: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Line Renewal type :'|| p_K_line_rec.line_renewal_type );
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5985: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header End Date :'|| p_K_header_rec.end_date );
5986: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Customer Product Id :'|| p_K_covd_rec.customer_product_id );
5987: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Product Description :'|| p_K_covd_rec.product_desc );
5988:
5989:
5990: Create_Contract_Header
5983: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Coverage Renewal type :'|| p_K_covd_rec.line_renewal_type );
5984: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header Start Date :'|| p_K_header_rec.start_date );
5985: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Header End Date :'|| p_K_header_rec.end_date );
5986: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Customer Product Id :'|| p_K_covd_rec.customer_product_id );
5987: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Product Description :'|| p_K_covd_rec.product_desc );
5988:
5989:
5990: Create_Contract_Header
5991: (
5998: x_msg_count => x_msg_count,
5999: x_msg_data => x_msg_data
6000: );
6001:
6002: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Create_Contract_Header status :'|| l_return_status );
6003: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Contract Header Id :'|| to_char(l_contract_header_id) );
6004: --dbms_output.put_line('K CONTRACT HEADER CREATION STATUS:- ' || l_return_status);
6005:
6006: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
5999: x_msg_data => x_msg_data
6000: );
6001:
6002: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Create_Contract_Header status :'|| l_return_status );
6003: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Contract Header Id :'|| to_char(l_contract_header_id) );
6004: --dbms_output.put_line('K CONTRACT HEADER CREATION STATUS:- ' || l_return_status);
6005:
6006: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6007: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
6033: ,x_msg_count => x_msg_count
6034: ,x_msg_data => x_msg_data
6035: );
6036:
6037: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Create_Subscription status :'|| l_return_status);
6038: --dbms_output.put_line('CREATE SUBSCRIPTION STATUS:- ' || l_return_status);
6039:
6040: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6041: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
6062: x_return_status => l_return_status,
6063: x_msg_count => x_msg_count,
6064: x_msg_data => x_msg_data
6065: );
6066: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Create_Service_Line status :'|| l_return_status );
6067: --dbms_output.put_line('K CONTRACT SERVICE LINE CREATION STATUS:- ' || l_return_status);
6068: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6069: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
6070: RAISE G_EXCEPTION_HALT_VALIDATION;
6084: x_msg_count => x_msg_count,
6085: x_msg_data => x_msg_data
6086: );
6087:
6088: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Create_Covered_Line status :'|| l_return_status );
6089: --dbms_output.put_line('K COVERED PRODUCT LINE CREATION STATUS:- ' || l_return_status);
6090:
6091: IF (x_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6092: DBMS_TRANSACTION.ROLLBACK_SAVEPOINT('BEFORE_TRANSACTION');
6131: x_bil_sch_out_tbl => l_bil_sch_out_tbl,
6132: x_return_status => l_return_status
6133: );
6134:
6135: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Create_Bill_Sch_Rules status :'|| l_return_status );
6136: --dbms_output.put_line('K BILL SCHEDULE STATUS:- ' || l_return_status);
6137:
6138: IF (l_return_status <> OKC_API.G_RET_STS_SUCCESS) THEN
6139:
6153: Where id = l_contract_header_id ;
6154:
6155: x_chrid := l_contract_header_id;
6156: --dbms_output.put_line('Contract header Id:- ' || TO_CHAR(l_contract_header_id));
6157: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Contract header Id :'|| TO_CHAR(l_contract_header_id) );
6158:
6159: Exception
6160: When G_EXCEPTION_HALT_VALIDATION Then
6161: x_return_status := l_return_status;
6162: Null;
6163: When Others Then
6164: x_return_status := OKC_API.G_RET_STS_UNEXP_ERROR;
6165: OKC_API.set_message(G_APP_NAME, G_UNEXPECTED_ERROR,G_SQLCODE_TOKEN,SQLCODE,G_SQLERRM_TOKEN,SQLERRM);
6166: OKS_RENEW_PVT.DEBUG_LOG( '(OKS_CONTRACTS_PUB).Create_Contract :: Error :'|| SQLCODE || ':'|| SQLERRM );
6167: END Create_Contract;
6168:
6169: /* dummy overloaded procedure for OKL*/
6170: