DBA Data[Home] [Help]

APPS.PQH_RST_BUS dependencies on PQH_RST_SHD

Line 67: l_api_updating := pqh_rst_shd.api_updating

63: Begin
64: --
65: hr_utility.set_location('Entering:'||l_proc, 5);
66: --
67: l_api_updating := pqh_rst_shd.api_updating
68: (p_rule_set_id => p_rule_set_id,
69: p_object_version_number => p_object_version_number);
70: --
71: if (l_api_updating

Line 73: <> pqh_rst_shd.g_old_rec.rule_set_id) then

69: p_object_version_number => p_object_version_number);
70: --
71: if (l_api_updating
72: and nvl(p_rule_set_id,hr_api.g_number)
73: <> pqh_rst_shd.g_old_rec.rule_set_id) then
74: --
75: -- raise error as PK has changed
76: --
77: pqh_rst_shd.constraint_error('RULE_SETS_PK');

Line 77: pqh_rst_shd.constraint_error('RULE_SETS_PK');

73: <> pqh_rst_shd.g_old_rec.rule_set_id) then
74: --
75: -- raise error as PK has changed
76: --
77: pqh_rst_shd.constraint_error('RULE_SETS_PK');
78: --
79: elsif not l_api_updating then
80: --
81: -- check if PK is null

Line 87: pqh_rst_shd.constraint_error('RULE_SETS_PK');

83: if p_rule_set_id is not null then
84: --
85: -- raise error as PK is not null
86: --
87: pqh_rst_shd.constraint_error('RULE_SETS_PK');
88: --
89: end if;
90: --
91: end if;

Line 139: l_api_updating := pqh_rst_shd.api_updating

135: Begin
136: --
137: hr_utility.set_location('Entering:'||l_proc, 5);
138: --
139: l_api_updating := pqh_rst_shd.api_updating
140: (p_rule_set_id => p_rule_set_id,
141: p_object_version_number => p_object_version_number);
142: --
143: if (l_api_updating

Line 145: <> pqh_rst_shd.g_old_rec.rule_set_name

141: p_object_version_number => p_object_version_number);
142: --
143: if (l_api_updating
144: and nvl(p_rule_set_name,hr_api.g_varchar2)
145: <> pqh_rst_shd.g_old_rec.rule_set_name
146: OR NOT l_api_updating) then
147: --
148: -- raise error as PK has changed
149: --

Line 210: l_api_updating := pqh_rst_shd.api_updating

206: Begin
207: --
208: hr_utility.set_location('Entering:'||l_proc,5);
209: --
210: l_api_updating := pqh_rst_shd.api_updating
211: (p_rule_set_id => p_rule_set_id,
212: p_object_version_number => p_object_version_number);
213: --
214: if (l_api_updating and

Line 216: <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number)

212: p_object_version_number => p_object_version_number);
213: --
214: if (l_api_updating and
215: (nvl(p_referenced_rule_set_id,hr_api.g_number)
216: <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number)
217: or nvl(p_rule_category,hr_api.g_number)
218: <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_number))
219: or not l_api_updating) then
220: --

Line 218: <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_number))

214: if (l_api_updating and
215: (nvl(p_referenced_rule_set_id,hr_api.g_number)
216: <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number)
217: or nvl(p_rule_category,hr_api.g_number)
218: <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_number))
219: or not l_api_updating) then
220: --
221: if p_referenced_rule_set_id is not null then
222: open c1;

Line 226: pqh_rst_shd.constraint_error('PQH_RULE_SETS_FK4');

222: open c1;
223: fetch c1 into l_seeded_rule_flag,l_ref_rule_set_name,l_rule_category;
224: if c1%notfound then
225: close c1;
226: pqh_rst_shd.constraint_error('PQH_RULE_SETS_FK4');
227: else
228: close c1;
229: if l_rule_category <> p_rule_category then
230: hr_utility.set_location ('rule category does not match with reference rule',10);

Line 298: l_api_updating := pqh_rst_shd.api_updating

294: Begin
295: --
296: hr_utility.set_location('Entering:'||l_proc,5);
297: --
298: l_api_updating := pqh_rst_shd.api_updating
299: (p_rule_set_id => p_rule_set_id,
300: p_object_version_number => p_object_version_number);
301: --
302: if (l_api_updating

Line 304: <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)

