2: /* $Header: POXVIHXB.pls 120.2.12020000.2 2013/02/10 19:05:50 vegajula ship $*/
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_HXC_INTERFACE_PVT';
5: g_log_head CONSTANT VARCHAR2(40) := 'po.plsql.' || g_pkg_name || '.';
6: g_debug_unexp BOOLEAN := PO_DEBUG.is_debug_unexp_on;
7: g_debug_stmt BOOLEAN := PO_DEBUG.is_debug_stmt_on;
8:
9: --
10: -------------------------------------------------------------------------------
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'PO_HXC_INTERFACE_PVT';
5: g_log_head CONSTANT VARCHAR2(40) := 'po.plsql.' || g_pkg_name || '.';
6: g_debug_unexp BOOLEAN := PO_DEBUG.is_debug_unexp_on;
7: g_debug_stmt BOOLEAN := PO_DEBUG.is_debug_stmt_on;
8:
9: --
10: -------------------------------------------------------------------------------
11: --Start of Comments
50: c_RATE CONSTANT VARCHAR2(30) := 'RATE';
51: l_exists_flag NUMBER := 0;
52: BEGIN
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:
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,
70: 'Calling API check_if_line_rate_based for'
71: ||' field_name: '||p_field_name
72: ||' field_value: '||p_field_value);
73: END IF;
103: END IF;
104:
105: IF g_debug_stmt THEN
106: IF (x_line_rate_based) THEN
107: PO_DEBUG.debug_stmt(l_log_head, l_progress,
108: 'x_line_rate_based returned true.');
109: ELSE
110: PO_DEBUG.debug_stmt(l_log_head, l_progress,
111: 'x_line_rate_based returned false.');
106: IF (x_line_rate_based) THEN
107: PO_DEBUG.debug_stmt(l_log_head, l_progress,
108: 'x_line_rate_based returned true.');
109: ELSE
110: PO_DEBUG.debug_stmt(l_log_head, l_progress,
111: 'x_line_rate_based returned false.');
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;
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);
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;
127: END check_if_line_rate_based;
128: --
129:
170: --
171:
172: BEGIN
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:
203: l_person_id := HR_PO_INFO.get_person_id_for_po_line (
204: p_po_line_id => p_po_line_id );
205:
206: IF g_debug_stmt THEN
207: PO_DEBUG.debug_stmt(l_log_head, l_progress,
208: 'Calling OTL API get_mappingvalue_sum for'
209: ||' po_line_id: '||p_po_line_id
210: ||', person_id: '||l_person_id);
211: END IF;
223: p_status => g_status_SUBMITTED,
224: p_resource_id => l_person_id);
225:
226: IF g_debug_stmt THEN
227: PO_DEBUG.debug_stmt(l_log_head, l_progress,
228: 'get_mappingvalue_sum returned: '||x_amount);
229: END IF;
230: END IF;
231:
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
242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
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;
247: END get_timecard_amount;
248:
249: -------------------------------------------------------------------------------
295: --
296:
297: BEGIN
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:
326: END IF;
327: --
328:
329: IF g_debug_stmt THEN
330: PO_DEBUG.debug_stmt(l_log_head, l_progress,
331: 'Calling OTL API chk_mapping_exists for'
332: ||' field_name: '||p_field_name
333: ||' field_value: '||p_field_value
334: ||', end_date: '||p_end_date);
354: );
355:
356: IF g_debug_stmt THEN
357: IF (x_timecard_exists) THEN
358: PO_DEBUG.debug_stmt(l_log_head, l_progress,
359: 'chk_mapping_exists returned true.');
360: ELSE
361: PO_DEBUG.debug_stmt(l_log_head, l_progress,
362: 'chk_mapping_exists returned false.');
357: IF (x_timecard_exists) THEN
358: PO_DEBUG.debug_stmt(l_log_head, l_progress,
359: 'chk_mapping_exists returned true.');
360: ELSE
361: PO_DEBUG.debug_stmt(l_log_head, l_progress,
362: 'chk_mapping_exists returned 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;
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);
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;
378: END check_timecard_exists;
379:
380: -------------------------------------------------------------------------------
528: --
529:
530: BEGIN
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:
562: l_person_id := HR_PO_INFO.get_person_id_for_po_line (
563: p_po_line_id => p_po_line_id );
564:
565: IF g_debug_stmt THEN
566: PO_DEBUG.debug_stmt(l_log_head, l_progress,
567: 'Calling OTL API get_mappingvalue_sum for'
568: ||' po_line_id: '||p_po_line_id
569: ||' project_id: '||p_project_id
570: ||' task_id: '||p_task_id
591: p_status => g_status_SUBMITTED,
592: p_resource_id => l_person_id);
593:
594: IF g_debug_stmt THEN
595: PO_DEBUG.debug_stmt(l_log_head, l_progress,
596: 'get_mappingvalue_sum for projects returned: '||x_amount);
597: END IF;
598: END IF;
599: END IF;
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
609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
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;
614: END get_pa_timecard_amount;
615:
616: END PO_HXC_INTERFACE_PVT;