[Home] [Help]
PACKAGE BODY: APPS.AMW_OBJECT_OPINION_TYPES_PKG
Source
1 package body AMW_OBJECT_OPINION_TYPES_PKG as
2 /*$Header: amwtopob.pls 115.3 2003/11/04 01:21:33 cpetriuc noship $*/
3
4 procedure INSERT_ROW (
5 X_OBJECT_OPINION_TYPE_ID in NUMBER,
6 X_OBJECT_ID in NUMBER,
7 X_OPINION_TYPE_ID in NUMBER,
8 X_VIEW_FUNCTION_ID in NUMBER,
9 X_PERFORM_FUNCTION_ID in NUMBER,
10 X_SECURITY_GROUP_ID in NUMBER,
11 X_OBJECT_VERSION_NUMBER in NUMBER,
12 X_CREATION_DATE in DATE,
13 X_CREATED_BY in NUMBER,
14 X_LAST_UPDATE_DATE in DATE,
15 X_LAST_UPDATED_BY in NUMBER,
16 X_LAST_UPDATE_LOGIN in NUMBER
17 ) is
18 begin
19 insert into AMW_OBJECT_OPINION_TYPES (
20 OBJECT_OPINION_TYPE_ID,
21 OBJECT_ID,
22 OPINION_TYPE_ID,
23 VIEW_FUNCTION_ID,
24 PERFORM_FUNCTION_ID,
25 SECURITY_GROUP_ID,
26 OBJECT_VERSION_NUMBER,
27 CREATED_BY,
28 CREATION_DATE,
29 LAST_UPDATED_BY,
30 LAST_UPDATE_DATE,
31 LAST_UPDATE_LOGIN
32 ) values (
33 X_OBJECT_OPINION_TYPE_ID,
34 X_OBJECT_ID,
35 X_OPINION_TYPE_ID,
36 X_VIEW_FUNCTION_ID,
37 X_PERFORM_FUNCTION_ID,
38 X_SECURITY_GROUP_ID,
39 X_OBJECT_VERSION_NUMBER,
40 X_CREATED_BY,
41 X_CREATION_DATE,
42 X_LAST_UPDATED_BY,
43 X_LAST_UPDATE_DATE,
44 X_LAST_UPDATE_LOGIN
45 );
46 end INSERT_ROW;
47
48 procedure UPDATE_ROW (
49 X_OBJECT_OPINION_TYPE_ID in NUMBER,
50 X_OBJECT_ID in NUMBER,
51 X_OPINION_TYPE_ID in NUMBER,
52 X_VIEW_FUNCTION_ID in NUMBER,
53 X_PERFORM_FUNCTION_ID in NUMBER,
54 X_SECURITY_GROUP_ID in NUMBER,
55 X_OBJECT_VERSION_NUMBER in NUMBER,
56 X_LAST_UPDATE_DATE in DATE,
57 X_LAST_UPDATED_BY in NUMBER,
58 X_LAST_UPDATE_LOGIN in NUMBER
59 ) is
60 begin
61 update AMW_OBJECT_OPINION_TYPES set
62 OBJECT_ID = X_OBJECT_ID,
63 OPINION_TYPE_ID = X_OPINION_TYPE_ID,
64 VIEW_FUNCTION_ID = X_VIEW_FUNCTION_ID,
65 PERFORM_FUNCTION_ID = X_PERFORM_FUNCTION_ID,
66 SECURITY_GROUP_ID = X_SECURITY_GROUP_ID,
67 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
68 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
69 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
70 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
71 where OBJECT_OPINION_TYPE_ID = X_OBJECT_OPINION_TYPE_ID;
72
73 if (sql%notfound) then
74 raise no_data_found;
75 end if;
76 end UPDATE_ROW;
77
78 procedure DELETE_ROW (
79 X_OBJECT_OPINION_TYPE_ID in NUMBER
80 ) is
81 begin
82 delete from AMW_OBJECT_OPINION_TYPES
83 where OBJECT_OPINION_TYPE_ID = X_OBJECT_OPINION_TYPE_ID;
84
85 if (sql%notfound) then
86 raise no_data_found;
87 end if;
88 end DELETE_ROW;
89
90 procedure LOAD_ROW(
91 X_OBJECT_OPINION_TYPE_ID in NUMBER,
92 X_OBJECT_NAME in VARCHAR2,
93 X_OPINION_TYPE_ID in NUMBER,
94 X_VIEW_FUNCTION_ID in NUMBER,
95 X_PERFORM_FUNCTION_ID in NUMBER,
96 X_LAST_UPDATE_DATE in VARCHAR2,
97 X_OWNER in VARCHAR2,
98 X_CUSTOM_MODE in VARCHAR2) is
99
100 f_luby number; -- entity owner in file
101 f_ludate date; -- entity update date in file
102 db_luby number; -- entity owner in db
103 db_ludate date; -- entity update date in db
104
105 oid number;
106
107 begin
108 -- Translate owner to file_last_updated_by
109 f_luby := fnd_load_util.owner_id(X_OWNER);
110
111 -- Translate char last_update_date to date
112 f_ludate := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
113
114 select object_id into oid
115 from FND_OBJECTS
116 where obj_name = X_OBJECT_NAME;
117
118 select aoot.last_updated_by, aoot.last_update_date into db_luby, db_ludate
119 from AMW_OBJECT_OPINION_TYPES aoot
120 where object_opinion_type_id = X_OBJECT_OPINION_TYPE_ID;
121
122 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby, db_ludate, X_CUSTOM_MODE))
123 then AMW_OBJECT_OPINION_TYPES_PKG.UPDATE_ROW(
124 X_OBJECT_OPINION_TYPE_ID => X_OBJECT_OPINION_TYPE_ID,
125 X_OBJECT_ID => oid,
126 X_OPINION_TYPE_ID => X_OPINION_TYPE_ID,
127 X_VIEW_FUNCTION_ID => X_VIEW_FUNCTION_ID,
128 X_PERFORM_FUNCTION_ID => X_PERFORM_FUNCTION_ID,
129 X_SECURITY_GROUP_ID => null,
130 X_OBJECT_VERSION_NUMBER => 1,
131 X_LAST_UPDATE_DATE => f_ludate,
132 X_LAST_UPDATED_BY => f_luby,
133 X_LAST_UPDATE_LOGIN => 0);
134 end if;
135 exception when NO_DATA_FOUND
136 then AMW_OBJECT_OPINION_TYPES_PKG.INSERT_ROW(
137 X_OBJECT_OPINION_TYPE_ID => X_OBJECT_OPINION_TYPE_ID,
138 X_OBJECT_ID => oid,
139 X_OPINION_TYPE_ID => X_OPINION_TYPE_ID,
140 X_VIEW_FUNCTION_ID => X_VIEW_FUNCTION_ID,
141 X_PERFORM_FUNCTION_ID => X_PERFORM_FUNCTION_ID,
142 X_SECURITY_GROUP_ID => null,
143 X_OBJECT_VERSION_NUMBER => 1,
144 X_CREATION_DATE => f_ludate,
145 X_CREATED_BY => f_luby,
146 X_LAST_UPDATE_DATE => f_ludate,
147 X_LAST_UPDATED_BY => f_luby,
148 X_LAST_UPDATE_LOGIN => 0);
149 end LOAD_ROW;
150
151 end AMW_OBJECT_OPINION_TYPES_PKG;