PACKAGE BODY: APPS.FND_OAM_DOC_CATEGORY_PKG

Source

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