49: x_return_status OUT NOCOPY VARCHAR2) IS
50:
51: l_api_version NUMBER := 1.0;
52: l_api_name VARCHAR2(50) := 'validate_credit_card_num';
53: l_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
54: l_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
55: l_card_number iby_creditcard.ccnumber%TYPE := NULL;
56:
57: lx_return_status VARCHAR2(1) := NULL;
50:
51: l_api_version NUMBER := 1.0;
52: l_api_name VARCHAR2(50) := 'validate_credit_card_num';
53: l_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
54: l_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
55: l_card_number iby_creditcard.ccnumber%TYPE := NULL;
56:
57: lx_return_status VARCHAR2(1) := NULL;
58: lx_msg_count NUMBER := NULL;
65:
66: BEGIN
67: --logging for debug
68: IF (l_proc_level >= l_dbg_level) THEN
69: FND_LOG.STRING(l_proc_level,
70: g_module_prefix || '.' || l_api_name || '.begin',
71: 'Enter procedure');
72: END IF; --l_proc_level>=l_dbg_level
73:
123: END IF; -- lx_digit_check = 'Y'
124:
125: --logging for debug
126: IF (l_proc_level >= l_dbg_level) THEN
127: FND_LOG.STRING(l_proc_level,
128: g_module_prefix || '.' || l_api_name || '.end',
129: 'Exit procedure');
130: END IF; -- (l_proc_level>=l_dbg_level)
131:
130: END IF; -- (l_proc_level>=l_dbg_level)
131:
132: EXCEPTION
133: WHEN OTHERS THEN
134: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
135: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
136: g_module_prefix || '.' || l_api_name ||
137: '.Other_Exception ',
138: Sqlcode || Sqlerrm);
131:
132: EXCEPTION
133: WHEN OTHERS THEN
134: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
135: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
136: g_module_prefix || '.' || l_api_name ||
137: '.Other_Exception ',
138: Sqlcode || Sqlerrm);
139: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
135: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
136: g_module_prefix || '.' || l_api_name ||
137: '.Other_Exception ',
138: Sqlcode || Sqlerrm);
139: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
140: END validate_credit_card_num;
141: --==========================================================================
142: -- PROCEDURE NAME:
143: --
173: x_receipt_status OUT NOCOPY VARCHAR2,
174: x_receipt_status_code OUT NOCOPY VARCHAR2,
175: x_return_status OUT NOCOPY VARCHAR2) IS
176: l_api_name VARCHAR2(50) := 'getReceiptInfoOfTrx';
177: l_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
178: l_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
179:
180: BEGIN
181: --logging for debug
174: x_receipt_status_code OUT NOCOPY VARCHAR2,
175: x_return_status OUT NOCOPY VARCHAR2) IS
176: l_api_name VARCHAR2(50) := 'getReceiptInfoOfTrx';
177: l_dbg_level NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
178: l_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
179:
180: BEGIN
181: --logging for debug
182: IF (l_proc_level >= l_dbg_level) THEN
179:
180: BEGIN
181: --logging for debug
182: IF (l_proc_level >= l_dbg_level) THEN
183: FND_LOG.STRING(l_proc_level,
184: g_module_prefix || '.' || l_api_name || '.begin',
185: 'Enter procedure');
186: END IF; -- (l_proc_level>=l_dbg_level)
187:
213: FND_MSG_PUB.ADD;
214: x_receipt_num := NULL;
215: x_cash_receipt_id := NULL;
216: x_receipt_status := NULL;
217: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
219: g_module_prefix || '.' || l_api_name ||
220: '.NO_DATA_FOUND_Exception ',
221: Sqlcode || Sqlerrm);
214: x_receipt_num := NULL;
215: x_cash_receipt_id := NULL;
216: x_receipt_status := NULL;
217: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
218: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
219: g_module_prefix || '.' || l_api_name ||
220: '.NO_DATA_FOUND_Exception ',
221: Sqlcode || Sqlerrm);
222: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
218: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
219: g_module_prefix || '.' || l_api_name ||
220: '.NO_DATA_FOUND_Exception ',
221: Sqlcode || Sqlerrm);
222: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
223: RETURN;
224: WHEN TOO_MANY_ROWS THEN
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
222: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
223: RETURN;
224: WHEN TOO_MANY_ROWS THEN
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
227: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
228: g_module_prefix || '.' || l_api_name ||
229: '.TOO_MANY_ROWS_Exception ',
230: Sqlcode || Sqlerrm);
223: RETURN;
224: WHEN TOO_MANY_ROWS THEN
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
227: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
228: g_module_prefix || '.' || l_api_name ||
229: '.TOO_MANY_ROWS_Exception ',
230: Sqlcode || Sqlerrm);
231: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
227: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
228: g_module_prefix || '.' || l_api_name ||
229: '.TOO_MANY_ROWS_Exception ',
230: Sqlcode || Sqlerrm);
231: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
232: RETURN;
233: END;
234: IF (x_cash_receipt_id IS NOT NULL) THEN
235: BEGIN
250: x_receipt_num := NULL;
251: x_cash_receipt_id := NULL;
252: x_receipt_status := NULL;
253: x_receipt_status_code := NULL;
254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
255: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
256: g_module_prefix || '.' || l_api_name ||
257: '.NO_DATA_FOUND_Exception ',
258: Sqlcode || Sqlerrm);
251: x_cash_receipt_id := NULL;
252: x_receipt_status := NULL;
253: x_receipt_status_code := NULL;
254: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
255: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
256: g_module_prefix || '.' || l_api_name ||
257: '.NO_DATA_FOUND_Exception ',
258: Sqlcode || Sqlerrm);
259: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
255: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
256: g_module_prefix || '.' || l_api_name ||
257: '.NO_DATA_FOUND_Exception ',
258: Sqlcode || Sqlerrm);
259: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
260: RETURN;
261: WHEN TOO_MANY_ROWS THEN
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
259: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
260: RETURN;
261: WHEN TOO_MANY_ROWS THEN
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
265: g_module_prefix || '.' || l_api_name ||
266: '.TOO_MANY_ROWS_Exception ',
267: Sqlcode || Sqlerrm);
260: RETURN;
261: WHEN TOO_MANY_ROWS THEN
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
264: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
265: g_module_prefix || '.' || l_api_name ||
266: '.TOO_MANY_ROWS_Exception ',
267: Sqlcode || Sqlerrm);
268: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
264: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
265: g_module_prefix || '.' || l_api_name ||
266: '.TOO_MANY_ROWS_Exception ',
267: Sqlcode || Sqlerrm);
268: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
269: RETURN;
270: END;
271: END IF;
272: --logging for debug
270: END;
271: END IF;
272: --logging for debug
273: IF (l_proc_level >= l_dbg_level) THEN
274: FND_LOG.STRING(l_proc_level,
275: g_module_prefix || '.' || l_api_name || '.end',
276: 'Exit procedure');
277: END IF; -- (l_proc_level>=l_dbg_level)
278: EXCEPTION
280: x_return_status := FND_API.G_RET_STS_ERROR;
281: x_receipt_num := NULL;
282: x_cash_receipt_id := NULL;
283: x_receipt_status := NULL;
284: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
285: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
286: g_module_prefix || '.' || l_api_name ||
287: '.NO_DATA_FOUND_Exception ',
288: Sqlcode || Sqlerrm);
281: x_receipt_num := NULL;
282: x_cash_receipt_id := NULL;
283: x_receipt_status := NULL;
284: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
285: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
286: g_module_prefix || '.' || l_api_name ||
287: '.NO_DATA_FOUND_Exception ',
288: Sqlcode || Sqlerrm);
289: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
285: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
286: g_module_prefix || '.' || l_api_name ||
287: '.NO_DATA_FOUND_Exception ',
288: Sqlcode || Sqlerrm);
289: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
290: WHEN TOO_MANY_ROWS THEN
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
288: Sqlcode || Sqlerrm);
289: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
290: WHEN TOO_MANY_ROWS THEN
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
294: g_module_prefix || '.' || l_api_name ||
295: '.TOO_MANY_ROWS_Exception ',
296: Sqlcode || Sqlerrm);
289: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
290: WHEN TOO_MANY_ROWS THEN
291: x_return_status := FND_API.G_RET_STS_ERROR;
292: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
293: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
294: g_module_prefix || '.' || l_api_name ||
295: '.TOO_MANY_ROWS_Exception ',
296: Sqlcode || Sqlerrm);
297: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
293: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
294: g_module_prefix || '.' || l_api_name ||
295: '.TOO_MANY_ROWS_Exception ',
296: Sqlcode || Sqlerrm);
297: END IF; -- (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
298: END getReceiptInfoOfTrx;
299:
300: PROCEDURE ADD_EMD_BIDDING_PARTY
301: (