PACKAGE BODY: APPS.PA_PAXAASVL_XMLP_PKG

Source

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