PACKAGE BODY: APPS.PA_PAXAGAST_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXAGAST_XMLP_PKG AS
2 /* $Header: PAXAGASTB.pls 120.0 2008/01/02 11:13:20 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 cust_name VARCHAR2(50);
22 BEGIN
23 
24 
25 /*srw.user_exit('FND SRWINIT');*/null;
26 
27 
28 /*srw.user_exit('FND GETPROFILE
29 NAME="PA_RULE_BASED_OPTIMIZER"
30 FIELD=":p_rule_optimizer"
31 PRINT_ERROR="N"');*/null;
32 
33 
34 
35 
36 
37 
38 
39 /*srw.user_exit('FND GETPROFILE
40 NAME="PA_DEBUG_MODE"
41 FIELD=":p_debug_mode"
42 PRINT_ERROR="N"');*/null;
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 IF cust is not null then
53     select p.party_name into cust_name from
54     hz_parties p, hz_cust_accounts c
55     where p.party_id = c.party_id
56       and c.cust_account_id = CUST;
57 end if;
58 
59 c_customer_name := cust_name;
60 
61 IF sort is not null then
62     c_sort := initcap(sort);
63 end if;
64 
65   IF (get_company_name <> TRUE) THEN       RAISE init_failure;
66   END IF;
67 
68 EXCEPTION
69   WHEN   OTHERS  THEN
70     RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
71 
72 END;  return (TRUE);
73 end;
74 
75 FUNCTION  get_company_name    RETURN BOOLEAN IS
76   l_name               gl_sets_of_books.name%TYPE;
77 
78 BEGIN
79   SELECT  rtrim(gl.name)
80   INTO    l_name
81   FROM    gl_sets_of_books gl,pa_implementations pi
82   WHERE   gl.set_of_books_id = pi.set_of_books_id;
83 
84   c_company_name_header     := l_name;
85 
86   RETURN (TRUE);
87 
88 EXCEPTION
89 
90   WHEN   OTHERS  THEN
91     RETURN (FALSE);
92 
93 END;
94 
95 function AfterReport return boolean is
96 begin
97 
98 BEGIN
99  /*srw.user_exit('FND SRWEXIT');*/null;
100 
101 END;  return (TRUE);
102 end;
103 
104 function CF_1Formula return VARCHAR2 is
105 begin
106   return(pa_multi_currency.get_acct_currency_code);
107 end;
108 
109 --Functions to refer Oracle report placeholders--
110 
111  Function C_COMPANY_NAME_HEADER_p return varchar2 is
112 	Begin
113 	 return C_COMPANY_NAME_HEADER;
114 	 END;
115  Function C_customer_name_p return varchar2 is
116 	Begin
117 	 return C_customer_name;
118 	 END;
119  Function C_sort_p return varchar2 is
120 	Begin
121 	 return C_sort;
122 	 END;
123 END PA_PAXAGAST_XMLP_PKG ;
124