[Home] [Help]
PACKAGE BODY: APPS.PA_PAXAASRP_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXAASRP_XMLP_PKG AS
2 /* $Header: PAXAASRPB.pls 120.1 2008/01/03 11:11:36 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_function_name VARCHAR2(40);
22
23 BEGIN
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 /*srw.user_exit('FND GETPROFILE
37 NAME="PA_DEBUG_MODE"
38 FIELD=":p_debug_mode"
39 PRINT_ERROR="N"');*/null;
40
41
42
43
44
45
46
47 If p_function_code is not null
48 then
49 select substr(function_name, 1, 40)
50 into hold_function_name
51 from pa_functions
52 where function_code = p_function_code;
53 end if;
54 c_function_name := hold_function_name;
55
56
57 IF (get_company_name <> TRUE) THEN RAISE init_failure;
58 END IF;
59
60 EXCEPTION
61 WHEN OTHERS THEN
62 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
63
64 END; return (TRUE);
65 end;
66
67 FUNCTION get_company_name RETURN BOOLEAN IS
68 l_name gl_sets_of_books.name%TYPE;
69 BEGIN
70 SELECT gl.name
71 INTO l_name
72 FROM gl_sets_of_books gl,pa_implementations pi
73 WHERE gl.set_of_books_id = pi.set_of_books_id;
74
75 c_company_name_header := l_name;
76
77 RETURN (TRUE);
78
79 EXCEPTION
80
81 WHEN OTHERS THEN
82 RETURN (FALSE);
83
84 END;
85
86 function AfterReport return boolean is
87 begin
88
89 BEGIN
90 /*srw.user_exit('FND SRWEXIT');*/null;
91
92 END; return (TRUE);
93 end;
94
95 --Functions to refer Oracle report placeholders--
96
97 Function C_COMPANY_NAME_HEADER_p return varchar2 is
98 Begin
99 return C_COMPANY_NAME_HEADER;
100 END;
101 Function C_function_name_p return varchar2 is
102 Begin
103 return C_function_name;
104 END;
105 END PA_PAXAASRP_XMLP_PKG ;
106