1: PACKAGE BODY FA_RETIREMENTS_PKG as
2: /* $Header: faxirtb.pls 120.6 2005/07/25 10:00:50 yyoon ship $ */
3: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
4: X_Retirement_Id IN OUT NOCOPY NUMBER,
5: X_Book_Type_Code VARCHAR2,
59: X_Recapture_Amount NUMBER DEFAULT NULL,
60: X_mrc_sob_type_code VARCHAR2 DEFAULT 'P',
61: X_Calling_Fn VARCHAR2,
62: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
63: CURSOR C_ret IS SELECT rowid FROM fa_retirements
64: WHERE retirement_id = X_Retirement_Id;
65: CURSOR C_ret_mc IS SELECT rowid FROM fa_retirements_mrc_v
66: WHERE retirement_id = X_Retirement_Id;
67:
61: X_Calling_Fn VARCHAR2,
62: p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) IS
63: CURSOR C_ret IS SELECT rowid FROM fa_retirements
64: WHERE retirement_id = X_Retirement_Id;
65: CURSOR C_ret_mc IS SELECT rowid FROM fa_retirements_mrc_v
66: WHERE retirement_id = X_Retirement_Id;
67:
68: CURSOR C2 IS SELECT fa_retirements_s.nextval FROM sys.dual;
69:
64: WHERE retirement_id = X_Retirement_Id;
65: CURSOR C_ret_mc IS SELECT rowid FROM fa_retirements_mrc_v
66: WHERE retirement_id = X_Retirement_Id;
67:
68: CURSOR C2 IS SELECT fa_retirements_s.nextval FROM sys.dual;
69:
70: BEGIN
71:
72: if (X_mrc_sob_type_code = 'R') then
70: BEGIN
71:
72: if (X_mrc_sob_type_code = 'R') then
73:
74: INSERT INTO fa_retirements_mrc_v(
75: retirement_id,
76: book_type_code,
77: asset_id,
78: transaction_header_id_in,
202: FETCH C2 INTO X_Retirement_Id;
203: CLOSE C2;
204: end if;
205:
206: INSERT INTO fa_retirements(
207: retirement_id,
208: book_type_code,
209: asset_id,
210: transaction_header_id_in,
331:
332: EXCEPTION
333: WHEN Others THEN
334: fa_srvr_msg.add_sql_error(
335: CALLING_FN => 'FA_RETIREMENTS_PKG.insert_row'
336: ,p_log_level_rec => p_log_level_rec);
337: raise;
338: END Insert_Row;
339:
448: reserve_retired,
449: eofy_reserve,
450: reduction_rate,
451: recapture_amount
452: FROM fa_retirements
453: WHERE rowid = X_Rowid
454: FOR UPDATE of Retirement_Id NOWAIT;
455: Recinfo C%ROWTYPE;
456: BEGIN
684:
685: if (X_Rowid is null) then
686: select rowid
687: into l_rowid
688: from fa_retirements_mrc_v
689: where retirement_id = X_Retirement_Id;
690: else
691: l_rowid := X_Rowid;
692: end if;
690: else
691: l_rowid := X_Rowid;
692: end if;
693:
694: UPDATE fa_retirements_mrc_v
695: SET
696: retirement_id = decode(X_Retirement_Id,
697: FND_API.G_MISS_NUM, NULL,
698: NULL, retirement_id,
914:
915: if (X_Rowid is null) then
916: select rowid
917: into l_rowid
918: from fa_retirements
919: where retirement_id = X_Retirement_Id;
920: else
921: l_rowid := X_Rowid;
922: end if;
920: else
921: l_rowid := X_Rowid;
922: end if;
923:
924: UPDATE fa_retirements
925: SET
926: retirement_id = decode(X_Retirement_Id,
927: FND_API.G_MISS_NUM, NULL,
928: NULL, retirement_id,
1148: end if;
1149: EXCEPTION
1150: WHEN Others THEN
1151: fa_srvr_msg.add_sql_error(
1152: CALLING_FN => 'FA_RETIREMENTS_PKG.UPDATE_ROW'
1153: ,p_log_level_rec => p_log_level_rec);
1154: raise;
1155: END Update_Row;
1156:
1163:
1164: BEGIN
1165:
1166: if (X_mrc_sob_type_code = 'R') then
1167: DELETE FROM fa_retirements_mrc_v
1168: WHERE rowid = X_Rowid;
1169: else
1170: DELETE FROM fa_retirements
1171: WHERE rowid = X_Rowid;
1166: if (X_mrc_sob_type_code = 'R') then
1167: DELETE FROM fa_retirements_mrc_v
1168: WHERE rowid = X_Rowid;
1169: else
1170: DELETE FROM fa_retirements
1171: WHERE rowid = X_Rowid;
1172: end if;
1173:
1174: if (SQL%NOTFOUND) then
1176: end if;
1177: EXCEPTION
1178: WHEN Others THEN
1179: fa_srvr_msg.add_sql_error(
1180: CALLING_FN => 'FA_RETIREMENTS_PKG.DELETE_ROW'
1181: ,p_log_level_rec => p_log_level_rec);
1182: raise;
1183: END Delete_Row;
1184: --
1181: ,p_log_level_rec => p_log_level_rec);
1182: raise;
1183: END Delete_Row;
1184: --
1185: END FA_RETIREMENTS_PKG;