[Home] [Help]
PACKAGE BODY: APPS.IEC_O_ALG_EXPR_OP_DEFS_PKG
Source
1 package body IEC_O_ALG_EXPR_OP_DEFS_PKG as
2 /* $Header: IECHEODB.pls 120.1 2005/07/20 13:22:58 appldev noship $ */
3
4 procedure INSERT_ROW (
5 X_ROWID in out NOCOPY VARCHAR2,
6 X_EXPR_CODE in VARCHAR2,
7 X_OPERATOR_VAR in VARCHAR2,
8 X_OPERATOR_CODE in VARCHAR2,
9 X_INACTIVE_DATA_NAME in VARCHAR2,
10 X_INACTIVE_DATA_FLAG in VARCHAR2,
11 X_OBJECT_VERSION_NUMBER in NUMBER,
12 X_CREATION_DATE in DATE,
13 X_CREATED_BY in NUMBER,
14 X_LAST_UPDATE_DATE in DATE,
15 X_LAST_UPDATED_BY in NUMBER,
16 X_LAST_UPDATE_LOGIN in NUMBER
17 ) is
18 cursor C is select ROWID from IEC_O_ALG_EXPR_OP_DEFS
19 where EXPR_CODE = X_EXPR_CODE and OPERATOR_CODE = X_OPERATOR_CODE and
20 OPERATOR_VAR = X_OPERATOR_VAR;
21 begin
22 insert into IEC_O_ALG_EXPR_OP_DEFS (
23 EXPR_CODE,
24 OPERATOR_VAR,
25 OPERATOR_CODE,
26 INACTIVE_DATA_NAME,
27 INACTIVE_DATA_FLAG,
28 OBJECT_VERSION_NUMBER,
29 CREATION_DATE,
30 CREATED_BY,
31 LAST_UPDATE_DATE,
32 LAST_UPDATED_BY,
33 LAST_UPDATE_LOGIN)
34 values (
35 X_EXPR_CODE,
36 X_OPERATOR_VAR,
37 X_OPERATOR_CODE,
38 X_INACTIVE_DATA_NAME,
39 X_INACTIVE_DATA_FLAG,
40 X_OBJECT_VERSION_NUMBER,
41 X_CREATION_DATE,
42 X_CREATED_BY,
43 X_LAST_UPDATE_DATE,
44 X_LAST_UPDATED_BY,
45 X_LAST_UPDATE_LOGIN
46 );
47
48 open c;
49 fetch c into X_ROWID;
50 if (c%notfound) then
51 close c;
52 raise no_data_found;
53 end if;
54 close c;
55
56 end INSERT_ROW;
57
58 procedure LOCK_ROW (
59 X_EXPR_CODE in VARCHAR2,
60 X_OPERATOR_VAR in VARCHAR2,
61 X_OPERATOR_CODE in VARCHAR2,
62 X_INACTIVE_DATA_NAME in VARCHAR2,
63 X_INACTIVE_DATA_FLAG in VARCHAR2,
64 X_OBJECT_VERSION_NUMBER in NUMBER
65 ) is
66 cursor c is select
67 INACTIVE_DATA_NAME,
68 INACTIVE_DATA_FLAG,
69 OBJECT_VERSION_NUMBER
70 from IEC_O_ALG_EXPR_OP_DEFS
71 where EXPR_CODE = X_EXPR_CODE and OPERATOR_CODE = X_OPERATOR_CODE and
72 OPERATOR_VAR = X_OPERATOR_VAR
73 for update of EXPR_CODE,OPERATOR_CODE,OPERATOR_VAR nowait;
74 recinfo c%rowtype;
75 begin
76 open c;
77 fetch c into recinfo;
78 if (c%notfound) then
79 close c;
80 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
81 app_exception.raise_exception;
82 end if;
83 close c;
84 if ( (recinfo.INACTIVE_DATA_FLAG = X_INACTIVE_DATA_FLAG)
85 AND ((recinfo.INACTIVE_DATA_NAME = X_INACTIVE_DATA_NAME)
86 OR ((recinfo.INACTIVE_DATA_NAME is null) AND (X_INACTIVE_DATA_NAME is null)))
87 AND (recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
88 ) then
89 null;
90 else
91 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
92 app_exception.raise_exception;
93 end if;
94 return;
95 end LOCK_ROW;
96
97 procedure UPDATE_ROW (
98 X_EXPR_CODE in VARCHAR2,
99 X_OPERATOR_VAR in VARCHAR2,
100 X_OPERATOR_CODE in VARCHAR2,
101 X_INACTIVE_DATA_NAME in VARCHAR2,
102 X_INACTIVE_DATA_FLAG in VARCHAR2,
103 X_OBJECT_VERSION_NUMBER in NUMBER,
104 X_LAST_UPDATE_DATE in DATE,
105 X_LAST_UPDATED_BY in NUMBER,
106 X_LAST_UPDATE_LOGIN in NUMBER
107 ) is
108 begin
109 update IEC_O_ALG_EXPR_OP_DEFS
110 set
111 INACTIVE_DATA_NAME = X_INACTIVE_DATA_NAME,
112 INACTIVE_DATA_FLAG = X_INACTIVE_DATA_FLAG,
113 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
114 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
115 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
116 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
117 where EXPR_CODE = X_EXPR_CODE and OPERATOR_CODE = X_OPERATOR_CODE and
118 OPERATOR_VAR = X_OPERATOR_VAR;
119
120 if (sql%notfound) then
121 raise no_data_found;
122 end if;
123
124 end UPDATE_ROW;
125
126 procedure DELETE_ROW (
127 X_EXPR_CODE in VARCHAR2,
128 X_OPERATOR_VAR in VARCHAR2,
129 X_OPERATOR_CODE in VARCHAR2
130 ) is
131 begin
132 delete from IEC_O_ALG_EXPR_OP_DEFS
133 where EXPR_CODE = X_EXPR_CODE and OPERATOR_CODE = X_OPERATOR_CODE and
134 OPERATOR_VAR = X_OPERATOR_VAR;
135
136
137 if (sql%notfound) then
138 raise no_data_found;
139 end if;
140 end DELETE_ROW;
141
142 procedure LOAD_ROW (
143 X_EXPR_CODE in VARCHAR2,
144 X_OPERATOR_VAR in VARCHAR2,
145 X_OPERATOR_CODE in VARCHAR2,
146 X_INACTIVE_DATA_NAME in VARCHAR2,
147 X_INACTIVE_DATA_FLAG in VARCHAR2,
148 X_OWNER in VARCHAR2
149 ) is
150 USER_ID NUMBER := 0;
151 ROW_ID VARCHAR2(500);
152 begin
153
154
155 USER_ID := fnd_load_util.owner_id(x_owner);
156
157 UPDATE_ROW (X_EXPR_CODE, X_OPERATOR_VAR, X_OPERATOR_CODE, X_INACTIVE_DATA_NAME, X_INACTIVE_DATA_FLAG, 0, SYSDATE, USER_ID, 0);
158
159 exception
160 when no_data_found then
161 INSERT_ROW (ROW_ID, X_EXPR_CODE, X_OPERATOR_VAR, X_OPERATOR_CODE, X_INACTIVE_DATA_NAME, X_INACTIVE_DATA_FLAG, 0, SYSDATE, USER_ID, SYSDATE, USER_ID, 0);
162
163 end LOAD_ROW;
164
165 procedure LOAD_SEED_ROW (
166 X_upload_mode in VARCHAR2,
167 X_EXPR_CODE in VARCHAR2,
168 X_OPERATOR_VAR in VARCHAR2,
169 X_OPERATOR_CODE in VARCHAR2,
170 X_INACTIVE_DATA_NAME in VARCHAR2,
171 X_INACTIVE_DATA_FLAG in VARCHAR2,
172 X_OWNER in VARCHAR2
173 ) is
174 begin
175 if(X_upload_mode='NLS') then
176 NULL;
177 else
178 IEC_O_ALG_EXPR_OP_DEFS_PKG.LOAD_ROW (
179 X_EXPR_CODE,
180 X_OPERATOR_VAR,
181 X_OPERATOR_CODE,
182 X_INACTIVE_DATA_NAME,
183 X_INACTIVE_DATA_FLAG,
184 X_OWNER);
185 end if;
186
187 end LOAD_SEED_ROW;
188
189 end IEC_O_ALG_EXPR_OP_DEFS_PKG;