1: package body iby_ecapp_pkg as
2: /*$Header: ibyecapb.pls 115.11 2002/11/18 22:04:50 jleybovi ship $*/
3:
4:
5: /*
10: **
11: ** not case sensitive
12: */
13: function ecappShortNameExists(i_app_short_name
14: iby_ecapp.application_short_name%type,
15: o_ecappid out nocopy iby_ecapp.ecappid%type)
16: return boolean
17:
18: is
11: ** not case sensitive
12: */
13: function ecappShortNameExists(i_app_short_name
14: iby_ecapp.application_short_name%type,
15: o_ecappid out nocopy iby_ecapp.ecappid%type)
16: return boolean
17:
18: is
19: l_app_short_name iby_ecapp.application_short_name%type;
15: o_ecappid out nocopy iby_ecapp.ecappid%type)
16: return boolean
17:
18: is
19: l_app_short_name iby_ecapp.application_short_name%type;
20: l_flag boolean := false;
21:
22: cursor c_app_short_name (ci_app_short_name
23: iby_ecapp.application_short_name%type)
19: l_app_short_name iby_ecapp.application_short_name%type;
20: l_flag boolean := false;
21:
22: cursor c_app_short_name (ci_app_short_name
23: iby_ecapp.application_short_name%type)
24: is
25: SELECT application_short_name, ecappid
26: FROM iby_ecapp_v
27: WHERE UPPER(application_short_name) = UPPER(ci_app_short_name);
22: cursor c_app_short_name (ci_app_short_name
23: iby_ecapp.application_short_name%type)
24: is
25: SELECT application_short_name, ecappid
26: FROM iby_ecapp_v
27: WHERE UPPER(application_short_name) = UPPER(ci_app_short_name);
28:
29: begin
30:
47: /*
48: ** Function: ecappExists.
49: ** Purpose: Check if the specified ecappid exists or not.
50: */
51: function ecappExists(i_ecappid in iby_ecapp.ecappid%type)
52: return boolean
53: is
54: l_ecappid iby_ecapp.ecappid%type;
55: l_flag boolean := false;
50: */
51: function ecappExists(i_ecappid in iby_ecapp.ecappid%type)
52: return boolean
53: is
54: l_ecappid iby_ecapp.ecappid%type;
55: l_flag boolean := false;
56:
57: cursor c_ecappid
58: (ci_ecappid iby_ecapp.ecappid%type)
54: l_ecappid iby_ecapp.ecappid%type;
55: l_flag boolean := false;
56:
57: cursor c_ecappid
58: (ci_ecappid iby_ecapp.ecappid%type)
59: is
60: SELECT ecappid
61: FROM iby_ecapp_v
62: WHERE ecappid = ci_ecappid;
57: cursor c_ecappid
58: (ci_ecappid iby_ecapp.ecappid%type)
59: is
60: SELECT ecappid
61: FROM iby_ecapp_v
62: WHERE ecappid = ci_ecappid;
63: begin
64: if ( c_ecappid%isopen) then
65: close c_ecappid;
84: ** In : i_ecappname
85: ** Out : io_ecappid.
86: **
87: */
88: procedure createEcApp(i_ecappname iby_ecapp.name%type,
89: i_app_short_name iby_ecapp.application_short_name%type,
90: io_ecappid in out nocopy iby_ecapp.ecappid%type)
91: is
92: NO_SEQUENCE_FOUND EXCEPTION;
85: ** Out : io_ecappid.
86: **
87: */
88: procedure createEcApp(i_ecappname iby_ecapp.name%type,
89: i_app_short_name iby_ecapp.application_short_name%type,
90: io_ecappid in out nocopy iby_ecapp.ecappid%type)
91: is
92: NO_SEQUENCE_FOUND EXCEPTION;
93: cursor c_ecappid is
86: **
87: */
88: procedure createEcApp(i_ecappname iby_ecapp.name%type,
89: i_app_short_name iby_ecapp.application_short_name%type,
90: io_ecappid in out nocopy iby_ecapp.ecappid%type)
91: is
92: NO_SEQUENCE_FOUND EXCEPTION;
93: cursor c_ecappid is
94: select iby_ecapp_s.nextval from dual;
90: io_ecappid in out nocopy iby_ecapp.ecappid%type)
91: is
92: NO_SEQUENCE_FOUND EXCEPTION;
93: cursor c_ecappid is
94: select iby_ecapp_s.nextval from dual;
95:
96: l_dummy iby_ecapp.ecappid%type;
97:
98: begin
92: NO_SEQUENCE_FOUND EXCEPTION;
93: cursor c_ecappid is
94: select iby_ecapp_s.nextval from dual;
95:
96: l_dummy iby_ecapp.ecappid%type;
97:
98: begin
99: if ( c_ecappid%isopen ) then
100: close c_ecappid;
108: 'IBY_20551#',
109: FALSE);
110: end if;
111:
112: INSERT into iby_ecapp (ecappid, name, application_short_name,
113: last_update_date, last_updated_by, creation_date, created_by,
114: last_update_login, object_version_number)
115: VALUES ( io_ecappid, i_ecappname, i_app_short_name,
116: sysdate, fnd_global.user_id, sysdate, fnd_global.user_id,
128: ** In : i_ecappid, i_ecappname
129: ** Out : None
130: **
131: */
132: procedure modEcApp(i_ecappid iby_ecapp.ecappid%type,
133: i_ecappname iby_ecapp.name%type,
134: i_app_short_name iby_ecapp.application_short_name%type,
135: i_object_version iby_ecapp.object_version_number%type)
136: is
129: ** Out : None
130: **
131: */
132: procedure modEcApp(i_ecappid iby_ecapp.ecappid%type,
133: i_ecappname iby_ecapp.name%type,
134: i_app_short_name iby_ecapp.application_short_name%type,
135: i_object_version iby_ecapp.object_version_number%type)
136: is
137:
130: **
131: */
132: procedure modEcApp(i_ecappid iby_ecapp.ecappid%type,
133: i_ecappname iby_ecapp.name%type,
134: i_app_short_name iby_ecapp.application_short_name%type,
135: i_object_version iby_ecapp.object_version_number%type)
136: is
137:
138: l_ecappid iby_ecapp.ecappid%type;
131: */
132: procedure modEcApp(i_ecappid iby_ecapp.ecappid%type,
133: i_ecappname iby_ecapp.name%type,
134: i_app_short_name iby_ecapp.application_short_name%type,
135: i_object_version iby_ecapp.object_version_number%type)
136: is
137:
138: l_ecappid iby_ecapp.ecappid%type;
139:
134: i_app_short_name iby_ecapp.application_short_name%type,
135: i_object_version iby_ecapp.object_version_number%type)
136: is
137:
138: l_ecappid iby_ecapp.ecappid%type;
139:
140: begin
141:
142: -- check the uniqueness of the application short name
152: */
153: --- update only if the object_version_number is correct
154: if (i_object_version < 0) then
155: -- no check in object version number in this case
156: UPDATE iby_ecapp
157: SET name = i_ecappname, application_short_name = i_app_short_name,
158: last_update_date = sysdate,
159: last_update_login = fnd_global.login_id,
160: object_version_number = object_version_number + 1
159: last_update_login = fnd_global.login_id,
160: object_version_number = object_version_number + 1
161: WHERE ecappid = i_ecappid ;
162: else
163: UPDATE iby_ecapp
164: SET name = i_ecappname, application_short_name = i_app_short_name,
165: last_update_date = sysdate,
166: last_update_login = fnd_global.login_id,
167: object_version_number = object_version_number + 1
180: end if;
181:
182: commit;
183: end modecapp;
184: end iby_ecapp_pkg;