[Home] [Help]
PACKAGE BODY: APPS.PA_PARLBLDG_XMLP_PKG
Source
1 PACKAGE BODY PA_PARLBLDG_XMLP_PKG AS
2 /* $Header: PARLBLDGB.pls 120.0 2008/01/02 11:03:48 krreddy noship $ */
3
4 function AfterReport return boolean is
5 begin
6 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
7
8 return (TRUE);
9
10 end;
11
12 function BeforeReport return boolean is
13 x_status VARCHAR2(1);
14 x_count NUMBER;
15 x_data VARCHAR2(2000);
16 l_name VARCHAR2(100);
17 l_date DATE;
18 begin
19
20 /*srw.user_exit('FND SRWINIT');*/null;
21
22
23 /*srw.user_exit('FND GETPROFILE
24 NAME="PA_DEBUG_MODE"
25 FIELD=":p_debug_mode"
26 PRINT_ERROR="N"');*/null;
27
28
29
30
31
32
33
34
35 /*srw.user_exit('FND GETPROFILE
36 NAME="CURRENCY:MIXED_PRECISION"
37 FIELD=":p_min_precision"
38 PRINT_ERROR="N"');*/null;
39
40
41
42 IF (p_start_resource_name IS NULL ) THEN
43 SELECT MIN(name)
44 INTO p_start_resource_name
45 FROM pa_resources;
46 END IF;
47
48 IF (p_end_resource_name IS NULL ) THEN
49 SELECT MAX(name)
50 INTO p_end_resource_name
51 FROM pa_resources;
52 END IF;
53 BEGIN
54 SELECT SYSDATE
55 INTO l_date
56 FROM dual;
57 EXCEPTION
58 WHEN NO_DATA_FOUND THEN
59 NULL;
60 WHEN OTHERS THEN
61 /*SRW.MESSAGE(100,' OTHER PROBLEM IN SELECTING THE SYSDATE '||SQLERRM);*/null;
62
63 NULL;
64 END;
65 /*srw.message(100,'res_nam1 '||p_start_resource_name);*/null;
66
67 /*srw.message(100,'res_nam2 '||p_end_resource_name);*/null;
68
69 /*srw.message(100,'res_id '||to_number(p_resource_id));*/null;
70
71
72 IF (UPPER(p_run_mode) = 'R') THEN
73 PA_TIMELINE_PVT.create_timeline(
74 p_start_resource_name => p_start_resource_name,
75 p_end_resource_name => p_end_resource_name,
76 p_resource_id => NULL,
77 p_start_date => l_date,
78 p_end_date => NULL,
79 x_return_status => x_status,
80 x_msg_count => x_count,
81 x_msg_data => x_data);
82
83
84 ELSIF (UPPER(p_run_mode) = 'S' ) THEN
85 SELECT name
86 INTO l_name
87 FROM pa_resources
88 WHERE resource_id = p_resource_id;
89 p_start_resource_name := l_name;
90 p_end_resource_name := l_name;
91
92 PA_TIMELINE_PVT.create_timeline(
93 p_start_resource_name => NULL,
94 p_end_resource_name => NULL,
95 p_resource_id => p_resource_id,
96 p_start_date => l_date,
97 p_end_date => NULL,
98 x_return_status => x_status,
99 x_msg_count => x_count,
100 x_msg_data => x_data);
101 END IF;
102 p_start_resource_name_dummy:=p_start_resource_name;
103 p_end_resource_name_dummy:=p_end_resource_name;
104 return(TRUE);
105 EXCEPTION
106 WHEN OTHERS THEN
107 /*SRW.MESSAGE(1111,' DATA IS NOT IN THE TABLE'||sqlerrm);*/null;
108
109 Raise;
110 return (TRUE);
111 end;
112
113 function CP_company_nameFormula return Char is
114 v_company_name gl_sets_of_books.name%type;
115
116 begin
117
118 select glb.name into v_company_name
119 from gl_sets_of_books glb, pa_implementations pi
120 where glb.set_of_books_id=pi.set_of_books_id;
121
122 cp_company_name:=v_company_name;
123 return cp_company_name;
124 end;
125
126 --Functions to refer Oracle report placeholders--
127
128 Function CP_company_name_p return varchar2 is
129 Begin
130 return CP_company_name;
131 END;
132 Function CP_NODATAFOUND_p return varchar2 is
133 Begin
134 return CP_NODATAFOUND;
135 END;
136 END PA_PARLBLDG_XMLP_PKG ;
137