[Home] [Help]
PACKAGE BODY: APPS.FND_OAM_DOC_CATEGORY_TYPE_PKG
Source
1 PACKAGE BODY fnd_oam_doc_category_type_pkg AS
2 /* $Header: AFOAMDCTB.pls 120.2 2005/10/19 10:40:56 ilawler noship $ */
3 procedure LOAD_ROW (
4 X_CATEGORY_TYPE in VARCHAR2,
5 X_CATEGORY_TYPE_NAME in VARCHAR2,
6 X_CATALOG_DOC_ID in VARCHAR2,
7 X_CATALOG_ATTCH_ID in VARCHAR2,
8 X_OWNER in VARCHAR2) is
9 begin
10 fnd_oam_doc_category_type_pkg.LOAD_ROW (
11 X_CATEGORY_TYPE => X_CATEGORY_TYPE,
12 X_CATEGORY_TYPE_NAME => X_CATEGORY_TYPE_NAME,
13 X_CATALOG_DOC_ID => X_CATALOG_DOC_ID,
14 X_CATALOG_ATTCH_ID => X_CATALOG_ATTCH_ID,
15 X_OWNER => X_OWNER,
16 x_custom_mode => '',
17 x_last_update_date => '');
18 end LOAD_ROW;
19
20 procedure LOAD_ROW (
21 X_CATEGORY_TYPE in VARCHAR2,
22 X_CATEGORY_TYPE_NAME in VARCHAR2,
23 X_CATALOG_DOC_ID in VARCHAR2,
24 X_CATALOG_ATTCH_ID in VARCHAR2,
25 X_OWNER in VARCHAR2,
26 x_custom_mode in varchar2,
27 x_last_update_date in varchar2) is
28
29 v_category_type fnd_oam_doc_category_type.category_type%TYPE;
30 row_id varchar2(64);
31 f_luby number; -- entity owner in file
32 f_ludate date; -- entity update date in file
33 db_luby number; -- entity owner in db
34 db_ludate date; -- entity update date in db
35
36 cursor c1 is
37 select last_updated_by, last_update_date
38 from fnd_oam_doc_category_type
39 where category_type = X_CATEGORY_TYPE
40 order by last_update_date asc;
41 begin
42 -- Translate owner to file_last_updated_by
43 f_luby := fnd_load_util.owner_id(x_owner);
44
45 -- Translate char last_update_date to date
46 f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
47
48 begin
49
50 select category_type, LAST_UPDATED_BY, LAST_UPDATE_DATE
51 into v_category_type, db_luby, db_ludate
52 from fnd_oam_doc_category_type
53 where category_type = X_CATEGORY_TYPE;
54
55 if (fnd_load_util.upload_test(f_luby, f_ludate, db_luby,
56 db_ludate, X_CUSTOM_MODE)) then
57 fnd_oam_doc_category_type_pkg.UPDATE_ROW (
58 X_CATEGORY_TYPE => v_category_type,
59 X_CATEGORY_TYPE_NAME => X_CATEGORY_TYPE_NAME,
60 X_CATALOG_DOC_ID => X_CATALOG_DOC_ID,
61 X_CATALOG_ATTCH_ID => X_CATALOG_ATTCH_ID,
62 X_LAST_UPDATE_DATE => f_ludate,
63 X_LAST_UPDATED_BY => f_luby,
64 X_LAST_UPDATE_LOGIN => 0 );
65 end if;
66 exception
67 when NO_DATA_FOUND then
68
69 fnd_oam_doc_category_type_pkg.INSERT_ROW (
70 X_ROWID => row_id,
71 X_CATEGORY_TYPE => X_CATEGORY_TYPE,
72 X_CATEGORY_TYPE_NAME => X_CATEGORY_TYPE_NAME,
73 X_CATALOG_DOC_ID => X_CATALOG_DOC_ID,
74 X_CATALOG_ATTCH_ID => X_CATALOG_ATTCH_ID,
75 X_CREATION_DATE => f_ludate,
76 X_CREATED_BY => f_luby,
77 X_LAST_UPDATE_DATE => f_ludate,
78 X_LAST_UPDATED_BY => f_luby,
79 X_LAST_UPDATE_LOGIN => 0 );
80 end;
81 end LOAD_ROW;
82
83 procedure INSERT_ROW (
84 X_ROWID IN OUT NOCOPY VARCHAR2,
85 X_CATEGORY_TYPE in VARCHAR2,
86 X_CATEGORY_TYPE_NAME in VARCHAR2,
87 X_CATALOG_DOC_ID in VARCHAR2,
88 X_CATALOG_ATTCH_ID in VARCHAR2,
89 X_CREATED_BY in NUMBER,
90 X_CREATION_DATE in DATE,
91 X_LAST_UPDATED_BY in NUMBER,
92 X_LAST_UPDATE_DATE in DATE,
93 X_LAST_UPDATE_LOGIN in NUMBER)
94 is
95 cursor C is select ROWID from FND_OAM_DOC_CATEGORY_TYPE
96 where CATEGORY_TYPE = X_CATEGORY_TYPE;
97 begin
98 insert into FND_OAM_DOC_CATEGORY_TYPE (
99 CATEGORY_TYPE,
100 CATEGORY_TYPE_NAME,
101 CATALOG_DOC_ID,
102 CATALOG_ATTCH_ID,
103 CREATED_BY,
104 CREATION_DATE,
105 LAST_UPDATED_BY,
106 LAST_UPDATE_DATE,
107 LAST_UPDATE_LOGIN
108 ) values (
109 X_CATEGORY_TYPE,
110 X_CATEGORY_TYPE_NAME,
111 X_CATALOG_DOC_ID,
112 X_CATALOG_ATTCH_ID,
113 X_CREATED_BY,
114 X_CREATION_DATE,
115 X_LAST_UPDATED_BY,
116 X_LAST_UPDATE_DATE,
117 X_LAST_UPDATE_LOGIN);
118
119 open c;
120 fetch c into X_ROWID;
121 if (c%notfound) then
122 close c;
123 raise no_data_found;
124 end if;
125 close c;
126 END INSERT_ROW;
127
128 procedure UPDATE_ROW (
129 X_CATEGORY_TYPE in VARCHAR2,
130 X_CATEGORY_TYPE_NAME in VARCHAR2,
131 X_CATALOG_DOC_ID in VARCHAR2,
132 X_CATALOG_ATTCH_ID in VARCHAR2,
133 X_LAST_UPDATE_DATE in DATE,
134 X_LAST_UPDATED_BY in NUMBER,
135 X_LAST_UPDATE_LOGIN in NUMBER) is
136 begin
137 update FND_OAM_DOC_CATEGORY_TYPE set
138 CATEGORY_TYPE_NAME = X_CATEGORY_TYPE_NAME,
139 CATALOG_DOC_ID = X_CATALOG_DOC_ID,
140 CATALOG_ATTCH_ID = X_CATALOG_ATTCH_ID,
141 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
142 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
143 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
144 where CATEGORY_TYPE = X_CATEGORY_TYPE;
145
146 if (sql%notfound) then
147 raise no_data_found;
148 end if;
149 end UPDATE_ROW;
150
151 procedure DELETE_ROW (
152 X_CATEGORY_TYPE in VARCHAR2) is
153 begin
154 delete from FND_OAM_DOC_CATEGORY_TYPE
155 where CATEGORY_TYPE = X_CATEGORY_TYPE;
156
157 if (sql%notfound) then
158 raise no_data_found;
159 end if;
160 end DELETE_ROW;
161
162 END fnd_oam_doc_category_type_pkg;