41: ,message in varchar2)
42: is
43:
44: begin
45: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
46: FND_LOG.STRING(log_level, module, message);
47: END IF;
48:
49: EXCEPTION
42: is
43:
44: begin
45: IF log_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
46: FND_LOG.STRING(log_level, module, message);
47: END IF;
48:
49: EXCEPTION
50: WHEN OTHERS THEN
47: END IF;
48:
49: EXCEPTION
50: WHEN OTHERS THEN
51: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, 'ERROR: ' || sqlerrm);
52: end;
53:
54:
55: /*========================================================================
102: +-----------------------------------------------------------------------*/
103:
104: BEGIN
105:
106: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
107:
108: -- first figure out if fee applies to the current installment
109: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
105:
106: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
107:
108: -- first figure out if fee applies to the current installment
109: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
113:
106: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
107:
108: -- first figure out if fee applies to the current installment
109: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
113:
114: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
107:
108: -- first figure out if fee applies to the current installment
109: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
113:
114: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
115:
108: -- first figure out if fee applies to the current installment
109: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
113:
114: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
115:
116:
110: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
111: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
112: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
113:
114: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
115:
116:
117: X_RETURN_STATUS := 'S';
118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
114: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
115:
116:
117: X_RETURN_STATUS := 'S';
118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
119:
120: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
121:
122: EXCEPTION
116:
117: X_RETURN_STATUS := 'S';
118: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
119:
120: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
121:
122: EXCEPTION
123: WHEN OTHERS THEN
124: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
120: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
121:
122: EXCEPTION
123: WHEN OTHERS THEN
124: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
125: END;
126:
127: /*========================================================================
128: | PUBLIC PROCEDURE VALIDATE_PAYMENT
174: +-----------------------------------------------------------------------*/
175:
176: BEGIN
177:
178: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
179:
180: -- first figure out if fee applies to the current installment
181: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
182: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
177:
178: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
179:
180: -- first figure out if fee applies to the current installment
181: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
182: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
185:
178: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
179:
180: -- first figure out if fee applies to the current installment
181: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
182: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
185:
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
179:
180: -- first figure out if fee applies to the current installment
181: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
182: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
185:
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
187:
180: -- first figure out if fee applies to the current installment
181: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
182: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
185:
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
187:
188:
182: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
183: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
184: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
185:
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
187:
188:
189: X_RETURN_STATUS := 'S';
190: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
186: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
187:
188:
189: X_RETURN_STATUS := 'S';
190: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
191:
192: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
193:
194: EXCEPTION
188:
189: X_RETURN_STATUS := 'S';
190: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
191:
192: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
193:
194: EXCEPTION
195: WHEN OTHERS THEN
196: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
192: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
193:
194: EXCEPTION
195: WHEN OTHERS THEN
196: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
197: END;
198:
199: /*========================================================================
200: | PUBLIC PROCEDURE VALIDATE_PRINT
246: +-----------------------------------------------------------------------*/
247:
248: BEGIN
249:
250: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
251:
252: -- first figure out if fee applies to the current installment
253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
249:
250: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
251:
252: -- first figure out if fee applies to the current installment
253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
257:
250: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' +');
251:
252: -- first figure out if fee applies to the current installment
253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
257:
258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
251:
252: -- first figure out if fee applies to the current installment
253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
257:
258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
259:
252: -- first figure out if fee applies to the current installment
253: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' - BEGIN');
254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
257:
258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
259:
260:
254: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_account_id = ' || p_cust_account_id);
255: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_cust_site_use_id = ' || p_cust_site_use_id);
256: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_Payment_schedule_id ' || p_Payment_schedule_id);
257:
258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
259:
260:
261: X_RETURN_STATUS := 'S';
262: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
258: logMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, l_api_name || ' - p_session_id = ' || p_session_id);
259:
260:
261: X_RETURN_STATUS := 'S';
262: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
263:
264: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
265:
266: EXCEPTION
260:
261: X_RETURN_STATUS := 'S';
262: logMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, 'X_RETURN_STATUS: ' || X_RETURN_STATUS);
263:
264: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
265:
266: EXCEPTION
267: WHEN OTHERS THEN
268: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
264: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME, l_api_name || ' -');
265:
266: EXCEPTION
267: WHEN OTHERS THEN
268: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME, l_api_name || ' - In exception');
269: END;
270:
271: BEGIN
272: G_LOG_ENABLED := 'N';
269: END;
270:
271: BEGIN
272: G_LOG_ENABLED := 'N';
273: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
274:
275: /* getting msg logging info */
276: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
277: if (G_LOG_ENABLED = 'N') then
274:
275: /* getting msg logging info */
276: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
277: if (G_LOG_ENABLED = 'N') then
278: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
279: else
280: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
281: end if;
282:
276: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
277: if (G_LOG_ENABLED = 'N') then
278: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
279: else
280: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
281: end if;
282:
283: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
279: else
280: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
281: end if;
282:
283: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
285:
286: END;
280: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
281: end if;
282:
283: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
284: LogMessage(FND_LOG.LEVEL_STATEMENT, G_PKG_NAME, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
285:
286: END;