125: end if;
126: EXCEPTION
127: WHEN OTHERS THEN
128: BEGIN
129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'IsSessionProjectEnabled');
132: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
133: END;
126: EXCEPTION
127: WHEN OTHERS THEN
128: BEGIN
129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'IsSessionProjectEnabled');
132: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
133: END;
134:
127: WHEN OTHERS THEN
128: BEGIN
129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'IsSessionProjectEnabled');
132: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
133: END;
134:
135:
128: BEGIN
129: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
130: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
131: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'IsSessionProjectEnabled');
132: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
133: END;
134:
135:
136: END;
153: END IF;
154: EXCEPTION
155: WHEN OTHERS THEN
156: BEGIN
157: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
158: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
159: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'GetExpenditureTypeMapping');
160: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
161: END;
154: EXCEPTION
155: WHEN OTHERS THEN
156: BEGIN
157: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
158: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
159: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'GetExpenditureTypeMapping');
160: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
161: END;
162:
155: WHEN OTHERS THEN
156: BEGIN
157: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
158: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
159: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'GetExpenditureTypeMapping');
160: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
161: END;
162:
163: END GetExpenditureTypeMapping;
156: BEGIN
157: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
158: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
159: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'GetExpenditureTypeMapping');
160: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
161: END;
162:
163: END GetExpenditureTypeMapping;
164:
222: end if; -- P_IsProjectEnabled = 'Y'
223: EXCEPTION
224: WHEN OTHERS THEN
225: BEGIN
226: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
227: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
228: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromDatabase');
229: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
230: END;
223: EXCEPTION
224: WHEN OTHERS THEN
225: BEGIN
226: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
227: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
228: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromDatabase');
229: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
230: END;
231:
224: WHEN OTHERS THEN
225: BEGIN
226: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
227: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
228: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromDatabase');
229: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
230: END;
231:
232: END DerivePAInfoFromDatabase;
225: BEGIN
226: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
227: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
228: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromDatabase');
229: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
230: END;
231:
232: END DerivePAInfoFromDatabase;
233:
297: end if;
298: EXCEPTION
299: WHEN OTHERS THEN
300: BEGIN
301: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
302: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
303: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromUserInput');
304: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
305: END;
298: EXCEPTION
299: WHEN OTHERS THEN
300: BEGIN
301: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
302: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
303: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromUserInput');
304: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
305: END;
306: END DerivePAInfoFromUserInput;
299: WHEN OTHERS THEN
300: BEGIN
301: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
302: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
303: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromUserInput');
304: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
305: END;
306: END DerivePAInfoFromUserInput;
307:
300: BEGIN
301: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
302: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
303: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'DerivePAInfoFromUserInput');
304: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
305: END;
306: END DerivePAInfoFromUserInput;
307:
308: PROCEDURE ValidatePATransaction(
414:
415: -- If errors occurred, then get the message text and return in P_msg_data
416: P_Msg_Data := NULL;
417: IF (l_MsgName IS NOT NULL) THEN
418: FND_MESSAGE.SET_NAME( l_MsgApplication, l_MsgName);
419:
420: -- Bug: 6347674, donot set the tokens when there are none comming from the PA client extension
421: IF (l_MsgToken1 IS NOT NULL) THEN
422: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN1', l_MsgToken1);
418: FND_MESSAGE.SET_NAME( l_MsgApplication, l_MsgName);
419:
420: -- Bug: 6347674, donot set the tokens when there are none comming from the PA client extension
421: IF (l_MsgToken1 IS NOT NULL) THEN
422: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN1', l_MsgToken1);
423: END IF;
424:
425: IF (l_MsgToken2 IS NOT NULL) THEN
426: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN2', l_MsgToken2);
422: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN1', l_MsgToken1);
423: END IF;
424:
425: IF (l_MsgToken2 IS NOT NULL) THEN
426: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN2', l_MsgToken2);
427: END IF;
428:
429: IF (l_MsgToken3 IS NOT NULL) THEN
430: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN3', l_MsgToken3);
426: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN2', l_MsgToken2);
427: END IF;
428:
429: IF (l_MsgToken3 IS NOT NULL) THEN
430: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN3', l_MsgToken3);
431: END IF;
432:
433: P_Msg_Data := FND_MESSAGE.GET;
434: END IF;
429: IF (l_MsgToken3 IS NOT NULL) THEN
430: FND_MESSAGE.SET_TOKEN('PATC_MSG_TOKEN3', l_MsgToken3);
431: END IF;
432:
433: P_Msg_Data := FND_MESSAGE.GET;
434: END IF;
435:
436: -- Set the message type to one we use in Web Expenses
437: P_Msg_Type := NULL;
442: END IF;
443: EXCEPTION
444: WHEN OTHERS THEN
445: BEGIN
446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'PROJECT.ValidatePATransaction');
449: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
450: END;
443: EXCEPTION
444: WHEN OTHERS THEN
445: BEGIN
446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'PROJECT.ValidatePATransaction');
449: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
450: END;
451: END ValidatePATransaction;
444: WHEN OTHERS THEN
445: BEGIN
446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'PROJECT.ValidatePATransaction');
449: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
450: END;
451: END ValidatePATransaction;
452:
445: BEGIN
446: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
447: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
448: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', 'PROJECT.ValidatePATransaction');
449: AP_WEB_UTILITIES_PKG.DisplayException(fnd_message.get);
450: END;
451: END ValidatePATransaction;
452:
453: ----------------------------------------------------------------------