138: )
139: IS
140: l_api_name CONSTANT VARCHAR2(30) := 'getContracts';
141: l_api_version CONSTANT NUMBER := 1.0;
142: l_inp_rec oks_entitlements_pub.input_rec_ib;
143: l_output_contracts oks_entitlements_pub.output_tbl_ib;
144: l_index number;
145: l_flag VARCHAR2(2);
146: l_debug_level NUMBER;
139: IS
140: l_api_name CONSTANT VARCHAR2(30) := 'getContracts';
141: l_api_version CONSTANT NUMBER := 1.0;
142: l_inp_rec oks_entitlements_pub.input_rec_ib;
143: l_output_contracts oks_entitlements_pub.output_tbl_ib;
144: l_index number;
145: l_flag VARCHAR2(2);
146: l_debug_level NUMBER;
147:
162:
163: -- If the debug level = 2 then dump all the parameters values.
164: IF (l_debug_level > 1) THEN
165: csi_gen_utility_pvt.put_line( 'getContracts');
166: csi_gen_utility_pvt.put_line('Dumping the values passed to OKS_ENTITLEMENTS_PUB.GET_CONTRACTS:');
167: csi_gen_utility_pvt.put_line('Instance_id :'||l_inp_rec.product_id);
168: csi_gen_utility_pvt.put_line('validate_flag :'||l_inp_rec.validate_flag);
169: csi_gen_utility_pvt.put_line('calc_resptime_flag :'||l_inp_rec.calc_resptime_flag);
170: END IF;
168: csi_gen_utility_pvt.put_line('validate_flag :'||l_inp_rec.validate_flag);
169: csi_gen_utility_pvt.put_line('calc_resptime_flag :'||l_inp_rec.calc_resptime_flag);
170: END IF;
171:
172: OKS_ENTITLEMENTS_PUB.GET_CONTRACTS( p_api_version => 1.0,
173: p_init_msg_list => 'T',
174: p_inp_rec => l_inp_rec,
175: x_return_status => x_return_status,
176: x_msg_count => x_msg_count,
549: l_count NUMBER := 0;
550: l_flag VARCHAR2(2);
551: l_rec_count NUMBER := 1;
552: l_return_status VARCHAR2(1);
553: l_ent_contracts OKS_ENTITLEMENTS_PUB.ent_cont_tbl;
554: l_inp_rec OKS_ENTITLEMENTS_PUB.inp_cont_rec;
555: l_debug_level NUMBER;
556:
557: l_Seq Number;
550: l_flag VARCHAR2(2);
551: l_rec_count NUMBER := 1;
552: l_return_status VARCHAR2(1);
553: l_ent_contracts OKS_ENTITLEMENTS_PUB.ent_cont_tbl;
554: l_inp_rec OKS_ENTITLEMENTS_PUB.inp_cont_rec;
555: l_debug_level NUMBER;
556:
557: l_Seq Number;
558: l_Creation_Date DATE ;
598: END IF;
599: CLOSE c_search_oks_temp;
600: --- End changes for bug 4736062
601:
602: OKS_ENTITLEMENTS_PUB.GET_CONTRACTS( p_api_version => 1.0,
603: p_init_msg_list => 'T',
604: p_inp_rec => l_inp_rec,
605: x_return_status => l_return_status,
606: x_msg_count => x_msg_count,
619: End IF;
620: */
621: -- If the debug level = 2 then dump all the output data.
622: IF (l_debug_level > 1) THEN
623: csi_gen_utility_pvt.put_line('OKS_ENTITLEMENTS_PUB.GET_CONTRACTS() call succeeds:');
624: csi_gen_utility_pvt.put_line('Dumping the values gotten from OKS_ENTITLEMENTS_PUB.GET_CONTRACTS():');
625: csi_gen_utility_pvt.put_line('l_ent_contracts.count :'||l_ent_contracts.count);
626: END IF;
627:
620: */
621: -- If the debug level = 2 then dump all the output data.
622: IF (l_debug_level > 1) THEN
623: csi_gen_utility_pvt.put_line('OKS_ENTITLEMENTS_PUB.GET_CONTRACTS() call succeeds:');
624: csi_gen_utility_pvt.put_line('Dumping the values gotten from OKS_ENTITLEMENTS_PUB.GET_CONTRACTS():');
625: csi_gen_utility_pvt.put_line('l_ent_contracts.count :'||l_ent_contracts.count);
626: END IF;
627:
628: l_rec_count := l_ent_contracts.FIRST;
742: l_flag VARCHAR2(2);
743: l_rec_count NUMBER := 1;
744: l_row_count NUMBER;
745: l_return_status VARCHAR2(1);
746: l_ent_contracts OKS_ENTITLEMENTS_PUB.ent_cont_tbl;
747: l_inp_rec OKS_ENTITLEMENTS_PUB.inp_cont_rec;
748: l_debug_level NUMBER;
749: l_instance_table_name VARCHAR2(200);
750: BEGIN
743: l_rec_count NUMBER := 1;
744: l_row_count NUMBER;
745: l_return_status VARCHAR2(1);
746: l_ent_contracts OKS_ENTITLEMENTS_PUB.ent_cont_tbl;
747: l_inp_rec OKS_ENTITLEMENTS_PUB.inp_cont_rec;
748: l_debug_level NUMBER;
749: l_instance_table_name VARCHAR2(200);
750: BEGIN
751: fnd_profile.get('CSI_IB_SHOW_ALL_CONTRACTS', l_flag );
773:
774: -- If the debug level = 2 then dump all the parameters values.
775: IF (l_debug_level > 1) THEN
776: csi_gen_utility_pvt.put_line( 'Get_Contract_Where_Clause');
777: csi_gen_utility_pvt.put_line('Dumping the values passed to OKS_ENTITLEMENTS_PUB.GET_CONTRACTS():');
778: csi_gen_utility_pvt.put_line('contract_number :'||l_inp_rec.contract_number);
779: csi_gen_utility_pvt.put_line('request_date :'||l_inp_rec.request_date);
780: csi_gen_utility_pvt.put_line('validate_flag :'||l_inp_rec.validate_flag);
781: END IF;
780: csi_gen_utility_pvt.put_line('validate_flag :'||l_inp_rec.validate_flag);
781: END IF;
782:
783:
784: OKS_ENTITLEMENTS_PUB.GET_CONTRACTS( p_api_version => 1.0,
785: p_init_msg_list => 'T',
786: p_inp_rec => l_inp_rec,
787: x_return_status => l_return_status,
788: x_msg_count => x_msg_count,
808: -- fnd_message.debug('l_rec_count = '||to_char(l_rec_count));
809:
810: -- If the debug level = 2 then dump all the output data.
811: IF (l_debug_level > 1) THEN
812: csi_gen_utility_pvt.put_line('OKS_ENTITLEMENTS_PUB.GET_CONTRACTS() call succeeds:');
813: csi_gen_utility_pvt.put_line('Dumping the values gotten from OKS_ENTITLEMENTS_PUB.GET_CONTRACTS():');
814: csi_gen_utility_pvt.put_line('l_ent_contracts.count :'||l_ent_contracts.count);
815: END IF;
816:
809:
810: -- If the debug level = 2 then dump all the output data.
811: IF (l_debug_level > 1) THEN
812: csi_gen_utility_pvt.put_line('OKS_ENTITLEMENTS_PUB.GET_CONTRACTS() call succeeds:');
813: csi_gen_utility_pvt.put_line('Dumping the values gotten from OKS_ENTITLEMENTS_PUB.GET_CONTRACTS():');
814: csi_gen_utility_pvt.put_line('l_ent_contracts.count :'||l_ent_contracts.count);
815: END IF;
816:
817: l_row_count := 1;