34: fnd_message.set_name('POS','POS_SUPPLIER_REG_INVALID_ID');
35: fnd_message.set_token('SUPPLIER_REG_ID', p_supplier_reg_id);
36: fnd_msg_pub.ADD;
37:
38: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
39: fnd_log.string
40: (fnd_log.level_error
41: , g_module || '.lock_supplier_reg_row'
42: , 'can not lock supplier reg row with id ' || p_supplier_reg_id);
35: fnd_message.set_token('SUPPLIER_REG_ID', p_supplier_reg_id);
36: fnd_msg_pub.ADD;
37:
38: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
39: fnd_log.string
40: (fnd_log.level_error
41: , g_module || '.lock_supplier_reg_row'
42: , 'can not lock supplier reg row with id ' || p_supplier_reg_id);
43: END IF;
36: fnd_msg_pub.ADD;
37:
38: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
39: fnd_log.string
40: (fnd_log.level_error
41: , g_module || '.lock_supplier_reg_row'
42: , 'can not lock supplier reg row with id ' || p_supplier_reg_id);
43: END IF;
44: ELSE
170: p_count => x_msg_count,
171: p_data => x_msg_data
172: );
173:
174: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
175: fnd_log.string
176: (fnd_log.level_procedure
177: , g_module || '.' || l_method
178: , 'start');
171: p_data => x_msg_data
172: );
173:
174: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
175: fnd_log.string
176: (fnd_log.level_procedure
177: , g_module || '.' || l_method
178: , 'start');
179: END IF;
172: );
173:
174: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
175: fnd_log.string
176: (fnd_log.level_procedure
177: , g_module || '.' || l_method
178: , 'start');
179: END IF;
180:
178: , 'start');
179: END IF;
180:
181: l_step := 'set HZ_GENERATE_PARTY_NUMBER profile to Y';
182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
183: fnd_log.string
184: (fnd_log.level_statement
185: , g_module || '.' || l_method
186: , l_step);
179: END IF;
180:
181: l_step := 'set HZ_GENERATE_PARTY_NUMBER profile to Y';
182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
183: fnd_log.string
184: (fnd_log.level_statement
185: , g_module || '.' || l_method
186: , l_step);
187: END IF;
180:
181: l_step := 'set HZ_GENERATE_PARTY_NUMBER profile to Y';
182: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
183: fnd_log.string
184: (fnd_log.level_statement
185: , g_module || '.' || l_method
186: , l_step);
187: END IF;
188: /* Added for bug 7366321 */
200: fnd_profile.put('HZ_GENERATE_PARTY_NUMBER','Y');
201: */
202:
203: l_step := 'fnd_msg_pub.initialize';
204: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
205: fnd_log.string
206: (fnd_log.level_statement
207: , g_module || '.' || l_method
208: , l_step);
201: */
202:
203: l_step := 'fnd_msg_pub.initialize';
204: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
205: fnd_log.string
206: (fnd_log.level_statement
207: , g_module || '.' || l_method
208: , l_step);
209: END IF;
202:
203: l_step := 'fnd_msg_pub.initialize';
204: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
205: fnd_log.string
206: (fnd_log.level_statement
207: , g_module || '.' || l_method
208: , l_step);
209: END IF;
210:
208: , l_step);
209: END IF;
210:
211: l_step := 'prepare l_vendor_rec';
212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
213: fnd_log.string
214: (fnd_log.level_statement
215: , g_module || '.' || l_method
216: , l_step);
209: END IF;
210:
211: l_step := 'prepare l_vendor_rec';
212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
213: fnd_log.string
214: (fnd_log.level_statement
215: , g_module || '.' || l_method
216: , l_step);
217: END IF;
210:
211: l_step := 'prepare l_vendor_rec';
212: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
213: fnd_log.string
214: (fnd_log.level_statement
215: , g_module || '.' || l_method
216: , l_step);
217: END IF;
218:
250: -- l_vendor_rec.federal_reportable_flag := 'Y';
251: -- END IF;
252:
253: l_step := 'check minority group lookup code';
254: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
255: fnd_log.string
256: (fnd_log.level_statement
257: , g_module || '.' || l_method
258: , l_step);
251: -- END IF;
252:
253: l_step := 'check minority group lookup code';
254: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
255: fnd_log.string
256: (fnd_log.level_statement
257: , g_module || '.' || l_method
258: , l_step);
259: END IF;
252:
253: l_step := 'check minority group lookup code';
254: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
255: fnd_log.string
256: (fnd_log.level_statement
257: , g_module || '.' || l_method
258: , l_step);
259: END IF;
260:
268: IF l_found = 'Y' THEN
269: l_vendor_rec.minority_group_lookup_code := l_ext_attr_1;
270: END IF;
271:
272: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
273: fnd_log.string
274: (fnd_log.level_statement
275: , g_module || '.' || l_method
276: , l_step || ' l_found is ' || l_found);
269: l_vendor_rec.minority_group_lookup_code := l_ext_attr_1;
270: END IF;
271:
272: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
273: fnd_log.string
274: (fnd_log.level_statement
275: , g_module || '.' || l_method
276: , l_step || ' l_found is ' || l_found);
277: END IF;
270: END IF;
271:
272: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
273: fnd_log.string
274: (fnd_log.level_statement
275: , g_module || '.' || l_method
276: , l_step || ' l_found is ' || l_found);
277: END IF;
278:
276: , l_step || ' l_found is ' || l_found);
277: END IF;
278:
279: l_step := 'check women owned';
280: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
281: fnd_log.string
282: (fnd_log.level_statement
283: , g_module || '.' || l_method
284: , l_step);
277: END IF;
278:
279: l_step := 'check women owned';
280: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
281: fnd_log.string
282: (fnd_log.level_statement
283: , g_module || '.' || l_method
284: , l_step);
285: END IF;
278:
279: l_step := 'check women owned';
280: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
281: fnd_log.string
282: (fnd_log.level_statement
283: , g_module || '.' || l_method
284: , l_step);
285: END IF;
286:
294: IF l_found = 'Y' THEN
295: l_vendor_rec.women_owned_flag := 'Y';
296: END IF;
297:
298: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
299: fnd_log.string
300: (fnd_log.level_statement
301: , g_module || '.' || l_method
302: , l_step || ' l_found is ' || l_found);
295: l_vendor_rec.women_owned_flag := 'Y';
296: END IF;
297:
298: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
299: fnd_log.string
300: (fnd_log.level_statement
301: , g_module || '.' || l_method
302: , l_step || ' l_found is ' || l_found);
303: END IF;
296: END IF;
297:
298: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
299: fnd_log.string
300: (fnd_log.level_statement
301: , g_module || '.' || l_method
302: , l_step || ' l_found is ' || l_found);
303: END IF;
304:
303: END IF;
304:
305: l_step := 'check small business';
306:
307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
308: fnd_log.string
309: (fnd_log.level_statement
310: , g_module || '.' || l_method
311: , l_step);
304:
305: l_step := 'check small business';
306:
307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
308: fnd_log.string
309: (fnd_log.level_statement
310: , g_module || '.' || l_method
311: , l_step);
312: END IF;
305: l_step := 'check small business';
306:
307: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
308: fnd_log.string
309: (fnd_log.level_statement
310: , g_module || '.' || l_method
311: , l_step);
312: END IF;
313:
310: , g_module || '.' || l_method
311: , l_step);
312: END IF;
313:
314: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
315: fnd_log.string
316: (fnd_log.level_statement
317: , g_module || '.' || l_method
318: , l_step || ' l_found is ' || l_found);
311: , l_step);
312: END IF;
313:
314: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
315: fnd_log.string
316: (fnd_log.level_statement
317: , g_module || '.' || l_method
318: , l_step || ' l_found is ' || l_found);
319: END IF;
312: END IF;
313:
314: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
315: fnd_log.string
316: (fnd_log.level_statement
317: , g_module || '.' || l_method
318: , l_step || ' l_found is ' || l_found);
319: END IF;
320:
328: IF l_found = 'Y' THEN
329: l_vendor_rec.small_business_flag := 'Y';
330: END IF;
331:
332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
333: fnd_log.string
334: (fnd_log.level_statement
335: , g_module || '.' || l_method
336: , l_step || ' l_found is ' || l_found);
329: l_vendor_rec.small_business_flag := 'Y';
330: END IF;
331:
332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
333: fnd_log.string
334: (fnd_log.level_statement
335: , g_module || '.' || l_method
336: , l_step || ' l_found is ' || l_found);
337: END IF;
330: END IF;
331:
332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
333: fnd_log.string
334: (fnd_log.level_statement
335: , g_module || '.' || l_method
336: , l_step || ' l_found is ' || l_found);
337: END IF;
338:
337: END IF;
338:
339: l_step := 'call pos_vendor_pub_pkg.create_vendor';
340:
341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
342: fnd_log.string
343: (fnd_log.level_statement
344: , g_module || '.' || l_method
345: , l_step);
338:
339: l_step := 'call pos_vendor_pub_pkg.create_vendor';
340:
341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
342: fnd_log.string
343: (fnd_log.level_statement
344: , g_module || '.' || l_method
345: , l_step);
346: END IF;
339: l_step := 'call pos_vendor_pub_pkg.create_vendor';
340:
341: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
342: fnd_log.string
343: (fnd_log.level_statement
344: , g_module || '.' || l_method
345: , l_step);
346: END IF;
347:
372: IF x_party_id IS NULL THEN
373: raise_application_error(-20001, 'create_vendor returns NULL party_id, error msg: ' || x_msg_data, true);
374: END IF;
375:
376: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
377: fnd_log.string
378: (fnd_log.level_statement
379: , g_module || '.' || l_method
380: , 'create_vendor call result: x_return_status ' || x_return_status
373: raise_application_error(-20001, 'create_vendor returns NULL party_id, error msg: ' || x_msg_data, true);
374: END IF;
375:
376: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
377: fnd_log.string
378: (fnd_log.level_statement
379: , g_module || '.' || l_method
380: , 'create_vendor call result: x_return_status ' || x_return_status
381: || ' x_msg_count ' || x_msg_count
374: END IF;
375:
376: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
377: fnd_log.string
378: (fnd_log.level_statement
379: , g_module || '.' || l_method
380: , 'create_vendor call result: x_return_status ' || x_return_status
381: || ' x_msg_count ' || x_msg_count
382: || ' x_msg_data ' || x_msg_data
409: RETURN;
410: END IF;
411:
412: l_step := 'update pos_supplier_mappings with ids';
413: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
414: fnd_log.string
415: (fnd_log.level_statement
416: , g_module || '.' || l_method
417: , l_step || ' x_return_status ' || x_return_status
410: END IF;
411:
412: l_step := 'update pos_supplier_mappings with ids';
413: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
414: fnd_log.string
415: (fnd_log.level_statement
416: , g_module || '.' || l_method
417: , l_step || ' x_return_status ' || x_return_status
418: || ' x_msg_count ' || x_msg_count
411:
412: l_step := 'update pos_supplier_mappings with ids';
413: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
414: fnd_log.string
415: (fnd_log.level_statement
416: , g_module || '.' || l_method
417: , l_step || ' x_return_status ' || x_return_status
418: || ' x_msg_count ' || x_msg_count
419: || ' x_msg_data ' || x_msg_data
435: to supplier entity upon approval
436: */
437: l_step := 'assign registered supplier attachments to approved supplier';
438:
439: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
440: fnd_log.string
441: (fnd_log.level_statement
442: , g_module || '.' || l_method
443: , l_step);
436: */
437: l_step := 'assign registered supplier attachments to approved supplier';
438:
439: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
440: fnd_log.string
441: (fnd_log.level_statement
442: , g_module || '.' || l_method
443: , l_step);
444: END IF;
437: l_step := 'assign registered supplier attachments to approved supplier';
438:
439: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
440: fnd_log.string
441: (fnd_log.level_statement
442: , g_module || '.' || l_method
443: , l_step);
444: END IF;
445:
454:
455:
456: l_step := 'set party_usage_code SUPPLIER_PROSPECT as inactive';
457:
458: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
459: fnd_log.string
460: (fnd_log.level_statement
461: , g_module || '.' || l_method
462: , l_step);
455:
456: l_step := 'set party_usage_code SUPPLIER_PROSPECT as inactive';
457:
458: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
459: fnd_log.string
460: (fnd_log.level_statement
461: , g_module || '.' || l_method
462: , l_step);
463: END IF;
456: l_step := 'set party_usage_code SUPPLIER_PROSPECT as inactive';
457:
458: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
459: fnd_log.string
460: (fnd_log.level_statement
461: , g_module || '.' || l_method
462: , l_step);
463: END IF;
464:
475: /* End Supplier Hub: Supplier Management */
476:
477: l_step := 'update pos_supplier_registrations with ids';
478:
479: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
480: fnd_log.string
481: (fnd_log.level_statement
482: , g_module || '.' || l_method
483: , l_step);
476:
477: l_step := 'update pos_supplier_registrations with ids';
478:
479: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
480: fnd_log.string
481: (fnd_log.level_statement
482: , g_module || '.' || l_method
483: , l_step);
484: END IF;
477: l_step := 'update pos_supplier_registrations with ids';
478:
479: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
480: fnd_log.string
481: (fnd_log.level_statement
482: , g_module || '.' || l_method
483: , l_step);
484: END IF;
485:
999: l_method := 'approve_supplier';
1000:
1001: x_return_status := fnd_api.g_ret_sts_error;
1002:
1003: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1004: fnd_log.string
1005: (fnd_log.level_procedure
1006: , g_module || '.' || l_method
1007: , 'start');
1000:
1001: x_return_status := fnd_api.g_ret_sts_error;
1002:
1003: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1004: fnd_log.string
1005: (fnd_log.level_procedure
1006: , g_module || '.' || l_method
1007: , 'start');
1008: END IF;
1001: x_return_status := fnd_api.g_ret_sts_error;
1002:
1003: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
1004: fnd_log.string
1005: (fnd_log.level_procedure
1006: , g_module || '.' || l_method
1007: , 'start');
1008: END IF;
1009:
1007: , 'start');
1008: END IF;
1009:
1010: l_step := 'lock supplier reg row';
1011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1012: fnd_log.string
1013: (fnd_log.level_statement
1014: , g_module || '.' || l_method
1015: , l_step);
1008: END IF;
1009:
1010: l_step := 'lock supplier reg row';
1011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1012: fnd_log.string
1013: (fnd_log.level_statement
1014: , g_module || '.' || l_method
1015: , l_step);
1016: END IF;
1009:
1010: l_step := 'lock supplier reg row';
1011: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1012: fnd_log.string
1013: (fnd_log.level_statement
1014: , g_module || '.' || l_method
1015: , l_step);
1016: END IF;
1017:
1029: RETURN;
1030: END IF;
1031:
1032: l_step := 'check reg status';
1033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1034: fnd_log.string
1035: (fnd_log.level_statement
1036: , g_module || '.' || l_method
1037: , l_step);
1030: END IF;
1031:
1032: l_step := 'check reg status';
1033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1034: fnd_log.string
1035: (fnd_log.level_statement
1036: , g_module || '.' || l_method
1037: , l_step);
1038: END IF;
1031:
1032: l_step := 'check reg status';
1033: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1034: fnd_log.string
1035: (fnd_log.level_statement
1036: , g_module || '.' || l_method
1037: , l_step);
1038: END IF;
1039:
1044: fnd_message.set_name('POS','POS_SUPPLIER_REG_NOT_PENDING');
1045: fnd_msg_pub.ADD;
1046: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1047:
1048: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1049: fnd_log.string
1050: (fnd_log.level_error
1051: , g_module || '.' || l_method
1052: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1045: fnd_msg_pub.ADD;
1046: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1047:
1048: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1049: fnd_log.string
1050: (fnd_log.level_error
1051: , g_module || '.' || l_method
1052: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1053: END IF;
1046: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1047:
1048: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1049: fnd_log.string
1050: (fnd_log.level_error
1051: , g_module || '.' || l_method
1052: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1053: END IF;
1054:
1056: RETURN;
1057: END IF;
1058:
1059: l_step := 'create vendor and party';
1060: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1061: fnd_log.string
1062: (fnd_log.level_statement
1063: , g_module || '.' || l_method
1064: , l_step);
1057: END IF;
1058:
1059: l_step := 'create vendor and party';
1060: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1061: fnd_log.string
1062: (fnd_log.level_statement
1063: , g_module || '.' || l_method
1064: , l_step);
1065: END IF;
1058:
1059: l_step := 'create vendor and party';
1060: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1061: fnd_log.string
1062: (fnd_log.level_statement
1063: , g_module || '.' || l_method
1064: , l_step);
1065: END IF;
1066:
1082: l_supplier_reg_rec.po_vendor_id := l_vendor_id;
1083: l_supplier_reg_rec.vendor_party_id := l_vendor_party_id;
1084:
1085: l_step := 'create supplier addresses and vendor sites';
1086: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1087: fnd_log.string
1088: (fnd_log.level_statement
1089: , g_module || '.' || l_method
1090: , l_step);
1083: l_supplier_reg_rec.vendor_party_id := l_vendor_party_id;
1084:
1085: l_step := 'create supplier addresses and vendor sites';
1086: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1087: fnd_log.string
1088: (fnd_log.level_statement
1089: , g_module || '.' || l_method
1090: , l_step);
1091: END IF;
1084:
1085: l_step := 'create supplier addresses and vendor sites';
1086: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1087: fnd_log.string
1088: (fnd_log.level_statement
1089: , g_module || '.' || l_method
1090: , l_step);
1091: END IF;
1092:
1180: RETURN;
1181: END IF;
1182:
1183: l_step := 'create supplier contacts';
1184: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1185: fnd_log.string
1186: (fnd_log.level_statement
1187: , g_module || '.' || l_method
1188: , l_step);
1181: END IF;
1182:
1183: l_step := 'create supplier contacts';
1184: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1185: fnd_log.string
1186: (fnd_log.level_statement
1187: , g_module || '.' || l_method
1188: , l_step);
1189: END IF;
1182:
1183: l_step := 'create supplier contacts';
1184: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1185: fnd_log.string
1186: (fnd_log.level_statement
1187: , g_module || '.' || l_method
1188: , l_step);
1189: END IF;
1190:
1202: RETURN;
1203: END IF;
1204:
1205: l_step := 'create supplier business classification';
1206: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1207: fnd_log.string
1208: (fnd_log.level_statement
1209: , g_module || '.' || l_method
1210: , l_step);
1203: END IF;
1204:
1205: l_step := 'create supplier business classification';
1206: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1207: fnd_log.string
1208: (fnd_log.level_statement
1209: , g_module || '.' || l_method
1210: , l_step);
1211: END IF;
1204:
1205: l_step := 'create supplier business classification';
1206: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1207: fnd_log.string
1208: (fnd_log.level_statement
1209: , g_module || '.' || l_method
1210: , l_step);
1211: END IF;
1212:
1223: RETURN;
1224: END IF;
1225:
1226: l_step := 'create product and services';
1227: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1228: fnd_log.string
1229: (fnd_log.level_statement
1230: , g_module || '.' || l_method
1231: , l_step);
1224: END IF;
1225:
1226: l_step := 'create product and services';
1227: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1228: fnd_log.string
1229: (fnd_log.level_statement
1230: , g_module || '.' || l_method
1231: , l_step);
1232: END IF;
1225:
1226: l_step := 'create product and services';
1227: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1228: fnd_log.string
1229: (fnd_log.level_statement
1230: , g_module || '.' || l_method
1231: , l_step);
1232: END IF;
1233:
1245: END IF;
1246:
1247: l_step := 'handle supplier survey';
1248: -- to be coded as part of supplier profile survey project
1249: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1250: fnd_log.string
1251: (fnd_log.level_statement
1252: , g_module || '.' || l_method
1253: , l_step);
1246:
1247: l_step := 'handle supplier survey';
1248: -- to be coded as part of supplier profile survey project
1249: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1250: fnd_log.string
1251: (fnd_log.level_statement
1252: , g_module || '.' || l_method
1253: , l_step);
1254: END IF;
1247: l_step := 'handle supplier survey';
1248: -- to be coded as part of supplier profile survey project
1249: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1250: fnd_log.string
1251: (fnd_log.level_statement
1252: , g_module || '.' || l_method
1253: , l_step);
1254: END IF;
1255:
1254: END IF;
1255:
1256: l_step := 'notify supplier';
1257:
1258: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1259: fnd_log.string
1260: (fnd_log.level_statement
1261: , g_module || '.' || l_method
1262: , l_step);
1255:
1256: l_step := 'notify supplier';
1257:
1258: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1259: fnd_log.string
1260: (fnd_log.level_statement
1261: , g_module || '.' || l_method
1262: , l_step);
1263: END IF;
1256: l_step := 'notify supplier';
1257:
1258: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1259: fnd_log.string
1260: (fnd_log.level_statement
1261: , g_module || '.' || l_method
1262: , l_step);
1263: END IF;
1264:
1382: BEGIN
1383: l_method := 'reject_supplier_reg';
1384:
1385: l_step := 'lock supplier reg row';
1386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1387: fnd_log.string
1388: (fnd_log.level_statement
1389: , g_module || '.' || l_method
1390: , l_step);
1383: l_method := 'reject_supplier_reg';
1384:
1385: l_step := 'lock supplier reg row';
1386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1387: fnd_log.string
1388: (fnd_log.level_statement
1389: , g_module || '.' || l_method
1390: , l_step);
1391: END IF;
1384:
1385: l_step := 'lock supplier reg row';
1386: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1387: fnd_log.string
1388: (fnd_log.level_statement
1389: , g_module || '.' || l_method
1390: , l_step);
1391: END IF;
1392:
1403: RETURN;
1404: END IF;
1405:
1406: l_step := 'check reg status';
1407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1408: fnd_log.string
1409: (fnd_log.level_statement
1410: , g_module || '.' || l_method
1411: , l_step);
1404: END IF;
1405:
1406: l_step := 'check reg status';
1407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1408: fnd_log.string
1409: (fnd_log.level_statement
1410: , g_module || '.' || l_method
1411: , l_step);
1412: END IF;
1405:
1406: l_step := 'check reg status';
1407: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1408: fnd_log.string
1409: (fnd_log.level_statement
1410: , g_module || '.' || l_method
1411: , l_step);
1412: END IF;
1413:
1417: fnd_message.set_name('POS','POS_SUPPLIER_REG_NOT_PENDING');
1418: fnd_msg_pub.ADD;
1419: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1420:
1421: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1422: fnd_log.string
1423: (fnd_log.level_error
1424: , g_module || '.' || l_method
1425: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1418: fnd_msg_pub.ADD;
1419: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1420:
1421: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1422: fnd_log.string
1423: (fnd_log.level_error
1424: , g_module || '.' || l_method
1425: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1426: END IF;
1419: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1420:
1421: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1422: fnd_log.string
1423: (fnd_log.level_error
1424: , g_module || '.' || l_method
1425: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1426: END IF;
1427:
1535: BEGIN
1536: l_method := 'submit_supplier_reg';
1537:
1538: l_step := 'lock supplier reg row';
1539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1540: fnd_log.string
1541: (fnd_log.level_statement
1542: , g_module || '.' || l_method
1543: , l_step);
1536: l_method := 'submit_supplier_reg';
1537:
1538: l_step := 'lock supplier reg row';
1539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1540: fnd_log.string
1541: (fnd_log.level_statement
1542: , g_module || '.' || l_method
1543: , l_step);
1544: END IF;
1537:
1538: l_step := 'lock supplier reg row';
1539: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1540: fnd_log.string
1541: (fnd_log.level_statement
1542: , g_module || '.' || l_method
1543: , l_step);
1544: END IF;
1545:
1556: RETURN;
1557: END IF;
1558:
1559: l_step := 'check reg status';
1560: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1561: fnd_log.string
1562: (fnd_log.level_statement
1563: , g_module || '.' || l_method
1564: , l_step);
1557: END IF;
1558:
1559: l_step := 'check reg status';
1560: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1561: fnd_log.string
1562: (fnd_log.level_statement
1563: , g_module || '.' || l_method
1564: , l_step);
1565: END IF;
1558:
1559: l_step := 'check reg status';
1560: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1561: fnd_log.string
1562: (fnd_log.level_statement
1563: , g_module || '.' || l_method
1564: , l_step);
1565: END IF;
1566:
1572: fnd_message.set_name('POS','POS_SUPPLIER_REG_NOT_DRAFT');
1573: fnd_msg_pub.ADD;
1574: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1575:
1576: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1577: fnd_log.string
1578: (fnd_log.level_error
1579: , g_module || '.' || l_method
1580: , 'status is not DRAFT for reg id ' || p_supplier_reg_id);
1573: fnd_msg_pub.ADD;
1574: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1575:
1576: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1577: fnd_log.string
1578: (fnd_log.level_error
1579: , g_module || '.' || l_method
1580: , 'status is not DRAFT for reg id ' || p_supplier_reg_id);
1581: END IF;
1574: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1575:
1576: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1577: fnd_log.string
1578: (fnd_log.level_error
1579: , g_module || '.' || l_method
1580: , 'status is not DRAFT for reg id ' || p_supplier_reg_id);
1581: END IF;
1582: