49: l_rcv_header_id rcv_headers_interface.header_interface_id%TYPE;
50: l_group_id rcv_headers_interface.group_id%TYPE;
51:
52: BEGIN
53: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
54: THEN
55: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
56: , G_MODULE_PREFIX || l_api_name || '.begin'
57: ,'procedure begin');
51:
52: BEGIN
53: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
54: THEN
55: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
56: , G_MODULE_PREFIX || l_api_name || '.begin'
57: ,'procedure begin');
58: END IF;
59:
101:
102: x_rcv_header_id := l_rcv_header_id;
103: x_group_id := l_group_id;
104:
105: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
106: THEN
107: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
108: , G_MODULE_PREFIX || l_api_name || '.end'
109: ,'END procedure. ');
103: x_group_id := l_group_id;
104:
105: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
106: THEN
107: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
108: , G_MODULE_PREFIX || l_api_name || '.end'
109: ,'END procedure. ');
110: END IF;
111:
111:
112: EXCEPTION
113:
114: WHEN OTHERS THEN
115: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
116: THEN
117: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
118: , G_MODULE_PREFIX || l_api_name || '. OTHER_EXCEPTION '
119: , 'Unknown error'||SQLCODE||SQLERRM);
113:
114: WHEN OTHERS THEN
115: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
116: THEN
117: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
118: , G_MODULE_PREFIX || l_api_name || '. OTHER_EXCEPTION '
119: , 'Unknown error'||SQLCODE||SQLERRM);
120: END IF;
121: RAISE;
161: l_api_name VARCHAR2(30) := 'process_rcv_trx';
162:
163: BEGIN
164:
165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
166: THEN
167: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
168: , G_MODULE_PREFIX || l_api_name || '.begin'
169: ,'procedure begin');
163: BEGIN
164:
165: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
166: THEN
167: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
168: , G_MODULE_PREFIX || l_api_name || '.begin'
169: ,'procedure begin');
170: END IF;
171:
231: FROM DUAL;
232: COMMIT;
233:
234:
235: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
236: THEN
237: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
238: , G_MODULE_PREFIX || l_api_name || '.end'
239: ,'END procedure. '
233:
234:
235: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
236: THEN
237: fnd_log.STRING(fnd_log.LEVEL_PROCEDURE
238: , G_MODULE_PREFIX || l_api_name || '.end'
239: ,'END procedure. '
240: );
241: END IF;
240: );
241: END IF;
242: EXCEPTION
243: WHEN OTHERS THEN
244: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
245: THEN
246: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
247: , G_MODULE_PREFIX || l_api_name || '. OTHER_EXCEPTION '
248: , 'Unknown error'||SQLCODE||SQLERRM);
242: EXCEPTION
243: WHEN OTHERS THEN
244: IF(FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)
245: THEN
246: FND_LOG.string( FND_LOG.LEVEL_UNEXPECTED
247: , G_MODULE_PREFIX || l_api_name || '. OTHER_EXCEPTION '
248: , 'Unknown error'||SQLCODE||SQLERRM);
249: END IF;
250: RAISE;