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:
227: -- l_vendor_rec.federal_reportable_flag := 'Y';
228: -- END IF;
229:
230: l_step := 'check minority group lookup code';
231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
232: fnd_log.string
233: (fnd_log.level_statement
234: , g_module || '.' || l_method
235: , l_step);
228: -- END IF;
229:
230: l_step := 'check minority group lookup code';
231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
232: fnd_log.string
233: (fnd_log.level_statement
234: , g_module || '.' || l_method
235: , l_step);
236: END IF;
229:
230: l_step := 'check minority group lookup code';
231: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
232: fnd_log.string
233: (fnd_log.level_statement
234: , g_module || '.' || l_method
235: , l_step);
236: END IF;
237:
245: IF l_found = 'Y' THEN
246: l_vendor_rec.minority_group_lookup_code := l_ext_attr_1;
247: END IF;
248:
249: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
250: fnd_log.string
251: (fnd_log.level_statement
252: , g_module || '.' || l_method
253: , l_step || ' l_found is ' || l_found);
246: l_vendor_rec.minority_group_lookup_code := l_ext_attr_1;
247: END IF;
248:
249: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
250: fnd_log.string
251: (fnd_log.level_statement
252: , g_module || '.' || l_method
253: , l_step || ' l_found is ' || l_found);
254: END IF;
247: END IF;
248:
249: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
250: fnd_log.string
251: (fnd_log.level_statement
252: , g_module || '.' || l_method
253: , l_step || ' l_found is ' || l_found);
254: END IF;
255:
253: , l_step || ' l_found is ' || l_found);
254: END IF;
255:
256: l_step := 'check women owned';
257: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
258: fnd_log.string
259: (fnd_log.level_statement
260: , g_module || '.' || l_method
261: , l_step);
254: END IF;
255:
256: l_step := 'check women owned';
257: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
258: fnd_log.string
259: (fnd_log.level_statement
260: , g_module || '.' || l_method
261: , l_step);
262: END IF;
255:
256: l_step := 'check women owned';
257: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
258: fnd_log.string
259: (fnd_log.level_statement
260: , g_module || '.' || l_method
261: , l_step);
262: END IF;
263:
271: IF l_found = 'Y' THEN
272: l_vendor_rec.women_owned_flag := 'Y';
273: END IF;
274:
275: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
276: fnd_log.string
277: (fnd_log.level_statement
278: , g_module || '.' || l_method
279: , l_step || ' l_found is ' || l_found);
272: l_vendor_rec.women_owned_flag := 'Y';
273: END IF;
274:
275: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
276: fnd_log.string
277: (fnd_log.level_statement
278: , g_module || '.' || l_method
279: , l_step || ' l_found is ' || l_found);
280: END IF;
273: END IF;
274:
275: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
276: fnd_log.string
277: (fnd_log.level_statement
278: , g_module || '.' || l_method
279: , l_step || ' l_found is ' || l_found);
280: END IF;
281:
280: END IF;
281:
282: l_step := 'check small business';
283:
284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
285: fnd_log.string
286: (fnd_log.level_statement
287: , g_module || '.' || l_method
288: , l_step);
281:
282: l_step := 'check small business';
283:
284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
285: fnd_log.string
286: (fnd_log.level_statement
287: , g_module || '.' || l_method
288: , l_step);
289: END IF;
282: l_step := 'check small business';
283:
284: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
285: fnd_log.string
286: (fnd_log.level_statement
287: , g_module || '.' || l_method
288: , l_step);
289: END IF;
290:
287: , g_module || '.' || l_method
288: , l_step);
289: END IF;
290:
291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
292: fnd_log.string
293: (fnd_log.level_statement
294: , g_module || '.' || l_method
295: , l_step || ' l_found is ' || l_found);
288: , l_step);
289: END IF;
290:
291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
292: fnd_log.string
293: (fnd_log.level_statement
294: , g_module || '.' || l_method
295: , l_step || ' l_found is ' || l_found);
296: END IF;
289: END IF;
290:
291: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
292: fnd_log.string
293: (fnd_log.level_statement
294: , g_module || '.' || l_method
295: , l_step || ' l_found is ' || l_found);
296: END IF;
297:
305: IF l_found = 'Y' THEN
306: l_vendor_rec.small_business_flag := 'Y';
307: END IF;
308:
309: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
310: fnd_log.string
311: (fnd_log.level_statement
312: , g_module || '.' || l_method
313: , l_step || ' l_found is ' || l_found);
306: l_vendor_rec.small_business_flag := 'Y';
307: END IF;
308:
309: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
310: fnd_log.string
311: (fnd_log.level_statement
312: , g_module || '.' || l_method
313: , l_step || ' l_found is ' || l_found);
314: END IF;
307: END IF;
308:
309: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
310: fnd_log.string
311: (fnd_log.level_statement
312: , g_module || '.' || l_method
313: , l_step || ' l_found is ' || l_found);
314: END IF;
315:
314: END IF;
315:
316: l_step := 'call pos_vendor_pub_pkg.create_vendor';
317:
318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
319: fnd_log.string
320: (fnd_log.level_statement
321: , g_module || '.' || l_method
322: , l_step);
315:
316: l_step := 'call pos_vendor_pub_pkg.create_vendor';
317:
318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
319: fnd_log.string
320: (fnd_log.level_statement
321: , g_module || '.' || l_method
322: , l_step);
323: END IF;
316: l_step := 'call pos_vendor_pub_pkg.create_vendor';
317:
318: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
319: fnd_log.string
320: (fnd_log.level_statement
321: , g_module || '.' || l_method
322: , l_step);
323: END IF;
324:
343: IF x_party_id IS NULL THEN
344: raise_application_error(-20001, 'create_vendor returns NULL party_id, error msg: ' || x_msg_data, true);
345: END IF;
346:
347: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
348: fnd_log.string
349: (fnd_log.level_statement
350: , g_module || '.' || l_method
351: , 'create_vendor call result: x_return_status ' || x_return_status
344: raise_application_error(-20001, 'create_vendor returns NULL party_id, error msg: ' || x_msg_data, true);
345: END IF;
346:
347: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
348: fnd_log.string
349: (fnd_log.level_statement
350: , g_module || '.' || l_method
351: , 'create_vendor call result: x_return_status ' || x_return_status
352: || ' x_msg_count ' || x_msg_count
345: END IF;
346:
347: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
348: fnd_log.string
349: (fnd_log.level_statement
350: , g_module || '.' || l_method
351: , 'create_vendor call result: x_return_status ' || x_return_status
352: || ' x_msg_count ' || x_msg_count
353: || ' x_msg_data ' || x_msg_data
380: RETURN;
381: END IF;
382:
383: l_step := 'update pos_supplier_mappings with ids';
384: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
385: fnd_log.string
386: (fnd_log.level_statement
387: , g_module || '.' || l_method
388: , l_step || ' x_return_status ' || x_return_status
381: END IF;
382:
383: l_step := 'update pos_supplier_mappings with ids';
384: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
385: fnd_log.string
386: (fnd_log.level_statement
387: , g_module || '.' || l_method
388: , l_step || ' x_return_status ' || x_return_status
389: || ' x_msg_count ' || x_msg_count
382:
383: l_step := 'update pos_supplier_mappings with ids';
384: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
385: fnd_log.string
386: (fnd_log.level_statement
387: , g_module || '.' || l_method
388: , l_step || ' x_return_status ' || x_return_status
389: || ' x_msg_count ' || x_msg_count
390: || ' x_msg_data ' || x_msg_data
400: WHERE supplier_reg_id = p_supplier_reg_rec.supplier_reg_id;
401:
402: l_step := 'update pos_supplier_registrations with ids';
403:
404: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
405: fnd_log.string
406: (fnd_log.level_statement
407: , g_module || '.' || l_method
408: , l_step);
401:
402: l_step := 'update pos_supplier_registrations with ids';
403:
404: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
405: fnd_log.string
406: (fnd_log.level_statement
407: , g_module || '.' || l_method
408: , l_step);
409: END IF;
402: l_step := 'update pos_supplier_registrations with ids';
403:
404: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
405: fnd_log.string
406: (fnd_log.level_statement
407: , g_module || '.' || l_method
408: , l_step);
409: END IF;
410:
810: l_method := 'approve_supplier';
811:
812: x_return_status := fnd_api.g_ret_sts_error;
813:
814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
815: fnd_log.string
816: (fnd_log.level_procedure
817: , g_module || '.' || l_method
818: , 'start');
811:
812: x_return_status := fnd_api.g_ret_sts_error;
813:
814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
815: fnd_log.string
816: (fnd_log.level_procedure
817: , g_module || '.' || l_method
818: , 'start');
819: END IF;
812: x_return_status := fnd_api.g_ret_sts_error;
813:
814: IF (fnd_log.level_procedure >= fnd_log.g_current_runtime_level) THEN
815: fnd_log.string
816: (fnd_log.level_procedure
817: , g_module || '.' || l_method
818: , 'start');
819: END IF;
820:
818: , 'start');
819: END IF;
820:
821: l_step := 'lock supplier reg row';
822: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
823: fnd_log.string
824: (fnd_log.level_statement
825: , g_module || '.' || l_method
826: , l_step);
819: END IF;
820:
821: l_step := 'lock supplier reg row';
822: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
823: fnd_log.string
824: (fnd_log.level_statement
825: , g_module || '.' || l_method
826: , l_step);
827: END IF;
820:
821: l_step := 'lock supplier reg row';
822: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
823: fnd_log.string
824: (fnd_log.level_statement
825: , g_module || '.' || l_method
826: , l_step);
827: END IF;
828:
840: RETURN;
841: END IF;
842:
843: l_step := 'check reg status';
844: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
845: fnd_log.string
846: (fnd_log.level_statement
847: , g_module || '.' || l_method
848: , l_step);
841: END IF;
842:
843: l_step := 'check reg status';
844: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
845: fnd_log.string
846: (fnd_log.level_statement
847: , g_module || '.' || l_method
848: , l_step);
849: END IF;
842:
843: l_step := 'check reg status';
844: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
845: fnd_log.string
846: (fnd_log.level_statement
847: , g_module || '.' || l_method
848: , l_step);
849: END IF;
850:
855: fnd_message.set_name('POS','POS_SUPPLIER_REG_NOT_PENDING');
856: fnd_msg_pub.ADD;
857: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
858:
859: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
860: fnd_log.string
861: (fnd_log.level_error
862: , g_module || '.' || l_method
863: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
856: fnd_msg_pub.ADD;
857: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
858:
859: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
860: fnd_log.string
861: (fnd_log.level_error
862: , g_module || '.' || l_method
863: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
864: END IF;
857: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
858:
859: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
860: fnd_log.string
861: (fnd_log.level_error
862: , g_module || '.' || l_method
863: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
864: END IF;
865:
867: RETURN;
868: END IF;
869:
870: l_step := 'create vendor and party';
871: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
872: fnd_log.string
873: (fnd_log.level_statement
874: , g_module || '.' || l_method
875: , l_step);
868: END IF;
869:
870: l_step := 'create vendor and party';
871: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
872: fnd_log.string
873: (fnd_log.level_statement
874: , g_module || '.' || l_method
875: , l_step);
876: END IF;
869:
870: l_step := 'create vendor and party';
871: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
872: fnd_log.string
873: (fnd_log.level_statement
874: , g_module || '.' || l_method
875: , l_step);
876: END IF;
877:
893: l_supplier_reg_rec.po_vendor_id := l_vendor_id;
894: l_supplier_reg_rec.vendor_party_id := l_vendor_party_id;
895:
896: l_step := 'create supplier addresses and vendor sites';
897: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
898: fnd_log.string
899: (fnd_log.level_statement
900: , g_module || '.' || l_method
901: , l_step);
894: l_supplier_reg_rec.vendor_party_id := l_vendor_party_id;
895:
896: l_step := 'create supplier addresses and vendor sites';
897: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
898: fnd_log.string
899: (fnd_log.level_statement
900: , g_module || '.' || l_method
901: , l_step);
902: END IF;
895:
896: l_step := 'create supplier addresses and vendor sites';
897: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
898: fnd_log.string
899: (fnd_log.level_statement
900: , g_module || '.' || l_method
901: , l_step);
902: END IF;
903:
991: RETURN;
992: END IF;
993:
994: l_step := 'create supplier contacts';
995: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
996: fnd_log.string
997: (fnd_log.level_statement
998: , g_module || '.' || l_method
999: , l_step);
992: END IF;
993:
994: l_step := 'create supplier contacts';
995: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
996: fnd_log.string
997: (fnd_log.level_statement
998: , g_module || '.' || l_method
999: , l_step);
1000: END IF;
993:
994: l_step := 'create supplier contacts';
995: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
996: fnd_log.string
997: (fnd_log.level_statement
998: , g_module || '.' || l_method
999: , l_step);
1000: END IF;
1001:
1013: RETURN;
1014: END IF;
1015:
1016: l_step := 'create supplier business classification';
1017: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1018: fnd_log.string
1019: (fnd_log.level_statement
1020: , g_module || '.' || l_method
1021: , l_step);
1014: END IF;
1015:
1016: l_step := 'create supplier business classification';
1017: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1018: fnd_log.string
1019: (fnd_log.level_statement
1020: , g_module || '.' || l_method
1021: , l_step);
1022: END IF;
1015:
1016: l_step := 'create supplier business classification';
1017: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1018: fnd_log.string
1019: (fnd_log.level_statement
1020: , g_module || '.' || l_method
1021: , l_step);
1022: END IF;
1023:
1034: RETURN;
1035: END IF;
1036:
1037: l_step := 'create product and services';
1038: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1039: fnd_log.string
1040: (fnd_log.level_statement
1041: , g_module || '.' || l_method
1042: , l_step);
1035: END IF;
1036:
1037: l_step := 'create product and services';
1038: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1039: fnd_log.string
1040: (fnd_log.level_statement
1041: , g_module || '.' || l_method
1042: , l_step);
1043: END IF;
1036:
1037: l_step := 'create product and services';
1038: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1039: fnd_log.string
1040: (fnd_log.level_statement
1041: , g_module || '.' || l_method
1042: , l_step);
1043: END IF;
1044:
1056: END IF;
1057:
1058: l_step := 'handle supplier survey';
1059: -- to be coded as part of supplier profile survey project
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:
1058: l_step := 'handle supplier survey';
1059: -- to be coded as part of supplier profile survey project
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: l_step := 'handle supplier survey';
1059: -- to be coded as part of supplier profile survey project
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:
1065: END IF;
1066:
1067: l_step := 'notify supplier';
1068:
1069: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1070: fnd_log.string
1071: (fnd_log.level_statement
1072: , g_module || '.' || l_method
1073: , l_step);
1066:
1067: l_step := 'notify supplier';
1068:
1069: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1070: fnd_log.string
1071: (fnd_log.level_statement
1072: , g_module || '.' || l_method
1073: , l_step);
1074: END IF;
1067: l_step := 'notify supplier';
1068:
1069: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1070: fnd_log.string
1071: (fnd_log.level_statement
1072: , g_module || '.' || l_method
1073: , l_step);
1074: END IF;
1075:
1165: BEGIN
1166: l_method := 'reject_supplier_reg';
1167:
1168: l_step := 'lock supplier reg row';
1169: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1170: fnd_log.string
1171: (fnd_log.level_statement
1172: , g_module || '.' || l_method
1173: , l_step);
1166: l_method := 'reject_supplier_reg';
1167:
1168: l_step := 'lock supplier reg row';
1169: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1170: fnd_log.string
1171: (fnd_log.level_statement
1172: , g_module || '.' || l_method
1173: , l_step);
1174: END IF;
1167:
1168: l_step := 'lock supplier reg row';
1169: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1170: fnd_log.string
1171: (fnd_log.level_statement
1172: , g_module || '.' || l_method
1173: , l_step);
1174: END IF;
1175:
1186: RETURN;
1187: END IF;
1188:
1189: l_step := 'check reg status';
1190: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1191: fnd_log.string
1192: (fnd_log.level_statement
1193: , g_module || '.' || l_method
1194: , l_step);
1187: END IF;
1188:
1189: l_step := 'check reg status';
1190: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1191: fnd_log.string
1192: (fnd_log.level_statement
1193: , g_module || '.' || l_method
1194: , l_step);
1195: END IF;
1188:
1189: l_step := 'check reg status';
1190: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1191: fnd_log.string
1192: (fnd_log.level_statement
1193: , g_module || '.' || l_method
1194: , l_step);
1195: END IF;
1196:
1200: fnd_message.set_name('POS','POS_SUPPLIER_REG_NOT_PENDING');
1201: fnd_msg_pub.ADD;
1202: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1203:
1204: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1205: fnd_log.string
1206: (fnd_log.level_error
1207: , g_module || '.' || l_method
1208: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1201: fnd_msg_pub.ADD;
1202: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1203:
1204: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1205: fnd_log.string
1206: (fnd_log.level_error
1207: , g_module || '.' || l_method
1208: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1209: END IF;
1202: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1203:
1204: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1205: fnd_log.string
1206: (fnd_log.level_error
1207: , g_module || '.' || l_method
1208: , 'status is not PENDING_APPROVAL for reg id ' || p_supplier_reg_id);
1209: END IF;
1210:
1274: BEGIN
1275: l_method := 'submit_supplier_reg';
1276:
1277: l_step := 'lock supplier reg row';
1278: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1279: fnd_log.string
1280: (fnd_log.level_statement
1281: , g_module || '.' || l_method
1282: , l_step);
1275: l_method := 'submit_supplier_reg';
1276:
1277: l_step := 'lock supplier reg row';
1278: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1279: fnd_log.string
1280: (fnd_log.level_statement
1281: , g_module || '.' || l_method
1282: , l_step);
1283: END IF;
1276:
1277: l_step := 'lock supplier reg row';
1278: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1279: fnd_log.string
1280: (fnd_log.level_statement
1281: , g_module || '.' || l_method
1282: , l_step);
1283: END IF;
1284:
1295: RETURN;
1296: END IF;
1297:
1298: l_step := 'check reg status';
1299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1300: fnd_log.string
1301: (fnd_log.level_statement
1302: , g_module || '.' || l_method
1303: , l_step);
1296: END IF;
1297:
1298: l_step := 'check reg status';
1299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1300: fnd_log.string
1301: (fnd_log.level_statement
1302: , g_module || '.' || l_method
1303: , l_step);
1304: END IF;
1297:
1298: l_step := 'check reg status';
1299: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level) THEN
1300: fnd_log.string
1301: (fnd_log.level_statement
1302: , g_module || '.' || l_method
1303: , l_step);
1304: END IF;
1305:
1311: fnd_message.set_name('POS','POS_SUPPLIER_REG_NOT_DRAFT');
1312: fnd_msg_pub.ADD;
1313: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1314:
1315: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1316: fnd_log.string
1317: (fnd_log.level_error
1318: , g_module || '.' || l_method
1319: , 'status is not DRAFT for reg id ' || p_supplier_reg_id);
1312: fnd_msg_pub.ADD;
1313: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1314:
1315: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1316: fnd_log.string
1317: (fnd_log.level_error
1318: , g_module || '.' || l_method
1319: , 'status is not DRAFT for reg id ' || p_supplier_reg_id);
1320: END IF;
1313: fnd_msg_pub.count_and_get(fnd_api.g_false, x_msg_count, x_msg_data);
1314:
1315: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level) THEN
1316: fnd_log.string
1317: (fnd_log.level_error
1318: , g_module || '.' || l_method
1319: , 'status is not DRAFT for reg id ' || p_supplier_reg_id);
1320: END IF;
1321: