80: -- Standard Start of API savepoint
81: SAVEPOINT maintain_adl_savepoint;
82:
83: IF g_fnd_debug = 'Y' THEN
84: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
85: FND_LOG.string(
86: log_level => FND_LOG.LEVEL_STATEMENT,
87: module => c_log_head || l_api_name || '.begin',
88: message => 'Before calling GMS API v.' || p_api_version);
81: SAVEPOINT maintain_adl_savepoint;
82:
83: IF g_fnd_debug = 'Y' THEN
84: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
85: FND_LOG.string(
86: log_level => FND_LOG.LEVEL_STATEMENT,
87: module => c_log_head || l_api_name || '.begin',
88: message => 'Before calling GMS API v.' || p_api_version);
89: END IF;
82:
83: IF g_fnd_debug = 'Y' THEN
84: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
85: FND_LOG.string(
86: log_level => FND_LOG.LEVEL_STATEMENT,
87: module => c_log_head || l_api_name || '.begin',
88: message => 'Before calling GMS API v.' || p_api_version);
89: END IF;
90:
88: message => 'Before calling GMS API v.' || p_api_version);
89: END IF;
90:
91: FOR i IN 1..x_po_gms_interface_obj.distribution_id.COUNT LOOP
92: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
93: FND_LOG.string(
94: log_level => FND_LOG.LEVEL_STATEMENT,
95: module => c_log_head || l_api_name || '.begin',
96: message => p_caller
89: END IF;
90:
91: FOR i IN 1..x_po_gms_interface_obj.distribution_id.COUNT LOOP
92: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
93: FND_LOG.string(
94: log_level => FND_LOG.LEVEL_STATEMENT,
95: module => c_log_head || l_api_name || '.begin',
96: message => p_caller
97: ||' dist id: '
90:
91: FOR i IN 1..x_po_gms_interface_obj.distribution_id.COUNT LOOP
92: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
93: FND_LOG.string(
94: log_level => FND_LOG.LEVEL_STATEMENT,
95: module => c_log_head || l_api_name || '.begin',
96: message => p_caller
97: ||' dist id: '
98: || x_po_gms_interface_obj.distribution_id(i)
124: END IF;
125:
126: l_progress := '030';
127: IF g_fnd_debug = 'Y' THEN
128: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
129: FND_LOG.string(
130: log_level => FND_LOG.LEVEL_STATEMENT,
131: module => c_log_head || l_api_name || '.begin',
132: message => 'After calling GMS API : '
125:
126: l_progress := '030';
127: IF g_fnd_debug = 'Y' THEN
128: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
129: FND_LOG.string(
130: log_level => FND_LOG.LEVEL_STATEMENT,
131: module => c_log_head || l_api_name || '.begin',
132: message => 'After calling GMS API : '
133: || 'return status: '
126: l_progress := '030';
127: IF g_fnd_debug = 'Y' THEN
128: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
129: FND_LOG.string(
130: log_level => FND_LOG.LEVEL_STATEMENT,
131: module => c_log_head || l_api_name || '.begin',
132: message => 'After calling GMS API : '
133: || 'return status: '
134: || x_return_status);
134: || x_return_status);
135: END IF;
136:
137: FOR i IN 1..x_po_gms_interface_obj.distribution_id.COUNT LOOP
138: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
139: FND_LOG.string(
140: log_level => FND_LOG.LEVEL_STATEMENT,
141: module => c_log_head || l_api_name || '.begin',
142: message => p_caller
135: END IF;
136:
137: FOR i IN 1..x_po_gms_interface_obj.distribution_id.COUNT LOOP
138: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
139: FND_LOG.string(
140: log_level => FND_LOG.LEVEL_STATEMENT,
141: module => c_log_head || l_api_name || '.begin',
142: message => p_caller
143: ||' dist num: '
136:
137: FOR i IN 1..x_po_gms_interface_obj.distribution_id.COUNT LOOP
138: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_STATEMENT) THEN
139: FND_LOG.string(
140: log_level => FND_LOG.LEVEL_STATEMENT,
141: module => c_log_head || l_api_name || '.begin',
142: message => p_caller
143: ||' dist num: '
144: || x_po_gms_interface_obj.distribution_num(i)
161: ROLLBACK TO maintain_adl_savepoint;
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163:
164: IF (g_fnd_debug = 'Y') THEN
165: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
166: FND_LOG.string(
167: LOG_LEVEL => FND_LOG.level_unexpected,
168: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
169: MESSAGE => 'EXCEPTION '||l_progress||': Unexpected Error'
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163:
164: IF (g_fnd_debug = 'Y') THEN
165: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
166: FND_LOG.string(
167: LOG_LEVEL => FND_LOG.level_unexpected,
168: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
169: MESSAGE => 'EXCEPTION '||l_progress||': Unexpected Error'
170: );
163:
164: IF (g_fnd_debug = 'Y') THEN
165: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
166: FND_LOG.string(
167: LOG_LEVEL => FND_LOG.level_unexpected,
168: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
169: MESSAGE => 'EXCEPTION '||l_progress||': Unexpected Error'
170: );
171: END IF;
181: p_procedure_name => l_api_name);
182: END IF;
183:
184: IF (g_fnd_debug = 'Y') THEN
185: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
186: FND_LOG.string(
187: LOG_LEVEL => FND_LOG.level_unexpected,
188: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
189: MESSAGE => 'EXCEPTION '||l_progress||': SQL CODE is '||sqlcode
182: END IF;
183:
184: IF (g_fnd_debug = 'Y') THEN
185: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
186: FND_LOG.string(
187: LOG_LEVEL => FND_LOG.level_unexpected,
188: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
189: MESSAGE => 'EXCEPTION '||l_progress||': SQL CODE is '||sqlcode
190: );
183:
184: IF (g_fnd_debug = 'Y') THEN
185: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
186: FND_LOG.string(
187: LOG_LEVEL => FND_LOG.level_unexpected,
188: MODULE => c_log_head || '.'||l_api_name||'.error_exception',
189: MESSAGE => 'EXCEPTION '||l_progress||': SQL CODE is '||sqlcode
190: );
191: END IF;