[Home] [Help]
PACKAGE BODY: APPS.AR_BPA_DATA_SRC_PARAMS_PKG
Source
1 package body AR_BPA_DATA_SRC_PARAMS_PKG as
2 /* $Header: ARBPDSPB.pls 120.1 2004/12/03 01:45:06 orashid noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY VARCHAR2,
5 X_DATA_SOURCE_ID in NUMBER,
6 X_PARAM_ID in NUMBER,
7 X_PARAM_NAME in VARCHAR2,
8 X_PARAM_SEQUENCE in NUMBER,
9 X_PARAM_TYPE in VARCHAR2,
10 X_PARAM_VALUE_SOURCE in VARCHAR2,
11 X_CREATION_DATE in DATE,
12 X_CREATED_BY in NUMBER,
13 X_LAST_UPDATE_DATE in DATE,
14 X_LAST_UPDATED_BY in NUMBER,
15 X_LAST_UPDATE_LOGIN in NUMBER,
16 X_ITEM_ID in NUMBER
17 ) is
18 cursor C is select ROWID from AR_BPA_DATA_SRC_PARAMS
19 where PARAM_ID = X_PARAM_ID
20 ;
21 begin
22 insert into AR_BPA_DATA_SRC_PARAMS (
23 PARAM_ID,
24 DATA_SOURCE_ID,
25 PARAM_NAME,
26 PARAM_TYPE,
27 PARAM_SEQUENCE,
28 PARAM_VALUE_SOURCE,
29 LAST_UPDATE_DATE,
30 LAST_UPDATED_BY,
31 CREATION_DATE,
32 CREATED_BY,
33 LAST_UPDATE_LOGIN,
34 ITEM_ID
35 ) select
36 X_PARAM_ID,
37 X_DATA_SOURCE_ID,
38 X_PARAM_NAME,
39 X_PARAM_TYPE,
40 X_PARAM_SEQUENCE,
41 X_PARAM_VALUE_SOURCE,
42 X_LAST_UPDATE_DATE,
43 X_LAST_UPDATED_BY,
44 X_CREATION_DATE,
45 X_CREATED_BY,
46 X_LAST_UPDATE_LOGIN,
47 X_ITEM_ID
48 from dual;
49
50 open c;
51 fetch c into X_ROWID;
52 if (c%notfound) then
53 close c;
54 raise no_data_found;
55 end if;
56 close c;
57
58 end INSERT_ROW;
59
60 procedure UPDATE_ROW (
61 X_DATA_SOURCE_ID in NUMBER,
62 X_PARAM_ID in NUMBER,
63 X_PARAM_NAME in VARCHAR2,
64 X_PARAM_SEQUENCE in NUMBER,
65 X_PARAM_TYPE in VARCHAR2,
66 X_PARAM_VALUE_SOURCE in VARCHAR2,
67 X_LAST_UPDATE_DATE in DATE,
68 X_LAST_UPDATED_BY in NUMBER,
69 X_LAST_UPDATE_LOGIN in NUMBER,
70 X_ITEM_ID in NUMBER
71 ) is
72 begin
73 update AR_BPA_DATA_SRC_PARAMS set
74 DATA_SOURCE_ID = X_DATA_SOURCE_ID,
75 PARAM_NAME = X_PARAM_NAME,
76 PARAM_TYPE = X_PARAM_TYPE,
77 PARAM_SEQUENCE = X_PARAM_SEQUENCE,
78 PARAM_VALUE_SOURCE = X_PARAM_VALUE_SOURCE,
79 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
80 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
81 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
82 ITEM_ID = X_ITEM_ID
83 where PARAM_ID = X_PARAM_ID;
84
85 if (sql%notfound) then
86 raise no_data_found;
87 end if;
88 end UPDATE_ROW;
89
90 procedure DELETE_ROW (
91 X_PARAM_ID in NUMBER
92 ) is
93 begin
94 delete from AR_BPA_DATA_SRC_PARAMS
95 where PARAM_ID = X_PARAM_ID;
96
97 if (sql%notfound) then
98 raise no_data_found;
99 end if;
100
101 end DELETE_ROW;
102
103 procedure LOAD_ROW (
104 X_DATA_SOURCE_ID IN NUMBER,
105 X_PARAM_ID IN NUMBER,
106 X_PARAM_NAME IN VARCHAR2,
107 X_PARAM_SEQUENCE IN NUMBER,
108 X_PARAM_TYPE IN VARCHAR2,
109 X_PARAM_VALUE_SOURCE IN VARCHAR2,
110 X_ITEM_ID IN NUMBER,
111 X_OWNER IN VARCHAR2
112 ) IS
113 begin
114 declare
115 user_id number := 0;
116 row_id varchar2(64);
117 begin
118 if (X_OWNER = 'SEED') then
119 user_id := 1;
120 end if;
121
122 AR_BPA_DATA_SRC_PARAMS_PKG.UPDATE_ROW (
123 X_DATA_SOURCE_ID => X_DATA_SOURCE_ID,
124 X_PARAM_ID => X_PARAM_ID,
125 X_PARAM_NAME => X_PARAM_NAME,
126 X_PARAM_SEQUENCE => X_PARAM_SEQUENCE,
127 X_PARAM_TYPE => X_PARAM_TYPE,
128 X_PARAM_VALUE_SOURCE => X_PARAM_VALUE_SOURCE,
129 X_LAST_UPDATE_DATE => sysdate,
130 X_LAST_UPDATED_BY => user_id,
131 X_LAST_UPDATE_LOGIN => 0,
132 X_ITEM_ID => X_ITEM_ID);
133 exception
134 when NO_DATA_FOUND then
135 AR_BPA_DATA_SRC_PARAMS_PKG.INSERT_ROW (
136 X_ROWID => row_id,
137 X_DATA_SOURCE_ID => X_DATA_SOURCE_ID,
138 X_PARAM_ID => X_PARAM_ID,
139 X_PARAM_NAME => X_PARAM_NAME,
140 X_PARAM_SEQUENCE => X_PARAM_SEQUENCE,
141 X_PARAM_TYPE => X_PARAM_TYPE,
142 X_PARAM_VALUE_SOURCE => X_PARAM_VALUE_SOURCE,
143 X_CREATION_DATE => sysdate,
144 X_CREATED_BY => user_id,
145 X_LAST_UPDATE_DATE => sysdate,
146 X_LAST_UPDATED_BY => user_id,
147 X_LAST_UPDATE_LOGIN => 0,
148 X_ITEM_ID => X_ITEM_ID);
149 end;
150 end LOAD_ROW;
151
152 end AR_BPA_DATA_SRC_PARAMS_PKG;