31: --OUT:
32: --x_line_rate_based
33: -- TRUE if the given standard PO header or line meets conditions, FALSE otherwise.
34: --x_return_status
35: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
36: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
37: --End of Comments
38: -------------------------------------------------------------------------------
39: PROCEDURE check_if_line_rate_based (
32: --x_line_rate_based
33: -- TRUE if the given standard PO header or line meets conditions, FALSE otherwise.
34: --x_return_status
35: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
36: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
37: --End of Comments
38: -------------------------------------------------------------------------------
39: PROCEDURE check_if_line_rate_based (
40: p_api_version IN NUMBER,
53: IF g_debug_stmt THEN
54: PO_DEBUG.debug_begin(l_log_head);
55: END IF;
56:
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
59: -- Standard API initialization:
60: IF NOT FND_API.compatible_api_call (
61: p_current_version_number => l_api_version,
56:
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
59: -- Standard API initialization:
60: IF NOT FND_API.compatible_api_call (
61: p_current_version_number => l_api_version,
62: p_caller_version_number => p_api_version,
63: p_api_name => l_api_name,
64: p_pkg_name => g_pkg_name ) THEN
61: p_current_version_number => l_api_version,
62: p_caller_version_number => p_api_version,
63: p_api_name => l_api_name,
64: p_pkg_name => g_pkg_name ) THEN
65: RAISE FND_API.g_exc_unexpected_error;
66: END IF;
67:
68: IF g_debug_stmt THEN
69: PO_DEBUG.debug_stmt(l_log_head, l_progress,
112: END IF;
113: END IF;
114:
115: EXCEPTION
116: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
118: IF g_debug_unexp THEN
119: PO_DEBUG.debug_exc(l_log_head, l_progress);
120: END IF;
113: END IF;
114:
115: EXCEPTION
116: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
118: IF g_debug_unexp THEN
119: PO_DEBUG.debug_exc(l_log_head, l_progress);
120: END IF;
121: WHEN OTHERS THEN
118: IF g_debug_unexp THEN
119: PO_DEBUG.debug_exc(l_log_head, l_progress);
120: END IF;
121: WHEN OTHERS THEN
122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
124: IF g_debug_unexp THEN
125: PO_DEBUG.debug_exc(l_log_head, l_progress);
126: END IF;
147: --x_amount
148: -- Total timecard amount for the PO line; 0 if no contractor is associated
149: -- with the line.
150: --x_return_status
151: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
152: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
153: --End of Comments
154: -------------------------------------------------------------------------------
155: PROCEDURE get_timecard_amount (
148: -- Total timecard amount for the PO line; 0 if no contractor is associated
149: -- with the line.
150: --x_return_status
151: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
152: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
153: --End of Comments
154: -------------------------------------------------------------------------------
155: PROCEDURE get_timecard_amount (
156: p_api_version IN NUMBER,
173: IF g_debug_stmt THEN
174: PO_DEBUG.debug_begin(l_log_head);
175: END IF;
176:
177: x_return_status := FND_API.G_RET_STS_SUCCESS;
178:
179: -- Standard API initialization:
180: IF NOT FND_API.compatible_api_call (
181: p_current_version_number => l_api_version,
176:
177: x_return_status := FND_API.G_RET_STS_SUCCESS;
178:
179: -- Standard API initialization:
180: IF NOT FND_API.compatible_api_call (
181: p_current_version_number => l_api_version,
182: p_caller_version_number => p_api_version,
183: p_api_name => l_api_name,
184: p_pkg_name => g_pkg_name ) THEN
181: p_current_version_number => l_api_version,
182: p_caller_version_number => p_api_version,
183: p_api_name => l_api_name,
184: p_pkg_name => g_pkg_name ) THEN
185: RAISE FND_API.g_exc_unexpected_error;
186: END IF;
187:
188: --
189: check_if_line_rate_based (p_api_version => p_api_version,
190: x_return_status => l_return_status,
191: p_field_name => PO_HXC_INTERFACE_PVT.field_PO_LINE_ID(),
192: p_field_value => p_po_line_id,
193: x_line_rate_based => l_line_rate_based);
194: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197:
198: IF (l_line_rate_based <> TRUE) THEN
191: p_field_name => PO_HXC_INTERFACE_PVT.field_PO_LINE_ID(),
192: p_field_value => p_po_line_id,
193: x_line_rate_based => l_line_rate_based);
194: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
195: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196: END IF;
197:
198: IF (l_line_rate_based <> TRUE) THEN
199: x_amount := 0;
232: END IF;
233: --
234:
235: EXCEPTION
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF g_debug_unexp THEN
239: PO_DEBUG.debug_exc(l_log_head, l_progress);
240: END IF;
233: --
234:
235: EXCEPTION
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238: IF g_debug_unexp THEN
239: PO_DEBUG.debug_exc(l_log_head, l_progress);
240: END IF;
241: WHEN OTHERS THEN
238: IF g_debug_unexp THEN
239: PO_DEBUG.debug_exc(l_log_head, l_progress);
240: END IF;
241: WHEN OTHERS THEN
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
244: IF g_debug_unexp THEN
245: PO_DEBUG.debug_exc(l_log_head, l_progress);
246: END IF;
271: --OUT:
272: --x_timecard_exists
273: -- TRUE if there are timecards matching the given conditions, FALSE otherwise.
274: --x_return_status
275: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
276: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
277: --End of Comments
278: -------------------------------------------------------------------------------
279: PROCEDURE check_timecard_exists (
272: --x_timecard_exists
273: -- TRUE if there are timecards matching the given conditions, FALSE otherwise.
274: --x_return_status
275: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
276: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
277: --End of Comments
278: -------------------------------------------------------------------------------
279: PROCEDURE check_timecard_exists (
280: p_api_version IN NUMBER,
298: IF g_debug_stmt THEN
299: PO_DEBUG.debug_begin(l_log_head);
300: END IF;
301:
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303:
304: -- Standard API initialization:
305: IF NOT FND_API.compatible_api_call (
306: p_current_version_number => l_api_version,
301:
302: x_return_status := FND_API.G_RET_STS_SUCCESS;
303:
304: -- Standard API initialization:
305: IF NOT FND_API.compatible_api_call (
306: p_current_version_number => l_api_version,
307: p_caller_version_number => p_api_version,
308: p_api_name => l_api_name,
309: p_pkg_name => g_pkg_name ) THEN
306: p_current_version_number => l_api_version,
307: p_caller_version_number => p_api_version,
308: p_api_name => l_api_name,
309: p_pkg_name => g_pkg_name ) THEN
310: RAISE FND_API.g_exc_unexpected_error;
311: END IF;
312:
313: --
314: check_if_line_rate_based (p_api_version => p_api_version,
315: x_return_status => l_return_status,
316: p_field_name => p_field_name,
317: p_field_value => p_field_value,
318: x_line_rate_based => l_line_rate_based);
319: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322:
323: IF (l_line_rate_based <> TRUE) THEN
316: p_field_name => p_field_name,
317: p_field_value => p_field_value,
318: x_line_rate_based => l_line_rate_based);
319: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
321: END IF;
322:
323: IF (l_line_rate_based <> TRUE) THEN
324: x_timecard_exists := FALSE;
363: END IF;
364: END IF;
365:
366: EXCEPTION
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369: IF g_debug_unexp THEN
370: PO_DEBUG.debug_exc(l_log_head, l_progress);
371: END IF;
364: END IF;
365:
366: EXCEPTION
367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
368: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
369: IF g_debug_unexp THEN
370: PO_DEBUG.debug_exc(l_log_head, l_progress);
371: END IF;
372: WHEN OTHERS THEN
369: IF g_debug_unexp THEN
370: PO_DEBUG.debug_exc(l_log_head, l_progress);
371: END IF;
372: WHEN OTHERS THEN
373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
375: IF g_debug_unexp THEN
376: PO_DEBUG.debug_exc(l_log_head, l_progress);
377: END IF;
503: --x_amount
504: -- Total timecard amount for the PO line project /task; 0 if no contractor is associated
505: -- with the line.
506: --x_return_status
507: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
508: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
509: --End of Comments
510: -------------------------------------------------------------------------------
511: PROCEDURE get_pa_timecard_amount (
504: -- Total timecard amount for the PO line project /task; 0 if no contractor is associated
505: -- with the line.
506: --x_return_status
507: -- FND_API.G_RET_STS_SUCCESS if the API completed successfully.
508: -- FND_API.G_RET_STS_UNEXP_ERROR if an unexpected error occurred.
509: --End of Comments
510: -------------------------------------------------------------------------------
511: PROCEDURE get_pa_timecard_amount (
512: p_api_version IN NUMBER,
531: IF g_debug_stmt THEN
532: PO_DEBUG.debug_begin(l_log_head);
533: END IF;
534:
535: x_return_status := FND_API.G_RET_STS_SUCCESS;
536:
537: -- Standard API initialization:
538: IF NOT FND_API.compatible_api_call (
539: p_current_version_number => l_api_version,
534:
535: x_return_status := FND_API.G_RET_STS_SUCCESS;
536:
537: -- Standard API initialization:
538: IF NOT FND_API.compatible_api_call (
539: p_current_version_number => l_api_version,
540: p_caller_version_number => p_api_version,
541: p_api_name => l_api_name,
542: p_pkg_name => g_pkg_name ) THEN
539: p_current_version_number => l_api_version,
540: p_caller_version_number => p_api_version,
541: p_api_name => l_api_name,
542: p_pkg_name => g_pkg_name ) THEN
543: RAISE FND_API.g_exc_unexpected_error;
544: END IF;
545:
546: --
547: check_if_line_rate_based (p_api_version => p_api_version,
549: p_field_name => PO_HXC_INTERFACE_PVT.field_PO_LINE_ID(),
550: p_field_value => p_po_line_id,
551: x_line_rate_based => l_line_rate_based);
552:
553: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556:
557: IF (l_line_rate_based <> TRUE) THEN
550: p_field_value => p_po_line_id,
551: x_line_rate_based => l_line_rate_based);
552:
553: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556:
557: IF (l_line_rate_based <> TRUE) THEN
558: x_amount := 0;
599: END IF;
600: --
601:
602: EXCEPTION
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605: IF g_debug_unexp THEN
606: PO_DEBUG.debug_exc(l_log_head, l_progress);
607: END IF;
600: --
601:
602: EXCEPTION
603: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
605: IF g_debug_unexp THEN
606: PO_DEBUG.debug_exc(l_log_head, l_progress);
607: END IF;
608: WHEN OTHERS THEN
605: IF g_debug_unexp THEN
606: PO_DEBUG.debug_exc(l_log_head, l_progress);
607: END IF;
608: WHEN OTHERS THEN
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
611: IF g_debug_unexp THEN
612: PO_DEBUG.debug_exc(l_log_head, l_progress);
613: END IF;