96: l_target_date := to_date(l_attr_value_table(1).attr_value,l_date_format);
97: exception
98: when others then
99: l_target_date := null;
100: fnd_message.set_name('PV', 'PV_INVALID_DATE_MSG');
101: fnd_message.set_token('ATTRID', l_attribute_id);
102: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
103: l_nth_err_val := l_nth_err_val + 1;
104: end;
97: exception
98: when others then
99: l_target_date := null;
100: fnd_message.set_name('PV', 'PV_INVALID_DATE_MSG');
101: fnd_message.set_token('ATTRID', l_attribute_id);
102: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
103: l_nth_err_val := l_nth_err_val + 1;
104: end;
105: if l_target_date is not null then
98: when others then
99: l_target_date := null;
100: fnd_message.set_name('PV', 'PV_INVALID_DATE_MSG');
101: fnd_message.set_token('ATTRID', l_attribute_id);
102: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
103: l_nth_err_val := l_nth_err_val + 1;
104: end;
105: if l_target_date is not null then
106: out_table (l_nth_out_val).attribute_id := l_attribute_id;
115: l_target_number := to_number(l_attr_value_table(1).attr_value);
116: exception
117: when others then
118: l_target_number := null;
119: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
120: fnd_message.set_token('ATTRID', l_attribute_id);
121: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
122: l_nth_err_val := l_nth_err_val + 1;
123: end;
116: exception
117: when others then
118: l_target_number := null;
119: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
120: fnd_message.set_token('ATTRID', l_attribute_id);
121: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
122: l_nth_err_val := l_nth_err_val + 1;
123: end;
124: if l_target_number is not null then
117: when others then
118: l_target_number := null;
119: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
120: fnd_message.set_token('ATTRID', l_attribute_id);
121: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
122: l_nth_err_val := l_nth_err_val + 1;
123: end;
124: if l_target_number is not null then
125: out_table (l_nth_out_val).attribute_id := l_attribute_id;
129: end if;
130:
131: if (l_display_style = 'SINGLE' or l_display_style = 'RADIO' ) then
132: if (l_attr_val_count > 1) then
133: fnd_message.set_name('PV', 'PV_ONE_VAL_MSG');
134: fnd_message.set_token('ATTRID', l_attribute_id);
135: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
136: l_nth_err_val := l_nth_err_val + 1;
137: else
130:
131: if (l_display_style = 'SINGLE' or l_display_style = 'RADIO' ) then
132: if (l_attr_val_count > 1) then
133: fnd_message.set_name('PV', 'PV_ONE_VAL_MSG');
134: fnd_message.set_token('ATTRID', l_attribute_id);
135: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
136: l_nth_err_val := l_nth_err_val + 1;
137: else
138: l_code_ret_flag := validate_codes(l_attribute_id,l_attr_value_table(1).attr_value);
131: if (l_display_style = 'SINGLE' or l_display_style = 'RADIO' ) then
132: if (l_attr_val_count > 1) then
133: fnd_message.set_name('PV', 'PV_ONE_VAL_MSG');
134: fnd_message.set_token('ATTRID', l_attribute_id);
135: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
136: l_nth_err_val := l_nth_err_val + 1;
137: else
138: l_code_ret_flag := validate_codes(l_attribute_id,l_attr_value_table(1).attr_value);
139: if l_code_ret_flag = true then
140: out_table (l_nth_out_val).attribute_id := l_attribute_id;
141: out_table (l_nth_out_val).attr_values_tbl := l_attr_value_table;
142: l_nth_out_val := l_nth_out_val + 1;
143: else
144: fnd_message.set_name('PV', 'PV_SINGLE_INVALID_VAL_MSG');
145: fnd_message.set_token('ATTRID', l_attribute_id);
146: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
147: l_nth_err_val := l_nth_err_val + 1;
148: end if;
141: out_table (l_nth_out_val).attr_values_tbl := l_attr_value_table;
142: l_nth_out_val := l_nth_out_val + 1;
143: else
144: fnd_message.set_name('PV', 'PV_SINGLE_INVALID_VAL_MSG');
145: fnd_message.set_token('ATTRID', l_attribute_id);
146: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
147: l_nth_err_val := l_nth_err_val + 1;
148: end if;
149: end if;
142: l_nth_out_val := l_nth_out_val + 1;
143: else
144: fnd_message.set_name('PV', 'PV_SINGLE_INVALID_VAL_MSG');
145: fnd_message.set_token('ATTRID', l_attribute_id);
146: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
147: l_nth_err_val := l_nth_err_val + 1;
148: end if;
149: end if;
150: end if;
168: out_table (l_nth_out_val).attribute_id := l_attribute_id;
169: out_table (l_nth_out_val).attr_values_tbl := l_attr_value_table;
170: l_nth_out_val := l_nth_out_val + 1;
171: else
172: fnd_message.set_name('PV', 'PV_MULTI_INVALID_VAL_MSG');
173: fnd_message.set_token('ATTRID', l_attribute_id);
174: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
175: l_nth_err_val := l_nth_err_val + 1;
176: end if;
169: out_table (l_nth_out_val).attr_values_tbl := l_attr_value_table;
170: l_nth_out_val := l_nth_out_val + 1;
171: else
172: fnd_message.set_name('PV', 'PV_MULTI_INVALID_VAL_MSG');
173: fnd_message.set_token('ATTRID', l_attribute_id);
174: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
175: l_nth_err_val := l_nth_err_val + 1;
176: end if;
177: end if;
170: l_nth_out_val := l_nth_out_val + 1;
171: else
172: fnd_message.set_name('PV', 'PV_MULTI_INVALID_VAL_MSG');
173: fnd_message.set_token('ATTRID', l_attribute_id);
174: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
175: l_nth_err_val := l_nth_err_val + 1;
176: end if;
177: end if;
178:
201: l_out_val_table(l_nth_out_attr_val).attr_value_extn := l_attr_val_ext;
202: l_nth_out_attr_val := l_nth_out_attr_val + 1;
203: exception
204: when others then
205: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
206: fnd_message.set_token('ATTRID', l_attribute_id);
207: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
208: l_nth_err_val := l_nth_err_val + 1;
209: end;
202: l_nth_out_attr_val := l_nth_out_attr_val + 1;
203: exception
204: when others then
205: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
206: fnd_message.set_token('ATTRID', l_attribute_id);
207: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
208: l_nth_err_val := l_nth_err_val + 1;
209: end;
210: end if;
203: exception
204: when others then
205: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
206: fnd_message.set_token('ATTRID', l_attribute_id);
207: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
208: l_nth_err_val := l_nth_err_val + 1;
209: end;
210: end if;
211: end if;
213: l_v2_row := l_attr_value_table.next(l_v2_row);
214: end loop;
215: if l_temp_flag = 1 then
216: if l_target_number > 100 then
217: fnd_message.set_name('PV', 'PV_VAL_EXCDS_100_MSG');
218: fnd_message.set_token('ATTRID', l_attribute_id);
219: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
220: l_nth_err_val := l_nth_err_val + 1;
221: else
214: end loop;
215: if l_temp_flag = 1 then
216: if l_target_number > 100 then
217: fnd_message.set_name('PV', 'PV_VAL_EXCDS_100_MSG');
218: fnd_message.set_token('ATTRID', l_attribute_id);
219: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
220: l_nth_err_val := l_nth_err_val + 1;
221: else
222: if l_out_val_table.count > 0 then
215: if l_temp_flag = 1 then
216: if l_target_number > 100 then
217: fnd_message.set_name('PV', 'PV_VAL_EXCDS_100_MSG');
218: fnd_message.set_token('ATTRID', l_attribute_id);
219: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
220: l_nth_err_val := l_nth_err_val + 1;
221: else
222: if l_out_val_table.count > 0 then
223: out_table (l_nth_out_val).attribute_id := l_attribute_id;
225: l_nth_out_val := l_nth_out_val + 1;
226: end if;
227: end if;
228: else
229: fnd_message.set_name('PV', 'PV_MULTI_INVALID_VAL_MSG');
230: fnd_message.set_token('ATTRID', l_attribute_id);
231: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
232: l_nth_err_val := l_nth_err_val + 1;
233: end if;
226: end if;
227: end if;
228: else
229: fnd_message.set_name('PV', 'PV_MULTI_INVALID_VAL_MSG');
230: fnd_message.set_token('ATTRID', l_attribute_id);
231: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
232: l_nth_err_val := l_nth_err_val + 1;
233: end if;
234: end if;
227: end if;
228: else
229: fnd_message.set_name('PV', 'PV_MULTI_INVALID_VAL_MSG');
230: fnd_message.set_token('ATTRID', l_attribute_id);
231: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
232: l_nth_err_val := l_nth_err_val + 1;
233: end if;
234: end if;
235:
235:
236: if l_display_style = 'STRING' then
237: l_str_length := length(l_attr_value_table(1).attr_value);
238: if l_char_width is not null and l_str_length > l_char_width then
239: fnd_message.set_name('PV', 'PV_LONG_STR_MSG');
240: fnd_message.set_token('ATTRID', l_attribute_id);
241: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
242: l_nth_err_val := l_nth_err_val + 1;
243: else
236: if l_display_style = 'STRING' then
237: l_str_length := length(l_attr_value_table(1).attr_value);
238: if l_char_width is not null and l_str_length > l_char_width then
239: fnd_message.set_name('PV', 'PV_LONG_STR_MSG');
240: fnd_message.set_token('ATTRID', l_attribute_id);
241: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
242: l_nth_err_val := l_nth_err_val + 1;
243: else
244: out_table (l_nth_out_val).attribute_id := l_attribute_id;
237: l_str_length := length(l_attr_value_table(1).attr_value);
238: if l_char_width is not null and l_str_length > l_char_width then
239: fnd_message.set_name('PV', 'PV_LONG_STR_MSG');
240: fnd_message.set_token('ATTRID', l_attribute_id);
241: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
242: l_nth_err_val := l_nth_err_val + 1;
243: else
244: out_table (l_nth_out_val).attribute_id := l_attribute_id;
245: out_table (l_nth_out_val).attr_values_tbl := l_attr_value_table;
258: l_target_number := to_number(l_attr_value_table(1).attr_value,l_no_format);
259: exception
260: when others then
261: l_target_number := null;
262: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
263: fnd_message.set_token('ATTRID', l_attribute_id);
264: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
265: l_nth_err_val := l_nth_err_val + 1;
266: end;
259: exception
260: when others then
261: l_target_number := null;
262: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
263: fnd_message.set_token('ATTRID', l_attribute_id);
264: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
265: l_nth_err_val := l_nth_err_val + 1;
266: end;
267: if l_target_number is not null then
260: when others then
261: l_target_number := null;
262: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
263: fnd_message.set_token('ATTRID', l_attribute_id);
264: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
265: l_nth_err_val := l_nth_err_val + 1;
266: end;
267: if l_target_number is not null then
268: out_table (l_nth_out_val).attribute_id := l_attribute_id;
274: l_target_number := to_number(l_attr_value_table(1).attr_value);
275: exception
276: when others then
277: l_target_number := null;
278: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
279: fnd_message.set_token('ATTRID', l_attribute_id);
280: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
281: l_nth_err_val := l_nth_err_val + 1;
282: end;
275: exception
276: when others then
277: l_target_number := null;
278: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
279: fnd_message.set_token('ATTRID', l_attribute_id);
280: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
281: l_nth_err_val := l_nth_err_val + 1;
282: end;
283: if l_target_number is not null then
276: when others then
277: l_target_number := null;
278: fnd_message.set_name('PV', 'PV_ONLY_NUM_MSG');
279: fnd_message.set_token('ATTRID', l_attribute_id);
280: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
281: l_nth_err_val := l_nth_err_val + 1;
282: end;
283: if l_target_number is not null then
284: out_table (l_nth_out_val).attribute_id := l_attribute_id;
292: end loop;
293:
294: exception
295: when others then
296: fnd_message.set_name('PV', 'PV_VALIDATE_GEN_ERROR');
297: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
298: l_nth_err_val := l_nth_err_val + 1;
299: end;
300:
293:
294: exception
295: when others then
296: fnd_message.set_name('PV', 'PV_VALIDATE_GEN_ERROR');
297: err_table (l_nth_err_val).error_desc := substrb(fnd_message.get, 1, 1000);
298: l_nth_err_val := l_nth_err_val + 1;
299: end;
300:
301:
540: l_party_id := p_party_id;
541: l_valid := 'N';
542: if (p_party_id is null AND p_orig_sys is null and p_orig_sys_ref is null and p_partner_id is null) then
543: --dbms_output.put_line('not sure how i got here ');
544: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
545: fnd_message.set_token( 'TYPE', p_type);
546: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
547: l_error_count := l_error_count +1;
548: x_exit_partner := 'TRUE';
541: l_valid := 'N';
542: if (p_party_id is null AND p_orig_sys is null and p_orig_sys_ref is null and p_partner_id is null) then
543: --dbms_output.put_line('not sure how i got here ');
544: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
545: fnd_message.set_token( 'TYPE', p_type);
546: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
547: l_error_count := l_error_count +1;
548: x_exit_partner := 'TRUE';
549: --dbms_output.put_line('Party information is required. Please provide this information to process further');
542: if (p_party_id is null AND p_orig_sys is null and p_orig_sys_ref is null and p_partner_id is null) then
543: --dbms_output.put_line('not sure how i got here ');
544: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
545: fnd_message.set_token( 'TYPE', p_type);
546: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
547: l_error_count := l_error_count +1;
548: x_exit_partner := 'TRUE';
549: --dbms_output.put_line('Party information is required. Please provide this information to process further');
550: elsif (p_party_id is not null and p_orig_sys_ref is not null) and (p_orig_sys is null) then
552: Open l_valid_POSR(p_party_id, p_orig_sys_ref);
553: fetch l_valid_POSR into l_valid;
554: close l_valid_POSR;
555: if not l_valid = 'Y' then
556: fnd_message.set_name('PV', 'PV_IMP_PARTY_REF');
557: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
558: l_error_count := l_error_count +1;
559: --dbms_output.put_line('Party Id passed does not match the reference passed. Please check your data ');
560: x_exit_partner := 'TRUE';
553: fetch l_valid_POSR into l_valid;
554: close l_valid_POSR;
555: if not l_valid = 'Y' then
556: fnd_message.set_name('PV', 'PV_IMP_PARTY_REF');
557: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
558: l_error_count := l_error_count +1;
559: --dbms_output.put_line('Party Id passed does not match the reference passed. Please check your data ');
560: x_exit_partner := 'TRUE';
561: end if;
561: end if;
562: elsif (p_party_id is null and p_orig_sys_ref is null and p_orig_sys is not null) then
563:
564: l_valid := 'N';
565: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
566: fnd_message.set_token( 'TYPE', p_type);
567: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
568: l_error_count := l_error_count +1;
569: x_exit_partner := 'TRUE';
562: elsif (p_party_id is null and p_orig_sys_ref is null and p_orig_sys is not null) then
563:
564: l_valid := 'N';
565: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
566: fnd_message.set_token( 'TYPE', p_type);
567: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
568: l_error_count := l_error_count +1;
569: x_exit_partner := 'TRUE';
570: /* dbms_output.put_line('Party identification information is required. Please provide either
563:
564: l_valid := 'N';
565: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
566: fnd_message.set_token( 'TYPE', p_type);
567: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
568: l_error_count := l_error_count +1;
569: x_exit_partner := 'TRUE';
570: /* dbms_output.put_line('Party identification information is required. Please provide either
571: 1. Party Id (OR)
576: Open l_valid_OSR(p_orig_sys, p_orig_sys_ref);
577: fetch l_valid_OSR into l_valid,l_party_id;
578: close l_valid_OSR;
579: if not l_valid = 'Y' then
580: fnd_message.set_name('PV', 'PV_IMP_CUST_NOT_FOUND');
581: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
582: l_error_count := l_error_count +1;
583: -- dbms_output.put_line('Party not found as a Customer. Please ensure that it is present in the TCA table');
584: x_exit_partner := 'TRUE';
577: fetch l_valid_OSR into l_valid,l_party_id;
578: close l_valid_OSR;
579: if not l_valid = 'Y' then
580: fnd_message.set_name('PV', 'PV_IMP_CUST_NOT_FOUND');
581: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
582: l_error_count := l_error_count +1;
583: -- dbms_output.put_line('Party not found as a Customer. Please ensure that it is present in the TCA table');
584: x_exit_partner := 'TRUE';
585: end if;
588: Open l_valid_POSOSR(p_party_id,p_orig_sys,p_orig_sys_ref);
589: fetch l_valid_POSOSR into l_valid;
590: close l_valid_POSOSR;
591: if not l_valid = 'Y' then
592: fnd_message.set_name('PV', 'PV_IMP_PARTY_OSR');
593: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
594: l_error_count := l_error_count +1;
595: -- dbms_output.put_line('Party Id and party references does not match. Please check your data ');
596: x_exit_partner := 'TRUE';
589: fetch l_valid_POSOSR into l_valid;
590: close l_valid_POSOSR;
591: if not l_valid = 'Y' then
592: fnd_message.set_name('PV', 'PV_IMP_PARTY_OSR');
593: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
594: l_error_count := l_error_count +1;
595: -- dbms_output.put_line('Party Id and party references does not match. Please check your data ');
596: x_exit_partner := 'TRUE';
597: end if;
600: Open l_valid_PartyId(p_party_id);
601: fetch l_valid_PartyId into l_valid;
602: close l_valid_PartyId;
603: if not l_valid = 'Y' then
604: fnd_message.set_name('PV', 'PV_IMP_CUST_NOT_FOUND');
605: fnd_message.set_token( 'PARTYNAME', p_partner_name);
606: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
607: l_error_count := l_error_count +1;
608: --dbms_output.put_line('Party not found as a Customer. Please ensure that it is present in the TCA table');
601: fetch l_valid_PartyId into l_valid;
602: close l_valid_PartyId;
603: if not l_valid = 'Y' then
604: fnd_message.set_name('PV', 'PV_IMP_CUST_NOT_FOUND');
605: fnd_message.set_token( 'PARTYNAME', p_partner_name);
606: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
607: l_error_count := l_error_count +1;
608: --dbms_output.put_line('Party not found as a Customer. Please ensure that it is present in the TCA table');
609: x_exit_partner := 'TRUE';
602: close l_valid_PartyId;
603: if not l_valid = 'Y' then
604: fnd_message.set_name('PV', 'PV_IMP_CUST_NOT_FOUND');
605: fnd_message.set_token( 'PARTYNAME', p_partner_name);
606: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
607: l_error_count := l_error_count +1;
608: --dbms_output.put_line('Party not found as a Customer. Please ensure that it is present in the TCA table');
609: x_exit_partner := 'TRUE';
610: end if;
616: fetch l_valid_PartnerParty into l_valid,l_party_id;
617: close l_valid_PartnerParty;
618: --dbms_output.put_line('valid partner ' || l_valid);
619: if not l_valid = 'Y' then
620: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
621: fnd_message.set_token( 'TYPE', p_type);
622: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
623: l_error_count := l_error_count +1;
624: /*dbms_output.put_line('Party identification information is required. Please provide either
617: close l_valid_PartnerParty;
618: --dbms_output.put_line('valid partner ' || l_valid);
619: if not l_valid = 'Y' then
620: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
621: fnd_message.set_token( 'TYPE', p_type);
622: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
623: l_error_count := l_error_count +1;
624: /*dbms_output.put_line('Party identification information is required. Please provide either
625: 1. Party Id (OR)
618: --dbms_output.put_line('valid partner ' || l_valid);
619: if not l_valid = 'Y' then
620: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
621: fnd_message.set_token( 'TYPE', p_type);
622: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
623: l_error_count := l_error_count +1;
624: /*dbms_output.put_line('Party identification information is required. Please provide either
625: 1. Party Id (OR)
626: 2. Original System and Original System Reference');
630: --dbms_output.put_line('found the party ' || l_party_id);
631:
632: else
633: --dbms_output.put_line('not sure how i got here ');
634: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
635: fnd_message.set_token( 'TYPE', p_type);
636: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
637: l_error_count := l_error_count +1;
638: x_exit_partner := 'TRUE';
631:
632: else
633: --dbms_output.put_line('not sure how i got here ');
634: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
635: fnd_message.set_token( 'TYPE', p_type);
636: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
637: l_error_count := l_error_count +1;
638: x_exit_partner := 'TRUE';
639: --dbms_output.put_line('Party information is required. Please provide this information to process further');
632: else
633: --dbms_output.put_line('not sure how i got here ');
634: fnd_message.set_name('PV', 'PV_IMP_PARTY_IDENT_REQ');
635: fnd_message.set_token( 'TYPE', p_type);
636: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
637: l_error_count := l_error_count +1;
638: x_exit_partner := 'TRUE';
639: --dbms_output.put_line('Party information is required. Please provide this information to process further');
640: end if;
645: open l_valid_partner_id(p_partner_id, l_party_id);
646: fetch l_valid_partner_id into l_valid;
647: close l_valid_partner_id;
648: if not l_valid = 'Y' then
649: fnd_message.set_name('PV', 'PV_IMP_INVALID_PTNR');
650: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
651: l_error_count := l_error_count +1;
652: --dbms_output.put_line('invalid partner passed');
653: x_exit_partner := 'TRUE';
646: fetch l_valid_partner_id into l_valid;
647: close l_valid_partner_id;
648: if not l_valid = 'Y' then
649: fnd_message.set_name('PV', 'PV_IMP_INVALID_PTNR');
650: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
651: l_error_count := l_error_count +1;
652: --dbms_output.put_line('invalid partner passed');
653: x_exit_partner := 'TRUE';
654: end if;
834:
835: end loop;
836: --dbms_output.put_line('exit partner status ' || x_exit_partner);
837: if NOT l_has_partner_type = 'Y' then
838: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
839: fnd_message.set_token( 'PARAM', 'Partner Type');
840: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
841: l_error_count := l_error_count +1;
842: --dbms_output.put_line('Partner Type' || 'is missing ');
835: end loop;
836: --dbms_output.put_line('exit partner status ' || x_exit_partner);
837: if NOT l_has_partner_type = 'Y' then
838: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
839: fnd_message.set_token( 'PARAM', 'Partner Type');
840: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
841: l_error_count := l_error_count +1;
842: --dbms_output.put_line('Partner Type' || 'is missing ');
843: x_exit_partner := 'TRUE';
836: --dbms_output.put_line('exit partner status ' || x_exit_partner);
837: if NOT l_has_partner_type = 'Y' then
838: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
839: fnd_message.set_token( 'PARAM', 'Partner Type');
840: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
841: l_error_count := l_error_count +1;
842: --dbms_output.put_line('Partner Type' || 'is missing ');
843: x_exit_partner := 'TRUE';
844: end if;
843: x_exit_partner := 'TRUE';
844: end if;
845:
846: if NOT l_has_member_type = 'Y' then
847: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
848: fnd_message.set_token( 'PARAM', 'Member Type');
849: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
850: l_error_count := l_error_count +1;
851: --dbms_output.put_line('Member Type' || 'is missing ');
844: end if;
845:
846: if NOT l_has_member_type = 'Y' then
847: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
848: fnd_message.set_token( 'PARAM', 'Member Type');
849: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
850: l_error_count := l_error_count +1;
851: --dbms_output.put_line('Member Type' || 'is missing ');
852: x_exit_partner := 'TRUE';
845:
846: if NOT l_has_member_type = 'Y' then
847: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
848: fnd_message.set_token( 'PARAM', 'Member Type');
849: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
850: l_error_count := l_error_count +1;
851: --dbms_output.put_line('Member Type' || 'is missing ');
852: x_exit_partner := 'TRUE';
853: end if;
876: OPEN l_get_partner_id(l_gbl_party_id);
877: FETCH l_get_partner_id into l_gbl_partner_id;
878: close l_get_partner_id;
879: if l_gbl_partner_id is null then
880: fnd_message.set_name('PV', 'PV_IMP_GLBL_PARTY');
881: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
882: l_error_count := l_error_count +1;
883: --dbms_output.put_line('Global partner does not exist');
884: x_exit_partner := 'TRUE';
877: FETCH l_get_partner_id into l_gbl_partner_id;
878: close l_get_partner_id;
879: if l_gbl_partner_id is null then
880: fnd_message.set_name('PV', 'PV_IMP_GLBL_PARTY');
881: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
882: l_error_count := l_error_count +1;
883: --dbms_output.put_line('Global partner does not exist');
884: x_exit_partner := 'TRUE';
885: end if;
889: OPEN l_get_glbl_member_type(l_gbl_partner_id);
890: FETCH l_get_glbl_member_type into l_member_type;
891: CLOSE l_get_glbl_member_type;
892: if l_member_type <> 'GLOBAL' then
893: fnd_message.set_name('PV', 'PV_IMP_NOT_GLBL_PTNR');
894: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
895: l_error_count := l_error_count +1;
896: --dbms_output.put_line('Global partner exists but not of type Global');
897: x_exit_partner := 'TRUE';
890: FETCH l_get_glbl_member_type into l_member_type;
891: CLOSE l_get_glbl_member_type;
892: if l_member_type <> 'GLOBAL' then
893: fnd_message.set_name('PV', 'PV_IMP_NOT_GLBL_PTNR');
894: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
895: l_error_count := l_error_count +1;
896: --dbms_output.put_line('Global partner exists but not of type Global');
897: x_exit_partner := 'TRUE';
898: end if;
967: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
968: --dbms_output.put_line('Error Occured: ');
969: --dbms_output.put_line('Error: ' || l_msg_data);
970: FOR l_msg_index IN 1..l_msg_count LOOP
971: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
972: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
973: l_error_count := l_error_count +1;
974: --dbms_output.put_line('Error Details: ');
975: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
968: --dbms_output.put_line('Error Occured: ');
969: --dbms_output.put_line('Error: ' || l_msg_data);
970: FOR l_msg_index IN 1..l_msg_count LOOP
971: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
972: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
973: l_error_count := l_error_count +1;
974: --dbms_output.put_line('Error Details: ');
975: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
976:
971: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
972: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
973: l_error_count := l_error_count +1;
974: --dbms_output.put_line('Error Details: ');
975: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
976:
977: END LOOP;
978: x_exit_partner := 'TRUE';
979: END IF;
1043: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1044: --dbms_output.put_line('Error Occured: ');
1045: --dbms_output.put_line('Error: ' || l_msg_data);
1046: FOR l_msg_index IN 1..l_msg_count LOOP
1047: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1048: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1049: l_error_count := l_error_count +1;
1050: --dbms_output.put_line('Error Details: ');
1051: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1044: --dbms_output.put_line('Error Occured: ');
1045: --dbms_output.put_line('Error: ' || l_msg_data);
1046: FOR l_msg_index IN 1..l_msg_count LOOP
1047: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1048: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1049: l_error_count := l_error_count +1;
1050: --dbms_output.put_line('Error Details: ');
1051: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1052: END LOOP;
1047: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1048: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1049: l_error_count := l_error_count +1;
1050: --dbms_output.put_line('Error Details: ');
1051: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1052: END LOOP;
1053: x_exit_partner := 'TRUE';
1054: -- p_partner_details_rec.processed := 'N';
1055: END IF;
1138: end if;
1139: end loop;
1140:
1141: if l_has_member_type = 'Y' then
1142: fnd_message.set_name('PV', 'PV_IMP_UPD_MEM_TYP');
1143: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1144: l_error_count := l_error_count +1;
1145: x_exit_partner := 'TRUE';
1146: --dbms_output.put_line('updating member type is not allowed while importing');
1139: end loop;
1140:
1141: if l_has_member_type = 'Y' then
1142: fnd_message.set_name('PV', 'PV_IMP_UPD_MEM_TYP');
1143: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1144: l_error_count := l_error_count +1;
1145: x_exit_partner := 'TRUE';
1146: --dbms_output.put_line('updating member type is not allowed while importing');
1147: end if;
1154: --dbms_output.put_line('Current partner type ' || l_current_partner_type);
1155: --dbms_output.put_line('new partner type ' || l_new_partner_type);
1156: if l_current_partner_type = 'VAD' or l_new_partner_type = 'VAD' then
1157: if not (l_current_partner_type = 'VAD' AND l_new_partner_type = 'VAD') then
1158: fnd_message.set_name('PV', 'PV_IMP_UPD_PTNR_TYP');
1159: fnd_message.set_token( 'FROM', l_current_partner_type );
1160: fnd_message.set_token( 'TO', l_new_partner_type );
1161: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1162: l_error_count := l_error_count +1;
1155: --dbms_output.put_line('new partner type ' || l_new_partner_type);
1156: if l_current_partner_type = 'VAD' or l_new_partner_type = 'VAD' then
1157: if not (l_current_partner_type = 'VAD' AND l_new_partner_type = 'VAD') then
1158: fnd_message.set_name('PV', 'PV_IMP_UPD_PTNR_TYP');
1159: fnd_message.set_token( 'FROM', l_current_partner_type );
1160: fnd_message.set_token( 'TO', l_new_partner_type );
1161: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1162: l_error_count := l_error_count +1;
1163: x_exit_partner := 'TRUE';
1156: if l_current_partner_type = 'VAD' or l_new_partner_type = 'VAD' then
1157: if not (l_current_partner_type = 'VAD' AND l_new_partner_type = 'VAD') then
1158: fnd_message.set_name('PV', 'PV_IMP_UPD_PTNR_TYP');
1159: fnd_message.set_token( 'FROM', l_current_partner_type );
1160: fnd_message.set_token( 'TO', l_new_partner_type );
1161: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1162: l_error_count := l_error_count +1;
1163: x_exit_partner := 'TRUE';
1164: --dbms_output.put_line('Cannot update partner type to VAD');
1157: if not (l_current_partner_type = 'VAD' AND l_new_partner_type = 'VAD') then
1158: fnd_message.set_name('PV', 'PV_IMP_UPD_PTNR_TYP');
1159: fnd_message.set_token( 'FROM', l_current_partner_type );
1160: fnd_message.set_token( 'TO', l_new_partner_type );
1161: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1162: l_error_count := l_error_count +1;
1163: x_exit_partner := 'TRUE';
1164: --dbms_output.put_line('Cannot update partner type to VAD');
1165: end if;
1251: FETCH c_prtnr_prfls INTO l_prtnr_prfls_rec;
1252: IF c_prtnr_prfls%NOTFOUND THEN
1253: CLOSE c_prtnr_prfls;
1254: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1255: FND_MESSAGE.set_name('PV', 'PV_NO_RECORD_FOUND');
1256: FND_MSG_PUB.add;
1257: END IF;
1258: RAISE FND_API.g_exc_error;
1259: END IF;
1549: );
1550:
1551: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1552: --FOR l_msg_index IN 1..l_msg_count LOOP
1553: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_count));
1554: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1555: l_error_count := l_error_count +1;
1556: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1557: -- END LOOP;
1550:
1551: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1552: --FOR l_msg_index IN 1..l_msg_count LOOP
1553: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_count));
1554: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1555: l_error_count := l_error_count +1;
1556: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1557: -- END LOOP;
1558: x_exit_partner := 'TRUE';
1552: --FOR l_msg_index IN 1..l_msg_count LOOP
1553: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_count));
1554: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1555: l_error_count := l_error_count +1;
1556: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1557: -- END LOOP;
1558: x_exit_partner := 'TRUE';
1559: l_update_channel_team := 'N';
1560: END IF;
1631: END;
1632:
1633: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1634: FOR l_msg_index IN 1..l_msg_count LOOP
1635: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1636: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1637: l_error_count := l_error_count +1;
1638: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1639: END LOOP;
1632:
1633: if (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1634: FOR l_msg_index IN 1..l_msg_count LOOP
1635: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1636: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1637: l_error_count := l_error_count +1;
1638: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1639: END LOOP;
1640: x_exit_partner := 'TRUE';
1634: FOR l_msg_index IN 1..l_msg_count LOOP
1635: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1636: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1637: l_error_count := l_error_count +1;
1638: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1639: END LOOP;
1640: x_exit_partner := 'TRUE';
1641: else
1642: l_update_channel_team := 'Y';
1667: );
1668:
1669: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1670: FOR l_msg_index IN 1..l_msg_count LOOP
1671: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1672: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1673: l_error_count := l_error_count +1;
1674: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1675: END LOOP;
1668:
1669: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1670: FOR l_msg_index IN 1..l_msg_count LOOP
1671: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1672: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1673: l_error_count := l_error_count +1;
1674: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1675: END LOOP;
1676: x_exit_partner := 'TRUE';
1670: FOR l_msg_index IN 1..l_msg_count LOOP
1671: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1672: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1673: l_error_count := l_error_count +1;
1674: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1675: END LOOP;
1676: x_exit_partner := 'TRUE';
1677: END IF;
1678: end if;
1702: x_msg_data => l_msg_data
1703: );
1704: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1705: FOR l_msg_index IN 1..l_msg_count LOOP
1706: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1707: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1708: l_error_count := l_error_count +1;
1709: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1710: END LOOP;
1703: );
1704: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1705: FOR l_msg_index IN 1..l_msg_count LOOP
1706: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1707: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1708: l_error_count := l_error_count +1;
1709: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1710: END LOOP;
1711: x_exit_partner := 'TRUE';
1705: FOR l_msg_index IN 1..l_msg_count LOOP
1706: apps.fnd_message.set_encoded(apps.fnd_msg_pub.get(l_msg_index));
1707: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1708: l_error_count := l_error_count +1;
1709: --dbms_output.put_line(substr(apps.fnd_message.get,1,254));
1710: END LOOP;
1711: x_exit_partner := 'TRUE';
1712: END IF;
1713: end if;
1872: l_lower_limit := l_upper_limit + 1;
1873: l_upper_limit := ceil(batch_ident*(p_partner_details_tbl.Count/l_batch_count));
1874: end if;
1875:
1876: fnd_message.set_name('PV', 'PV_IMP_SUMMARY');
1877: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));
1878:
1879: SAVEPOINT Batch;
1880: for partner_ident in l_lower_limit..l_upper_limit
1873: l_upper_limit := ceil(batch_ident*(p_partner_details_tbl.Count/l_batch_count));
1874: end if;
1875:
1876: fnd_message.set_name('PV', 'PV_IMP_SUMMARY');
1877: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));
1878:
1879: SAVEPOINT Batch;
1880: for partner_ident in l_lower_limit..l_upper_limit
1881: loop
1906:
1907: --dbms_output.put_line('out of validate party ');
1908: if l_partner_name is null OR (nvl(length(trim(l_partner_name)),0) = 0) then
1909: l_exit_partner := 'TRUE';
1910: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
1911: fnd_message.set_token( 'PARAM', 'Partner Name');
1912: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1913: l_error_count := l_error_count +1;
1914:
1907: --dbms_output.put_line('out of validate party ');
1908: if l_partner_name is null OR (nvl(length(trim(l_partner_name)),0) = 0) then
1909: l_exit_partner := 'TRUE';
1910: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
1911: fnd_message.set_token( 'PARAM', 'Partner Name');
1912: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1913: l_error_count := l_error_count +1;
1914:
1915: --dbms_output.put_line('l_partner_name missing ');
1908: if l_partner_name is null OR (nvl(length(trim(l_partner_name)),0) = 0) then
1909: l_exit_partner := 'TRUE';
1910: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
1911: fnd_message.set_token( 'PARAM', 'Partner Name');
1912: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1913: l_error_count := l_error_count +1;
1914:
1915: --dbms_output.put_line('l_partner_name missing ');
1916: end if;
1915: --dbms_output.put_line('l_partner_name missing ');
1916: end if;
1917: --dbms_output.put_line('done checking parnter name ');
1918: if l_attributes_count = 0 then
1919: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
1920: fnd_message.set_token( 'PARAM', 'Partner attributes' );
1921: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1922: l_error_count := l_error_count +1;
1923: l_exit_partner := 'TRUE';
1916: end if;
1917: --dbms_output.put_line('done checking parnter name ');
1918: if l_attributes_count = 0 then
1919: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
1920: fnd_message.set_token( 'PARAM', 'Partner attributes' );
1921: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1922: l_error_count := l_error_count +1;
1923: l_exit_partner := 'TRUE';
1924: --dbms_output.put_line('l_attributes_count missing ');
1917: --dbms_output.put_line('done checking parnter name ');
1918: if l_attributes_count = 0 then
1919: fnd_message.set_name('PV', 'PV_IMP_REQ_DATA');
1920: fnd_message.set_token( 'PARAM', 'Partner attributes' );
1921: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1922: l_error_count := l_error_count +1;
1923: l_exit_partner := 'TRUE';
1924: --dbms_output.put_line('l_attributes_count missing ');
1925: end if;
1932: if l_get_partner_id%found then
1933: if l_get_partner_id%rowcount > 1 then
1934: if p_partner_details_tbl(partner_ident).partner_id is null then
1935:
1936: fnd_message.set_name('PV', 'PV_IMP_MULT_PTNR');
1937: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1938: l_error_count := l_error_count +1;
1939: l_exit_partner := 'TRUE';
1940: goto end_of_partner_loop;
1933: if l_get_partner_id%rowcount > 1 then
1934: if p_partner_details_tbl(partner_ident).partner_id is null then
1935:
1936: fnd_message.set_name('PV', 'PV_IMP_MULT_PTNR');
1937: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1938: l_error_count := l_error_count +1;
1939: l_exit_partner := 'TRUE';
1940: goto end_of_partner_loop;
1941: else
1969: l_update_if_exists := p_update_if_exists;
1970: end if;
1971:
1972: if NOT (l_update_if_exists = 'Y') then
1973: fnd_message.set_name('PV', 'PV_IMP_PTNR_EXISTS');
1974: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1975: l_error_count := l_error_count +1;
1976: --dbms_output.put_line('Partner attributes already exists.');
1977: goto end_of_partner_loop;
1970: end if;
1971:
1972: if NOT (l_update_if_exists = 'Y') then
1973: fnd_message.set_name('PV', 'PV_IMP_PTNR_EXISTS');
1974: l_errors_tbl(l_error_count) := substrb(fnd_message.get, 1, 1000);
1975: l_error_count := l_error_count +1;
1976: --dbms_output.put_line('Partner attributes already exists.');
1977: goto end_of_partner_loop;
1978: end if;
2041: x_partner_output_tbl(l_partnersProcessedCount).return_status := l_status;
2042: end if;
2043:
2044: --dbms_output.put_line('writing partner id ' || l_partner_id );
2045: fnd_message.set_name('PV', 'PV_IMP_NOT_SUPL');
2046: l_ns := substrb(fnd_message.get, 1, 1000);
2047: utl_file.put_line(L_LOG_FILE, rpad(nvl(l_partner_name,l_ns),30) || rpad(nvl(l_orig_system,l_ns),20) || rpad(nvl(l_orig_system_ref,l_ns),20) || rpad(nvl(to_char(l_party_id),l_ns),20) ||
2048: rpad(nvl(to_char(l_partner_id),l_ns),20) || rpad(nvl(l_status,l_ns),20));
2049: Write_Error();
2042: end if;
2043:
2044: --dbms_output.put_line('writing partner id ' || l_partner_id );
2045: fnd_message.set_name('PV', 'PV_IMP_NOT_SUPL');
2046: l_ns := substrb(fnd_message.get, 1, 1000);
2047: utl_file.put_line(L_LOG_FILE, rpad(nvl(l_partner_name,l_ns),30) || rpad(nvl(l_orig_system,l_ns),20) || rpad(nvl(l_orig_system_ref,l_ns),20) || rpad(nvl(to_char(l_party_id),l_ns),20) ||
2048: rpad(nvl(to_char(l_partner_id),l_ns),20) || rpad(nvl(l_status,l_ns),20));
2049: Write_Error();
2050: utl_file.put_line(L_LOG_FILE, '------------------------------------------------------------------------------------------------------------------------------------------------------');
2060: end if;
2061:
2062: end loop;
2063: else
2064: fnd_message.set_name('PV', 'PV_IMP_NO_PARTNER');
2065: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));
2066: --dbms_output.put_line('No partner data has been passed');
2067: end if;
2068:
2061:
2062: end loop;
2063: else
2064: fnd_message.set_name('PV', 'PV_IMP_NO_PARTNER');
2065: utl_file.put_line(L_LOG_FILE, substrb(fnd_message.get, 1, 1000));
2066: --dbms_output.put_line('No partner data has been passed');
2067: end if;
2068:
2069: if l_prof <> 'N' then