PACKAGE BODY: APPS.XDO_CONFIG_KEYS_PKG

Source

1 package body XDO_CONFIG_KEYS_PKG as
2 /* $Header: XDOCFGKB.pls 120.0 2005/09/01 20:26:12 bokim noship $ */
3 
4 procedure INSERT_ROW (
5           P_VALUE_ID in NUMBER,
6           P_VALUE_KEY in RAW,
7           P_CREATION_DATE in DATE,
8           P_CREATED_BY in NUMBER,
9           P_LAST_UPDATE_DATE in DATE,
10           P_LAST_UPDATED_BY in NUMBER,
11           P_LAST_UPDATE_LOGIN in NUMBER
12 ) is
13 begin
14   insert into XDO_CONFIG_KEYS (
15            VALUE_ID,
16            VALUE_KEY,
17            CREATION_DATE,
18            CREATED_BY,
19            LAST_UPDATE_DATE,
20            LAST_UPDATED_BY,
21            LAST_UPDATE_LOGIN
22   ) values (
23           P_VALUE_ID,
24           P_VALUE_KEY,
25           P_CREATION_DATE,
26           P_CREATED_BY,
27           P_LAST_UPDATE_DATE,
28           P_LAST_UPDATED_BY,
29           P_LAST_UPDATE_LOGIN
30   );
31 end INSERT_ROW;
32 
33 
34 
35 procedure UPDATE_ROW (
36           P_VALUE_ID in NUMBER,
37           P_VALUE_KEY in RAW,
38           P_LAST_UPDATE_DATE in DATE,
39           P_LAST_UPDATED_BY in NUMBER,
40           P_LAST_UPDATE_LOGIN in NUMBER
41 ) is
42 begin
43   update XDO_CONFIG_KEYS
44      set VALUE_KEY = P_VALUE_KEY,
45          LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
46          LAST_UPDATED_BY = P_LAST_UPDATED_BY,
47          LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
48   where VALUE_ID = P_VALUE_ID;
49 
50   if (sql%notfound) then
51     raise no_data_found;
52   end if;
53 
54 end UPDATE_ROW;
55 
56 
57 procedure DELETE_ROW (
58           P_VALUE_ID in NUMBER
59 ) is
60 begin
61 
62   delete from XDO_CONFIG_KEYS
63    where VALUE_ID = P_VALUE_ID;
64 
65   if (sql%notfound) then
66     raise no_data_found;
67   end if;
68 
69 end DELETE_ROW;
70 
71 
72 
73 procedure LOAD_ROW (
74           P_VALUE_ID in NUMBER,
75           P_VALUE_KEY in RAW,
76           P_LAST_UPDATE_DATE in DATE,
77           P_LAST_UPDATED_BY in NUMBER,
78           P_LAST_UPDATE_LOGIN in NUMBER
79 ) is
80 
81 begin
82 
83   begin
84 
85      UPDATE_ROW (
86           P_VALUE_ID,
87           P_VALUE_KEY,
88           P_LAST_UPDATE_DATE,
89           P_LAST_UPDATED_BY,
90           P_LAST_UPDATE_LOGIN
91      );
92 
93   exception when no_data_found then
94 
95       INSERT_ROW (
96           P_VALUE_ID,
97           P_VALUE_KEY,
98           P_LAST_UPDATE_DATE,
99           P_LAST_UPDATED_BY,
100           P_LAST_UPDATE_DATE,
101           P_LAST_UPDATED_BY,
102           P_LAST_UPDATE_LOGIN
103       );
104 
105   end;
106 
107 end LOAD_ROW;
108 
109 end XDO_CONFIG_KEYS_PKG;