PACKAGE BODY: APPS.PA_ACCUM_COLUMNS_PKG

Source

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