[Home] [Help]
PACKAGE BODY: APPS.FII_PA_BUDGET_M_C
Source
1 Package Body FII_PA_BUDGET_M_C AS
2 /* $Header: FIIPA09B.pls 120.1 2002/11/22 20:21:33 svermett ship $ */
3
4 g_debug_flag VARCHAR2(1) := NVL(FND_PROFILE.value('FII_DEBUG_MODE'), 'N');
5
6 G_PUSH_DATE_RANGE1 Date:=Null;
7 G_PUSH_DATE_RANGE2 Date:=Null;
8 g_row_count Number:=0;
9 g_exception_msg varchar2(2000):=Null;
10
11
12 Procedure Push(Errbuf in out nocopy Varchar2,
13 Retcode in out nocopy Varchar2,
14 p_from_date in Varchar2,
15 p_to_date in Varchar2) IS
16 l_dimension_name Varchar2(30) :='FII_PA_BUDGET_M';
17 l_temp_date Date:=Null;
18 l_rows_inserted Number:=0;
19 l_duration Number:=0;
20 l_exception_msg Varchar2(2000):=Null;
21 l_from_date Date:=Null;
22 l_to_date Date:=Null;
23
24 -- -------------------------------------------
25 -- Put any additional developer variables here
26 -- -------------------------------------------
27 Begin
28 Errbuf :=NULL;
29 Retcode:=0;
30
31 l_from_date := to_date(p_from_date, 'YYYY/MM/DD HH24:MI:SS');
32 l_to_date := to_date(p_to_date, 'YYYY/MM/DD HH24:MI:SS');
33
34 IF (Not EDW_COLLECTION_UTIL.setup(l_dimension_name)) THEN
35 errbuf := fnd_message.get;
36 raise_application_error(-20000,'Error in SETUP: ' || errbuf);
37 END IF;
38
39 FII_PA_BUDGET_M_C.g_push_date_range1 :=
40 nvl(l_from_date, EDW_COLLECTION_UTIL.G_local_last_push_start_date - EDW_COLLECTION_UTIL.g_offset);
41
42 FII_PA_BUDGET_M_C.g_push_date_range2 :=
43 nvl(l_to_date,EDW_COLLECTION_UTIL.G_local_curr_push_start_date);
44
45 if g_debug_flag = 'Y' then
46 edw_log.put_line( 'The collection range is from '||
47 to_char(FII_PA_BUDGET_M_C.g_push_date_range1,'MM/DD/YYYY HH24:MI:SS')||' to '||
48 to_char(FII_PA_BUDGET_M_C.g_push_date_range2,'MM/DD/YYYY HH24:MI:SS'));
49 edw_log.put_line(' ');
50 end if;
51
52 -- -----------------------------------------------------------------------------
53 -- Start of Collection , Developer Customizable Section
54 -- -----------------------------------------------------------------------------
55
56 if g_debug_flag = 'Y' then
57 edw_log.put_line(' ');
58 edw_log.put_line('Pushing data');
59 end if;
60
61 l_temp_date := sysdate;
62
63
64 Push_FII_PA_PABU_BUDGET_LSTG(FII_PA_BUDGET_M_C.g_push_date_range1, FII_PA_BUDGET_M_C.g_push_date_range2);
65
66
67 l_duration := sysdate - l_temp_date;
68
69 if g_debug_flag = 'Y' then
70 edw_log.put_line('Process Time: '||edw_log.duration(l_duration));
71 edw_log.put_line(' ');
72 end if;
73
74 -- ---------------------------------------------------------------------------
75 -- END OF Collection , Developer Customizable Section
76 -- ---------------------------------------------------------------------------
77 EDW_COLLECTION_UTIL.wrapup(TRUE, g_row_count, null, g_push_date_range1, g_push_date_range2);
78 commit;
79
80 Exception When others then
81 Errbuf:=sqlerrm;
82 Retcode:=sqlcode;
83 l_exception_msg := Retcode || ':' || Errbuf;
84 FII_PA_BUDGET_M_C.g_exception_msg := l_exception_msg;
85 rollback;
86 EDW_COLLECTION_UTIL.wrapup(FALSE, 0, FII_PA_BUDGET_M_C.g_exception_msg, g_push_date_range1, g_push_date_range2);
87
88 commit;
89 End;
90
91
92 Procedure Push_FII_PA_PABU_BUDGET_LSTG(p_from_date IN date, p_to_date IN DATE) IS
93 l_date1 DATE;
94 l_date2 DATE;
95 l_rows_inserted NUMBER :=0;
96 BEGIN
97
98 if g_debug_flag = 'Y' then
99 edw_log.put_line('Starting Push_FII_PA_PABU_BUDGET_LSTG');
100 end if;
101
102 l_date1 := p_from_date;
103 l_date2 := p_to_date;
104
105 Insert Into
106 FII_PA_PABU_BUDGET_LSTG(
107 USER_ATTRIBUTE3,
108 USER_ATTRIBUTE4,
109 USER_ATTRIBUTE5,
110 INSTANCE,
111 CREATION_DATE,
112 LAST_UPDATE_DATE,
113 BUDGET_PK,
114 NAME,
115 BUDGET_TYPE,
116 VERSION_NAME,
117 PROJECT_NAME,
118 CURRENT_FLAG,
119 ORIGINAL_FLAG,
120 CURRENT_ORIGINAL_FLAG,
121 USER_ATTRIBUTE1,
122 USER_ATTRIBUTE2,
123 OPERATION_CODE,
124 COLLECTION_STATUS)
125 select
126 USER_ATTRIBUTE3,
127 USER_ATTRIBUTE4,
128 USER_ATTRIBUTE5,
129 INSTANCE,
130 SYSDATE,
131 SYSDATE,
132 BUDGET_PK,
133 NAME,
134 BUDGET_TYPE,
135 VERSION_NAME,
136 PROJECT_NAME,
137 CURRENT_FLAG,
138 ORIGINAL_FLAG,
139 CURRENT_ORIGINAL_FLAG,
140 USER_ATTRIBUTE1,
141 USER_ATTRIBUTE2,
142 NULL,
143 'READY'
144 from
145 FII_PA_PABU_BUDGET_LCV
146 where
147 last_update_date between l_date1 and l_date2;
148
149 l_rows_inserted := sql%rowcount;
150 g_row_count := g_row_count + l_rows_inserted ;
151
152 if g_debug_flag = 'Y' then
153 edw_log.put_line('Commiting records for FII_PA_PABU_BUDGET_LSTG');
154 end if;
155
156 commit;
157
158 if g_debug_flag = 'Y' then
159 edw_log.put_line('Completed Push_FII_PA_PABU_BUDGET_LSTG');
160 end if;
161
162 Exception When others then
163 raise;
164 commit;
165 END;
166 End FII_PA_BUDGET_M_C;