PACKAGE BODY: APPS.PA_ADW_DIMENSION_STATUS_PKG

Source

1 package body PA_ADW_DIMENSION_STATUS_PKG as
2 /* $Header: PAADWDSB.pls 120.0 2005/05/29 13:48:11 appldev noship $ */
3 procedure INSERT_ROW (
4  X_DIMENSION_CODE                 IN VARCHAR2,
5  X_DIMENSION_NAME                  IN VARCHAR2,
6  X_STATUS_CODE                     IN VARCHAR2,
7  X_UPDATE_ALLOWED                  IN VARCHAR2,
8  X_LAST_UPDATE_DATE                IN DATE,
9  X_LAST_UPDATED_BY                 IN NUMBER,
10  X_CREATION_DATE                   IN DATE,
11  X_CREATED_BY                      IN NUMBER,
12  X_LAST_UPDATE_LOGIN               IN  NUMBER
13 ) is
14 begin
15   insert into PA_ADW_DIMENSION_STATUS(
16  DIMENSION_CODE                 ,
17  DIMENSION_NAME                  ,
18  STATUS_CODE                     ,
19  UPDATE_ALLOWED                  ,
20  LAST_UPDATE_DATE                ,
21  LAST_UPDATED_BY                 ,
22  CREATION_DATE                   ,
23  CREATED_BY                      ,
24  LAST_UPDATE_LOGIN
25  ) values (
26  X_DIMENSION_CODE                 ,
27  X_DIMENSION_NAME                  ,
28  X_STATUS_CODE                     ,
29  X_UPDATE_ALLOWED                  ,
30  X_LAST_UPDATE_DATE                ,
31  X_LAST_UPDATED_BY                 ,
32  X_CREATION_DATE                   ,
33  X_CREATED_BY                      ,
34  X_LAST_UPDATE_LOGIN
35  );
36 
37   exception
38     when others then
39       raise;
40 
41 end INSERT_ROW;
42 
43 procedure TRANSLATE_ROW (
44   X_DIMENSION_CODE              IN VARCHAR2,
45   X_DIMENSION_NAME              IN VARCHAR2,
46   X_OWNER                       IN VARCHAR2) is
47 begin
48 
49   update PA_ADW_DIMENSION_STATUS set
50     DIMENSION_NAME      = X_DIMENSION_NAME,
51     LAST_UPDATE_DATE  = sysdate,
52     LAST_UPDATED_BY   = decode(X_OWNER, 'SEED', 1, 0),
53     LAST_UPDATE_LOGIN = 0
54   where DIMENSION_CODE      = X_DIMENSION_CODE
55   and userenv('LANG') =
56          (select LANGUAGE_CODE from FND_LANGUAGES where INSTALLED_FLAG = 'B');
57 
58 --  Commented for Bug 3857072
59 --  if (sql%notfound) then
60 --    raise no_data_found;
61 --  end if;
62 
63   exception
64     when others then
65       raise;
66 
67 end TRANSLATE_ROW;
68 
69 
70 procedure UPDATE_ROW (
71 X_DIMENSION_CODE                  IN VARCHAR2,
72  X_DIMENSION_NAME                  IN VARCHAR2,
73  X_STATUS_CODE                     IN VARCHAR2,
74  X_UPDATE_ALLOWED                  IN VARCHAR2,
75  X_LAST_UPDATE_DATE                IN DATE,
76  X_LAST_UPDATED_BY                 IN NUMBER,
77  X_LAST_UPDATE_LOGIN               IN  NUMBER
78 ) is
79 begin
80   update PA_ADW_DIMENSION_STATUS set
81 	DIMENSION_NAME = X_DIMENSION_NAME,
82 	STATUS_CODE = X_STATUS_CODE,
83 	UPDATE_ALLOWED = X_UPDATE_ALLOWED,
84     	LAST_UPDATE_DATE    = X_LAST_UPDATE_DATE,
85    	LAST_UPDATED_BY     = X_LAST_UPDATED_BY,
86     	LAST_UPDATE_LOGIN   = X_LAST_UPDATE_LOGIN
87   where DIMENSION_CODE      = X_DIMENSION_CODE ;
88 
89   if (sql%notfound) then
90     raise no_data_found;
91   end if;
92 
93   exception
94     when others then
95       raise;
96 
97 end UPDATE_ROW;
98 
99 end PA_ADW_DIMENSION_STATUS_PKG;