[Home] [Help]
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;