[Home] [Help]
PACKAGE BODY: APPS.AMW_OPINION_VALUE_CODES_PKG
Source
1 package body AMW_OPINION_VALUE_CODES_PKG as
2 /*$Header: amwtopwb.pls 115.1 2003/10/30 03:08:10 qliu noship $*/
3 procedure INSERT_ROW (
4 X_OPINION_VALUE_CODE_ID in NUMBER,
5 X_OPINION_VALUE_CODE_NAME in VARCHAR2,
6 X_ATTACHMENT_ID in NUMBER,
7 X_IMAGE_FILE_NAME in VARCHAR2,
8 X_SECURITY_GROUP_ID in NUMBER,
9 X_OBJECT_VERSION_NUMBER in NUMBER,
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 AMW_OPINION_VALUE_CODES (
18 OPINION_VALUE_CODE_ID,
19 OPINION_VALUE_CODE_NAME,
20 ATTACHMENT_ID,
21 IMAGE_FILE_NAME,
22 SECURITY_GROUP_ID,
23 OBJECT_VERSION_NUMBER,
24 CREATED_BY,
25 CREATION_DATE,
26 LAST_UPDATED_BY,
27 LAST_UPDATE_DATE,
28 LAST_UPDATE_LOGIN
29 ) values (
30 X_OPINION_VALUE_CODE_ID,
31 X_OPINION_VALUE_CODE_NAME,
32 X_ATTACHMENT_ID,
33 X_IMAGE_FILE_NAME,
34 X_SECURITY_GROUP_ID,
35 X_OBJECT_VERSION_NUMBER,
36 X_CREATED_BY,
37 X_CREATION_DATE,
38 X_LAST_UPDATED_BY,
39 X_LAST_UPDATE_DATE,
40 X_LAST_UPDATE_LOGIN);
41 end INSERT_ROW;
42
43 procedure UPDATE_ROW (
44 X_OPINION_VALUE_CODE_ID in NUMBER,
45 X_OPINION_VALUE_CODE_NAME in VARCHAR2,
46 X_ATTACHMENT_ID in NUMBER,
47 X_IMAGE_FILE_NAME in VARCHAR2,
48 X_SECURITY_GROUP_ID in NUMBER,
49 X_OBJECT_VERSION_NUMBER in NUMBER,
50 X_LAST_UPDATE_DATE in DATE,
51 X_LAST_UPDATED_BY in NUMBER,
52 X_LAST_UPDATE_LOGIN in NUMBER
53 ) is
54 begin
55 update AMW_OPINION_VALUE_CODES set
56 OPINION_VALUE_CODE_NAME = X_OPINION_VALUE_CODE_NAME,
57 ATTACHMENT_ID = X_ATTACHMENT_ID,
58 IMAGE_FILE_NAME = X_IMAGE_FILE_NAME,
59 SECURITY_GROUP_ID = X_SECURITY_GROUP_ID,
60 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
61 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
62 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
63 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
64 where OPINION_VALUE_CODE_ID = X_OPINION_VALUE_CODE_ID;
65
66 if (sql%notfound) then
67 raise no_data_found;
68 end if;
69 end UPDATE_ROW;
70
71 procedure DELETE_ROW (
72 X_OPINION_VALUE_CODE_ID in NUMBER
73 ) is
74 begin
75 delete from AMW_OPINION_VALUE_CODES
76 where OPINION_VALUE_CODE_ID = X_OPINION_VALUE_CODE_ID;
77
78 if (sql%notfound) then
79 raise no_data_found;
80 end if;
81
82 end DELETE_ROW;
83
84 procedure LOAD_ROW(
85 X_OPINION_VALUE_CODE_NAME in VARCHAR2,
86 X_OPINION_VALUE_CODE_ID in NUMBER,
87 X_ATTACHMENT_ID in NUMBER,
88 X_IMAGE_FILE_NAME in VARCHAR2,
89 X_LAST_UPDATE_DATE in VARCHAR2,
90 X_OWNER in VARCHAR2,
91 X_CUSTOM_MODE in VARCHAR2) is
92
93 f_luby number; -- entity owner in file
94 f_ludate date; -- entity update date in file
95 db_luby number; -- entity owner in db
96 db_ludate date; -- entity update date in db
97
98 begin
99 -- Translate owner to file_last_updated_by
100 f_luby := fnd_load_util.owner_id(X_OWNER);
101
102 -- Translate char last_update_date to date
103 f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
104
105 select last_updated_by, last_update_date into db_luby, db_ludate
106 from AMW_OPINION_VALUE_CODES
107 where opinion_value_code_name = X_OPINION_VALUE_CODE_NAME;
108
109 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, X_CUSTOM_MODE))
110 then AMW_OPINION_VALUE_CODES_PKG.UPDATE_ROW(
111 X_OPINION_VALUE_CODE_ID => X_OPINION_VALUE_CODE_ID,
112 X_OPINION_VALUE_CODE_NAME => X_OPINION_VALUE_CODE_NAME,
113 X_ATTACHMENT_ID => X_ATTACHMENT_ID,
114 X_IMAGE_FILE_NAME => X_IMAGE_FILE_NAME,
115 X_SECURITY_GROUP_ID => null,
116 X_OBJECT_VERSION_NUMBER => 1,
117 X_LAST_UPDATE_DATE => f_ludate,
118 X_LAST_UPDATED_BY => f_luby,
119 X_LAST_UPDATE_LOGIN => 0);
120 end if;
121 exception when NO_DATA_FOUND
122 then AMW_OPINION_VALUE_CODES_PKG.INSERT_ROW(
123 X_OPINION_VALUE_CODE_ID => X_OPINION_VALUE_CODE_ID,
124 X_OPINION_VALUE_CODE_NAME => X_OPINION_VALUE_CODE_NAME,
125 X_ATTACHMENT_ID => X_ATTACHMENT_ID,
126 X_IMAGE_FILE_NAME => X_IMAGE_FILE_NAME,
127 X_SECURITY_GROUP_ID => null,
128 X_OBJECT_VERSION_NUMBER => 1,
129 X_CREATION_DATE => f_ludate,
130 X_CREATED_BY => f_luby,
131 X_LAST_UPDATE_DATE => f_ludate,
132 X_LAST_UPDATED_BY => f_luby,
133 X_LAST_UPDATE_LOGIN => 0);
134 end LOAD_ROW;
135
136 end AMW_OPINION_VALUE_CODES_PKG;