47: BEGIN
48:
49:
50:
51: x_return_status := FND_API.G_RET_STS_SUCCESS;
52: x_msg_count := 0;
53: x_msg_data := NULL;
54:
55:
229: END IF;
230:
231: EXCEPTION
232: WHEN l_emp_not_found THEN
233: x_return_status := FND_API.G_RET_STS_ERROR;
234: x_msg_count := 1;
235: x_msg_data := 'PA_ALL_WARN_NO_EMPL_REC';
236:
237: WHEN OTHERS THEN
247: X_prj_closed_flag := null;
248: x_dist_warn_flag := null;
249: x_org_id := null;
250: x_multi_cust_flag := null;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252: x_msg_count := 1;
253: x_msg_data := SUBSTR(SQLERRM,1,100);
254:
255: END get_inv_global_value;
274:
275: BEGIN
276:
277:
278: x_return_status := FND_API.G_RET_STS_SUCCESS;
279: x_msg_count := 0;
280: x_msg_data := NULL;
281:
282:
310: AND draft_invoice_num = p_draft_invoice_num ;
311:
312: ELSE
313:
314: x_return_status := FND_API.G_RET_STS_ERROR;
315: x_msg_data := 'PA_XC_RECORD_CHANGED';
316: x_msg_count := 1;
317:
318: END IF;
320:
321:
322: EXCEPTION
323: WHEN OTHERS THEN
324: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
325: x_msg_count := 1;
326: x_msg_data := SUBSTR(SQLERRM,1,100);
327:
328: END Approve_info_commit;
350:
351: l_event_type := null;
352:
353:
354: x_return_status := FND_API.G_RET_STS_SUCCESS;
355: x_msg_count := 0;
356: x_msg_data := NULL;
357:
358:
381: x_invoice_mode := 'FROM-EI';
382:
383: ELSE
384:
385: x_return_status := FND_API.G_RET_STS_ERROR;
386: x_msg_count := 1;
387: x_msg_data := 'PA_IN_NO_FIFO_ITEMS';
388:
389: END IF;
408:
409:
410: EXCEPTION
411: WHEN OTHERS THEN
412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
413: x_msg_count := 1;
414: x_msg_data := SUBSTR(SQLERRM,1,100);
415:
416: END Get_invoice_mode;
660:
661: BEGIN
662:
663:
664: x_return_status := FND_API.G_RET_STS_SUCCESS;
665: x_msg_count := 0;
666: x_msg_data := NULL;
667: x_app_draft_num := NULL;
668: l_app_draft_num := NULL;
710: x_app_draft_num := l_app_draft_num;
711:
712: ELSE
713:
714: x_return_status := FND_API.G_RET_STS_ERROR;
715: x_msg_data := 'PA_XC_RECORD_CHANGED';
716: x_msg_count := 1;
717:
718: END IF;
720:
721:
722: EXCEPTION
723: WHEN OTHERS THEN
724: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
725: x_msg_count := 1;
726: x_msg_data := SUBSTR(SQLERRM,1,100);
727:
728: /* ATG Changes */