[Home] [Help]
PACKAGE BODY: APPS.FII_AR_TRX_TYPE_M_C
Source
1 Package Body FII_AR_TRX_TYPE_M_C AS
2 /* $Header: FIIAR01B.pls 115.11 2002/01/31 16:43:26 pkm ship $ */
3 G_PUSH_DATE_RANGE1 Date:=Null;
4 G_PUSH_DATE_RANGE2 Date:=Null;
5 g_row_count Number:=0;
6 g_exception_msg varchar2(2000):=Null;
7
8
9 Procedure Push(Errbuf in out Varchar2,
10 Retcode in out Varchar2,
11 p_from_date IN Varchar2,
12 p_to_date IN Varchar2) IS
13 l_dimension_name Varchar2(30) :='EDW_AR_TRX_TYPE_M' ;
14 l_temp_date Date:=Null;
15 l_rows_inserted Number:=0;
16 l_duration Number:=0;
17 l_exception_msg Varchar2(2000):=Null;
18 l_from_date Date:=Null;
19 l_to_date Date:=Null;
20
21 -- -------------------------------------------
22 -- Put any additional developer variables here
23 -- -------------------------------------------
24 Begin
25 Errbuf :=NULL;
26 Retcode:=0;
27 l_from_date :=to_date(p_from_date,'YYYY/MM/DD HH24:MI:SS');
28 l_to_date :=to_date(p_to_date, 'YYYY/MM/DD HH24:MI:SS');
29 IF (Not EDW_COLLECTION_UTIL.setup(l_dimension_name)) THEN
30 errbuf := fnd_message.get;
31 RAISE_APPLICATION_ERROR(-20000,'Error in SETUP: ' || errbuf);
32 END IF;
33 FII_AR_TRX_TYPE_M_C.g_push_date_range1 := nvl(l_from_date,
34 EDW_COLLECTION_UTIL.G_local_last_push_start_date - EDW_COLLECTION_UTIL.g_offset);
35 FII_AR_TRX_TYPE_M_C.g_push_date_range2 := nvl(l_to_date,EDW_COLLECTION_UTIL.G_local_curr_push_start_date);
36 edw_log.put_line( 'The collection range is from '||
37 to_char(FII_AR_TRX_TYPE_M_C.g_push_date_range1,'MM/DD/YYYY HH24:MI:SS')||' to '||
38 to_char(FII_AR_TRX_TYPE_M_C.g_push_date_range2,'MM/DD/YYYY HH24:MI:SS'));
39 edw_log.put_line(' ');
40
41 -- -----------------------------------------------------------------------------
42 -- Start of Collection , Developer Customizable Section
43 -- -----------------------------------------------------------------------------
44
45 edw_log.put_line(' ');
46 edw_log.put_line('Pushing data');
47
48 l_temp_date := sysdate;
49
50
51 Push_EDW_ARTT_TYPE_LSTG(FII_AR_TRX_TYPE_M_C.g_push_date_range1, FII_AR_TRX_TYPE_M_C.g_push_date_range2);
52 Push_EDW_ARTT_CODE_LSTG(FII_AR_TRX_TYPE_M_C.g_push_date_range1, FII_AR_TRX_TYPE_M_C.g_push_date_range2);
53
54
55 l_duration := sysdate - l_temp_date;
56
57 edw_log.put_line('Process Time: '||edw_log.duration(l_duration));
58 edw_log.put_line(' ');
59 -- ---------------------------------------------------------------------------
60 -- END OF Collection , Developer Customizable Section
61 -- ---------------------------------------------------------------------------
62 EDW_COLLECTION_UTIL.wrapup(TRUE, g_row_count,null,g_push_date_range1, g_push_date_range2);
63 commit;
64
65 Exception When others then
66 Errbuf:=sqlerrm;
67 Retcode:=sqlcode;
68 l_exception_msg := Retcode || ':' || Errbuf;
69 FII_AR_TRX_TYPE_M_C.g_exception_msg := l_exception_msg;
70 rollback;
71 EDW_COLLECTION_UTIL.wrapup(FALSE, 0, FII_AR_TRX_TYPE_M_C.g_exception_msg,g_push_date_range1, g_push_date_range2);
72
73 commit;
74 End;
75
76
77 Procedure Push_EDW_ARTT_TYPE_LSTG(p_from_date IN date, p_to_date IN DATE) IS
78 l_date1 DATE;
79 l_date2 DATE;
80 l_rows_inserted NUMBER :=0;
81 BEGIN
82 edw_log.put_line('Starting Push_EDW_ARTT_TYPE_LSTG');
83 l_date1 := p_from_date;
84 l_date2 := p_to_date;
85 Insert Into
86 EDW_ARTT_TYPE_LSTG(
87 ALLOW_FRT_FLAG,
88 ALLOW_OVAPP_FLAG,
89 CM_TYPE_ID,
90 CREATION_SIGN,
91 DEFAULT_STATUS,
92 DEFAULT_TERM,
93 DESCRIPTION,
94 END_DATE,
95 GL_ID_CLEARING,
96 GL_ID_FREIGHT,
97 GL_ID_REC,
98 GL_ID_REV,
99 GL_ID_TAX,
100 GL_ID_UNBILLED,
101 GL_ID_UNEARNED,
102 INSTANCE,
103 NAME,
104 ORG_ID,
105 RULE_SET_ID,
106 SET_OF_BOOKS_ID,
107 START_DATE,
108 STATUS,
109 SUB_TRX_TYPE_ID,
110 TAX_CALC_FLAG,
111 TRANSACTION_TYPE,
112 TRX_CODE_FK,
113 TRX_TYPE_DP,
114 TRX_TYPE_PK,
115 USER_ATTRIBUTE1,
116 USER_ATTRIBUTE2,
117 USER_ATTRIBUTE3,
118 USER_ATTRIBUTE4,
119 USER_ATTRIBUTE5,
120 OPERATION_CODE,
121 COLLECTION_STATUS)
122 select ALLOW_FRT_FLAG,
123 ALLOW_OVAPP_FLAG,
124 CM_TYPE_ID,
125 CREATION_SIGN,
126 DEFAULT_STATUS,
127 DEFAULT_TERM,
128 DESCRIPTION,
129 END_DATE,
130 GL_ID_CLEARING,
131 GL_ID_FREIGHT,
132 GL_ID_REC,
133 GL_ID_REV,
134 GL_ID_TAX,
135 GL_ID_UNBILLED,
136 GL_ID_UNEARNED,
137 INSTANCE,
138 NAME,
139 ORG_ID,
140 RULE_SET_ID,
141 SET_OF_BOOKS_ID,
142 START_DATE,
143 STATUS,
144 SUB_TRX_TYPE_ID,
145 TAX_CALC_FLAG,
146 TRANSACTION_TYPE,
147 NVL(TRX_CODE_FK, 'NA_EDW'),
148 TRX_TYPE_DP,
149 TRX_TYPE_PK,
150 USER_ATTRIBUTE1,
151 USER_ATTRIBUTE2,
152 USER_ATTRIBUTE3,
153 USER_ATTRIBUTE4,
154 USER_ATTRIBUTE5,
155 NULL, -- OPERATION_CODE
156 'READY'
157 from FII_AR_ARTT_TYPE_LCV
158 where last_update_date between l_date1 and l_date2;
159
160
161 l_rows_inserted := sql%rowcount;
162 g_row_count := g_row_count + l_rows_inserted ;
163 edw_log.put_line('Commiting records for EDW_ARTT_TYPE_LSTG');
164 commit;
165
166 edw_log.put_line('Completed Push_EDW_ARTT_TYPE_LSTG');
167 Exception When others then
168 raise;
169 commit;
170 END;
171
172
173 Procedure Push_EDW_ARTT_CODE_LSTG(p_from_date IN date, p_to_date IN DATE) IS
174 l_date1 DATE;
175 l_date2 DATE;
176 l_rows_inserted NUMBER :=0;
177 BEGIN
178 edw_log.put_line('Starting Push_EDW_ARTT_CODE_LSTG');
179 l_date1 := p_from_date;
180 l_date2 := p_to_date;
181 Insert Into
182 EDW_ARTT_CODE_LSTG(
183 ALL_FK,
184 CREATION_DATE,
185 DESCRIPTION,
186 ENABLED_FLAG,
187 END_DATE_ACTIVE,
188 INSTANCE,
189 NAME,
190 STRT_DATE_ACTIVE,
191 TRANSACTION_CODE,
192 TRX_CODE_DP,
193 TRX_CODE_PK,
194 USER_ATTRIBUTE1,
195 USER_ATTRIBUTE2,
196 USER_ATTRIBUTE3,
197 USER_ATTRIBUTE4,
198 USER_ATTRIBUTE5,
199 OPERATION_CODE,
200 COLLECTION_STATUS)
201 select NVL(ALL_FK, 'NA_EDW'),
202 CREATION_DATE,
203 DESCRIPTION,
204 ENABLED_FLAG,
205 END_DATE_ACTIVE,
206 INSTANCE,
207 NAME,
208 STRT_DATE_ACTIVE,
209 TRANSACTION_CODE,
210 TRX_CODE_DP,
211 TRX_CODE_PK,
212 USER_ATTRIBUTE1,
213 USER_ATTRIBUTE2,
214 USER_ATTRIBUTE3,
215 USER_ATTRIBUTE4,
216 USER_ATTRIBUTE5,
217 NULL, -- OPERATION_CODE
218 'READY'
219 from FII_AR_ARTT_CODE_LCV
220 where last_update_date between l_date1 and l_date2;
221
222
223 edw_log.put_line('Commiting records for EDW_ARTT_CODE_LSTG');
224 commit;
225
226 edw_log.put_line('Completed Push_EDW_ARTT_CODE_LSTG');
227 Exception When others then
228 raise;
229 commit;
230 END;
231 End FII_AR_TRX_TYPE_M_C;