24: -- Local variables
25: l_det_erec_req VARCHAR2(3);
26: l_xml_doc CLOB;
27: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
28: l_child_erecords EDR_ERES_EVENT_PUB.ERECORD_ID_TBL_TYPE;
29: l_event EDR_ERES_EVENT_PUB.ERES_EVENT_REC_TYPE;
30: l_qa_erecord_tbl QA_RESULT_GRP.QA_ERECORD_TBL_TYPE;
31: l_send_ackn BOOLEAN := FALSE;
32: l_txn_status VARCHAR2(30);
25: l_det_erec_req VARCHAR2(3);
26: l_xml_doc CLOB;
27: l_return_status VARCHAR2(3) := FND_API.G_RET_STS_SUCCESS;
28: l_child_erecords EDR_ERES_EVENT_PUB.ERECORD_ID_TBL_TYPE;
29: l_event EDR_ERES_EVENT_PUB.ERES_EVENT_REC_TYPE;
30: l_qa_erecord_tbl QA_RESULT_GRP.QA_ERECORD_TBL_TYPE;
31: l_send_ackn BOOLEAN := FALSE;
32: l_txn_status VARCHAR2(30);
33: l_str VARCHAR2(240);
149: dbg_msg := ('P_Incident_id :'||P_Incident_id);
150:
151: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
152: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS')) THEN
153: dbg_msg := ('Calling EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT API ');
154: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
155: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
156: END IF;
157: END IF;
160: -- Call the ERES API to raise ERES event.
161:
162: l_return_status := FND_API.G_RET_STS_SUCCESS;
163:
164: --dbms_output.put_line('Start Approval Process - Calling EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT');
165:
166: EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT
167: ( p_api_version => 1.0 ,
168: p_init_msg_list => fnd_api.g_false,
162: l_return_status := FND_API.G_RET_STS_SUCCESS;
163:
164: --dbms_output.put_line('Start Approval Process - Calling EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT');
165:
166: EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT
167: ( p_api_version => 1.0 ,
168: p_init_msg_list => fnd_api.g_false,
169: p_validation_level => fnd_api.g_valid_level_full,
170: x_return_status => l_return_status,
178: --dbms_output.put_line('Event Status : '||l_event.event_status);
179:
180: IF((FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL)) THEN
181: IF (FND_LOG.TEST(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS')) THEN
182: dbg_msg := ('After Calling EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT API ');
183: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
184: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
185: END IF;
186:
183: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
184: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
185: END IF;
186:
187: dbg_msg := ('EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT API Return Status : '||l_return_status);
188: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
189: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
190: END IF;
191:
188: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
189: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
190: END IF;
191:
192: dbg_msg := ('EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT API Event Status : '||l_event.event_status);
193: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
195: END IF;
196:
193: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
194: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
195: END IF;
196:
197: dbg_msg := ('EDR_ERES_EVENT_PUB.RAISE_ERES_EVENT API ERecord ID : '||l_event.ERECORD_ID);
198: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
199: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'cs.plsql.CS_ERES_INT_PKG.START_APPROVAL_PROCESS', dbg_msg);
200: END IF;
201: END IF;