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