DBA Data[Home] [Help]

APPS.FA_RX_REPORTS_PKG dependencies on FA_RX_REPORTS

Line 1: PACKAGE BODY FA_RX_REPORTS_PKG as

1: PACKAGE BODY FA_RX_REPORTS_PKG as
2: /* $Header: faxrxdmb.pls 120.8 2009/03/27 01:44:46 bridgway ship $ */
3:
4: g_print_debug boolean := fa_cache_pkg.fa_print_debug;
5:

Line 30: CURSOR C IS SELECT rowid FROM fa_rx_reports

26: x_max_report_id number;
27: x_curr_report_id_s number;
28: dummy number;
29:
30: CURSOR C IS SELECT rowid FROM fa_rx_reports
31: WHERE report_id = X_Report_Id;
32:
33: BEGIN
34:

Line 35: INSERT INTO fa_rx_reports(

31: WHERE report_id = X_Report_Id;
32:
33: BEGIN
34:
35: INSERT INTO fa_rx_reports(
36: report_id,
37: application_id,
38: responsibility_id,
39: concurrent_program_id,

Line 79: select max(report_id) into x_max_report_id from fa_rx_reports;

75: Raise NO_DATA_FOUND;
76: end if;
77: CLOSE C;
78:
79: select max(report_id) into x_max_report_id from fa_rx_reports;
80: declare
81: seq_no_curr exception;
82: pragma exception_init(seq_no_curr, -8002);
83: begin

Line 84: select fa_rx_reports_s.currval into x_curr_report_id_s from dual;

80: declare
81: seq_no_curr exception;
82: pragma exception_init(seq_no_curr, -8002);
83: begin
84: select fa_rx_reports_s.currval into x_curr_report_id_s from dual;
85: exception
86: when seq_no_curr then
87: select fa_rx_reports_s.nextval into x_curr_report_id_s from dual;
88: end;

Line 87: select fa_rx_reports_s.nextval into x_curr_report_id_s from dual;

83: begin
84: select fa_rx_reports_s.currval into x_curr_report_id_s from dual;
85: exception
86: when seq_no_curr then
87: select fa_rx_reports_s.nextval into x_curr_report_id_s from dual;
88: end;
89: for i in x_curr_report_id_s .. x_max_report_id loop
90: select fa_rx_reports_s.nextval into dummy from dual;
91: end loop;

Line 90: select fa_rx_reports_s.nextval into dummy from dual;

86: when seq_no_curr then
87: select fa_rx_reports_s.nextval into x_curr_report_id_s from dual;
88: end;
89: for i in x_curr_report_id_s .. x_max_report_id loop
90: select fa_rx_reports_s.nextval into dummy from dual;
91: end loop;
92:
93: -- EXCEPTION
94: -- WHEN Others THEN

Line 96: -- (Called_Fn => 'FA_RX_REPORTS_PKG.Insert_Row',

92:
93: -- EXCEPTION
94: -- WHEN Others THEN
95: -- FA_STANDARD_PKG.RAISE_ERROR
96: -- (Called_Fn => 'FA_RX_REPORTS_PKG.Insert_Row',
97: -- Calling_Fn => X_Calling_Fn);
98: END Insert_Row;
99: --
100: PROCEDURE Lock_Row(X_Rowid IN OUT NOCOPY VARCHAR2,

Line 114: FROM FA_RX_REPORTS

110: X_Calling_Fn VARCHAR2
111: ) IS
112: cursor c_reports is
113: SELECT *
114: FROM FA_RX_REPORTS
115: WHERE ROWID = X_ROWID
116: FOR UPDATE OF REPORT_ID NOWAIT;
117: Recinfo c_reports%rowtype;
118:

Line 185: UPDATE fa_rx_reports

181:
182:
183: if X_Rowid is not null then
184:
185: UPDATE fa_rx_reports
186: SET
187: Application_Id = X_Application_Id,
188: Responsibility_Id = X_Responsibility_Id,
189: Concurrent_Program_Id = X_Concurrent_Program_Id,

Line 202: UPDATE fa_rx_reports

198: Purge_API = X_Purge_API
199: WHERE rowid = X_Rowid;
200: else
201:
202: UPDATE fa_rx_reports
203: SET
204: Application_Id = X_Application_Id,
205: Responsibility_Id = X_Responsibility_Id,
206: Concurrent_Program_Id = X_Concurrent_Program_Id,

Line 224: -- (Called_Fn => 'FA_RX_REPORTS_PKG.Update_Row',

220: end if;
221: -- EXCEPTION
222: -- WHEN Others THEN
223: -- FA_STANDARD_PKG.RAISE_ERROR
224: -- (Called_Fn => 'FA_RX_REPORTS_PKG.Update_Row',
225: -- Calling_Fn => X_Calling_Fn);
226: END Update_Row;
227: --
228: PROCEDURE Delete_Row(X_Rowid VARCHAR2 default null,

Line 233: DELETE FROM fa_rx_reports

229: X_Report_id NUMBER,
230: X_Calling_Fn VARCHAR2) IS
231: BEGIN
232: if X_Rowid is not null then
233: DELETE FROM fa_rx_reports
234: WHERE rowid = X_Rowid;
235: elsif X_Report_Id is not null then
236: DELETE FROM fa_rx_reports
237: WHERE report_id = X_report_id;

Line 236: DELETE FROM fa_rx_reports

232: if X_Rowid is not null then
233: DELETE FROM fa_rx_reports
234: WHERE rowid = X_Rowid;
235: elsif X_Report_Id is not null then
236: DELETE FROM fa_rx_reports
237: WHERE report_id = X_report_id;
238: else
239: -- error
240: null;

Line 248: (Called_Fn => 'FA_RX_REPORTS_PKG.Delete_Row',

244: end if;
245: EXCEPTION
246: WHEN Others THEN
247: FA_STANDARD_PKG.RAISE_ERROR
248: (Called_Fn => 'FA_RX_REPORTS_PKG.Delete_Row',
249: Calling_Fn => X_Calling_Fn);
250: END Delete_Row;
251:
252: PROCEDURE Load_Row(

Line 339: from fa_rx_reports

335: f_ludate := nvl(to_date(X_Last_Update_Date, 'YYYY/MM/DD HH24:MI:SS'), sysdate);
336:
337: select LAST_UPDATED_BY, LAST_UPDATE_DATE
338: into db_luby, db_ludate
339: from fa_rx_reports
340: where report_id = X_Report_Id;
341: --* End
342: --*
343:

Line 395: arp_util_tax.debug('fa_rx_reports_pkg.validate_plsql_block(+)');

391:
392: Begin
393: --
394: if (g_print_debug) then
395: arp_util_tax.debug('fa_rx_reports_pkg.validate_plsql_block(+)');
396: end if;
397: --
398: IF p_plsql IS not null THEN
399: if (g_print_debug) then

Line 418: arp_util_tax.debug('fa_rx_reports_pkg.validate_plsql_block(-)');

414: END;
415: end if;
416:
417: if (g_print_debug) then
418: arp_util_tax.debug('fa_rx_reports_pkg.validate_plsql_block(-)');
419: end if;
420:
421: return TRUE;
422: End;

Line 424: END FA_RX_REPORTS_PKG;

420:
421: return TRUE;
422: End;
423:
424: END FA_RX_REPORTS_PKG;