[Home] [Help]
PACKAGE BODY: APPS.PA_PAXAAFTP_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXAAFTP_XMLP_PKG AS
2 /* $Header: PAXAAFTPB.pls 120.0 2008/01/02 11:07:11 krreddy noship $ */
3
4 FUNCTION get_cover_page_values RETURN BOOLEAN IS
5
6 BEGIN
7
8 RETURN(TRUE);
9
10
11 EXCEPTION
12 WHEN OTHERS THEN
13 RETURN(FALSE);
14
15 END;
16
17 function BeforeReport return boolean is
18 begin
19
20 Declare
21 init_failure exception;
22 func VARCHAR2(40);
23
24 BEGIN
25
26 /*srw.user_exit('FND SRWINIT');*/null;
27
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 /*srw.user_exit('FND GETPROFILE
39 NAME="PA_DEBUG_MODE"
40 FIELD=":p_debug_mode"
41 PRINT_ERROR="N"');*/null;
42
43
44
45
46
47 IF P_FUNCTION_CODE is not null then
48 select function_code
49 into func
50 from pa_functions
51 where function_code = P_FUNCTION_CODE;
52 END IF;
53 C_function_code := func;
54
55 IF (get_company_name <> TRUE) THEN RAISE init_failure;
56 END IF;
57 IF (no_data_found_func <> TRUE) THEN
58 RAISE init_failure;
59 END IF;
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
71
72 select name
73 into l_name
74 from gl_sets_of_books
75 where set_of_books_id = fnd_profile.value('GL_SET_OF_BKS_ID');
76
77
78 c_company_name_header := l_name;
79
80 RETURN (TRUE);
81
82 EXCEPTION
83
84 WHEN OTHERS THEN
85 RETURN (FALSE);
86
87 END;
88
89 FUNCTION NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
90 message_name VARCHAR2(80);
91 begin
92
93 select meaning into message_name from pa_lookups
94 where lookup_type = 'MESSAGE'
95 and lookup_code = 'NO_DATA_FOUND';
96 c_no_data_found := message_name;
97 return(TRUE);
98
99 EXCEPTION
100 WHEN OTHERS THEN
101 RETURN(FALSE);
102
103 END;
104
105 function AfterReport return boolean is
106 begin
107
108 BEGIN
109 /*srw.user_exit('FND SRWEXIT');*/null;
110
111 END; return (TRUE);
112 end;
113
114 --Functions to refer Oracle report placeholders--
115
116 Function C_COMPANY_NAME_HEADER_p return varchar2 is
117 Begin
118 return C_COMPANY_NAME_HEADER;
119 END;
120 Function c_no_data_found_p return varchar2 is
121 Begin
122 return c_no_data_found;
123 END;
124 Function C_function_code_p return varchar2 is
125 Begin
126 return C_function_code;
127 END;
128 END PA_PAXAAFTP_XMLP_PKG ;
129