[Home] [Help]
PACKAGE BODY: APPS.AK_PAGE_REGION_RELATIONS_PKG
Source
1 package body AK_PAGE_REGION_RELATIONS_PKG as
2 /* $Header: AKDPRGRB.pls 115.4 2002/01/18 11:35:36 pkm ship $ */
3 procedure INSERT_ROW (
4 X_FLOW_APPLICATION_ID in NUMBER,
5 X_FLOW_CODE in VARCHAR2,
6 X_FOREIGN_KEY_NAME in VARCHAR2,
7 X_FROM_PAGE_APPL_ID in NUMBER,
8 X_FROM_PAGE_CODE in VARCHAR2,
9 X_FROM_REGION_APPL_ID in NUMBER,
10 X_FROM_REGION_CODE in VARCHAR2,
11 X_TO_PAGE_APPL_ID in NUMBER,
12 X_TO_PAGE_CODE in VARCHAR2,
13 X_TO_REGION_APPL_ID in NUMBER,
14 X_TO_REGION_CODE in VARCHAR2,
15 X_APPLICATION_ID in NUMBER,
16 X_CREATION_DATE in DATE,
17 X_CREATED_BY in NUMBER,
18 X_LAST_UPDATE_DATE in DATE,
19 X_LAST_UPDATED_BY in NUMBER,
20 X_LAST_UPDATE_LOGIN in NUMBER
21 ) is
22 begin
23 insert into AK_FLOW_REGION_RELATIONS (
24 FLOW_APPLICATION_ID,
25 FLOW_CODE,
26 FOREIGN_KEY_NAME,
27 FROM_PAGE_APPL_ID,
28 FROM_PAGE_CODE,
29 FROM_REGION_APPL_ID,
30 FROM_REGION_CODE,
31 TO_PAGE_APPL_ID,
32 TO_PAGE_CODE,
33 TO_REGION_APPL_ID,
34 TO_REGION_CODE,
35 APPLICATION_ID,
36 CREATED_BY,
37 CREATION_DATE,
38 LAST_UPDATED_BY,
39 LAST_UPDATE_DATE,
40 LAST_UPDATE_LOGIN
41 ) values (
42 X_FLOW_APPLICATION_ID,
43 X_FLOW_CODE,
44 X_FOREIGN_KEY_NAME,
45 X_FROM_PAGE_APPL_ID,
46 X_FROM_PAGE_CODE,
47 X_FROM_REGION_APPL_ID,
48 X_FROM_REGION_CODE,
49 X_TO_PAGE_APPL_ID,
50 X_TO_PAGE_CODE,
51 X_TO_REGION_APPL_ID,
52 X_TO_REGION_CODE,
53 X_APPLICATION_ID,
54 X_CREATED_BY,
55 X_CREATION_DATE,
56 X_LAST_UPDATED_BY,
57 X_LAST_UPDATE_DATE,
58 X_LAST_UPDATE_LOGIN
59 );
60 end INSERT_ROW;
61
62 procedure LOCK_ROW (
63 X_FLOW_APPLICATION_ID in NUMBER,
64 X_FLOW_CODE in VARCHAR2,
65 X_OLD_FOREIGN_KEY_NAME in VARCHAR2,
66 X_FROM_PAGE_APPL_ID in NUMBER,
67 X_FROM_PAGE_CODE in VARCHAR2,
68 X_OLD_FROM_REGION_APPL_ID in NUMBER,
69 X_OLD_FROM_REGION_CODE in VARCHAR2,
70 X_TO_PAGE_APPL_ID in NUMBER,
71 X_TO_PAGE_CODE in VARCHAR2,
72 X_OLD_TO_REGION_APPL_ID in NUMBER,
73 X_OLD_TO_REGION_CODE in VARCHAR2
74 ) is
75 cursor c is select
76 FLOW_APPLICATION_ID
77 from AK_FLOW_REGION_RELATIONS
78 where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
79 and FLOW_CODE = X_FLOW_CODE
80 and FOREIGN_KEY_NAME = X_OLD_FOREIGN_KEY_NAME
81 and FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID
82 and FROM_PAGE_CODE = X_FROM_PAGE_CODE
83 and FROM_REGION_APPL_ID = X_OLD_FROM_REGION_APPL_ID
84 and FROM_REGION_CODE = X_OLD_FROM_REGION_CODE
85 and TO_PAGE_APPL_ID = X_TO_PAGE_APPL_ID
86 and TO_PAGE_CODE = X_TO_PAGE_CODE
87 and TO_REGION_APPL_ID = X_OLD_TO_REGION_APPL_ID
88 and TO_REGION_CODE = X_OLD_TO_REGION_CODE
89 for update of FLOW_APPLICATION_ID nowait;
90 recinfo c%rowtype;
91
92 begin
93 open c;
94 fetch c into recinfo;
95 if (c%notfound) then
96 close c;
97 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
98 app_exception.raise_exception;
99 end if;
100 close c;
101 if (NOT( (recinfo.FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID))) then
102 fnd_message.set_name('FND', 'FND_RECORD_CHANGED');
103 app_exception.raise_exception;
104 end if;
105 return;
106 end LOCK_ROW;
107
108 procedure UPDATE_ROW (
109 X_FLOW_APPLICATION_ID in NUMBER,
110 X_FLOW_CODE in VARCHAR2,
111 X_FOREIGN_KEY_NAME in VARCHAR2,
112 X_OLD_FOREIGN_KEY_NAME in VARCHAR2,
113 X_FROM_PAGE_APPL_ID in NUMBER,
114 X_FROM_PAGE_CODE in VARCHAR2,
115 X_FROM_REGION_APPL_ID in NUMBER,
116 X_FROM_REGION_CODE in VARCHAR2,
117 X_OLD_FROM_REGION_APPL_ID in NUMBER,
118 X_OLD_FROM_REGION_CODE in VARCHAR2,
119 X_TO_PAGE_APPL_ID in NUMBER,
120 X_TO_PAGE_CODE in VARCHAR2,
121 X_TO_REGION_APPL_ID in NUMBER,
122 X_TO_REGION_CODE in VARCHAR2,
123 X_OLD_TO_REGION_APPL_ID in NUMBER,
124 X_OLD_TO_REGION_CODE in VARCHAR2,
125 X_APPLICATION_ID in NUMBER,
126 X_LAST_UPDATE_DATE in DATE,
127 X_LAST_UPDATED_BY in NUMBER,
128 X_LAST_UPDATE_LOGIN in NUMBER
129 ) is
130 begin
131 update AK_FLOW_REGION_RELATIONS set
132 FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID,
133 FLOW_CODE = X_FLOW_CODE,
134 FOREIGN_KEY_NAME = X_FOREIGN_KEY_NAME,
135 FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID,
136 FROM_PAGE_CODE = X_FROM_PAGE_CODE,
137 FROM_REGION_APPL_ID = X_FROM_REGION_APPL_ID,
138 FROM_REGION_CODE = X_FROM_REGION_CODE,
139 TO_PAGE_APPL_ID = X_TO_PAGE_APPL_ID,
140 TO_PAGE_CODE = X_TO_PAGE_CODE,
141 TO_REGION_APPL_ID = X_TO_REGION_APPL_ID,
142 TO_REGION_CODE = X_TO_REGION_CODE,
143 APPLICATION_ID = X_APPLICATION_ID,
144 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
145 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
146 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
147 where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
148 and FLOW_CODE = X_FLOW_CODE
149 and FOREIGN_KEY_NAME = X_OLD_FOREIGN_KEY_NAME
150 and FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID
151 and FROM_PAGE_CODE = X_FROM_PAGE_CODE
152 and FROM_REGION_APPL_ID = X_OLD_FROM_REGION_APPL_ID
153 and FROM_REGION_CODE = X_OLD_FROM_REGION_CODE
154 and TO_PAGE_APPL_ID = X_TO_PAGE_APPL_ID
155 and TO_PAGE_CODE = X_TO_PAGE_CODE
156 and TO_REGION_APPL_ID = X_OLD_TO_REGION_APPL_ID
157 and TO_REGION_CODE = X_OLD_TO_REGION_CODE;
158
159 if (sql%notfound) then
160 raise no_data_found;
161 end if;
162 end UPDATE_ROW;
163
164 procedure DELETE_ROW (
165 X_FLOW_APPLICATION_ID in NUMBER,
166 X_FLOW_CODE in VARCHAR2,
167 X_FOREIGN_KEY_NAME in VARCHAR2,
168 X_FROM_PAGE_APPL_ID in NUMBER,
169 X_FROM_PAGE_CODE in VARCHAR2,
170 X_FROM_REGION_APPL_ID in NUMBER,
171 X_FROM_REGION_CODE in VARCHAR2,
172 X_TO_PAGE_APPL_ID in NUMBER,
173 X_TO_PAGE_CODE in VARCHAR2,
174 X_TO_REGION_APPL_ID in NUMBER,
175 X_TO_REGION_CODE in VARCHAR2
176 ) is
177 begin
178 delete from AK_FLOW_REGION_RELATIONS
179 where FLOW_APPLICATION_ID = X_FLOW_APPLICATION_ID
180 and FLOW_CODE = X_FLOW_CODE
181 and FOREIGN_KEY_NAME = X_FOREIGN_KEY_NAME
182 and FROM_PAGE_APPL_ID = X_FROM_PAGE_APPL_ID
183 and FROM_PAGE_CODE = X_FROM_PAGE_CODE
184 and FROM_REGION_APPL_ID = X_FROM_REGION_APPL_ID
185 and FROM_REGION_CODE = X_FROM_REGION_CODE
186 and TO_PAGE_APPL_ID = X_TO_PAGE_APPL_ID
187 and TO_PAGE_CODE = X_TO_PAGE_CODE
188 and TO_REGION_APPL_ID = X_TO_REGION_APPL_ID
189 and TO_REGION_CODE = X_TO_REGION_CODE;
190
191 if (sql%notfound) then
192 raise no_data_found;
193 end if;
194 end DELETE_ROW;
195 end AK_PAGE_REGION_RELATIONS_PKG;