DBA Data[Home] [Help]
Skip to content

PACKAGE BODY: APPS.EDW_HR_ASG_CHNG_M_C

Source


1 Package Body EDW_HR_ASG_CHNG_M_C AS
2 /* $Header: hriepacg.pkb 120.1 2005/06/07 05:43:46 anmajumd noship $ */
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 NOCOPY Varchar2,
10                 Retcode      in out NOCOPY Varchar2,
11                 p_from_date  IN   VARCHAR2,
12                 p_to_date    IN   VARCHAR2) IS
13  l_dimension_name   Varchar2(30) :='EDW_HR_ASG_CHNG_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 
19    -- -------------------------------------------
20    -- Put any additional developer variables here
21    -- -------------------------------------------
22 Begin
23   Errbuf :=NULL;
24    Retcode:=0;
25   IF (Not EDW_COLLECTION_UTIL.setup(l_dimension_name)) THEN
26   errbuf := fnd_message.get;
27     Return;
28   END IF;
29 
30   IF (p_from_date IS NULL) THEN
31 		EDW_HR_ASG_CHNG_M_C.g_push_date_range1 :=  EDW_COLLECTION_UTIL.G_local_last_push_start_date -
32 		EDW_COLLECTION_UTIL.g_offset;
33   ELSE
34 	EDW_HR_ASG_CHNG_M_C.g_push_date_range1 := to_date(p_from_date, 'YYYY/MM/DD HH24:MI:SS');
35   END IF;
36 
37   IF (p_to_date IS NULL) THEN
38 		EDW_HR_ASG_CHNG_M_C.g_push_date_range2 := EDW_COLLECTION_UTIL.G_local_curr_push_start_date;
39   ELSE
40 	EDW_HR_ASG_CHNG_M_C.g_push_date_range2 := to_date(p_to_date, 'YYYY/MM/DD HH24:MI:SS');
41   END IF;
42 
43 
44    edw_log.put_line( 'The collection range is from '||
45         to_char(EDW_HR_ASG_CHNG_M_C.g_push_date_range1,'MM/DD/YYYY HH24:MI:SS')||' to '||
46         to_char(EDW_HR_ASG_CHNG_M_C.g_push_date_range2,'MM/DD/YYYY HH24:MI:SS'));
47    edw_log.put_line(' ');
48 
49 -- -----------------------------------------------------------------------------
50 -- Start of Collection , Developer Customizable Section
51 -- -----------------------------------------------------------------------------
52 
53    edw_log.put_line(' ');
54    edw_log.put_line('Pushing data');
55 
56    l_temp_date := sysdate;
57 
58 
59         Push_EDW_HR_ASCH_ASG_CHNG_LSTG(EDW_HR_ASG_CHNG_M_C.g_push_date_range1, EDW_HR_ASG_CHNG_M_C.g_push_date_range2);
60 
61 
62    l_duration := sysdate - l_temp_date;
63 
64    edw_log.put_line('Total rows inserted : '||g_row_count);
65    edw_log.put_line('Process Time: '||edw_log.duration(l_duration));
66    edw_log.put_line(' ');
67 -- ---------------------------------------------------------------------------
68 -- END OF Collection , Developer Customizable Section
69 -- ---------------------------------------------------------------------------
70    EDW_COLLECTION_UTIL.wrapup(TRUE, g_row_count, null, g_push_date_range1, g_push_date_range2 );
71 commit;
72 
73  Exception When others then
74       Errbuf:=sqlerrm;
75       Retcode:=sqlcode;
76    l_exception_msg  := Retcode || ':' || Errbuf;
77    EDW_HR_ASG_CHNG_M_C.g_exception_msg  := l_exception_msg;
78    rollback;
79    EDW_COLLECTION_UTIL.wrapup(FALSE, 0, EDW_HR_ASG_CHNG_M_C.g_exception_msg, g_push_date_range1, g_push_date_range2);
80 
81 commit;
82 End;
83 
84 
85 Procedure Push_EDW_HR_ASCH_ASG_CHNG_LSTG(p_from_date IN date, p_to_date IN DATE) IS
86     l_date1 DATE;
87     l_date2 DATE;
88     l_rows_inserted NUMBER :=0;
89 BEGIN
90    edw_log.put_line('Starting Push_EDW_HR_ASCH_ASG_CHNG_LSTG');
91 l_date1 := p_from_date;
92 l_date2 := p_to_date;
93    Insert Into
94     EDW_HR_ASCH_ASG_CHNG_LSTG@EDW_APPS_TO_WH(
95     LAST_UPDATE_DATE,
96     CREATION_DATE,
97     ASG_CHANGE_PK,
98     ALL_FK,
99     INSTANCE,
100     ASG_CHANGE_DP,
101     NAME,
102     CHANGE_STATUS,
103     ORG_CHANGE_FLAG,
104     JOB_CHANGE_FLAG,
105     POS_CHANGE_FLAG,
106     GRD_CHANGE_FLAG,
107     GEOG_CHANGE_FLAG,
108     ASG_CHANGE_CODE,
109     USER_ATTRIBUTE1,
110     USER_ATTRIBUTE2,
111     USER_ATTRIBUTE3,
112     USER_ATTRIBUTE4,
113     USER_ATTRIBUTE5,
114     OTHER_CHANGE_FLAG,
115     OPERATION_CODE,
116     COLLECTION_STATUS)
117    select LAST_UPDATE_DATE,
118 CREATION_DATE,
119 ASG_CHANGE_PK,
120     NVL(ALL_FK, 'NA_EDW'),
121 INSTANCE,
122 ASG_CHANGE_DP,
123 NAME,
124 CHANGE_STATUS,
125 ORG_CHANGE_FLAG,
126 JOB_CHANGE_FLAG,
127 POS_CHANGE_FLAG,
128 GRD_CHANGE_FLAG,
129 GEOG_CHANGE_FLAG,
130 ASG_CHANGE_CODE,
131 USER_ATTRIBUTE1,
132 USER_ATTRIBUTE2,
133 USER_ATTRIBUTE3,
134 USER_ATTRIBUTE4,
135 USER_ATTRIBUTE5,
136 OTHER_CHANGE_FLAG,
137     NULL, -- OPERATION_CODE
138     'READY'
139    from EDW_HR_ASCH_ASG_CHNG_LCV@APPS_TO_APPS
140    where last_update_date between l_date1 and l_date2;
141 
142 
143    l_rows_inserted := sql%rowcount;
144    EDW_HR_ASG_CHNG_M_C.g_row_count := EDW_HR_ASG_CHNG_M_C.g_row_count + l_rows_inserted ;
145    edw_log.put_line('Inserted '||to_char(nvl(sql%rowcount,0))||
146 ' rows into the staging table');
147    edw_log.put_line('Commiting records for EDW_HR_ASCH_ASG_CHNG_LSTG');
148 commit;
149 
150    edw_log.put_line('Completed Push_EDW_HR_ASCH_ASG_CHNG_LSTG');
151  Exception When others then
152    raise;
153 commit;
154 END;
155 End EDW_HR_ASG_CHNG_M_C;