[Home] [Help]
PACKAGE BODY: APPS.PJI_CURR_REP_PERIODS_UTIL
Source
1 PACKAGE BODY Pji_Curr_Rep_Periods_Util AS
2 /* $Header: PJIRX19B.pls 120.0 2005/07/11 07:36 mogupta noship $ */
3
4 g_debug_mode VARCHAR2(1) := NVL(Fnd_Profile.value('PA_DEBUG_MODE'),'N');
5 g_proc NUMBER :=5;
6
7 -- -----------------------------------------------------------------
8 -- Setup Current Reporting Periods
9 -- -----------------------------------------------------------------
10
11 PROCEDURE update_curr_rep_periods(
12 p_pa_curr_rep_period VARCHAR2,
13 p_gl_curr_rep_period VARCHAR2,
14 p_ent_curr_rep_period VARCHAR2,
15 p_org_id NUMBER
16 ) AS
17
18 -- ----------------------------------------------
19 -- declare statements --
20
21 l_org_id_count NUMBER := 0;
22 l_ent_period_count NUMBER := 0;
23 l_org_id NUMBER;
24
25 -- ----------------------------------------------
26
27 BEGIN
28 -- ----------------------------------------------
29 IF g_debug_mode = 'Y' THEN
30 Pji_Utils.WRITE2LOG( 'update_curr_rep_periods: begining', TRUE , g_proc);
31 END IF;
32
33 -- check if pji_org_extr_info table has a record for p_org_id
34 -- Count funtion is introduced
35 SELECT COUNT(info.org_id)
36 INTO l_org_id_count
37 FROM pji_org_extr_info info
38 WHERE 1=1
39 AND info.org_id = p_org_id;
40
41
42 IF l_org_id_count = 0
43 THEN
44
45 -- insert p_org_id, pa_curr_rep_period and gl_curr_rep_period (everything else is null)
46
47 INSERT
48 INTO pji_org_extr_info
49 (
50 org_id,
51 pa_curr_rep_period,
52 gl_curr_rep_period
53 )
54 VALUES
55 (
56 --NVL(TO_NUMBER(DECODE(SUBSTR(USERENV('CLIENT_INFO'),1,1),' ',NULL,SUBSTR(USERENV('CLIENT_INFO'),1,10))),-99),
57 p_org_id,
58 p_pa_curr_rep_period,
59 p_gl_curr_rep_period
60 );
61 ELSE
62
63 -- update pa_curr_rep_period and gl_curr_rep_period
64
65 UPDATE pji_org_extr_info
66 SET pa_curr_rep_period = p_pa_curr_rep_period,
67 gl_curr_rep_period = p_gl_curr_rep_period
68 --WHERE org_id = NVL(TO_NUMBER(DECODE(SUBSTR(USERENV('CLIENT_INFO'),1,1),' ',NULL,SUBSTR(USERENV('CLIENT_INFO'),1,10))),-99);
69 WHERE org_id = p_org_id;
70 END IF;
71
72 -- ----------------------------------------------
73 --Count funtion is introduced
74 SELECT COUNT(params.name)
75 INTO l_ent_period_count
76 FROM pji_system_parameters params
77 WHERE 1=1
78 AND params.name = 'PJI_PJP_ENT_CURR_REP_PERIOD';
79
80 IF l_ent_period_count = 0
81 THEN
82
83 INSERT
84 INTO pji_system_parameters
85 (
86 name,
87 value
88 )
89 VALUES
90 (
91 'PJI_PJP_ENT_CURR_REP_PERIOD',
92 p_ent_curr_rep_period
93 );
94 ELSE
95
96 UPDATE pji_system_parameters
97 SET value = p_ent_curr_rep_period
98 WHERE name = 'PJI_PJP_ENT_CURR_REP_PERIOD';
99
100
101
102 END IF;
103
104
105 -- ----------------------------------------------
106
107 COMMIT;
108
109 IF g_debug_mode = 'Y' THEN
110 Pji_Utils.WRITE2LOG( 'update_curr_rep_periods: finishing', TRUE , g_proc);
111 END IF;
112
113
114 END update_curr_rep_periods;
115
116 -- -----------------------------------------------------------------
117
118 END Pji_Curr_Rep_Periods_Util;