[Home] [Help]
1: package body AK_FLOW_REGION_RELATIONS_PKG as
2: /* $Header: AKDFRGRB.pls 120.2 2005/09/29 13:59:47 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_REGION_RELATIONS
40: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
41: and FLOW_CODE = X_FLOW_CODE
42: and FOREIGN_KEY_NAME = X_FOREIGN_KEY_NAME
43: and FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID
48: and TO_PAGE_CODE = X_TO_PAGE_CODE
49: and TO_REGION_APPL_ID = X_TO_REGION_APPL_ID
50: and TO_REGION_CODE = X_TO_REGION_CODE;
51: begin
52: insert into AK_FLOW_REGION_RELATIONS(
53: FLOW_APPLICATION_ID,
54: FLOW_CODE,
55: FOREIGN_KEY_NAME,
56: FROM_PAGE_APPL_ID,
143: X_APPLICATION_ID in NUMBER
144: ) is
145: cursor c is select
146: APPLICATION_ID
147: from AK_FLOW_REGION_RELATIONS
148: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
149: and FLOW_CODE = X_FLOW_CODE
150: and FOREIGN_KEY_NAME = X_FOREIGN_KEY_NAME
151: and FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID
211: X_ATTRIBUTE14 in VARCHAR2,
212: X_ATTRIBUTE15 in VARCHAR2
213: ) is
214: begin
215: update AK_FLOW_REGION_RELATIONS set
216: FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID,
217: FLOW_CODE = X_FLOW_CODE,
218: FOREIGN_KEY_NAME = X_FOREIGN_KEY_NAME,
219: FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID,
274: X_TO_REGION_APPL_ID in NUMBER,
275: X_TO_REGION_CODE in VARCHAR2
276: ) is
277: begin
278: delete from AK_FLOW_REGION_RELATIONS
279: where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
280: and FLOW_CODE = X_FLOW_CODE
281: and FOREIGN_KEY_NAME = X_FOREIGN_KEY_NAME
282: and FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID
291: if (sql%notfound) then
292: raise no_data_found;
293: end if;
294: end DELETE_ROW;
295: end AK_FLOW_REGION_RELATIONS_PKG;