1 PACKAGE BODY cS_REPORTS_PACKAGE AS
2 /*$Header: csxrepb.pls 115.0 99/07/16 09:08:32 porting ship $*/
3
4 PROCEDURE cs_get_company_name (rp_company_name IN OUT VARCHAR2,
5 p_sob_id NUMBER) IS
6 CURSOR fetch_company_name IS
7 SELECT sob.name
8 FROM gl_sets_of_books sob
9 WHERE sob.set_of_books_id = p_sob_id;
10 BEGIN
11 OPEN fetch_company_name;
12 FETCH fetch_company_name
13 INTO rp_company_name;
14 CLOSE fetch_company_name;
15
16 EXCEPTION
17 WHEN NO_DATA_FOUND THEN
18 NULL ;
19 END cs_get_company_name ;
20
21 PROCEDURE cs_Get_Report_Name(rp_report_name IN OUT VARCHAR2,
22 p_conc_request_id NUMBER,
23 p_report_name VARCHAR2) IS
24 CURSOR report_name IS
25 SELECT cp.user_concurrent_program_name
26 FROM FND_CONCURRENT_PROGRAMS_VL cp,
27 FND_CONCURRENT_REQUESTS cr
28 WHERE cr.request_id = p_conc_request_id
29 AND cp.application_id = cr.program_application_id
30 AND cp.concurrent_program_id = cr.concurrent_program_id;
31 BEGIN
32 OPEN report_name;
33 FETCH report_name
34 INTO rp_report_name;
35 CLOSE report_name;
36
37 EXCEPTION
38 WHEN NO_DATA_FOUND
39 THEN RP_REPORT_NAME := p_report_name;
40 END cs_get_report_name;
41
42 PROCEDURE Get_P_Struct_Num (p_Item_Struct_Num IN OUT VARCHAR2,
43 return_value IN OUT NUMBER) IS
44 CURSOR get_p_item_struct_num IS
45 SELECT structure_id
46 FROM mtl_default_sets_view
47 WHERE functional_area_id = 2 ;
48 BEGIN
49 OPEN get_p_item_struct_num ;
50 FETCH get_p_item_struct_num
51 INTO p_Item_Struct_Num;
52
53 CLOSE get_p_item_struct_num;
54 return_value := 1;
55
56 EXCEPTION
57 WHEN OTHERS THEN return_value := 0;
58 END Get_P_Struct_Num;
59
60 END CS_REPORTS_PACKAGE;