PACKAGE BODY: APPS.FND_OAM_DOC_CATEGORY_ASSOC_PKG

Source

1 package body FND_OAM_DOC_CATEGORY_ASSOC_PKG as
2 /* $Header: AFOAMDCAB.pls 120.0 2005/08/05 01:05:16 appldev noship $ */
3 procedure LOAD_ROW(
4     X_CATEGORY_KEY in VARCHAR2,
5     X_CATEGORY_TYPE in VARCHAR2,
6     X_PARENT_CATEGORY_KEY in VARCHAR2,
7     X_PARENT_CATEGORY_TYPE in VARCHAR2,
8     X_CREATED_BY    in  NUMBER,
9     X_LAST_UPDATED_BY  in  NUMBER,
10     X_LAST_UPDATE_LOGIN	in NUMBER) is
11   begin
12 
13     begin
14       fnd_oam_doc_category_assoc_pkg.UPDATE_ROW(
15         X_CATEGORY_KEY => X_CATEGORY_KEY,
16         X_CATEGORY_TYPE  => X_CATEGORY_TYPE,
17         X_PARENT_CATEGORY_KEY => X_PARENT_CATEGORY_KEY,
18         X_PARENT_CATEGORY_TYPE => X_PARENT_CATEGORY_TYPE,
19         X_CREATED_BY => X_CREATED_BY,
20         X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
21         X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN);
22 
23      exception
24        when NO_DATA_FOUND then
25 
26        fnd_oam_doc_category_assoc_pkg.INSERT_ROW(
27          X_CATEGORY_KEY => X_CATEGORY_KEY,
28 	 X_CATEGORY_TYPE  => X_CATEGORY_TYPE,
29 	 X_PARENT_CATEGORY_KEY => X_PARENT_CATEGORY_KEY,
30 	 X_PARENT_CATEGORY_TYPE => X_PARENT_CATEGORY_TYPE,
31 	 X_CREATED_BY => X_CREATED_BY,
32 	 X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
33 	 X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN);
34 
35     end;
36 
37 
38     commit;
39 
40 end LOAD_ROW;
41 
42 
43 
44 procedure UPDATE_ROW(
45     X_CATEGORY_KEY    in   VARCHAR2,
46     X_CATEGORY_TYPE     in   VARCHAR2,
47     X_PARENT_CATEGORY_KEY    in   VARCHAR2,
48     X_PARENT_CATEGORY_TYPE     in   VARCHAR2,
49     X_CREATED_BY    in  NUMBER,
50     X_LAST_UPDATED_BY  in  NUMBER,
51     X_LAST_UPDATE_LOGIN	in NUMBER) is
52 
53     db_key varchar2(40);
54   begin
55 
56     select category_key into db_key from FND_OAM_DOC_CATEGORY_ASSOC
57        where category_key = X_CATEGORY_KEY
58           and category_type = X_CATEGORY_TYPE
59           and parent_category_key = X_PARENT_CATEGORY_KEY
60           and parent_category_type = X_PARENT_CATEGORY_TYPE;
61 
62 
63     update FND_OAM_DOC_CATEGORY_ASSOC SET
64         category_key = X_CATEGORY_KEY,
65         category_type  = X_CATEGORY_TYPE ,
66         parent_category_key = X_PARENT_CATEGORY_KEY,
67 	parent_category_type  = X_PARENT_CATEGORY_TYPE ,
68         created_by = X_CREATED_BY,
69         creation_date = sysdate,
70         last_update_date = sysdate,
71         last_updated_by = X_LAST_UPDATED_BY,
72         last_update_login = X_LAST_UPDATE_LOGIN
73       where category_key = X_CATEGORY_KEY
74             and category_type = X_CATEGORY_TYPE
75             and parent_category_key = X_PARENT_CATEGORY_KEY
76             and parent_category_type = X_PARENT_CATEGORY_TYPE;
77 
78 end UPDATE_ROW;
79 
80 procedure INSERT_ROW(
81     X_CATEGORY_KEY    in   VARCHAR2,
82     X_CATEGORY_TYPE     in   VARCHAR2,
83     X_PARENT_CATEGORY_KEY    in   VARCHAR2,
84     X_PARENT_CATEGORY_TYPE     in   VARCHAR2,
85     X_CREATED_BY    in  NUMBER,
86     X_LAST_UPDATED_BY  in  NUMBER,
87     X_LAST_UPDATE_LOGIN	in NUMBER) is
88 
89   begin
90     insert into FND_OAM_DOC_CATEGORY_ASSOC(
91       category_key,
92       category_type,
93       parent_category_key,
94       parent_category_type,
95       created_by,
96       creation_date,
97       last_update_date,
98       last_updated_by,
99       last_update_login
100     ) values (
101       X_CATEGORY_KEY,
102       X_CATEGORY_TYPE,
103       X_PARENT_CATEGORY_KEY,
104       X_PARENT_CATEGORY_TYPE,
105       X_CREATED_BY,
106       sysdate,
107       sysdate,
108       X_LAST_UPDATED_BY,
109       X_LAST_UPDATE_LOGIN);
110 
111 end INSERT_ROW;
112 
113 
114 end FND_OAM_DOC_CATEGORY_ASSOC_PKG;