PACKAGE BODY: APPS.PA_PAXAARUL_XMLP_PKG

Source

1 PACKAGE BODY PA_PAXAARUL_XMLP_PKG AS
2 /* $Header: PAXAARULB.pls 120.1 2008/01/03 11:10: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  ndf VARCHAR2(80);
22  tmp_rule VARCHAR2(60);
23 BEGIN
24 
25 /*srw.user_exit('FND SRWINIT');*/null;
26 
27 
28 /*srw.user_exit('FND GETPROFILE
29 NAME="PA_DEBUG_MODE"
30 FIELD=":p_debug_mode"
31 PRINT_ERROR="N"');*/null;
32 
33 
34 /*srw.user_exit('FND GETPROFILE
35 NAME="PA_RULE_BASED_OPTIMIZER"
36 FIELD=":p_rule_optimizer"
37 PRINT_ERROR="N"');*/null;
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49   IF (get_company_name <> TRUE) THEN       RAISE init_failure;
50   END IF;
51    select meaning into ndf from pa_lookups where
52     lookup_code = 'NO_DATA_FOUND' and
53     lookup_type = 'MESSAGE';
54   c_no_data_found := ndf;
55 
56    IF p_rule_id IS NOT NULL THEN
57  	SELECT rule_name INTO tmp_rule FROM pa_rules
58    	WHERE  rule_id = p_rule_id ;
59    END IF;
60 
61    c_rule_name := tmp_rule ;
62 
63 EXCEPTION
64   WHEN  NO_DATA_FOUND THEN
65    select meaning into ndf from pa_lookups where
66     lookup_code = 'NO_DATA_FOUND' and
67     lookup_type = 'MESSAGE';
68   c_no_data_found := ndf;
69    c_dummy_data := 1;
70   WHEN   OTHERS  THEN
71     RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
72 
73 END;  return (TRUE);
74 end;
75 
76 FUNCTION  get_company_name    RETURN BOOLEAN IS
77   l_name                  gl_sets_of_books.name%TYPE;
78 BEGIN
79 
80 
81   select name
82   into l_name
83   from gl_sets_of_books
84   where set_of_books_id = fnd_profile.value('GL_SET_OF_BKS_ID');
85 
86 
87   c_company_name_header     := l_name;
88 
89   RETURN (TRUE);
90 
91 EXCEPTION
92 
93   WHEN   OTHERS  THEN
94     RETURN (FALSE);
95 
96 END;
97 
98 function AfterReport return boolean is
99 begin
100   /*srw.user_exit('FND SRWEXIT') ;*/null;
101 
102   return (TRUE);
103 end;
104 
105 --Functions to refer Oracle report placeholders--
106 
107  Function C_COMPANY_NAME_HEADER_p return varchar2 is
108 	Begin
109 	 return C_COMPANY_NAME_HEADER;
110 	 END;
111  Function C_no_data_found_p return varchar2 is
112 	Begin
113 	 return C_no_data_found;
114 	 END;
115  Function C_dummy_data_p return number is
116 	Begin
117 	 return C_dummy_data;
118 	 END;
119  Function C_rule_name_p return varchar2 is
120 	Begin
121 	 return C_rule_name;
122 	 END;
123 END PA_PAXAARUL_XMLP_PKG ;
124