PACKAGE BODY: APPS.PA_PAXPCEGS_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXPCEGS_XMLP_PKG AS
2 /* $Header: PAXPCEGSB.pls 120.0 2008/01/02 11:39:50 krreddy noship $ */
3 FUNCTION  get_cover_page_values   RETURN BOOLEAN IS
4 BEGIN
5 RETURN(TRUE);
6 EXCEPTION
7  WHEN OTHERS THEN
8   RETURN(FALSE);
9 END;
10 function BeforeReport return boolean is
11 begin
12 Declare
13  init_failure exception;
14  c_org_name hr_organization_units.name%TYPE;
15 BEGIN
16   P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
17   ENDING_DATE_1:=to_char(ENDING_DATE,'DD-MON-YY');
18 /*srw.user_exit('FND SRWINIT');*/null;
19 /*srw.user_exit('FND GETPROFILE
20 NAME="PA_RULE_BASED_OPTIMIZER"
21 FIELD=":p_rule_optimizer"
22 PRINT_ERROR="N"');*/null;
23 /*srw.user_exit('FND GETPROFILE
24 NAME="PA_DEBUG_MODE"
25 FIELD=":p_debug_mode"
26 PRINT_ERROR="N"');*/null;
27   IF (get_company_name <> TRUE) THEN
28      RAISE init_failure;
29    END IF;
30   IF (get_start_org <> TRUE) THEN
31       RAISE init_failure;
32   END IF;
33 IF P_START_ORGANIZATION_ID is not null then
34 select
35  Substr(name, 1, 60)  into
36  c_org_name
37 from
38  hr_organization_units
39 where
40  organization_id =  p_start_organization_id;
41 END IF;
42 start_organization := c_org_name;
43 EXCEPTION
44   WHEN   OTHERS  THEN
45     RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
46 END;  return (TRUE);
47 end;
48 FUNCTION  get_company_name    RETURN BOOLEAN IS
49   l_name                  gl_sets_of_books.name%TYPE;
50 BEGIN
51   SELECT  gl.name
52   INTO    l_name
53   FROM    gl_sets_of_books gl,pa_implementations pi
54   WHERE   gl.set_of_books_id = pi.set_of_books_id;
55   c_company_name_header     := l_name;
56   RETURN (TRUE);
57 EXCEPTION
58   WHEN   OTHERS  THEN
59     RETURN (FALSE);
60 END;
61 FUNCTION get_start_org RETURN BOOLEAN IS
62   c_start_organization_id number(15);
63 BEGIN
64 select
65 nvl(p_start_organization_id,start_organization_id)
66 into
67  c_start_organization_id
68 from
69  pa_implementations;
70 insert into pa_org_reporting_sessions
71     (start_organization_id,session_id)
72 values
73     (c_start_organization_id,userenv('SESSIONID'));
74 RETURN (TRUE);
75 EXCEPTION
76  WHEN OTHERS THEN
77   RETURN (FALSE);
78 END;
79 function AfterReport return boolean is
80 begin
81 BEGIN
82    delete from pa_org_reporting_sessions
83    where session_id = userenv( 'SESSIONID' );
84 EXCEPTION
85   WHEN OTHERS THEN
86       NULL;
87 END;
88 /*srw.user_exit('FND SRWEXIT') ;*/null;
89 return (TRUE);
90 end;
91 --Functions to refer Oracle report placeholders--
92  Function C_COMPANY_NAME_HEADER_p return varchar2 is
93 	Begin
94 	 return C_COMPANY_NAME_HEADER;
95 	 END;
96  Function Start_organization_p return varchar2 is
97 	Begin
98 	 return Start_organization;
99 	 END;
100 END PA_PAXPCEGS_XMLP_PKG ;
101