1 PACKAGE BODY PA_PACRCAPS_XMLP_PKG AS
2 /* $Header: PACRCAPSB.pls 120.0 2008/01/02 10:56:33 krreddy noship $ */
3
4 function BeforeReport return boolean is
5 begin
6 /*SRW.MESSAGE('1','THE VALUE OF P1 IS '||P_PROJECT_TYPE);*/null;
7
8 /*SRW.MESSAGE('1','THE VALUE OF P2 IS '||P_PROJECT_ID);*/null;
9
10 /*SRW.MESSAGE('1','THE VALUE OF P3 IS '||P_PROJECT_ORG);*/null;
11
12 /*SRW.MESSAGE('1','THE VALUE OF P4 IS '||P_CLASS_CATEGORY);*/null;
13
14 /*SRW.MESSAGE('1','THE VALUE OF P5 IS '||P_CLASS_CODE);*/null;
15
16
17 /*srw.user_exit('FND SRWINIT');*/null;
18
19
20 /*srw.user_exit('FND GETPROFILE
21 NAME="PA_DEBUG_MODE"
22 FIELD=":p_debug_mode"
23 PRINT_ERROR="N"');*/null;
24
25
26
27 If p_debug_mode = 'Y' then
28
29 /*srw.do_sql('ALTER SESSION SET SQL_TRACE TRUE');null;*/
30 execute immediate 'ALTER SESSION SET SQL_TRACE TRUE';
31
32 End If;
33
34 /*SRW.MESSAGE('1','TBOUT TO GET THE COMPANY NAME');*/null;
35
36
37 SELECT gl.name
38 INTO cp_company_name
39 FROM gl_sets_of_books gl,pa_implementations pi
40 WHERE gl.set_of_books_id = pi.set_of_books_id;
41
42 IF p_project_id IS NOT NULL THEN
43 BEGIN
44
45 SELECT segment1
46 INTO CP_PROJECT_NUMBER
47 FROM pa_projects_all
48 WHERE project_id=p_project_id;
49 EXCEPTION
50 WHEN NO_DATA_FOUND THEN
51 NULL;
52 END;
53
54 END IF;
55
56 IF p_project_org IS NOT NULL THEN
57 BEGIN
58
59 SELECT name
60 INTO CP_PROJECT_ORG
61 FROM pa_organizations_proj_all_bg_v
62 WHERE organization_id=p_project_org;
63 EXCEPTION
64 WHEN NO_DATA_FOUND THEN
65 NULL;
66 END;
67 END IF;
68
69 return (TRUE);
70 exception
71 when others then
72 /*SRW.MESSAGE('1','UNEXPECTED ERROR IN BEFORE REPORT');*/null;
73
74 raise_application_error(-20101,null);/*SRW.program_abort;*/null;
75
76 end;
77
78 function AfterReport return boolean is
79 begin
80 /*srw.user_exit('FND SRWEXIT');*/null;
81
82 return (TRUE);
83 end;
84
85 function CF_FORMAT_MASDFormula return Char is
86 tmp_fmt_mask varchar2(15);
87 begin
88 return(pa_multi_currency.get_acct_currency_code);
89
90 end;
91
92 --Functions to refer Oracle report placeholders--
93
94 Function CP_project_id_p return number is
95 Begin
96 return CP_project_id;
97 END;
98 Function CP_COMPANY_NAME_p return varchar2 is
99 Begin
100 return CP_COMPANY_NAME;
101 END;
102 Function CP_PROJECT_NUMBER_p return varchar2 is
103 Begin
104 return CP_PROJECT_NUMBER;
105 END;
106 Function CP_PROJECT_ORG_p return varchar2 is
107 Begin
108 return CP_PROJECT_ORG;
109 END;
110 END PA_PACRCAPS_XMLP_PKG ;
111