62: X_Calling_Fn VARCHAR2
63: , p_log_level_rec IN FA_API_TYPES.log_level_rec_type) IS
64: CURSOR C_ret IS SELECT rowid FROM fa_retirements
65: WHERE retirement_id = X_Retirement_Id;
66: CURSOR C_ret_mc IS SELECT rowid FROM fa_mc_retirements
67: WHERE retirement_id = X_Retirement_Id
68: AND set_of_books_id = X_set_of_books_id;
69:
70: CURSOR C2 IS SELECT fa_retirements_s.nextval FROM sys.dual;
72: BEGIN
73:
74: if (X_mrc_sob_type_code = 'R') then
75:
76: INSERT INTO fa_mc_retirements(
77: set_of_books_id,
78: retirement_id,
79: book_type_code,
80: asset_id,
690:
691: if (X_Rowid is null) then
692: select rowid
693: into l_rowid
694: from fa_mc_retirements
695: where retirement_id = X_Retirement_Id
696: and set_of_books_id = X_set_of_books_id;
697: else
698: l_rowid := X_Rowid;
697: else
698: l_rowid := X_Rowid;
699: end if;
700:
701: UPDATE fa_mc_retirements
702: SET
703: retirement_id = decode(X_Retirement_Id,
704: FND_API.G_MISS_NUM, NULL,
705: NULL, retirement_id,
1169:
1170: BEGIN
1171:
1172: if (X_mrc_sob_type_code = 'R') then
1173: DELETE FROM fa_mc_retirements
1174: WHERE rowid = X_Rowid;
1175: else
1176: DELETE FROM fa_retirements
1177: WHERE rowid = X_Rowid;