PACKAGE BODY: APPS.PA_PAXRWSBR_XMLP_PKG

Source

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