PACKAGE BODY: APPS.FA_FAS826_XMLP_PKG

Source

1 PACKAGE BODY FA_FAS826_XMLP_PKG AS
2 /* $Header: FAS826B.pls 120.0.12010000.1 2008/07/28 13:15:46 appldev ship $ */
3 function report_nameformula(Company_Name in varchar2) return varchar2 is
4 begin
5 DECLARE
6   l_report_name VARCHAR2(80);
7 BEGIN
8   RP_Company_Name := Company_Name;
9   SELECT cp.user_concurrent_program_name
10   INTO   l_report_name
11   FROM    FND_CONCURRENT_PROGRAMS_VL cp,
12          FND_CONCURRENT_REQUESTS cr
13   WHERE  cr.request_id = P_CONC_REQUEST_ID
14   AND    cp.application_id = cr.program_application_id
15   AND    cp.concurrent_program_id=cr.concurrent_program_id;
16  l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
17   RP_Report_Name := l_report_name;
18   RETURN(l_report_name);
19 EXCEPTION
20   WHEN OTHERS THEN
21     RP_Report_Name := ':Mass Additions Purge Report:';
22     RETURN('Mass Additions Purge Report');
23 END;
24 RETURN NULL; end;
25 function BeforeReport return boolean is
26 begin
27  P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
28 /*SRW.USER_EXIT('FND SRWINIT');*/null;
29   return (TRUE);
30 end;
31 function AfterReport return boolean is
32 begin
33 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
34 delete from fa_deleted_mass_additions
35 where create_batch_id = P_BATCH_ID;  return (TRUE);
36 end;
37 function d_statusformula(STATUS in varchar2) return varchar2 is
38 begin
39 RP_DATA_FOUND := 'YES';
40 IF STATUS = '  A'
41    THEN
42        RETURN(NULL);
43     ELSE
44        RETURN(STATUS);
45 END IF;
46 RETURN NULL; end;
47 --Functions to refer Oracle report placeholders--
48  Function RP_COMPANY_NAME_p return varchar2 is
49 	Begin
50 	 return RP_COMPANY_NAME;
51 	 END;
52  Function RP_REPORT_NAME_p return varchar2 is
53 	Begin
54 	 return RP_REPORT_NAME;
55 	 END;
56  Function RP_DATA_FOUND_p return varchar2 is
57 	Begin
58 	 return RP_DATA_FOUND;
59 	 END;
60 END FA_FAS826_XMLP_PKG ;
61