PACKAGE BODY: APPS.FA_FASMAINT_XMLP_PKG

Source

1 PACKAGE BODY FA_FASMAINT_XMLP_PKG AS
2 /* $Header: FASMAINTB.pls 120.0.12010000.1 2008/07/28 13:16:57 appldev ship $ */
3 
4 procedure get_currency_code(book varchar2) is
5 BEGIN
6 
7  NULL;
8 EXCEPTION
9   WHEN NO_DATA_FOUND THEN
10 	NULL;
11   WHEN OTHERS THEN
12         RAISE_ORA_ERR('20050');
13 END;
14 
15 procedure raise_ora_err(errno in varchar2) is
16 ERRMSG VARCHAR2(1000);
17 BEGIN
18   ERRMSG := SQLERRM;
19   /*SRW.MESSAGE(ERRNO,ERRMSG);*/null;
20 
21   RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
22 
23 END;
24 
25 function AfterReport return boolean is
26 begin
27 
28   delete from fa_maint_rep_itf
29   where request_id = C_request_id;
30 
31   /*srw.user_exit('FND SRWEXIT');*/null;
32 
33   return (TRUE);
34 end;
35 
36 function RP_COMPANY_NAMEFormula return VARCHAR2 is
37   l_company_name	VARCHAR2(30);
38 begin
39   SELECT SC.Company_Name INTO l_company_name
40   FROM FA_SYSTEM_CONTROLS SC;
41   RETURN (l_company_name);
42 RETURN NULL; EXCEPTION
43   WHEN NO_DATA_FOUND THEN
44      RETURN (' ');
45 end;
46 
47 function BeforeReport return boolean is
48 begin
49 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
50 
51   /*SRW.USER_EXIT('FND SRWINIT');*/null;
52   declare
53     l_currency_code varchar2(15);
54     l_precision	    number(15);
55 
56   begin
57     select sob.currency_code,
58            cur.precision
59     into l_currency_code,
60      	 l_precision
61     from fa_book_controls bc,
62          gl_sets_of_books sob,
63          fnd_currencies cur
64     where bc.book_type_code = P_BOOK
65     and   sob.set_of_books_id = bc.set_of_books_id
66     and   cur.currency_code = sob.currency_code;
67 
68     C_Currency_Code := l_currency_code;
69     P_Min_Precision   := l_precision;
70 
71     return (TRUE);
72   end;
73 
74 RETURN NULL; end;
75 
76 --Functions to refer Oracle report placeholders--
77 
78  Function C_currency_code_p return varchar2 is
79 	Begin
80 	 return C_currency_code;
81 	 END;
82  Function C_request_id_p return number is
83 	Begin
84 	 return C_request_id;
85 	 END;
86 
87 
88 	 --added by
89 
90 	 function Do_InsertFormula return number is
91    h_retcode  number;
92 
93 begin
94 
95 	FARX_C_MT.do_insert(P_BOOK,
96 			    P_event_name,
97 			    P_maint_date_from,
98 			    P_maint_date_to,
99 			    P_asset_number_from,
100 			    P_asset_number_to,
101 			    P_dpis_from,
102 			    P_dpis_to,
103 			    P_Category_id,
104 			    P_CONC_REQUEST_ID,
105 			     h_retcode);
106 
107    c_request_id := P_CONC_REQUEST_ID;
108     return(c_request_id);
109 
110 end;
111 END FA_FASMAINT_XMLP_PKG ;
112