300: p_object_version_number => p_object_version_number);
301: --
302: if (l_api_updating
303: and nvl(p_business_group_id,hr_api.g_number)
304: <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
305: or not l_api_updating) then
306: --
307: -- check if business_group_id exists in hr_all_organization_units table
308: --

Line 320: pqh_rst_shd.constraint_error('PQH_RULE_SETS_FK3');

316: --
317: -- raise error as FK does not relate to PK in hr_all_organization_units
318: -- table.
319: --
320: pqh_rst_shd.constraint_error('PQH_RULE_SETS_FK3');
321: --
322: end if;
323: --
324: close c1;

Line 394: l_api_updating := pqh_rst_shd.api_updating

390: Begin
391: --
392: hr_utility.set_location('Entering:'||l_proc,5);
393: --
394: l_api_updating := pqh_rst_shd.api_updating
395: (p_rule_set_id => p_rule_set_id,
396: p_object_version_number => p_object_version_number);
397: --
398: if (l_api_updating and (

Line 399: nvl(p_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)

395: (p_rule_set_id => p_rule_set_id,
396: p_object_version_number => p_object_version_number);
397: --
398: if (l_api_updating and (
399: nvl(p_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
400: or nvl(p_organization_structure_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
401: or nvl(p_business_group_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
402: or nvl(p_starting_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
403: or nvl(p_rule_category,hr_api.g_varchar2) <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)

Line 400: or nvl(p_organization_structure_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)

396: p_object_version_number => p_object_version_number);
397: --
398: if (l_api_updating and (
399: nvl(p_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
400: or nvl(p_organization_structure_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
401: or nvl(p_business_group_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
402: or nvl(p_starting_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
403: or nvl(p_rule_category,hr_api.g_varchar2) <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)
404: or nvl(p_referenced_rule_set_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number))

Line 401: or nvl(p_business_group_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)

397: --
398: if (l_api_updating and (
399: nvl(p_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
400: or nvl(p_organization_structure_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
401: or nvl(p_business_group_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
402: or nvl(p_starting_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
403: or nvl(p_rule_category,hr_api.g_varchar2) <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)
404: or nvl(p_referenced_rule_set_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number))
405: or not l_api_updating) then

Line 402: or nvl(p_starting_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)

398: if (l_api_updating and (
399: nvl(p_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
400: or nvl(p_organization_structure_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
401: or nvl(p_business_group_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
402: or nvl(p_starting_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
403: or nvl(p_rule_category,hr_api.g_varchar2) <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)
404: or nvl(p_referenced_rule_set_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number))
405: or not l_api_updating) then
406: --

Line 403: or nvl(p_rule_category,hr_api.g_varchar2) <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)

399: nvl(p_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
400: or nvl(p_organization_structure_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
401: or nvl(p_business_group_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
402: or nvl(p_starting_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
403: or nvl(p_rule_category,hr_api.g_varchar2) <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)
404: or nvl(p_referenced_rule_set_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number))
405: or not l_api_updating) then
406: --
407: -- check for duplicate rule sets

Line 404: or nvl(p_referenced_rule_set_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number))

400: or nvl(p_organization_structure_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
401: or nvl(p_business_group_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
402: or nvl(p_starting_organization_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
403: or nvl(p_rule_category,hr_api.g_varchar2) <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)
404: or nvl(p_referenced_rule_set_id,hr_api.g_number) <> nvl(pqh_rst_shd.g_old_rec.referenced_rule_set_id,hr_api.g_number))
405: or not l_api_updating) then
406: --
407: -- check for duplicate rule sets
408: --

Line 547: l_api_updating := pqh_rst_shd.api_updating

543: Begin
544: --
545: hr_utility.set_location('Entering:'||l_proc,5);
546: --
547: l_api_updating := pqh_rst_shd.api_updating
548: (p_rule_set_id => p_rule_set_id,
549: p_object_version_number => p_object_version_number);
550: --
551: -- if business group is changed or organization is changed this rule should kick in

Line 556: <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)

552: -- provided organization id is there
553: --
554: if (l_api_updating
555: and (nvl(p_business_group_id,hr_api.g_number)
556: <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
557: or nvl(p_organization_id,hr_api.g_number)
558: <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number))
559: or not l_api_updating)
560: and p_organization_id is not null then

Line 558: <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number))

554: if (l_api_updating
555: and (nvl(p_business_group_id,hr_api.g_number)
556: <> nvl(pqh_rst_shd.g_old_rec.business_group_id,hr_api.g_number)
557: or nvl(p_organization_id,hr_api.g_number)
558: <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number))
559: or not l_api_updating)
560: and p_organization_id is not null then
561: --
562: -- check if organization value exists in hr_all_organization_units table

Line 643: l_api_updating := pqh_rst_shd.api_updating

639: Begin
640: --
641: hr_utility.set_location('Entering:'||l_proc,5);
642: --
643: l_api_updating := pqh_rst_shd.api_updating
644: (p_rule_set_id => p_rule_set_id,
645: p_object_version_number => p_object_version_number);
646: --
647: if (l_api_updating

Line 649: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)

645: p_object_version_number => p_object_version_number);
646: --
647: if (l_api_updating
648: and (nvl(p_organization_structure_id,hr_api.g_number)
649: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
650: or nvl(p_organization_structure_id,hr_api.g_number)
651: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))
652: or not l_api_updating) and
653: p_organization_structure_id is not null then

Line 651: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))

647: if (l_api_updating
648: and (nvl(p_organization_structure_id,hr_api.g_number)
649: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number)
650: or nvl(p_organization_structure_id,hr_api.g_number)
651: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))
652: or not l_api_updating) and
653: p_organization_structure_id is not null then
654: --
655: -- check if organization_structure_id value exists in per_organization_structures table

Line 667: pqh_rst_shd.constraint_error('PQH_RULE_SETS_FK2');

663: --
664: -- raise error as FK does not relate to PK in per_organization_structures
665: -- table.
666: --
667: pqh_rst_shd.constraint_error('PQH_RULE_SETS_FK2');
668: --
669: end if;
670: --
671: close c1;

Line 727: l_api_updating := pqh_rst_shd.api_updating

723: Begin
724: --
725: hr_utility.set_location('Entering:'||l_proc, 5);
726: --
727: l_api_updating := pqh_rst_shd.api_updating
728: (p_rule_set_id => p_rule_set_id,
729: p_object_version_number => p_object_version_number);
730: --
731: if (l_api_updating

Line 733: <> nvl(pqh_rst_shd.g_old_rec.rule_level_cd,hr_api.g_varchar2)

729: p_object_version_number => p_object_version_number);
730: --
731: if (l_api_updating
732: and p_rule_level_cd
733: <> nvl(pqh_rst_shd.g_old_rec.rule_level_cd,hr_api.g_varchar2)
734: or not l_api_updating)
735: and p_rule_level_cd is not null then
736: --
737: -- check if value of lookup falls within lookup type.

Line 798: l_api_updating := pqh_rst_shd.api_updating

794: Begin
795: --
796: hr_utility.set_location('Entering:'||l_proc, 5);
797: --
798: l_api_updating := pqh_rst_shd.api_updating
799: (p_rule_set_id => p_rule_set_id,
800: p_object_version_number => p_object_version_number);
801: --
802: if (l_api_updating

Line 803: and (p_rule_applicability <> nvl(pqh_rst_shd.g_old_rec.rule_applicability,hr_api.g_varchar2)

799: (p_rule_set_id => p_rule_set_id,
800: p_object_version_number => p_object_version_number);
801: --
802: if (l_api_updating
803: and (p_rule_applicability <> nvl(pqh_rst_shd.g_old_rec.rule_applicability,hr_api.g_varchar2)
804: or p_rule_category <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2))
805: or not l_api_updating)
806: and p_rule_applicability is not null then
807: --

Line 804: or p_rule_category <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2))

800: p_object_version_number => p_object_version_number);
801: --
802: if (l_api_updating
803: and (p_rule_applicability <> nvl(pqh_rst_shd.g_old_rec.rule_applicability,hr_api.g_varchar2)
804: or p_rule_category <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2))
805: or not l_api_updating)
806: and p_rule_applicability is not null then
807: --
808: -- check if value of lookup falls within lookup type.

Line 884: l_api_updating := pqh_rst_shd.api_updating

880: Begin
881: --
882: hr_utility.set_location('Entering:'||l_proc, 5);
883: --
884: l_api_updating := pqh_rst_shd.api_updating
885: (p_rule_set_id => p_rule_set_id,
886: p_object_version_number => p_object_version_number);
887: --
888: if (l_api_updating

Line 890: <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)

886: p_object_version_number => p_object_version_number);
887: --
888: if (l_api_updating
889: and p_rule_category
890: <> nvl(pqh_rst_shd.g_old_rec.rule_category,hr_api.g_varchar2)
891: or not l_api_updating)
892: and p_rule_category is not null then
893: --
894: -- check if value of lookup falls within lookup type.

