1: PACKAGE BODY VEA_PROGRAM_UNITS_SV as
2: /* $Header: VEAVAPUB.pls 115.14 2004/07/27 02:42:47 rvishnuv ship $ */
3: --{
4: /*====================== vea_program_units_sv =========================*/
5: /*========================================================================
1: PACKAGE BODY VEA_PROGRAM_UNITS_SV as
2: /* $Header: VEAVAPUB.pls 115.14 2004/07/27 02:42:47 rvishnuv ship $ */
3: --{
4: /*====================== vea_program_units_sv =========================*/
5: /*========================================================================
6: PURPOSE: Table handler package for table VEA_PROGRAM_UNITS
7:
8: NOTES: To run the script:
2: /* $Header: VEAVAPUB.pls 115.14 2004/07/27 02:42:47 rvishnuv ship $ */
3: --{
4: /*====================== vea_program_units_sv =========================*/
5: /*========================================================================
6: PURPOSE: Table handler package for table VEA_PROGRAM_UNITS
7:
8: NOTES: To run the script:
9:
10: sql> start VEAVAPKB.pls
13: Created N PARIKH 09/09/99 10:00 AM
14:
15: =========================================================================*/
16:
17: G_PACKAGE_NAME CONSTANT VARCHAR2(30) := 'VEA_PROGRAM_UNITS_SV';
18: --
19: --
20: /*========================================================================
21:
20: /*========================================================================
21:
22: PROCEDURE NAME: insert_row
23:
24: PURPOSE: Inserts a record into VEA_PROGRAM_UNITS table
25:
26: ========================================================================*/
27: PROCEDURE
28: insert_row
26: ========================================================================*/
27: PROCEDURE
28: insert_row
29: (
30: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
31: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
32: p_package_id IN vea_program_units.program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
27: PROCEDURE
28: insert_row
29: (
30: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
31: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
32: p_package_id IN vea_program_units.program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
28: insert_row
29: (
30: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
31: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
32: p_package_id IN vea_program_units.program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
29: (
30: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
31: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
32: p_package_id IN vea_program_units.program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
30: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
31: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
32: p_package_id IN vea_program_units.program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
31: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
32: p_package_id IN vea_program_units.program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
39: p_return_type IN vea_program_units.return_type%TYPE,
32: p_package_id IN vea_program_units.program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
39: p_return_type IN vea_program_units.return_type%TYPE,
40: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
33: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
39: p_return_type IN vea_program_units.return_type%TYPE,
40: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
41: p_description IN vea_program_units.description%TYPE
34: p_public_flag IN vea_program_units.public_flag%TYPE,
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
39: p_return_type IN vea_program_units.return_type%TYPE,
40: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
41: p_description IN vea_program_units.description%TYPE
42: )
35: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
39: p_return_type IN vea_program_units.return_type%TYPE,
40: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
41: p_description IN vea_program_units.description%TYPE
42: )
43: IS
36: p_tps_flag IN vea_program_units.tps_flag%TYPE,
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
39: p_return_type IN vea_program_units.return_type%TYPE,
40: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
41: p_description IN vea_program_units.description%TYPE
42: )
43: IS
44: --{
37: p_name IN vea_program_units.name%TYPE,
38: p_label IN vea_program_units.label%TYPE,
39: p_return_type IN vea_program_units.return_type%TYPE,
40: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
41: p_description IN vea_program_units.description%TYPE
42: )
43: IS
44: --{
45: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
52: BEGIN
53: --{
54: l_location := '0010';
55: --
56: INSERT INTO vea_program_units
57: (
58: layer_provider_code, program_unit_id,
59: package_id, program_unit_type,
60: name, label,
99: /*========================================================================
100:
101: PROCEDURE NAME: update_row
102:
103: PURPOSE: Updates a record into VEA_PROGRAM_UNITS table
104:
105: ========================================================================*/
106: PROCEDURE
107: update_row
105: ========================================================================*/
106: PROCEDURE
107: update_row
108: (
109: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
110: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
111: p_package_id IN vea_program_units.program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
106: PROCEDURE
107: update_row
108: (
109: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
110: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
111: p_package_id IN vea_program_units.program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
107: update_row
108: (
109: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
110: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
111: p_package_id IN vea_program_units.program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
108: (
109: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
110: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
111: p_package_id IN vea_program_units.program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
109: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
110: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
111: p_package_id IN vea_program_units.program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
110: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
111: p_package_id IN vea_program_units.program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
118: p_return_type IN vea_program_units.return_type%TYPE,
111: p_package_id IN vea_program_units.program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
118: p_return_type IN vea_program_units.return_type%TYPE,
119: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
112: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
118: p_return_type IN vea_program_units.return_type%TYPE,
119: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
120: p_description IN vea_program_units.description%TYPE
113: p_public_flag IN vea_program_units.public_flag%TYPE,
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
118: p_return_type IN vea_program_units.return_type%TYPE,
119: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
120: p_description IN vea_program_units.description%TYPE
121: )
114: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
118: p_return_type IN vea_program_units.return_type%TYPE,
119: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
120: p_description IN vea_program_units.description%TYPE
121: )
122: IS
115: p_tps_flag IN vea_program_units.tps_flag%TYPE,
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
118: p_return_type IN vea_program_units.return_type%TYPE,
119: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
120: p_description IN vea_program_units.description%TYPE
121: )
122: IS
123: --{
116: p_name IN vea_program_units.name%TYPE,
117: p_label IN vea_program_units.label%TYPE,
118: p_return_type IN vea_program_units.return_type%TYPE,
119: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
120: p_description IN vea_program_units.description%TYPE
121: )
122: IS
123: --{
124: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
131: BEGIN
132: --{
133: l_location := '0010';
134: --
135: UPDATE vea_program_units
136: SET package_id = p_package_id,
137: program_unit_type = p_program_unit_type,
138: name = p_name,
139: label = p_label,
176: PROCEDURE
177: delete_row
178: (
179: p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
180: p_program_unit_id IN vea_program_units.program_unit_id%TYPE
181: )
182: IS
183: --{
184: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
198: --
199: --
200: l_location := '0020';
201: --
202: DELETE vea_program_units
203: WHERE layer_provider_code = p_layer_provider_code
204: AND program_unit_id = p_program_unit_id;
205: --}
206: EXCEPTION
264: IS
265: SELECT program_unit_id,
266: layer_provider_code,
267: tps_flag
268: FROM vea_program_units
269: WHERE layer_provider_code = p_layer_provider_code
270: AND package_id = p_package_id;
271: --
272: --
272: --
273: CURSOR tps_cur
274: (
275: p_tps_program_unit_lp_code IN vea_layers.layer_provider_code%TYPE,
276: p_tps_program_unit_id IN vea_program_units.program_unit_id%TYPE
277: )
278: IS
279: SELECT 'x'
280: FROM vea_layer_headers
286: (
287: p_layer_provider_code IN vea_layers.layer_provider_code%TYPE,
288: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE,
289: p_package_id IN vea_packages.package_id%TYPE,
290: p_program_unit_id IN vea_program_units.program_unit_id%TYPE
291: )
292: IS
293: SELECT PK.application_short_name
294: FROM vea_program_units LPU,
290: p_program_unit_id IN vea_program_units.program_unit_id%TYPE
291: )
292: IS
293: SELECT PK.application_short_name
294: FROM vea_program_units LPU,
295: vea_layer_headers LH,
296: vea_packages PK,
297: vea_program_units PU,
298: vea_layers_v LA
293: SELECT PK.application_short_name
294: FROM vea_program_units LPU,
295: vea_layer_headers LH,
296: vea_packages PK,
297: vea_program_units PU,
298: vea_layers_v LA
299: WHERE LA.layer_provider_code = p_layer_provider_code
300: AND LA.tp_layer_id = p_tp_layer_id
301: AND LH.layer_provider_code = LA.layer_provider_code
476: ========================================================================*/
477: PROCEDURE
478: getName
479: (
480: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
481: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
482: x_program_unit_name OUT NOCOPY vea_program_units.name%TYPE,
483: x_package_name OUT NOCOPY vea_packages.name%TYPE
484: )
477: PROCEDURE
478: getName
479: (
480: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
481: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
482: x_program_unit_name OUT NOCOPY vea_program_units.name%TYPE,
483: x_package_name OUT NOCOPY vea_packages.name%TYPE
484: )
485: IS
478: getName
479: (
480: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
481: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
482: x_program_unit_name OUT NOCOPY vea_program_units.name%TYPE,
483: x_package_name OUT NOCOPY vea_packages.name%TYPE
484: )
485: IS
486: --{
495: CURSOR program_unit_cur
496: IS
497: SELECT PU.name program_unit_name,
498: PK.name package_name
499: FROM vea_program_units PU,
500: vea_packages PK
501: WHERE PU.layer_provider_code = p_layer_provider_code
502: AND PU.program_unit_id = p_program_unit_id
503: AND PK.layer_provider_code = PU.layer_provider_code
542: ========================================================================*/
543: PROCEDURE
544: validateMapping
545: (
546: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
547: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
548: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
549: p_old_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE
550: )
543: PROCEDURE
544: validateMapping
545: (
546: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
547: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
548: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
549: p_old_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE
550: )
551: IS
544: validateMapping
545: (
546: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
547: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
548: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
549: p_old_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE
550: )
551: IS
552: --{
545: (
546: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
547: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
548: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
549: p_old_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE
550: )
551: IS
552: --{
553: l_api_name CONSTANT VARCHAR2(30) := 'validateMapping';
557: l_user_id NUMBER := vea_tpa_util_pvt.get_user_id;
558: l_login_id NUMBER := vea_tpa_util_pvt.get_login_id;
559: --
560: --
561: l_program_unit_name vea_program_units.name%TYPE;
562: l_package_name vea_packages.name%TYPE;
563: l_pub_program_unit_name vea_program_units.name%TYPE;
564: l_pub_package_name vea_packages.name%TYPE;
565: l_tpa_program_unit_name vea_program_units.name%TYPE;
559: --
560: --
561: l_program_unit_name vea_program_units.name%TYPE;
562: l_package_name vea_packages.name%TYPE;
563: l_pub_program_unit_name vea_program_units.name%TYPE;
564: l_pub_package_name vea_packages.name%TYPE;
565: l_tpa_program_unit_name vea_program_units.name%TYPE;
566: l_tpa_package_name vea_packages.name%TYPE;
567: --}
561: l_program_unit_name vea_program_units.name%TYPE;
562: l_package_name vea_packages.name%TYPE;
563: l_pub_program_unit_name vea_program_units.name%TYPE;
564: l_pub_package_name vea_packages.name%TYPE;
565: l_tpa_program_unit_name vea_program_units.name%TYPE;
566: l_tpa_package_name vea_packages.name%TYPE;
567: --}
568: BEGIN
569: --{
658: ========================================================================*/
659: PROCEDURE
660: deleteUnreferencedProgramUnits
661: (
662: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
663: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
664: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE
665: )
666: IS
659: PROCEDURE
660: deleteUnreferencedProgramUnits
661: (
662: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
663: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
664: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE
665: )
666: IS
667: --{
660: deleteUnreferencedProgramUnits
661: (
662: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
663: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
664: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE
665: )
666: IS
667: --{
668: l_api_name CONSTANT VARCHAR2(30) := 'deleteUnreferencedProgramUnits';
675: --
676: CURSOR program_unit_cur
677: IS
678: SELECT program_unit_id
679: FROM vea_program_units
680: WHERE tpa_program_unit_id = p_tpa_program_unit_id
681: AND layer_provider_code = p_layer_provider_code;
682: --}
683: BEGIN
730: ========================================================================*/
731: FUNCTION
732: getId
733: (
734: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
735: p_package_id IN vea_program_units.package_id%TYPE,
736: p_name IN vea_program_units.name%TYPE
737: )
738: RETURN NUMBER
731: FUNCTION
732: getId
733: (
734: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
735: p_package_id IN vea_program_units.package_id%TYPE,
736: p_name IN vea_program_units.name%TYPE
737: )
738: RETURN NUMBER
739: IS
732: getId
733: (
734: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
735: p_package_id IN vea_program_units.package_id%TYPE,
736: p_name IN vea_program_units.name%TYPE
737: )
738: RETURN NUMBER
739: IS
740: --{
743: --
744: --
745: CURSOR program_unit_cur
746: (
747: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
748: p_package_id IN vea_program_units.package_id%TYPE,
749: p_name IN vea_program_units.name%TYPE
750: )
751: IS
744: --
745: CURSOR program_unit_cur
746: (
747: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
748: p_package_id IN vea_program_units.package_id%TYPE,
749: p_name IN vea_program_units.name%TYPE
750: )
751: IS
752: SELECT program_unit_id
745: CURSOR program_unit_cur
746: (
747: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
748: p_package_id IN vea_program_units.package_id%TYPE,
749: p_name IN vea_program_units.name%TYPE
750: )
751: IS
752: SELECT program_unit_id
753: FROM vea_program_units
749: p_name IN vea_program_units.name%TYPE
750: )
751: IS
752: SELECT program_unit_id
753: FROM vea_program_units
754: WHERE layer_provider_code = p_layer_provider_code
755: AND package_id = p_package_id
756: AND UPPER(name) = UPPER(p_name);
757: --}
790: /*========================================================================
791:
792: PROCEDURE NAME: process
793:
794: PURPOSE: Table hadndler API for VEA_PROGRAM_UNITS table.
795:
796: It inserts/updates a record in VEA_PROGRAM_UNITS table.
797:
798: ========================================================================*/
792: PROCEDURE NAME: process
793:
794: PURPOSE: Table hadndler API for VEA_PROGRAM_UNITS table.
795:
796: It inserts/updates a record in VEA_PROGRAM_UNITS table.
797:
798: ========================================================================*/
799: PROCEDURE
800: process
805: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
806: x_return_status OUT NOCOPY VARCHAR2,
807: x_msg_count OUT NOCOPY NUMBER,
808: x_msg_data OUT NOCOPY VARCHAR2,
809: x_id OUT NOCOPY vea_program_units.program_unit_id%TYPE,
810: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
811: p_package_id IN vea_program_units.program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
806: x_return_status OUT NOCOPY VARCHAR2,
807: x_msg_count OUT NOCOPY NUMBER,
808: x_msg_data OUT NOCOPY VARCHAR2,
809: x_id OUT NOCOPY vea_program_units.program_unit_id%TYPE,
810: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
811: p_package_id IN vea_program_units.program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
807: x_msg_count OUT NOCOPY NUMBER,
808: x_msg_data OUT NOCOPY VARCHAR2,
809: x_id OUT NOCOPY vea_program_units.program_unit_id%TYPE,
810: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
811: p_package_id IN vea_program_units.program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
808: x_msg_data OUT NOCOPY VARCHAR2,
809: x_id OUT NOCOPY vea_program_units.program_unit_id%TYPE,
810: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
811: p_package_id IN vea_program_units.program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
809: x_id OUT NOCOPY vea_program_units.program_unit_id%TYPE,
810: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
811: p_package_id IN vea_program_units.program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
810: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
811: p_package_id IN vea_program_units.program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
811: p_package_id IN vea_program_units.program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
819: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
812: p_program_unit_type IN vea_program_units.program_unit_type%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
819: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
820: p_description IN vea_program_units.description%TYPE,
813: p_public_flag IN vea_program_units.public_flag%TYPE,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
819: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
820: p_description IN vea_program_units.description%TYPE,
821: p_id IN vea_program_units.program_unit_id%TYPE := NULL,
814: p_customizable_flag IN vea_program_units.customizable_flag%TYPE,
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
819: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
820: p_description IN vea_program_units.description%TYPE,
821: p_id IN vea_program_units.program_unit_id%TYPE := NULL,
822: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE := NULL
815: p_tps_flag IN vea_program_units.tps_flag%TYPE,
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
819: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
820: p_description IN vea_program_units.description%TYPE,
821: p_id IN vea_program_units.program_unit_id%TYPE := NULL,
822: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE := NULL
823: )
816: p_name IN vea_program_units.name%TYPE,
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
819: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
820: p_description IN vea_program_units.description%TYPE,
821: p_id IN vea_program_units.program_unit_id%TYPE := NULL,
822: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE := NULL
823: )
824: IS
817: p_label IN vea_program_units.label%TYPE,
818: p_return_type IN vea_program_units.return_type%TYPE,
819: p_tpa_program_unit_id IN vea_program_units.tpa_program_unit_id%TYPE,
820: p_description IN vea_program_units.description%TYPE,
821: p_id IN vea_program_units.program_unit_id%TYPE := NULL,
822: p_tp_layer_id IN vea_tp_layers.tp_layer_id%TYPE := NULL
823: )
824: IS
825: --{
829: --
830: --
831: l_location VARCHAR2(32767);
832: l_savepoint_name VARCHAR2(30);
833: l_program_unit_id vea_program_units.program_unit_id%TYPE;
834: l_db_tpa_program_unit_id vea_program_units.tpa_program_unit_id%TYPE;
835: l_tpa_program_unit_id vea_program_units.tpa_program_unit_id%TYPE;
836: l_package_id vea_packages.package_id%TYPE;
837: l_tp_layer_id vea_tp_layers.tp_layer_id%TYPE;
830: --
831: l_location VARCHAR2(32767);
832: l_savepoint_name VARCHAR2(30);
833: l_program_unit_id vea_program_units.program_unit_id%TYPE;
834: l_db_tpa_program_unit_id vea_program_units.tpa_program_unit_id%TYPE;
835: l_tpa_program_unit_id vea_program_units.tpa_program_unit_id%TYPE;
836: l_package_id vea_packages.package_id%TYPE;
837: l_tp_layer_id vea_tp_layers.tp_layer_id%TYPE;
838: --
831: l_location VARCHAR2(32767);
832: l_savepoint_name VARCHAR2(30);
833: l_program_unit_id vea_program_units.program_unit_id%TYPE;
834: l_db_tpa_program_unit_id vea_program_units.tpa_program_unit_id%TYPE;
835: l_tpa_program_unit_id vea_program_units.tpa_program_unit_id%TYPE;
836: l_package_id vea_packages.package_id%TYPE;
837: l_tp_layer_id vea_tp_layers.tp_layer_id%TYPE;
838: --
839: --
838: --
839: --
840: CURSOR program_unit_cur
841: (
842: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
843: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
844: p_package_id IN vea_program_units.package_id%TYPE,
845: p_name IN vea_program_units.name%TYPE
846: )
839: --
840: CURSOR program_unit_cur
841: (
842: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
843: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
844: p_package_id IN vea_program_units.package_id%TYPE,
845: p_name IN vea_program_units.name%TYPE
846: )
847: IS
840: CURSOR program_unit_cur
841: (
842: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
843: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
844: p_package_id IN vea_program_units.package_id%TYPE,
845: p_name IN vea_program_units.name%TYPE
846: )
847: IS
848: SELECT program_unit_id, tpa_program_unit_id
841: (
842: p_layer_provider_code IN vea_program_units.layer_provider_code%TYPE,
843: p_program_unit_id IN vea_program_units.program_unit_id%TYPE,
844: p_package_id IN vea_program_units.package_id%TYPE,
845: p_name IN vea_program_units.name%TYPE
846: )
847: IS
848: SELECT program_unit_id, tpa_program_unit_id
849: FROM vea_program_units
845: p_name IN vea_program_units.name%TYPE
846: )
847: IS
848: SELECT program_unit_id, tpa_program_unit_id
849: FROM vea_program_units
850: WHERE layer_provider_code = p_layer_provider_code
851: AND package_id = p_package_id
852: AND UPPER(name) = UPPER(p_name);
853: -- Commented out this code because we no longer base our processing on the ids
991: l_location := '0120';
992: --
993: IF p_layer_provider_code = vea_tpa_util_pvt.g_current_layer_provider_code
994: THEN
995: SELECT NVL( p_id, vea_program_units_s.NEXTVAL )
996: INTO l_program_unit_id
997: FROM DUAL;
998: ELSE
999: SELECT vea_program_units_s.NEXTVAL
995: SELECT NVL( p_id, vea_program_units_s.NEXTVAL )
996: INTO l_program_unit_id
997: FROM DUAL;
998: ELSE
999: SELECT vea_program_units_s.NEXTVAL
1000: INTO l_program_unit_id
1001: FROM DUAL;
1002: END IF;
1003: --
1189: --}
1190: --}
1191: END process;
1192: --}
1193: END VEA_PROGRAM_UNITS_SV;