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