Line 973: l_api_updating := pqh_rst_shd.api_updating

969: Begin
970: --
971: hr_utility.set_location('Entering:'||l_proc, 5);
972: --
973: l_api_updating := pqh_rst_shd.api_updating
974: (p_rule_set_id => p_rule_set_id,
975: p_object_version_number => p_object_version_number);
976: --
977: if (l_api_updating

Line 979: <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)

975: p_object_version_number => p_object_version_number);
976: --
977: if (l_api_updating
978: and ( nvl(p_starting_organization_id,hr_api.g_number)
979: <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
980: or nvl(p_organization_structure_id,hr_api.g_number)
981: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))
982: or not l_api_updating) then
983: --

Line 981: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))

977: if (l_api_updating
978: and ( nvl(p_starting_organization_id,hr_api.g_number)
979: <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
980: or nvl(p_organization_structure_id,hr_api.g_number)
981: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))
982: or not l_api_updating) then
983: --
984: If p_organization_structure_id IS NOT NULL then
985: --

Line 1026: l_api_updating := pqh_rst_shd.api_updating

1022: Begin
1023: --
1024: hr_utility.set_location('Entering:'||l_proc, 5);
1025: --
1026: l_api_updating := pqh_rst_shd.api_updating
1027: (p_rule_set_id => p_rule_set_id,
1028: p_object_version_number => p_object_version_number);
1029: --
1030: if (l_api_updating

Line 1032: <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)

