163: l_list_price number :=0;
164:
165: l_cle_id number;
166:
167: l_chr_rec okc_contract_pub.chrv_rec_type;
168: x_chr_rec okc_contract_pub.chrv_rec_type;
169: l_cle_tbl okc_contract_pub.clev_tbl_type;
170: x_cle_tbl okc_contract_pub.clev_tbl_type;
171:
164:
165: l_cle_id number;
166:
167: l_chr_rec okc_contract_pub.chrv_rec_type;
168: x_chr_rec okc_contract_pub.chrv_rec_type;
169: l_cle_tbl okc_contract_pub.clev_tbl_type;
170: x_cle_tbl okc_contract_pub.clev_tbl_type;
171:
172: l_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
165: l_cle_id number;
166:
167: l_chr_rec okc_contract_pub.chrv_rec_type;
168: x_chr_rec okc_contract_pub.chrv_rec_type;
169: l_cle_tbl okc_contract_pub.clev_tbl_type;
170: x_cle_tbl okc_contract_pub.clev_tbl_type;
171:
172: l_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
173: l_req_line_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
166:
167: l_chr_rec okc_contract_pub.chrv_rec_type;
168: x_chr_rec okc_contract_pub.chrv_rec_type;
169: l_cle_tbl okc_contract_pub.clev_tbl_type;
170: x_cle_tbl okc_contract_pub.clev_tbl_type;
171:
172: l_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
173: l_req_line_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
174: l_req_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
522:
523: IF (l_debug = 'Y') THEN
524: my_debug('1350 : Before calling update contract header', 1);
525: END IF;
526: okc_contract_pub.update_contract_header (
527: p_api_version => 1,
528: p_init_msg_list => OKC_API.G_FALSE,
529: x_return_status => l_return_status,
530: x_msg_count => x_msg_count,
554: IF (l_debug = 'Y') THEN
555: my_debug('1365 : before calling update contract line, count :'||l_cle_tbl.count, 1);
556: END IF;
557:
558: okc_contract_pub.update_contract_line (
559: p_api_version => 1,
560: p_init_msg_list => OKC_API.G_FALSE,
561: x_return_status => l_return_status,
562: x_msg_count => x_msg_count,
972:
973: l_cle_id number;
974: l_rowlevel number :=0;
975: l_p_found boolean :=false;
976: l_chr_rec okc_contract_pub.chrv_rec_type;
977: x_chr_rec okc_contract_pub.chrv_rec_type;
978: l_cle_tbl okc_contract_pub.clev_tbl_type;
979: x_cle_tbl okc_contract_pub.clev_tbl_type;
980:
973: l_cle_id number;
974: l_rowlevel number :=0;
975: l_p_found boolean :=false;
976: l_chr_rec okc_contract_pub.chrv_rec_type;
977: x_chr_rec okc_contract_pub.chrv_rec_type;
978: l_cle_tbl okc_contract_pub.clev_tbl_type;
979: x_cle_tbl okc_contract_pub.clev_tbl_type;
980:
981: l_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
974: l_rowlevel number :=0;
975: l_p_found boolean :=false;
976: l_chr_rec okc_contract_pub.chrv_rec_type;
977: x_chr_rec okc_contract_pub.chrv_rec_type;
978: l_cle_tbl okc_contract_pub.clev_tbl_type;
979: x_cle_tbl okc_contract_pub.clev_tbl_type;
980:
981: l_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
982: l_req_line_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
975: l_p_found boolean :=false;
976: l_chr_rec okc_contract_pub.chrv_rec_type;
977: x_chr_rec okc_contract_pub.chrv_rec_type;
978: l_cle_tbl okc_contract_pub.clev_tbl_type;
979: x_cle_tbl okc_contract_pub.clev_tbl_type;
980:
981: l_req_line_tbl QP_PREQ_GRP.LINE_TBL_TYPE;
982: l_req_line_qual_tbl QP_PREQ_GRP.QUAL_TBL_TYPE;
983: l_req_line_attr_tbl QP_PREQ_GRP.LINE_ATTR_TBL_TYPE;
1305: If px_control_rec.p_level = 'H' then
1306: IF (l_debug = 'Y') THEN
1307: my_debug('2400 : Before calling update contract line', 1);
1308: END IF;
1309: okc_contract_pub.update_contract_line (
1310: p_api_version => 1,
1311: p_init_msg_list => OKC_API.G_FALSE,
1312: x_return_status => l_return_status,
1313: x_msg_count => x_msg_count,
1326: END IF;
1327: IF (l_debug = 'Y') THEN
1328: my_debug('2420 : Before calling update contract header', 1);
1329: END IF;
1330: okc_contract_pub.update_contract_header (
1331: p_api_version => 1,
1332: p_init_msg_list => OKC_API.G_FALSE,
1333: x_return_status => l_return_status,
1334: x_msg_count => x_msg_count,
5629: END IF;
5630:
5631: If l_line_rec.line_num is null then
5632: -- get the concatenated line number to show in error message
5633: l_line_rec.line_num := OKC_CONTRACT_PUB.Get_concat_line_no(
5634: p_cle_id => l_line_rec.id ,
5635: x_return_status => l_return_status
5636: );
5637: If l_return_status <> okc_api.g_ret_sts_success Then
5765: --commenting out to support negative pricing
5766: /* ELSIF ( p_req_line_tbl(i).unit_price < 0 or p_req_line_tbl(i).Adjusted_unit_price < 0) then --#2
5767: IF l_line_rec.line_num is null then
5768: -- get the concatenated line number to show in error message
5769: l_line_rec.line_num := OKC_CONTRACT_PUB.Get_concat_line_no(
5770: p_cle_id => l_line_rec.id ,
5771: x_return_status => l_return_status
5772: );
5773: If l_return_status <> okc_api.g_ret_sts_success Then
5805: -- while QP_PREQ_PUB.G_BACK_CALCULATION_STS has value 'BACK_CALCULATION_ERROR'
5806: nvl(p_req_line_tbl(i).processed_code,'0') = 'BACK CALCULATION ERROR' then
5807: IF l_line_rec.line_num is null then
5808: -- get the concatenated line number to show in error message
5809: l_line_rec.line_num := OKC_CONTRACT_PUB.Get_concat_line_no(
5810: p_cle_id => l_line_rec.id ,
5811: x_return_status => l_return_status
5812: );
5813: If l_return_status <> okc_api.g_ret_sts_success Then