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;