1028: p_object_version_number => p_object_version_number);
1029: --
1030: if (l_api_updating
1031: and ( nvl(p_starting_organization_id,hr_api.g_number)
1032: <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
1033: or nvl(p_organization_id,hr_api.g_number)
1034: <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
1035: or nvl(p_organization_structure_id,hr_api.g_number)
1036: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))

Line 1034: <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)

1030: if (l_api_updating
1031: and ( nvl(p_starting_organization_id,hr_api.g_number)
1032: <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
1033: or nvl(p_organization_id,hr_api.g_number)
1034: <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
1035: or nvl(p_organization_structure_id,hr_api.g_number)
1036: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))
1037: or not l_api_updating) then
1038: --

Line 1036: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))

1032: <> nvl(pqh_rst_shd.g_old_rec.starting_organization_id,hr_api.g_number)
1033: or nvl(p_organization_id,hr_api.g_number)
1034: <> nvl(pqh_rst_shd.g_old_rec.organization_id,hr_api.g_number)
1035: or nvl(p_organization_structure_id,hr_api.g_number)
1036: <> nvl(pqh_rst_shd.g_old_rec.organization_structure_id,hr_api.g_number))
1037: or not l_api_updating) then
1038: --
1039: if p_organization_structure_id is not null and p_organization_id is not null then
1040: hr_utility.set_location('org hier entered, org must be null',20);

Line 1084: Procedure insert_validate(p_rec in pqh_rst_shd.g_rec_type

1080: --
1081: -- ----------------------------------------------------------------------------
1082: -- |---------------------------< insert_validate >----------------------------|
1083: -- ----------------------------------------------------------------------------
1084: Procedure insert_validate(p_rec in pqh_rst_shd.g_rec_type
1085: ,p_effective_date in date) is
1086: --
1087: l_proc varchar2(72) := g_package||'insert_validate';
1088: --

Line 1190: Procedure update_validate(p_rec in pqh_rst_shd.g_rec_type

1186: --
1187: -- ----------------------------------------------------------------------------
1188: -- |---------------------------< update_validate >----------------------------|
1189: -- ----------------------------------------------------------------------------
1190: Procedure update_validate(p_rec in pqh_rst_shd.g_rec_type
1191: ,p_effective_date in date) is
1192: --
1193: l_proc varchar2(72) := g_package||'update_validate';
1194: --

Line 1296: Procedure delete_validate(p_rec in pqh_rst_shd.g_rec_type

1292: --
1293: -- ----------------------------------------------------------------------------
1294: -- |---------------------------< delete_validate >----------------------------|
1295: -- ----------------------------------------------------------------------------
1296: Procedure delete_validate(p_rec in pqh_rst_shd.g_rec_type
1297: ,p_effective_date in date) is
1298: --
1299: l_proc varchar2(72) := g_package||'delete_validate';
1300: --