[Home] [Help]
PACKAGE BODY: APPS.PN_GL_TRANSFER
Source
1 package body PN_GL_TRANSFER as
2 -- $Header: PNGLTRNB.pls 120.1 2005/11/28 01:53:36 appldev noship $
3
4
5 Procedure gl_transfer (p_journal_category VARCHAR2 ,
6 P_selection_type VARCHAR2 ,
7 P_batch_name VARCHAR2,
8 p_from_date DATE,
9 p_to_date DATE,
10 P_validate_account VARCHAR2 ,
11 p_gl_transfer_mode VARCHAR2 ,
12 p_submit_journal_import VARCHAR2 ,
13 p_process_days VARCHAR2,
14 p_debug_flag VARCHAR2
15
16 )
17 AS
18 l_sob_list xla_gl_transfer_pkg.t_sob_list := xla_gl_transfer_pkg.t_sob_list();
19 l_sob_info gl_mc_info.t_ael_sob_info;
20 i NUMBER := 0;
21 l_request_id NUMBER; -- Concurrent Request Id
22 l_appl_id NUMBER; -- Application Id.
23 l_user_id NUMBER; -- User Id.
24 l_org_id NUMBER;
25 l_org_code hr_operating_units.name%TYPE;
26 l_je_category xla_gl_transfer_pkg.t_ae_category;
27 l_desc VARCHAR2(2000);
28 l_set_of_books_id NUMBER;
29
30 CURSOR c1 (l_sob_id NUMBER) IS
31 SELECT set_of_books_id,
32 name,
33 currency_code
34 FROM gl_sets_of_books
35 WHERE set_of_books_id =l_sob_id;
36 BEGIN
37 pnp_debug_pkg.log('at the start :');
38
39 l_je_category(1) := p_journal_category;
40
41 pnp_debug_pkg.log('Get Profile Information');
42 l_request_id := FND_GLOBAL.conc_request_id;
43 l_appl_id := FND_GLOBAL.resp_appl_id;
44 l_user_id := FND_GLOBAL.user_id;
45 l_org_id := pn_mo_cache_utils.get_current_org_id;
46
47 l_set_of_books_id := TO_NUMBER(pn_mo_cache_utils.get_profile_value('PN_SET_OF_BOOKS_ID',l_org_id));
48
49 FOR rec IN c1(l_set_of_books_id) LOOP
50 i := i+1 ;
51 l_sob_info(i).sob_id := rec.set_of_books_id;
52 l_sob_info(i).currency_code := rec.currency_code;
53 l_sob_info(i).sob_name := rec.name;
54 END LOOP; /* c1 loop */
55
56
57 pnp_debug_pkg.log('Populating l_sob_list table');
58
59 FOR i IN l_sob_info.first..l_sob_info.last LOOP
60 l_sob_list.EXTEND;
61 l_sob_list(i).sob_id := l_sob_info(i).sob_id;
62 l_sob_list(i).sob_name := l_sob_info(i).sob_name;
63 l_sob_list(i).sob_curr_code := l_sob_info(i).currency_code;
64 END LOOP;
65
66 pnp_debug_pkg.log('Getting Organization Name');
67 IF l_org_id IS NOT NULL THEN
68 SELECT name
69 INTO l_org_code
70 FROM hr_operating_units
71 WHERE organization_id = l_org_id;
72 END IF;
73
74 IF p_batch_name is null THEN
75 l_desc := null;
76 ELSE
77 l_desc := l_org_code || ' ' || p_batch_name;
78 END IF;
79
80 pnp_debug_pkg.log('Calling Common Transfer API');
81
82 xla_gl_transfer_pkg.xla_gl_transfer
83 (
84 p_application_id => l_appl_id,
85 p_user_id => l_user_id,
86 p_request_id => l_request_id,
87 p_org_id => l_org_id,
88 p_program_name => 'PN1',
89 p_selection_type => p_selection_type,
90 p_sob_list => l_sob_list,
91 p_batch_name => p_batch_name,
92 p_source_doc_id => NULL,
93 p_source_document_table => NULL,
94 p_start_date => P_from_date,
95 p_end_date => P_to_date,
96 p_journal_category => l_je_category,
97 p_validate_account => p_validate_account,
98 p_gl_transfer_mode => p_gl_transfer_mode,
99 p_submit_journal_import => p_submit_journal_import,
100 p_summary_journal_entry => 'N',
101 p_process_days => p_process_days,
102 p_batch_desc => l_desc,
103 p_je_desc => l_desc,
104 p_je_line_desc => NULL,
105 p_debug_flag => p_debug_flag
106 );
107
108 pnp_debug_pkg.log('Calling Common Transfer API at end');
109
110 END gl_transfer;
111
112 ------------------------------
113 -- End of Package
114 ------------------------------
115 END PN_GL_TRANSFER;