42: L_STATUS_STARTING
43: );
44:
45: -- IF INSERT success, we locked it
46: X_RESULT := FND_API.G_RET_STS_SUCCESS;
47: X_EXECUTION := L_EXECUTION_START;
48: COMMIT;
49: RETURN;
50:
49: RETURN;
50:
51: EXCEPTION
52: WHEN DUP_VAL_ON_INDEX THEN
53: X_RESULT := FND_API.G_RET_STS_ERROR;
54: X_EXECUTION := L_EXECUTION_STOP;
55: RETURN;
56:
57: WHEN OTHERS THEN
54: X_EXECUTION := L_EXECUTION_STOP;
55: RETURN;
56:
57: WHEN OTHERS THEN
58: X_RESULT := FND_API.G_RET_STS_UNEXP_ERROR;
59: X_EXECUTION := L_EXECUTION_STOP;
60: RETURN;
61:
62: END; -- END INSERT BLOCK
79: l_execution VARCHAR2(100);
80:
81: BEGIN
82:
83: X_RESULT := FND_API.G_RET_STS_ERROR;
84:
85: BEGIN
86: SELECT SERVER_ID, LAST_UPDATE_DATE, EXECUTION
87: INTO l_curr_server_id, l_last_update_date, l_execution
128: UPDATE IEC_G_AGTLESS_CPN_RT_INFO
129: SET SERVER_ID = P_SERVER_ID, LAST_UPDATE_DATE = SYSDATE, STATUS = L_STATUS_STARTED, EXECUTION = l_execution, LAST_UPDATED_BY = 1
130: WHERE CAMPAIGN_ID = P_CAMPAIGN_ID;
131:
132: X_RESULT := FND_API.G_RET_STS_SUCCESS;
133:
134: END IF;
135:
136: ELSE