[Home] [Help]
1: PACKAGE BODY HZ_PARTY_PREFERENCES_PKG as
2: /*$Header: ARHPRFTB.pls 115.5 2003/02/04 06:51:00 ssmohan noship $ */
3:
4: procedure INSERT_ROW (
5: X_ROWID in out NOCOPY VARCHAR2,
23: X_LAST_UPDATED_BY in NUMBER,
24: X_LAST_UPDATE_DATE in DATE,
25: X_LAST_UPDATE_LOGIN in NUMBER
26: ) is
27: cursor C is select ROWID from HZ_PARTY_PREFERENCES
28: where PARTY_PREFERENCE_ID = X_PARTY_PREFERENCE_ID;
29: l_rowid ROWID;
30: begin
31: insert into HZ_PARTY_PREFERENCES (
27: cursor C is select ROWID from HZ_PARTY_PREFERENCES
28: where PARTY_PREFERENCE_ID = X_PARTY_PREFERENCE_ID;
29: l_rowid ROWID;
30: begin
31: insert into HZ_PARTY_PREFERENCES (
32: PARTY_PREFERENCE_ID,
33: PARTY_ID,
34: MODULE,
35: CATEGORY,
119: ADDITIONAL_VALUE3,
120: ADDITIONAL_VALUE4,
121: ADDITIONAL_VALUE5,
122: OBJECT_VERSION_NUMBER
123: from HZ_PARTY_PREFERENCES
124: where PARTY_PREFERENCE_ID = X_PARTY_PREFERENCE_ID
125: for update of PARTY_PREFERENCE_ID nowait;
126: begin
127: for tlinfo in c1 loop
183: X_LAST_UPDATE_DATE in DATE,
184: X_LAST_UPDATE_LOGIN in NUMBER
185: ) is
186: begin
187: update HZ_PARTY_PREFERENCES set
188: PARTY_ID = DECODE(X_PARTY_ID, FND_API.G_MISS_NUM, PARTY_ID, X_PARTY_ID),
189: MODULE = DECODE(X_MODULE, FND_API.G_MISS_CHAR, MODULE, X_MODULE),
190: CATEGORY = DECODE(X_CATEGORY, FND_API.G_MISS_CHAR, CATEGORY, X_CATEGORY),
191: PREFERENCE_CODE = DECODE(X_PREFERENCE_CODE,FND_API.G_MISS_CHAR, PREFERENCE_CODE, X_PREFERENCE_CODE),
213: X_PARTY_PREFERENCE_ID in NUMBER,
214: X_OBJECT_VERSION_NUMBER in NUMBER
215: ) is
216: begin
217: delete from HZ_PARTY_PREFERENCES
218: where PARTY_PREFERENCE_ID = X_PARTY_PREFERENCE_ID
219: and OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER;
220:
221: if (sql%notfound) then
223: end if;
224:
225: end DELETE_ROW;
226:
227: end HZ_PARTY_PREFERENCES_PKG;