113:
114: BEGIN
115:
116: d_progress := 0;
117: IF (PO_LOG.d_proc) THEN
118: PO_LOG.proc_begin(d_module);
119: PO_LOG.proc_begin(d_module, 'p_session_gt_key', p_session_gt_key);
120: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
121: PO_LOG.proc_begin(d_module, 'p_po_style_id', p_po_style_id);
114: BEGIN
115:
116: d_progress := 0;
117: IF (PO_LOG.d_proc) THEN
118: PO_LOG.proc_begin(d_module);
119: PO_LOG.proc_begin(d_module, 'p_session_gt_key', p_session_gt_key);
120: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
121: PO_LOG.proc_begin(d_module, 'p_po_style_id', p_po_style_id);
122: END IF;
115:
116: d_progress := 0;
117: IF (PO_LOG.d_proc) THEN
118: PO_LOG.proc_begin(d_module);
119: PO_LOG.proc_begin(d_module, 'p_session_gt_key', p_session_gt_key);
120: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
121: PO_LOG.proc_begin(d_module, 'p_po_style_id', p_po_style_id);
122: END IF;
123:
116: d_progress := 0;
117: IF (PO_LOG.d_proc) THEN
118: PO_LOG.proc_begin(d_module);
119: PO_LOG.proc_begin(d_module, 'p_session_gt_key', p_session_gt_key);
120: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
121: PO_LOG.proc_begin(d_module, 'p_po_style_id', p_po_style_id);
122: END IF;
123:
124: d_progress := 10;
117: IF (PO_LOG.d_proc) THEN
118: PO_LOG.proc_begin(d_module);
119: PO_LOG.proc_begin(d_module, 'p_session_gt_key', p_session_gt_key);
120: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
121: PO_LOG.proc_begin(d_module, 'p_po_style_id', p_po_style_id);
122: END IF;
123:
124: d_progress := 10;
125:
147: l_purchase_basis,
148: l_source_doc_style_id;
149: EXIT WHEN REQ_LINES_SOURCE_CSR%NOTFOUND;
150:
151: IF (PO_LOG.d_stmt) THEN
152: PO_LOG.stmt(d_module, d_progress, 'style validate Req attrs bef');
153: END IF;
154:
155:
148: l_source_doc_style_id;
149: EXIT WHEN REQ_LINES_SOURCE_CSR%NOTFOUND;
150:
151: IF (PO_LOG.d_stmt) THEN
152: PO_LOG.stmt(d_module, d_progress, 'style validate Req attrs bef');
153: END IF;
154:
155:
156: STYLE_VALIDATE_REQ_ATTRS(p_api_version => 1.0,
170: X_style_id := NULL;
171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
172: p_data => x_msg_data);
173:
174: IF (PO_LOG.d_proc) THEN
175: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
176: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
177: PO_LOG.proc_end(d_module);
178: END IF;
171: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
172: p_data => x_msg_data);
173:
174: IF (PO_LOG.d_proc) THEN
175: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
176: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
177: PO_LOG.proc_end(d_module);
178: END IF;
179:
172: p_data => x_msg_data);
173:
174: IF (PO_LOG.d_proc) THEN
175: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
176: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
177: PO_LOG.proc_end(d_module);
178: END IF;
179:
180: CLOSE REQ_LINES_SOURCE_CSR;
173:
174: IF (PO_LOG.d_proc) THEN
175: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
176: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
177: PO_LOG.proc_end(d_module);
178: END IF;
179:
180: CLOSE REQ_LINES_SOURCE_CSR;
181: RETURN;
206:
207:
208: IF p_po_header_id is NULL THEN
209:
210: IF (PO_LOG.d_stmt) THEN
211: PO_LOG.stmt(d_module, d_progress, 'Style Validate Action NEW');
212: END IF;
213: ---ACTION NEW
214:
207:
208: IF p_po_header_id is NULL THEN
209:
210: IF (PO_LOG.d_stmt) THEN
211: PO_LOG.stmt(d_module, d_progress, 'Style Validate Action NEW');
212: END IF;
213: ---ACTION NEW
214:
215: -- If more than one record is retrieved it means that
230:
231: x_style_id := PO_DOC_STYLE_GRP.get_standard_doc_style;
232: x_return_status := FND_API.g_ret_sts_success;
233:
234: IF (PO_LOG.d_proc) THEN
235: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
236: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
237: PO_LOG.proc_end(d_module);
238: END IF;
231: x_style_id := PO_DOC_STYLE_GRP.get_standard_doc_style;
232: x_return_status := FND_API.g_ret_sts_success;
233:
234: IF (PO_LOG.d_proc) THEN
235: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
236: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
237: PO_LOG.proc_end(d_module);
238: END IF;
239: RETURN;
232: x_return_status := FND_API.g_ret_sts_success;
233:
234: IF (PO_LOG.d_proc) THEN
235: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
236: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
237: PO_LOG.proc_end(d_module);
238: END IF;
239: RETURN;
240: END IF;
233:
234: IF (PO_LOG.d_proc) THEN
235: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
236: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
237: PO_LOG.proc_end(d_module);
238: END IF;
239: RETURN;
240: END IF;
241:
246: ELSE /*ACTION ADD_TO */
247:
248: d_progress := 110;
249:
250: IF (PO_LOG.d_stmt) THEN
251: PO_LOG.stmt(d_module, d_progress, 'Style Validate Action ADD');
252: END IF;
253:
254: l_group_style_id := get_doc_style_id(p_po_header_id);
247:
248: d_progress := 110;
249:
250: IF (PO_LOG.d_stmt) THEN
251: PO_LOG.stmt(d_module, d_progress, 'Style Validate Action ADD');
252: END IF;
253:
254: l_group_style_id := get_doc_style_id(p_po_header_id);
255:
271: END IF; /*IF p_po_header_id is NULL THEN*/
272: END IF; /*IF p_style_id is NOT NULL THEN*/
273:
274: d_progress := 200;
275: IF (PO_LOG.d_stmt) THEN
276: PO_LOG.stmt(d_module, d_progress, 'Group style id',l_group_style_id);
277: END IF;
278:
279: IF PO_DOC_STYLE_GRP.is_standard_doc_style(l_group_style_id) = 'Y' THEN
272: END IF; /*IF p_style_id is NOT NULL THEN*/
273:
274: d_progress := 200;
275: IF (PO_LOG.d_stmt) THEN
276: PO_LOG.stmt(d_module, d_progress, 'Group style id',l_group_style_id);
277: END IF;
278:
279: IF PO_DOC_STYLE_GRP.is_standard_doc_style(l_group_style_id) = 'Y' THEN
280:
280:
281: x_style_id := l_group_style_id;
282: x_return_status := FND_API.g_ret_sts_success;
283:
284: IF (PO_LOG.d_proc) THEN
285: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
286: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
287: PO_LOG.proc_end(d_module);
288: END IF;
281: x_style_id := l_group_style_id;
282: x_return_status := FND_API.g_ret_sts_success;
283:
284: IF (PO_LOG.d_proc) THEN
285: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
286: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
287: PO_LOG.proc_end(d_module);
288: END IF;
289: RETURN;
282: x_return_status := FND_API.g_ret_sts_success;
283:
284: IF (PO_LOG.d_proc) THEN
285: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
286: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
287: PO_LOG.proc_end(d_module);
288: END IF;
289: RETURN;
290: ELSE
283:
284: IF (PO_LOG.d_proc) THEN
285: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
286: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
287: PO_LOG.proc_end(d_module);
288: END IF;
289: RETURN;
290: ELSE
291: --Fetch req lines without source refernces from the GT table
296: l_destination_type,
297: l_purchase_basis;
298: EXIT WHEN REQ_LINES_NOSOURCE_CSR%NOTFOUND;
299:
300: IF (PO_LOG.d_stmt) THEN
301: PO_LOG.stmt(d_module, d_progress, 'style validate Req attrs');
302: END IF;
303:
304:
297: l_purchase_basis;
298: EXIT WHEN REQ_LINES_NOSOURCE_CSR%NOTFOUND;
299:
300: IF (PO_LOG.d_stmt) THEN
301: PO_LOG.stmt(d_module, d_progress, 'style validate Req attrs');
302: END IF;
303:
304:
305: STYLE_VALIDATE_REQ_ATTRS(p_api_version => 1.0,
319: X_style_id := NULL;
320: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
321: p_data => x_msg_data);
322:
323: IF (PO_LOG.d_proc) THEN
324: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
325: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
326: PO_LOG.proc_end(d_module);
327: END IF;
320: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
321: p_data => x_msg_data);
322:
323: IF (PO_LOG.d_proc) THEN
324: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
325: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
326: PO_LOG.proc_end(d_module);
327: END IF;
328:
321: p_data => x_msg_data);
322:
323: IF (PO_LOG.d_proc) THEN
324: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
325: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
326: PO_LOG.proc_end(d_module);
327: END IF;
328:
329: CLOSE REQ_LINES_NOSOURCE_CSR;
322:
323: IF (PO_LOG.d_proc) THEN
324: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
325: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
326: PO_LOG.proc_end(d_module);
327: END IF;
328:
329: CLOSE REQ_LINES_NOSOURCE_CSR;
330: RETURN;
334:
335: x_style_id := l_group_style_id;
336: x_return_status := FND_API.g_ret_sts_success;
337:
338: IF (PO_LOG.d_proc) THEN
339: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
340: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
341: PO_LOG.proc_end(d_module);
342: END IF;
335: x_style_id := l_group_style_id;
336: x_return_status := FND_API.g_ret_sts_success;
337:
338: IF (PO_LOG.d_proc) THEN
339: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
340: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
341: PO_LOG.proc_end(d_module);
342: END IF;
343:
336: x_return_status := FND_API.g_ret_sts_success;
337:
338: IF (PO_LOG.d_proc) THEN
339: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
340: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
341: PO_LOG.proc_end(d_module);
342: END IF;
343:
344: CLOSE REQ_LINES_NOSOURCE_CSR;
337:
338: IF (PO_LOG.d_proc) THEN
339: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
340: PO_LOG.proc_end(d_module, 'x_style_id', x_style_id);
341: PO_LOG.proc_end(d_module);
342: END IF;
343:
344: CLOSE REQ_LINES_NOSOURCE_CSR;
345: RETURN;
358:
359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361:
362: IF (PO_LOG.d_exc) THEN
363: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
364: END IF;
365:
366: WHEN OTHERS THEN
359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
360: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
361:
362: IF (PO_LOG.d_exc) THEN
363: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
364: END IF;
365:
366: WHEN OTHERS THEN
367:
366: WHEN OTHERS THEN
367:
368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369:
370: IF (PO_LOG.d_exc) THEN
371: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
372: END IF;
373:
374: END style_validate_req_lines;
367:
368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369:
370: IF (PO_LOG.d_exc) THEN
371: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
372: END IF;
373:
374: END style_validate_req_lines;
375:
438:
439: BEGIN
440:
441: d_progress := 0;
442: IF (PO_LOG.d_proc) THEN
443: PO_LOG.proc_begin(d_module);
444: PO_LOG.proc_begin(d_module, 'p_doc_style_id', p_doc_style_id);
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
439: BEGIN
440:
441: d_progress := 0;
442: IF (PO_LOG.d_proc) THEN
443: PO_LOG.proc_begin(d_module);
444: PO_LOG.proc_begin(d_module, 'p_doc_style_id', p_doc_style_id);
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
447: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
440:
441: d_progress := 0;
442: IF (PO_LOG.d_proc) THEN
443: PO_LOG.proc_begin(d_module);
444: PO_LOG.proc_begin(d_module, 'p_doc_style_id', p_doc_style_id);
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
447: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
448: PO_LOG.proc_begin(d_module, 'p_destination_type', p_destination_type);
441: d_progress := 0;
442: IF (PO_LOG.d_proc) THEN
443: PO_LOG.proc_begin(d_module);
444: PO_LOG.proc_begin(d_module, 'p_doc_style_id', p_doc_style_id);
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
447: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
448: PO_LOG.proc_begin(d_module, 'p_destination_type', p_destination_type);
449: PO_LOG.proc_begin(d_module, 'p_source', p_source);
442: IF (PO_LOG.d_proc) THEN
443: PO_LOG.proc_begin(d_module);
444: PO_LOG.proc_begin(d_module, 'p_doc_style_id', p_doc_style_id);
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
447: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
448: PO_LOG.proc_begin(d_module, 'p_destination_type', p_destination_type);
449: PO_LOG.proc_begin(d_module, 'p_source', p_source);
450: END IF;
443: PO_LOG.proc_begin(d_module);
444: PO_LOG.proc_begin(d_module, 'p_doc_style_id', p_doc_style_id);
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
447: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
448: PO_LOG.proc_begin(d_module, 'p_destination_type', p_destination_type);
449: PO_LOG.proc_begin(d_module, 'p_source', p_source);
450: END IF;
451:
444: PO_LOG.proc_begin(d_module, 'p_doc_style_id', p_doc_style_id);
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
447: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
448: PO_LOG.proc_begin(d_module, 'p_destination_type', p_destination_type);
449: PO_LOG.proc_begin(d_module, 'p_source', p_source);
450: END IF;
451:
452: d_progress := 10;
445: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
446: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
447: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
448: PO_LOG.proc_begin(d_module, 'p_destination_type', p_destination_type);
449: PO_LOG.proc_begin(d_module, 'p_source', p_source);
450: END IF;
451:
452: d_progress := 10;
453:
468: ELSE
469: l_doc_style_id := p_doc_style_id;
470: END IF;
471:
472: IF (PO_LOG.d_proc) THEN
473: PO_LOG.proc_begin(d_module, 'l_doc_style_id', l_doc_style_id);
474: END IF;
475:
476: IF p_purchase_basis is null THEN
469: l_doc_style_id := p_doc_style_id;
470: END IF;
471:
472: IF (PO_LOG.d_proc) THEN
473: PO_LOG.proc_begin(d_module, 'l_doc_style_id', l_doc_style_id);
474: END IF;
475:
476: IF p_purchase_basis is null THEN
477:
485: ELSE
486: l_purchase_basis := p_purchase_basis;
487: END IF;
488:
489: IF (PO_LOG.d_proc) THEN
490: PO_LOG.proc_begin(d_module, 'l_purchase_basis', l_purchase_basis);
491: END IF;
492: /*Validate Purchase basis*/
493:
486: l_purchase_basis := p_purchase_basis;
487: END IF;
488:
489: IF (PO_LOG.d_proc) THEN
490: PO_LOG.proc_begin(d_module, 'l_purchase_basis', l_purchase_basis);
491: END IF;
492: /*Validate Purchase basis*/
493:
494: IF (PO_LOG.d_stmt) THEN
490: PO_LOG.proc_begin(d_module, 'l_purchase_basis', l_purchase_basis);
491: END IF;
492: /*Validate Purchase basis*/
493:
494: IF (PO_LOG.d_stmt) THEN
495: PO_LOG.stmt(d_module, d_progress, 'validate purchase basis ');
496: END IF;
497:
498: CHECK_PURCHASE_BASIS_ENABLED(p_style_id => l_doc_style_id,
491: END IF;
492: /*Validate Purchase basis*/
493:
494: IF (PO_LOG.d_stmt) THEN
495: PO_LOG.stmt(d_module, d_progress, 'validate purchase basis ');
496: END IF;
497:
498: CHECK_PURCHASE_BASIS_ENABLED(p_style_id => l_doc_style_id,
499: p_purchase_basis => l_purchase_basis,
509:
510:
511: /*Validate Line Type */
512:
513: IF (PO_LOG.d_stmt) THEN
514: PO_LOG.stmt(d_module, d_progress, 'validate line type ');
515: END IF;
516:
517: IF (l_line_type_allowed = 'SPECIFIED') THEN
510:
511: /*Validate Line Type */
512:
513: IF (PO_LOG.d_stmt) THEN
514: PO_LOG.stmt(d_module, d_progress, 'validate line type ');
515: END IF;
516:
517: IF (l_line_type_allowed = 'SPECIFIED') THEN
518:
537:
538: IF is_progress_payments_enabled(l_doc_style_id) THEN
539: d_progress := 100;
540:
541: IF (PO_LOG.d_stmt) THEN
542: PO_LOG.stmt(d_module, d_progress, 'complex work validations: line type');
543: END IF;
544:
545: /*Complex work validation :1 */
538: IF is_progress_payments_enabled(l_doc_style_id) THEN
539: d_progress := 100;
540:
541: IF (PO_LOG.d_stmt) THEN
542: PO_LOG.stmt(d_module, d_progress, 'complex work validations: line type');
543: END IF;
544:
545: /*Complex work validation :1 */
546: IF IS_RATE_BASED_TEMP_LABOR(p_line_type_id) THEN
571: END IF;
572:
573:
574: /*Complex work validation :3 */
575: IF (PO_LOG.d_stmt) THEN
576: PO_LOG.stmt(d_module, d_progress, 'complex work validations: destination type');
577: END IF;
578:
579: IF p_destination_type is not null AND
572:
573:
574: /*Complex work validation :3 */
575: IF (PO_LOG.d_stmt) THEN
576: PO_LOG.stmt(d_module, d_progress, 'complex work validations: destination type');
577: END IF;
578:
579: IF p_destination_type is not null AND
580: p_destination_type IN ('INVENTORY', 'SHOP FLOOR') THEN
605: END IF; /*IF p_source IN ('AUTOCREATE', 'REQUISITION')*/
606:
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608:
609: IF (PO_LOG.d_proc) THEN
610: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
611: PO_LOG.proc_end(d_module);
612: END IF;
613: RETURN;
606:
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608:
609: IF (PO_LOG.d_proc) THEN
610: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
611: PO_LOG.proc_end(d_module);
612: END IF;
613: RETURN;
614:
607: x_return_status := FND_API.G_RET_STS_SUCCESS;
608:
609: IF (PO_LOG.d_proc) THEN
610: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
611: PO_LOG.proc_end(d_module);
612: END IF;
613: RETURN;
614:
615: EXCEPTION
623:
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626:
627: IF (PO_LOG.d_exc) THEN
628: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
629: END IF;
630:
631: WHEN OTHERS THEN
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
626:
627: IF (PO_LOG.d_exc) THEN
628: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
629: END IF;
630:
631: WHEN OTHERS THEN
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630:
631: WHEN OTHERS THEN
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633:
634: IF (PO_LOG.d_exc) THEN
635: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
636: END IF;
637:
638: END style_validate_req_attrs;
631: WHEN OTHERS THEN
632: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
633:
634: IF (PO_LOG.d_exc) THEN
635: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
636: END IF;
637:
638: END style_validate_req_attrs;
639:
673:
674: BEGIN
675:
676: d_progress := 0;
677: IF (PO_LOG.d_proc) THEN
678: PO_LOG.proc_begin(d_module);
679: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
680: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
681: END IF;
674: BEGIN
675:
676: d_progress := 0;
677: IF (PO_LOG.d_proc) THEN
678: PO_LOG.proc_begin(d_module);
679: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
680: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
681: END IF;
682:
675:
676: d_progress := 0;
677: IF (PO_LOG.d_proc) THEN
678: PO_LOG.proc_begin(d_module);
679: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
680: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
681: END IF;
682:
683: d_progress := '010';
676: d_progress := 0;
677: IF (PO_LOG.d_proc) THEN
678: PO_LOG.proc_begin(d_module);
679: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
680: PO_LOG.proc_begin(d_module, 'p_purchase_basis', p_purchase_basis);
681: END IF;
682:
683: d_progress := '010';
684:
695:
696: d_progress := '020';
697:
698: X_purchase_basis_enabled := TRUE;
699: IF (PO_LOG.d_proc) THEN
700: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
701: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
702: PO_LOG.proc_end(d_module);
703: END IF;
696: d_progress := '020';
697:
698: X_purchase_basis_enabled := TRUE;
699: IF (PO_LOG.d_proc) THEN
700: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
701: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
702: PO_LOG.proc_end(d_module);
703: END IF;
704:
697:
698: X_purchase_basis_enabled := TRUE;
699: IF (PO_LOG.d_proc) THEN
700: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
701: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
702: PO_LOG.proc_end(d_module);
703: END IF;
704:
705: RETURN;
698: X_purchase_basis_enabled := TRUE;
699: IF (PO_LOG.d_proc) THEN
700: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
701: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
702: PO_LOG.proc_end(d_module);
703: END IF;
704:
705: RETURN;
706: EXCEPTION
706: EXCEPTION
707: WHEN NO_DATA_FOUND THEN
708: x_purchase_basis_enabled := FALSE;
709: x_related_line_types := NULL;
710: IF (PO_LOG.d_proc) THEN
711: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
712: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
713: PO_LOG.proc_end(d_module);
714: END IF;
707: WHEN NO_DATA_FOUND THEN
708: x_purchase_basis_enabled := FALSE;
709: x_related_line_types := NULL;
710: IF (PO_LOG.d_proc) THEN
711: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
712: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
713: PO_LOG.proc_end(d_module);
714: END IF;
715:
708: x_purchase_basis_enabled := FALSE;
709: x_related_line_types := NULL;
710: IF (PO_LOG.d_proc) THEN
711: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
712: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
713: PO_LOG.proc_end(d_module);
714: END IF;
715:
716: RETURN;
709: x_related_line_types := NULL;
710: IF (PO_LOG.d_proc) THEN
711: PO_LOG.proc_end(d_module, 'x_purchase_basis_enabled', x_purchase_basis_enabled);
712: PO_LOG.proc_end(d_module, 'x_related_line_types', x_related_line_types);
713: PO_LOG.proc_end(d_module);
714: END IF;
715:
716: RETURN;
717: END check_purchase_basis_enabled;
747: l_count NUMBER;
748: BEGIN
749:
750: d_progress := 0;
751: IF (PO_LOG.d_proc) THEN
752: PO_LOG.proc_begin(d_module);
753: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
754: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
755: END IF;
748: BEGIN
749:
750: d_progress := 0;
751: IF (PO_LOG.d_proc) THEN
752: PO_LOG.proc_begin(d_module);
753: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
754: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
755: END IF;
756:
749:
750: d_progress := 0;
751: IF (PO_LOG.d_proc) THEN
752: PO_LOG.proc_begin(d_module);
753: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
754: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
755: END IF;
756:
757: d_progress := 10;
750: d_progress := 0;
751: IF (PO_LOG.d_proc) THEN
752: PO_LOG.proc_begin(d_module);
753: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
754: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
755: END IF;
756:
757: d_progress := 10;
758:
779: return FALSE;
780:
781: EXCEPTION
782: WHEN OTHERS THEN
783: IF (PO_LOG.d_exc) THEN
784: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
785: END IF;
786: RAISE;
787: END is_line_type_enabled;
780:
781: EXCEPTION
782: WHEN OTHERS THEN
783: IF (PO_LOG.d_exc) THEN
784: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
785: END IF;
786: RAISE;
787: END is_line_type_enabled;
788:
812: l_count NUMBER;
813: BEGIN
814:
815: d_progress := 0;
816: IF (PO_LOG.d_proc) THEN
817: PO_LOG.proc_begin(d_module);
818: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
819: END IF;
820: d_progress := 10;
813: BEGIN
814:
815: d_progress := 0;
816: IF (PO_LOG.d_proc) THEN
817: PO_LOG.proc_begin(d_module);
818: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
819: END IF;
820: d_progress := 10;
821:
814:
815: d_progress := 0;
816: IF (PO_LOG.d_proc) THEN
817: PO_LOG.proc_begin(d_module);
818: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
819: END IF;
820: d_progress := 10;
821:
822: SELECT count(1)
838:
839: return FALSE;
840: EXCEPTION
841: WHEN OTHERS THEN
842: IF (PO_LOG.d_exc) THEN
843: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
844: END IF;
845: RAISE;
846: END is_rate_based_temp_labor;
839: return FALSE;
840: EXCEPTION
841: WHEN OTHERS THEN
842: IF (PO_LOG.d_exc) THEN
843: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
844: END IF;
845: RAISE;
846: END is_rate_based_temp_labor;
847:
872: l_count NUMBER;
873: BEGIN
874:
875: d_progress := 0;
876: IF (PO_LOG.d_proc) THEN
877: PO_LOG.proc_begin(d_module);
878: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
879: END IF;
880: d_progress := 10;
873: BEGIN
874:
875: d_progress := 0;
876: IF (PO_LOG.d_proc) THEN
877: PO_LOG.proc_begin(d_module);
878: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
879: END IF;
880: d_progress := 10;
881:
874:
875: d_progress := 0;
876: IF (PO_LOG.d_proc) THEN
877: PO_LOG.proc_begin(d_module);
878: PO_LOG.proc_begin(d_module, 'p_line_type_id', p_line_type_id);
879: END IF;
880: d_progress := 10;
881:
882: SELECT count(1)
898:
899: return FALSE;
900: EXCEPTION
901: WHEN OTHERS THEN
902: IF (PO_LOG.d_exc) THEN
903: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
904: END IF;
905: RAISE;
906: END is_amount_based_services_line;
899: return FALSE;
900: EXCEPTION
901: WHEN OTHERS THEN
902: IF (PO_LOG.d_exc) THEN
903: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
904: END IF;
905: RAISE;
906: END is_amount_based_services_line;
907:
931: l_style_id PO_DOC_STYLE_HEADERS.STYLE_ID%type;
932: BEGIN
933:
934: d_progress := 0;
935: IF (PO_LOG.d_proc) THEN
936: PO_LOG.proc_begin(d_module);
937: PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
938: END IF;
939:
932: BEGIN
933:
934: d_progress := 0;
935: IF (PO_LOG.d_proc) THEN
936: PO_LOG.proc_begin(d_module);
937: PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
938: END IF;
939:
940: d_progress := 10;
933:
934: d_progress := 0;
935: IF (PO_LOG.d_proc) THEN
936: PO_LOG.proc_begin(d_module);
937: PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
938: END IF;
939:
940: d_progress := 10;
941:
948:
949: EXCEPTION
950: WHEN OTHERS THEN
951:
952: IF (PO_LOG.d_exc) THEN
953: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
954: END IF;
955: RAISE;
956: END get_doc_style_id;
949: EXCEPTION
950: WHEN OTHERS THEN
951:
952: IF (PO_LOG.d_exc) THEN
953: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
954: END IF;
955: RAISE;
956: END get_doc_style_id;
957:
984:
985: BEGIN
986:
987: d_progress := 0;
988: IF (PO_LOG.d_proc) THEN
989: PO_LOG.proc_begin(d_module);
990: PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
991: PO_LOG.proc_begin(d_module, 'p_language', p_language);
992: END IF;
985: BEGIN
986:
987: d_progress := 0;
988: IF (PO_LOG.d_proc) THEN
989: PO_LOG.proc_begin(d_module);
990: PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
991: PO_LOG.proc_begin(d_module, 'p_language', p_language);
992: END IF;
993:
986:
987: d_progress := 0;
988: IF (PO_LOG.d_proc) THEN
989: PO_LOG.proc_begin(d_module);
990: PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
991: PO_LOG.proc_begin(d_module, 'p_language', p_language);
992: END IF;
993:
994: d_progress := 10;
987: d_progress := 0;
988: IF (PO_LOG.d_proc) THEN
989: PO_LOG.proc_begin(d_module);
990: PO_LOG.proc_begin(d_module, 'p_doc_id', p_doc_id);
991: PO_LOG.proc_begin(d_module, 'p_language', p_language);
992: END IF;
993:
994: d_progress := 10;
995:
1006: RETURN l_style_display_name;
1007:
1008: EXCEPTION
1009: WHEN OTHERS THEN
1010: IF (PO_LOG.d_exc) THEN
1011: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
1012: END IF;
1013: RAISE;
1014: END get_style_display_name;
1007:
1008: EXCEPTION
1009: WHEN OTHERS THEN
1010: IF (PO_LOG.d_exc) THEN
1011: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
1012: END IF;
1013: RAISE;
1014: END get_style_display_name;
1015:
1038: l_result VARCHAR2(1);
1039: BEGIN
1040:
1041: d_progress := 0;
1042: IF (PO_LOG.d_proc) THEN
1043: PO_LOG.proc_begin(d_module);
1044: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
1045: END IF;
1046: d_progress := 10;
1039: BEGIN
1040:
1041: d_progress := 0;
1042: IF (PO_LOG.d_proc) THEN
1043: PO_LOG.proc_begin(d_module);
1044: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
1045: END IF;
1046: d_progress := 10;
1047:
1040:
1041: d_progress := 0;
1042: IF (PO_LOG.d_proc) THEN
1043: PO_LOG.proc_begin(d_module);
1044: PO_LOG.proc_begin(d_module, 'p_style_id', p_style_id);
1045: END IF;
1046: d_progress := 10;
1047:
1048: SELECT progress_payment_flag
1057: END IF;
1058:
1059: EXCEPTION
1060: WHEN OTHERS THEN
1061: IF (PO_LOG.d_exc) THEN
1062: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
1063: END IF;
1064: RAISE;
1065: END is_progress_payments_enabled;
1058:
1059: EXCEPTION
1060: WHEN OTHERS THEN
1061: IF (PO_LOG.d_exc) THEN
1062: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
1063: END IF;
1064: RAISE;
1065: END is_progress_payments_enabled;
1066:
1101: BEGIN
1102:
1103:
1104: d_progress := 0;
1105: IF (PO_LOG.d_proc) THEN
1106: PO_LOG.proc_begin(d_module);
1107: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
1108: END IF;
1109:
1102:
1103:
1104: d_progress := 0;
1105: IF (PO_LOG.d_proc) THEN
1106: PO_LOG.proc_begin(d_module);
1107: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
1108: END IF;
1109:
1110: SELECT PO_SESSION_GT_S.nextval INTO l_session_gt_key FROM dual;
1103:
1104: d_progress := 0;
1105: IF (PO_LOG.d_proc) THEN
1106: PO_LOG.proc_begin(d_module);
1107: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
1108: END IF;
1109:
1110: SELECT PO_SESSION_GT_S.nextval INTO l_session_gt_key FROM dual;
1111:
1118: * char1 = Destination type
1119: * char2 = Purchase Basis
1120: */
1121: d_progress := 10;
1122: IF (PO_LOG.d_stmt) THEN
1123: PO_LOG.stmt(d_module, d_progress, 'inserting into po_session_gt');
1124: END IF;
1125:
1126: FORALL i IN p_req_line_id_table.first .. p_req_line_id_table.last
1119: * char2 = Purchase Basis
1120: */
1121: d_progress := 10;
1122: IF (PO_LOG.d_stmt) THEN
1123: PO_LOG.stmt(d_module, d_progress, 'inserting into po_session_gt');
1124: END IF;
1125:
1126: FORALL i IN p_req_line_id_table.first .. p_req_line_id_table.last
1127: insert into po_session_gt
1140: p_purchase_basis_table(i)
1141: );
1142:
1143: d_progress := 20;
1144: IF (PO_LOG.d_stmt) THEN
1145: PO_LOG.stmt(d_module, d_progress, 'style_validate_req_lines');
1146: END IF;
1147:
1148: STYLE_VALIDATE_REQ_LINES(p_api_version => 1.0,
1141: );
1142:
1143: d_progress := 20;
1144: IF (PO_LOG.d_stmt) THEN
1145: PO_LOG.stmt(d_module, d_progress, 'style_validate_req_lines');
1146: END IF;
1147:
1148: STYLE_VALIDATE_REQ_LINES(p_api_version => 1.0,
1149: p_init_msg_list => FND_API.G_TRUE,
1156: x_style_id => x_style_id);
1157:
1158: delete po_session_gt where key = l_session_gt_key;
1159:
1160: IF (PO_LOG.d_proc) THEN
1161: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1162: PO_LOG.proc_end(d_module);
1163: END IF;
1164:
1157:
1158: delete po_session_gt where key = l_session_gt_key;
1159:
1160: IF (PO_LOG.d_proc) THEN
1161: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1162: PO_LOG.proc_end(d_module);
1163: END IF;
1164:
1165: EXCEPTION
1158: delete po_session_gt where key = l_session_gt_key;
1159:
1160: IF (PO_LOG.d_proc) THEN
1161: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1162: PO_LOG.proc_end(d_module);
1163: END IF;
1164:
1165: EXCEPTION
1166: WHEN OTHERS THEN
1163: END IF;
1164:
1165: EXCEPTION
1166: WHEN OTHERS THEN
1167: IF (PO_LOG.d_exc) THEN
1168: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
1169: END IF;
1170: RAISE;
1171: END populate_gt_and_validate;
1164:
1165: EXCEPTION
1166: WHEN OTHERS THEN
1167: IF (PO_LOG.d_exc) THEN
1168: PO_LOG.exc(d_module,d_progress,SQLCODE || SQLERRM);
1169: END IF;
1170: RAISE;
1171: END populate_gt_and_validate;
1172: