7: -- End of Comments
8: -- ===============================================================
9: g_pkg_name CONSTANT VARCHAR2 (30) := 'AMW_RISK_TYPE_PVT';
10: g_file_name CONSTANT VARCHAR2 (12) := 'amwvrtpb.pls';
11: g_user_id NUMBER := fnd_global.user_id;
12: g_login_id NUMBER := fnd_global.conc_login_id;
13: --------------------- BEGIN: Declaring internal Procedures ----------------------
14: -- ==============================================================================
15: -- Start of Comments
8: -- ===============================================================
9: g_pkg_name CONSTANT VARCHAR2 (30) := 'AMW_RISK_TYPE_PVT';
10: g_file_name CONSTANT VARCHAR2 (12) := 'amwvrtpb.pls';
11: g_user_id NUMBER := fnd_global.user_id;
12: g_login_id NUMBER := fnd_global.conc_login_id;
13: --------------------- BEGIN: Declaring internal Procedures ----------------------
14: -- ==============================================================================
15: -- Start of Comments
16: -- ==============================================================================
94: /* Temporarily commenting out the validata session code ..... */
95: -- =========================================================================
96: -- Validate Environment
97: -- =========================================================================
98: IF fnd_global.user_id IS NULL THEN
99: amw_utility_pvt.error_message
100: (p_message_name => 'USER_PROFILE_MISSING');
101: RAISE fnd_api.g_exc_error;
102: END IF;
120:
121: IF (l_risk_type_row_count = 0) then
122: select amw_risk_type_s.nextval into l_risk_type_id from dual;
123: l_creation_date := SYSDATE;
124: l_created_by := FND_GLOBAL.USER_ID;
125: l_last_update_date := SYSDATE;
126: l_last_updated_by := FND_GLOBAL.USER_ID;
127: l_last_update_login := FND_GLOBAL.USER_ID;
128:
122: select amw_risk_type_s.nextval into l_risk_type_id from dual;
123: l_creation_date := SYSDATE;
124: l_created_by := FND_GLOBAL.USER_ID;
125: l_last_update_date := SYSDATE;
126: l_last_updated_by := FND_GLOBAL.USER_ID;
127: l_last_update_login := FND_GLOBAL.USER_ID;
128:
129: insert into amw_risk_type (risk_type_id,
130: risk_rev_id,
123: l_creation_date := SYSDATE;
124: l_created_by := FND_GLOBAL.USER_ID;
125: l_last_update_date := SYSDATE;
126: l_last_updated_by := FND_GLOBAL.USER_ID;
127: l_last_update_login := FND_GLOBAL.USER_ID;
128:
129: insert into amw_risk_type (risk_type_id,
130: risk_rev_id,
131: risk_type_code,
231: -- Debug Message
232: amw_utility_pvt.debug_message ('Private API: ' || l_api_name || 'start');
233: -- Initialize API return status to SUCCESS
234: x_return_status := fnd_api.g_ret_sts_success;
235: IF fnd_global.user_id IS NULL THEN
236: amw_utility_pvt.error_message
237: (p_message_name => 'USER_PROFILE_MISSING');
238: RAISE fnd_api.g_exc_error;
239: END IF;
255: amw_risk_type_s.nextval
256: ,p_risk_rev_id
257: ,old.RISK_TYPE_CODE
258: ,sysdate
259: ,FND_GLOBAL.USER_ID
260: ,sysdate
261: ,FND_GLOBAL.USER_ID
262: ,FND_GLOBAL.USER_ID
263: ,1
257: ,old.RISK_TYPE_CODE
258: ,sysdate
259: ,FND_GLOBAL.USER_ID
260: ,sysdate
261: ,FND_GLOBAL.USER_ID
262: ,FND_GLOBAL.USER_ID
263: ,1
264: from AMW_RISK_TYPE old
265: where old.RISK_REV_ID = p_old_risk_rev_id;
258: ,sysdate
259: ,FND_GLOBAL.USER_ID
260: ,sysdate
261: ,FND_GLOBAL.USER_ID
262: ,FND_GLOBAL.USER_ID
263: ,1
264: from AMW_RISK_TYPE old
265: where old.RISK_REV_ID = p_old_risk_rev_id;
266: END IF;