[Home] [Help]
PACKAGE BODY: APPS.FA_FASMAISP_XMLP_PKG
Source
1 PACKAGE BODY FA_FASMAISP_XMLP_PKG AS
2 /* $Header: FASMAISPB.pls 120.1 2009/07/19 08:49:57 glchen ship $ */
3
4 function BookFormula return VARCHAR2 is
5 begin
6
7 DECLARE
8 l_book VARCHAR2(15);
9 l_accounting_flex_structure NUMBER(15);
10 l_currency_code VARCHAR2(15);
11 l_precision NUMBER(15);
12 BEGIN
13 SELECT bc.book_type_code,
14 bc.accounting_flex_structure,
15 sob.currency_code,
16 cur.precision
17 INTO l_book,
18 l_accounting_flex_Structure,
19 l_currency_code,
20 l_precision
21 FROM FA_BOOK_CONTROLS bc,
22 GL_SETS_OF_BOOKS sob,
23 FND_CURRENCIES cur
24 WHERE bc.book_type_code = P_BOOK
25 AND sob.set_of_books_id = bc.set_of_books_id
26 AND sob.currency_code = cur.currency_code;
27
28 Accounting_Flex_Structure:=l_accounting_flex_structure;
29 Currency_Code := l_currency_code;
30 P_Min_Precision := l_precision;
31
32 return(l_book);
33 END;
34
35 RETURN NULL; end;
36
37 function Period1Formula return VARCHAR2 is
38 begin
39
40 DECLARE
41 l_period_name VARCHAR2(15);
42 l_period_POD DATE;
43 l_period_PCD DATE;
44 l_period_PC NUMBER(15);
45 l_period_FY NUMBER(15);
46 BEGIN
47 SELECT period_name,
48 period_counter,
49 period_open_date,
50 nvl(period_close_date, sysdate),
51 fiscal_year
52 INTO l_period_name,
53 l_period_PC,
54 l_period_POD,
55 l_period_PCD,
56 l_period_FY
57 FROM FA_DEPRN_PERIODS
58 WHERE book_type_code = P_BOOK
59 AND period_name = P_PERIOD1;
60
61 Period1_PC := l_period_PC;
62 Period1_POD := l_period_POD;
63 Period1_PCD := l_period_PCD;
64 Period1_FY := l_period_FY;
65 return(l_period_name);
66 END;
67
68 RETURN NULL; end;
69
70 function report_nameformula(Company_Name in varchar2) return varchar2 is
71 begin
72
73
74 DECLARE
75 l_report_name VARCHAR2(80);
76 l_conc_program_id NUMBER;
77 BEGIN
78 RP_Company_Name := Company_Name;
79
80 SELECT cr.concurrent_program_id
81 INTO l_conc_program_id
82 FROM FND_CONCURRENT_REQUESTS cr
83 WHERE cr.program_application_id = 140
84 AND cr.request_id = P_CONC_REQUEST_ID;
85
86 SELECT cp.user_concurrent_program_name
87 INTO l_report_name
88 FROM FND_CONCURRENT_PROGRAMS_VL cp
89 WHERE
90 cp.concurrent_program_id= l_conc_program_id
91 and cp.application_id = 140;
92
93 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
94 RP_Report_Name := l_report_name;
95 RETURN(l_report_name);
96
97 EXCEPTION
98 WHEN OTHERS THEN
99 RP_Report_Name := ':Mass Additions Invoice Split Report:';
100 RETURN('Mass Additions Invoice Split Report');
101 END;
102 RETURN NULL; end;
103
104 function BeforeReport return boolean is
105 begin
106 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
107 /*SRW.USER_EXIT('FND SRWINIT');*/null;
108 return (TRUE);
109 end;
110
111 function AfterReport return boolean is
112 begin
113
114 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
115 return (TRUE);
116 end;
117
118 function RP_PERIOD_RANGEFormula return VARCHAR2 is
119 begin
120
121 return('Period '||P_Period1);
122 end;
123
124 --Functions to refer Oracle report placeholders--
125
126 Function Accounting_Flex_Structure_p return number is
127 Begin
128 return Accounting_Flex_Structure;
129 END;
130 Function Currency_Code_p return varchar2 is
131 Begin
132 return Currency_Code;
133 END;
134 Function Period1_PC_p return number is
135 Begin
136 return Period1_PC;
137 END;
138 Function Period1_PCD_p return date is
139 Begin
140 return Period1_PCD;
141 END;
142 Function Period1_POD_p return date is
143 Begin
144 return Period1_POD;
145 END;
146 Function Period1_FY_p return number is
147 Begin
148 return Period1_FY;
149 END;
150 Function RP_COMPANY_NAME_p return varchar2 is
151 Begin
152 return RP_COMPANY_NAME;
153 END;
154 Function RP_REPORT_NAME_p return varchar2 is
155 Begin
156 return RP_REPORT_NAME;
157 END;
158 Function RP_DATA_FOUND_p return varchar2 is
159 Begin
160 return RP_DATA_FOUND;
161 END;
162 END FA_FASMAISP_XMLP_PKG ;
163