[Home] [Help]
1: PACKAGE BODY FA_GAINLOSS_PRO_PKG AS
2: /* $Header: fagprob.pls 120.8.12020000.2 2012/07/20 11:46:55 spooyath ship $*/
3: /*=============================================================================
4: | NAME fagpsa |
5: | |
28:
29: h_ret_status varchar2(15);
30: h_retirement_id number(15);
31:
32: l_calling_fn varchar2(40) := 'FA_GAINLOSS_PRO_PKG.fagpsa';
33:
34: BEGIN <
35:
36: -- dbms_output.put_line('in fagpsa 1');
62:
63: if not FA_GAINLOSS_MIS_PKG.faggbi(bk, ret, p_log_level_rec => p_log_level_rec) then
64:
65: fa_srvr_msg.add_message(
66: calling_fn => 'fa_gainloss_pro_pkg.fagpsa',
67: name => 'FA_RET_GENERIC_ERROR',
68: token1 => 'MODULE',
69: value1 => 'FAGGBI',
70: token2 => 'INFO',
83: bk.lifemonths,
84: p_log_level_rec => p_log_level_rec)) then
85:
86: fa_srvr_msg.add_message(
87: calling_fn => 'fa_gainloss_pro_pkg.fagpsa',
88: name => 'FA_RET_GENERIC_ERROR',
89: token1 => 'MODULE',
90: value1 => 'FAZCCMT',
91: token2 => 'PROCESS',
106: ret_pdnum, p_pds_per_year,
107: bk.fiscal_year_name, p_log_level_rec => p_log_level_rec) then
108:
109: fa_srvr_msg.add_message(
110: calling_fn => 'fa_gainloss_pro_pkg.fagpsa',
111: name => 'FA_RET_GENERIC_ERROR',
112: token1 => 'MODULE',
113: value1 => 'FAGPDI',
114: token2 => 'INFO',
130: pro_mth, pro_fy,
131: bk.fiscal_year_name, p_log_level_rec => p_log_level_rec) then
132:
133: fa_srvr_msg.add_message(
134: calling_fn => 'fa_gainloss_pro_pkg.fagpsa',
135: name => 'FA_RET_GENERIC_ERROR',
136: token1 => 'MODULE',
137: value1 => 'FAGGFY',
138: token2 => 'INFO',
153: dsd_mth, dsd_fy,
154: bk.fiscal_year_name, p_log_level_rec => p_log_level_rec) then
155:
156: fa_srvr_msg.add_message(
157: calling_fn => 'fa_gainloss_pro_pkg.fagpsa',
158: name => 'FA_RET_GENERIC_ERROR',
159: token1 => 'MODULE',
160: value1 => 'FAGGFY',
161: token2 => 'INFO',
238: cpd_num,
239: ret_pdnum, user_id, p_log_level_rec => p_log_level_rec) then
240:
241: fa_srvr_msg.add_message(
242: calling_fn => 'fa_gainloss_pro_pkg.fagpsa',
243: name => 'FA_RET_PROCESS_ERROR',
244: token1 => 'MODULE',
245: value1 => 'FAGRET',
246: token2 => 'PROCESS',
258: cpd_num,
259: user_id, p_log_level_rec => p_log_level_rec) then
260:
261: fa_srvr_msg.add_message(
262: calling_fn => 'fa_gainloss_pro_pkg.fagpsa',
263: name => 'FA_RET_PROCESS_ERROR',
264: token1 => 'MODULE',
265: value1 => 'FAGRIN',
266: token2 => 'PROCESS',
278:
279: END FAGPSA;
280:
281:
282: END FA_GAINLOSS_PRO_PKG; -- End of Package EFA_RPRO