[Home] [Help]
1: package body AK_FLOW_PAGE_REGIONS_PKG as
2: /* $Header: AKDFPRGB.pls 120.2 2005/09/29 13:59:44 tshort ship $ */
3: procedure INSERT_ROW (
4: X_ROWID in out NOCOPY VARCHAR2,
5: X_FLOW_APPLICATION_ID in NUMBER,
35: X_ATTRIBUTE13 in VARCHAR2,
36: X_ATTRIBUTE14 in VARCHAR2,
37: X_ATTRIBUTE15 in VARCHAR2
38: ) is
39: cursor C is select ROWID from AK_FLOW_PAGE_REGIONS
40: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
41: and FLOW_CODE = X_FLOW_CODE
42: and PAGE_APPLICATION_ID = X_PAGE_APPLICATION_ID
43: and PAGE_CODE = X_PAGE_CODE
43: and PAGE_CODE = X_PAGE_CODE
44: and REGION_APPLICATION_ID = X_REGION_APPLICATION_ID
45: and REGION_CODE = X_REGION_CODE;
46: begin
47: insert into AK_FLOW_PAGE_REGIONS (
48: FLOW_APPLICATION_ID,
49: FLOW_CODE,
50: PAGE_APPLICATION_ID,
51: PAGE_CODE,
143: NUM_COLUMNS,
144: ICX_CUSTOM_CALL,
145: PARENT_REGION_APPLICATION_ID,
146: PARENT_REGION_CODE
147: from AK_FLOW_PAGE_REGIONS
148: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
149: and FLOW_CODE = X_FLOW_CODE
150: and PAGE_APPLICATION_ID = X_PAGE_APPLICATION_ID
151: and PAGE_CODE = X_PAGE_CODE
211: X_ATTRIBUTE14 in VARCHAR2,
212: X_ATTRIBUTE15 in VARCHAR2
213: ) is
214: begin
215: update AK_FLOW_PAGE_REGIONS set
216: FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID,
217: FLOW_CODE = X_FLOW_CODE,
218: PAGE_APPLICATION_ID = X_PAGE_APPLICATION_ID,
219: PAGE_CODE = X_PAGE_CODE,
264: X_REGION_APPLICATION_ID in NUMBER,
265: X_REGION_CODE in VARCHAR2
266: ) is
267: begin
268: delete from AK_FLOW_PAGE_REGIONS
269: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
270: and FLOW_CODE = X_FLOW_CODE
271: and PAGE_APPLICATION_ID = X_PAGE_APPLICATION_ID
272: and PAGE_CODE = X_PAGE_CODE
276: if (sql%notfound) then
277: raise no_data_found;
278: end if;
279: end DELETE_ROW;
280: end AK_FLOW_PAGE_REGIONS_PKG;