13: X_LAST_UPDATE_DATE in DATE,
14: X_LAST_UPDATED_BY in NUMBER,
15: X_LAST_UPDATE_LOGIN in NUMBER
16: ) is
17: cursor C is select ROWID from IEC_G_CPN_PERSONALIZE_B
18: where CPN_PERSONALIZE_ID = X_CPN_PERSONALIZE_ID
19: ;
20: begin
21: x_rowid := NULL;
19: ;
20: begin
21: x_rowid := NULL;
22:
23: insert into IEC_G_CPN_PERSONALIZE_B (
24: CPN_PERSONALIZE_ID,
25: OBJECT_VERSION_NUMBER,
26: OWNER,
27: CREATION_DATE,
85: X_OWNER in VARCHAR2
86: ) is
87: cursor c is select
88: OBJECT_VERSION_NUMBER
89: from IEC_G_CPN_PERSONALIZE_B
90: where CPN_PERSONALIZE_ID = X_CPN_PERSONALIZE_ID
91: for update of CPN_PERSONALIZE_ID nowait;
92: recinfo c%rowtype;
93:
120: X_LAST_UPDATED_BY in NUMBER,
121: X_LAST_UPDATE_LOGIN in NUMBER
122: ) is
123: begin
124: update IEC_G_CPN_PERSONALIZE_B set
125: OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
126: LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
127: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
128: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
138: procedure DELETE_ROW (
139: X_CPN_PERSONALIZE_ID in NUMBER
140: ) is
141: begin
142: delete from IEC_G_CPN_PERSONALIZE_B
143: where CPN_PERSONALIZE_ID = X_CPN_PERSONALIZE_ID;
144:
145: delete from IEC_G_CPN_PERSONALIZE_TL
146: where CPN_PERSONALIZE_ID = X_CPN_PERSONALIZE_ID;
234: begin
235: delete from IEC_G_CPN_PERSONALIZE_TL T
236: where not exists
237: (select NULL
238: from IEC_G_CPN_PERSONALIZE_B B
239: where B.CPN_PERSONALIZE_ID = T.CPN_PERSONALIZE_ID
240: );
241:
242: update IEC_G_CPN_PERSONALIZE_TL T set (