34: l_payment_audit_id NUMBER(15,0);
35: CURSOR C2 IS SELECT ARI_REGISTRATIONS_S.nextval FROM sys.dual;
36: BEGIN
37:
38: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
39: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, 'Begin+');
40: END IF;
41: ----------------------------------------------------------------------------
42: l_debug_info := 'In debug mode, log we have entered this procedure';
35: CURSOR C2 IS SELECT ARI_REGISTRATIONS_S.nextval FROM sys.dual;
36: BEGIN
37:
38: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
39: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, 'Begin+');
40: END IF;
41: ----------------------------------------------------------------------------
42: l_debug_info := 'In debug mode, log we have entered this procedure';
43: ----------------------------------------------------------------------------
41: ----------------------------------------------------------------------------
42: l_debug_info := 'In debug mode, log we have entered this procedure';
43: ----------------------------------------------------------------------------
44:
45: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
46: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
47: END IF;
48:
49: l_payment_audit_id := p_payment_audit_id;
42: l_debug_info := 'In debug mode, log we have entered this procedure';
43: ----------------------------------------------------------------------------
44:
45: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
46: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
47: END IF;
48:
49: l_payment_audit_id := p_payment_audit_id;
50:
61:
62: ----------------------------------------------------------------------------
63: l_debug_info := 'Insert into OIR_PAYMENT_AUDIT';
64: ----------------------------------------------------------------------------
65: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
66: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
67: END IF;
68:
69: INSERT INTO OIR_PAYMENT_AUDIT(
62: ----------------------------------------------------------------------------
63: l_debug_info := 'Insert into OIR_PAYMENT_AUDIT';
64: ----------------------------------------------------------------------------
65: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
66: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
67: END IF;
68:
69: INSERT INTO OIR_PAYMENT_AUDIT(
70: PAYMENT_AUDIT_ID,
108: p_transaction_id);
109:
110: l_debug_info := 'After insert';
111:
112: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
113: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
114: END IF;
115:
116: COMMIT;
109:
110: l_debug_info := 'After insert';
111:
112: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
113: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
114: END IF;
115:
116: COMMIT;
117: ----------------------------------------------------------------------------
162: l_debug_info VARCHAR2(200);
163: l_payment_audit_id NUMBER(15,0);
164: BEGIN
165:
166: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
167: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, 'Begin+');
168: END IF;
169: ----------------------------------------------------------------------------
170: l_debug_info := 'In debug mode, log we have entered this procedure';
163: l_payment_audit_id NUMBER(15,0);
164: BEGIN
165:
166: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
167: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, 'Begin+');
168: END IF;
169: ----------------------------------------------------------------------------
170: l_debug_info := 'In debug mode, log we have entered this procedure';
171: ----------------------------------------------------------------------------
169: ----------------------------------------------------------------------------
170: l_debug_info := 'In debug mode, log we have entered this procedure';
171: ----------------------------------------------------------------------------
172:
173: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
174: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
175: END IF;
176:
177: l_payment_audit_id := p_payment_audit_id;
170: l_debug_info := 'In debug mode, log we have entered this procedure';
171: ----------------------------------------------------------------------------
172:
173: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
174: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
175: END IF;
176:
177: l_payment_audit_id := p_payment_audit_id;
178:
179:
180: ----------------------------------------------------------------------------
181: l_debug_info := 'Update into OIR_PAYMENT_AUDIT';
182: ----------------------------------------------------------------------------
183: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
184: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
185: END IF;
186:
187: update OIR_PAYMENT_AUDIT set
180: ----------------------------------------------------------------------------
181: l_debug_info := 'Update into OIR_PAYMENT_AUDIT';
182: ----------------------------------------------------------------------------
183: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
184: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
185: END IF;
186:
187: update OIR_PAYMENT_AUDIT set
188: PAYMENT_TYPE = decode(p_payment_type,NULL,PAYMENT_TYPE,p_payment_type),
204: where PAYMENT_AUDIT_ID = l_payment_audit_id;
205:
206: l_debug_info := 'After Update';
207:
208: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
209: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
210: END IF;
211:
212: COMMIT;
205:
206: l_debug_info := 'After Update';
207:
208: IF(FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
209: fnd_log.string(fnd_log.LEVEL_STATEMENT,G_PKG_NAME||l_procedure_name, l_debug_info);
210: END IF;
211:
212: COMMIT;
213: ----------------------------------------------------------------------------