[Home] [Help]
44: Begin
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: --
48: l_api_updating := ben_ccm_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
51: p_object_version_number => p_object_version_number);
52: --
51: p_object_version_number => p_object_version_number);
52: --
53: if (l_api_updating
54: and nvl(p_cvg_amt_calc_mthd_id,hr_api.g_number)
55: <> ben_ccm_shd.g_old_rec.cvg_amt_calc_mthd_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_ccm_shd.constraint_error('BEN_CVG_AMT_CALC_MTHD_PK');
55: <> ben_ccm_shd.g_old_rec.cvg_amt_calc_mthd_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_ccm_shd.constraint_error('BEN_CVG_AMT_CALC_MTHD_PK');
60: --
61: elsif not l_api_updating then
62: --
63: -- check if PK is null
65: if p_cvg_amt_calc_mthd_id is not null then
66: --
67: -- raise error as PK is not null
68: --
69: ben_ccm_shd.constraint_error('BEN_CVG_AMT_CALC_MTHD_PK');
70: --
71: end if;
72: --
73: end if;
302: Begin
303: --
304: hr_utility.set_location('Entering:'||l_proc,5);
305: --
306: l_api_updating := ben_ccm_shd.api_updating
307: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
308: p_effective_date => p_effective_date,
309: p_object_version_number => p_object_version_number);
310: --
309: p_object_version_number => p_object_version_number);
310: --
311: if (l_api_updating
312: and nvl(p_comp_lvl_fctr_id,hr_api.g_number)
313: <> nvl(ben_ccm_shd.g_old_rec.comp_lvl_fctr_id,hr_api.g_number)
314: or not l_api_updating) and
315: p_comp_lvl_fctr_id is not null then
316: --
317: -- check if comp_lvl_fctr_id value exists in ben_comp_lvl_fctr table
325: --
326: -- raise error as FK does not relate to PK in ben_comp_lvl_fctr
327: -- table.
328: --
329: ben_ccm_shd.constraint_error('BEN_CVG_AMT_CALC_MTHD_FK2');
330: --
331: end if;
332: --
333: close c1;
442: Begin
443: --
444: hr_utility.set_location('Entering:'||l_proc, 5);
445: --
446: l_api_updating := ben_ccm_shd.api_updating
447: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
448: p_effective_date => p_effective_date,
449: p_object_version_number => p_object_version_number);
450: --
449: p_object_version_number => p_object_version_number);
450: --
451: if (l_api_updating
452: and p_rt_typ_cd
453: <> nvl(ben_ccm_shd.g_old_rec.rt_typ_cd,hr_api.g_varchar2)
454: or not l_api_updating)
455: and p_rt_typ_cd is not null then
456: --
457: -- check if value of lookup falls within lookup type.
511: Begin
512: --
513: hr_utility.set_location('Entering:'||l_proc, 5);
514: --
515: l_api_updating := ben_ccm_shd.api_updating
516: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
517: p_effective_date => p_effective_date,
518: p_object_version_number => p_object_version_number);
519: --
518: p_object_version_number => p_object_version_number);
519: --
520: if (l_api_updating
521: and p_entr_val_at_enrt_flag
522: <> nvl(ben_ccm_shd.g_old_rec.entr_val_at_enrt_flag,hr_api.g_varchar2)
523: or not l_api_updating) then
524: --
525: -- check if value of lookup falls within lookup type.
526: --
580: Begin
581: --
582: hr_utility.set_location('Entering:'||l_proc, 5);
583: --
584: l_api_updating := ben_ccm_shd.api_updating
585: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
586: p_effective_date => p_effective_date,
587: p_object_version_number => p_object_version_number);
588: --
587: p_object_version_number => p_object_version_number);
588: --
589: if (l_api_updating
590: and p_dflt_flag
591: <> nvl(ben_ccm_shd.g_old_rec.dflt_flag,hr_api.g_varchar2)
592: or not l_api_updating) then
593: --
594: -- check if value of lookup falls within lookup type.
595: --
649: Begin
650: --
651: hr_utility.set_location('Entering:'||l_proc, 5);
652: --
653: l_api_updating := ben_ccm_shd.api_updating
654: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
655: p_effective_date => p_effective_date,
656: p_object_version_number => p_object_version_number);
657: --
656: p_object_version_number => p_object_version_number);
657: --
658: if (l_api_updating
659: and p_cvg_mlt_cd
660: <> nvl(ben_ccm_shd.g_old_rec.cvg_mlt_cd,hr_api.g_varchar2)
661: or not l_api_updating)
662: and p_cvg_mlt_cd is not null then
663: --
664: -- check if value of lookup falls within lookup type.
718: Begin
719: --
720: hr_utility.set_location('Entering:'||l_proc, 5);
721: --
722: l_api_updating := ben_ccm_shd.api_updating
723: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
724: p_effective_date => p_effective_date,
725: p_object_version_number => p_object_version_number);
726: --
725: p_object_version_number => p_object_version_number);
726: --
727: if (l_api_updating
728: and p_bnft_typ_cd
729: <> nvl(ben_ccm_shd.g_old_rec.bnft_typ_cd,hr_api.g_varchar2)
730: or not l_api_updating)
731: and p_bnft_typ_cd is not null then
732: --
733: -- check if value of lookup falls within lookup type.
787: Begin
788: --
789: hr_utility.set_location('Entering:'||l_proc, 5);
790: --
791: l_api_updating := ben_ccm_shd.api_updating
792: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
793: p_effective_date => p_effective_date,
794: p_object_version_number => p_object_version_number);
795: --
794: p_object_version_number => p_object_version_number);
795: --
796: if (l_api_updating
797: and p_bndry_perd_cd
798: <> nvl(ben_ccm_shd.g_old_rec.bndry_perd_cd,hr_api.g_varchar2)
799: or not l_api_updating)
800: and p_bndry_perd_cd is not null then
801: --
802: -- check if value of lookup falls within lookup type.
856: Begin
857: --
858: hr_utility.set_location('Entering:'||l_proc, 5);
859: --
860: l_api_updating := ben_ccm_shd.api_updating
861: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
862: p_effective_date => p_effective_date,
863: p_object_version_number => p_object_version_number);
864: --
863: p_object_version_number => p_object_version_number);
864: --
865: if (l_api_updating
866: and p_nnmntry_uom
867: <> nvl(ben_ccm_shd.g_old_rec.nnmntry_uom,hr_api.g_varchar2)
868: or not l_api_updating)
869: and p_nnmntry_uom is not null then
870: --
871: -- check if value of lookup falls within lookup type.
942: Begin
943: --
944: hr_utility.set_location('Entering:'||l_proc, 5);
945: --
946: l_api_updating := ben_ccm_shd.api_updating
947: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
948: p_effective_date => p_effective_date,
949: p_object_version_number => p_object_version_number);
950: --
949: p_object_version_number => p_object_version_number);
950: --
951: if (l_api_updating
952: and nvl(p_val_calc_rl,hr_api.g_number)
953: <> ben_ccm_shd.g_old_rec.val_calc_rl
954: or not l_api_updating)
955: and p_val_calc_rl is not null then
956: --
957: -- check if value of formula rule is valid.
1020: Begin
1021: --
1022: hr_utility.set_location('Entering:'||l_proc, 5);
1023: --
1024: l_api_updating := ben_ccm_shd.api_updating
1025: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1026: p_effective_date => p_effective_date,
1027: p_object_version_number => p_object_version_number);
1028: --
1027: p_object_version_number => p_object_version_number);
1028: --
1029: if (l_api_updating
1030: and p_val_ovrid_alwd_flag
1031: <> nvl(ben_ccm_shd.g_old_rec.val_ovrid_alwd_flag,hr_api.g_varchar2)
1032: or not l_api_updating) then
1033: --
1034: -- check if value of lookup falls within lookup type.
1035: --
1106: Begin
1107: --
1108: hr_utility.set_location('Entering:'||l_proc, 5);
1109: --
1110: l_api_updating := ben_ccm_shd.api_updating
1111: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1112: p_effective_date => p_effective_date,
1113: p_object_version_number => p_object_version_number);
1114: --
1113: p_object_version_number => p_object_version_number);
1114: --
1115: if (l_api_updating
1116: and nvl(p_rndg_rl,hr_api.g_number)
1117: <> ben_ccm_shd.g_old_rec.rndg_rl
1118: or not l_api_updating)
1119: and p_rndg_rl is not null then
1120: --
1121: -- check if value of formula rule is valid.
1199: Begin
1200: --
1201: hr_utility.set_location('Entering:'||l_proc, 5);
1202: --
1203: l_api_updating := ben_ccm_shd.api_updating
1204: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1205: p_effective_date => p_effective_date,
1206: p_object_version_number => p_object_version_number);
1207: --
1206: p_object_version_number => p_object_version_number);
1207: --
1208: if (l_api_updating
1209: and nvl(p_lwr_lmt_calc_rl,hr_api.g_number)
1210: <> ben_ccm_shd.g_old_rec.lwr_lmt_calc_rl
1211: or not l_api_updating)
1212: and p_lwr_lmt_calc_rl is not null then
1213: --
1214: -- check if value of formula rule is valid.
1292: Begin
1293: --
1294: hr_utility.set_location('Entering:'||l_proc, 5);
1295: --
1296: l_api_updating := ben_ccm_shd.api_updating
1297: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1298: p_effective_date => p_effective_date,
1299: p_object_version_number => p_object_version_number);
1300: --
1299: p_object_version_number => p_object_version_number);
1300: --
1301: if (l_api_updating
1302: and nvl(p_upr_lmt_calc_rl,hr_api.g_number)
1303: <> ben_ccm_shd.g_old_rec.upr_lmt_calc_rl
1304: or not l_api_updating)
1305: and p_upr_lmt_calc_rl is not null then
1306: --
1307: -- check if value of formula rule is valid.
1368: Begin
1369: --
1370: hr_utility.set_location('Entering:'||l_proc, 5);
1371: --
1372: l_api_updating := ben_ccm_shd.api_updating
1373: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1374: p_effective_date => p_effective_date,
1375: p_object_version_number => p_object_version_number);
1376: --
1375: p_object_version_number => p_object_version_number);
1376: --
1377: if (l_api_updating
1378: and p_rndg_cd
1379: <> nvl(ben_ccm_shd.g_old_rec.rndg_cd,hr_api.g_varchar2)
1380: or not l_api_updating)
1381: and p_rndg_cd is not null then
1382: --
1383: -- check if value of lookup falls within lookup type.
1437: Begin
1438: --
1439: hr_utility.set_location('Entering:'||l_proc, 5);
1440: --
1441: l_api_updating := ben_ccm_shd.api_updating
1442: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1443: p_effective_date => p_effective_date,
1444: p_object_version_number => p_object_version_number);
1445: --
1444: p_object_version_number => p_object_version_number);
1445: --
1446: if (l_api_updating
1447: and p_no_mn_val_dfnd_flag
1448: <> nvl(ben_ccm_shd.g_old_rec.no_mn_val_dfnd_flag,hr_api.g_varchar2)
1449: or not l_api_updating) then
1450: --
1451: -- check if value of lookup falls within lookup type.
1452: --
1506: Begin
1507: --
1508: hr_utility.set_location('Entering:'||l_proc, 5);
1509: --
1510: l_api_updating := ben_ccm_shd.api_updating
1511: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1512: p_effective_date => p_effective_date,
1513: p_object_version_number => p_object_version_number);
1514: --
1513: p_object_version_number => p_object_version_number);
1514: --
1515: if (l_api_updating
1516: and p_no_mx_val_dfnd_flag
1517: <> nvl(ben_ccm_shd.g_old_rec.no_mx_val_dfnd_flag,hr_api.g_varchar2)
1518: or not l_api_updating) then
1519: --
1520: -- check if value of lookup falls within lookup type.
1521: --
1690: --Begin
1691: --
1692: -- hr_utility.set_location('Entering:'||l_proc, 5);
1693: --
1694: -- l_api_updating := ben_ccm_shd.api_updating
1695: -- (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
1696: -- p_effective_date => p_effective_date,
1697: -- p_object_version_number => p_object_version_number);
1698: --
1697: -- p_object_version_number => p_object_version_number);
1698: --
1699: -- if (l_api_updating
1700: -- and p_cvg_det_cd
1701: -- <> nvl(ben_ccm_shd.g_old_rec.cvg_det_cd,hr_api.g_varchar2)
1702: -- or not l_api_updating)
1703: -- and p_cvg_det_cd is not null then
1704: --
1705: -- check if value of lookup falls within lookup type.
2299: Begin
2300: --
2301: hr_utility.set_location('Entering:'||l_proc, 5);
2302: --
2303: l_api_updating := ben_ccm_shd.api_updating
2304: (p_cvg_amt_calc_mthd_id => p_cvg_amt_calc_mthd_id,
2305: p_effective_date => p_effective_date,
2306: p_object_version_number => p_object_version_number);
2307: --
2307: --
2308: if (l_api_updating
2309: and
2310: (nvl(p_cvg_mlt_cd,hr_api.g_varchar2)
2311: <> nvl(ben_ccm_shd.g_old_rec.cvg_mlt_cd,hr_api.g_varchar2) or
2312: nvl(p_val,hr_api.g_number)
2313: <> nvl(ben_ccm_shd.g_old_rec.val,hr_api.g_number) or
2314: nvl(p_mn_val,hr_api.g_number)
2315: <> nvl(ben_ccm_shd.g_old_rec.mn_val,hr_api.g_number) or
2309: and
2310: (nvl(p_cvg_mlt_cd,hr_api.g_varchar2)
2311: <> nvl(ben_ccm_shd.g_old_rec.cvg_mlt_cd,hr_api.g_varchar2) or
2312: nvl(p_val,hr_api.g_number)
2313: <> nvl(ben_ccm_shd.g_old_rec.val,hr_api.g_number) or
2314: nvl(p_mn_val,hr_api.g_number)
2315: <> nvl(ben_ccm_shd.g_old_rec.mn_val,hr_api.g_number) or
2316: nvl(p_mx_val,hr_api.g_number)
2317: <> nvl(ben_ccm_shd.g_old_rec.mx_val,hr_api.g_number) or
2311: <> nvl(ben_ccm_shd.g_old_rec.cvg_mlt_cd,hr_api.g_varchar2) or
2312: nvl(p_val,hr_api.g_number)
2313: <> nvl(ben_ccm_shd.g_old_rec.val,hr_api.g_number) or
2314: nvl(p_mn_val,hr_api.g_number)
2315: <> nvl(ben_ccm_shd.g_old_rec.mn_val,hr_api.g_number) or
2316: nvl(p_mx_val,hr_api.g_number)
2317: <> nvl(ben_ccm_shd.g_old_rec.mx_val,hr_api.g_number) or
2318: nvl(p_incrmt_val,hr_api.g_number)
2319: <> nvl(ben_ccm_shd.g_old_rec.incrmt_val,hr_api.g_number) or
2313: <> nvl(ben_ccm_shd.g_old_rec.val,hr_api.g_number) or
2314: nvl(p_mn_val,hr_api.g_number)
2315: <> nvl(ben_ccm_shd.g_old_rec.mn_val,hr_api.g_number) or
2316: nvl(p_mx_val,hr_api.g_number)
2317: <> nvl(ben_ccm_shd.g_old_rec.mx_val,hr_api.g_number) or
2318: nvl(p_incrmt_val,hr_api.g_number)
2319: <> nvl(ben_ccm_shd.g_old_rec.incrmt_val,hr_api.g_number) or
2320: nvl(p_dflt_val,hr_api.g_number)
2321: <> nvl(ben_ccm_shd.g_old_rec.dflt_val,hr_api.g_number) or
2315: <> nvl(ben_ccm_shd.g_old_rec.mn_val,hr_api.g_number) or
2316: nvl(p_mx_val,hr_api.g_number)
2317: <> nvl(ben_ccm_shd.g_old_rec.mx_val,hr_api.g_number) or
2318: nvl(p_incrmt_val,hr_api.g_number)
2319: <> nvl(ben_ccm_shd.g_old_rec.incrmt_val,hr_api.g_number) or
2320: nvl(p_dflt_val,hr_api.g_number)
2321: <> nvl(ben_ccm_shd.g_old_rec.dflt_val,hr_api.g_number) or
2322: nvl(p_rt_typ_cd,hr_api.g_varchar2)
2323: <> nvl(ben_ccm_shd.g_old_rec.rt_typ_cd,hr_api.g_varchar2) or
2317: <> nvl(ben_ccm_shd.g_old_rec.mx_val,hr_api.g_number) or
2318: nvl(p_incrmt_val,hr_api.g_number)
2319: <> nvl(ben_ccm_shd.g_old_rec.incrmt_val,hr_api.g_number) or
2320: nvl(p_dflt_val,hr_api.g_number)
2321: <> nvl(ben_ccm_shd.g_old_rec.dflt_val,hr_api.g_number) or
2322: nvl(p_rt_typ_cd,hr_api.g_varchar2)
2323: <> nvl(ben_ccm_shd.g_old_rec.rt_typ_cd,hr_api.g_varchar2) or
2324: nvl(p_val_calc_rl,hr_api.g_number)
2325: <> nvl(ben_ccm_shd.g_old_rec.val_calc_rl,hr_api.g_number) or
2319: <> nvl(ben_ccm_shd.g_old_rec.incrmt_val,hr_api.g_number) or
2320: nvl(p_dflt_val,hr_api.g_number)
2321: <> nvl(ben_ccm_shd.g_old_rec.dflt_val,hr_api.g_number) or
2322: nvl(p_rt_typ_cd,hr_api.g_varchar2)
2323: <> nvl(ben_ccm_shd.g_old_rec.rt_typ_cd,hr_api.g_varchar2) or
2324: nvl(p_val_calc_rl,hr_api.g_number)
2325: <> nvl(ben_ccm_shd.g_old_rec.val_calc_rl,hr_api.g_number) or
2326: nvl(p_comp_lvl_fctr_id,hr_api.g_number)
2327: <> nvl(ben_ccm_shd.g_old_rec.comp_lvl_fctr_id,hr_api.g_number) or
2321: <> nvl(ben_ccm_shd.g_old_rec.dflt_val,hr_api.g_number) or
2322: nvl(p_rt_typ_cd,hr_api.g_varchar2)
2323: <> nvl(ben_ccm_shd.g_old_rec.rt_typ_cd,hr_api.g_varchar2) or
2324: nvl(p_val_calc_rl,hr_api.g_number)
2325: <> nvl(ben_ccm_shd.g_old_rec.val_calc_rl,hr_api.g_number) or
2326: nvl(p_comp_lvl_fctr_id,hr_api.g_number)
2327: <> nvl(ben_ccm_shd.g_old_rec.comp_lvl_fctr_id,hr_api.g_number) or
2328: nvl(p_entr_val_at_enrt_flag,hr_api.g_varchar2)
2329: <> nvl(ben_ccm_shd.g_old_rec.entr_val_at_enrt_flag,hr_api.g_varchar2)
2323: <> nvl(ben_ccm_shd.g_old_rec.rt_typ_cd,hr_api.g_varchar2) or
2324: nvl(p_val_calc_rl,hr_api.g_number)
2325: <> nvl(ben_ccm_shd.g_old_rec.val_calc_rl,hr_api.g_number) or
2326: nvl(p_comp_lvl_fctr_id,hr_api.g_number)
2327: <> nvl(ben_ccm_shd.g_old_rec.comp_lvl_fctr_id,hr_api.g_number) or
2328: nvl(p_entr_val_at_enrt_flag,hr_api.g_varchar2)
2329: <> nvl(ben_ccm_shd.g_old_rec.entr_val_at_enrt_flag,hr_api.g_varchar2)
2330: )
2331: or
2325: <> nvl(ben_ccm_shd.g_old_rec.val_calc_rl,hr_api.g_number) or
2326: nvl(p_comp_lvl_fctr_id,hr_api.g_number)
2327: <> nvl(ben_ccm_shd.g_old_rec.comp_lvl_fctr_id,hr_api.g_number) or
2328: nvl(p_entr_val_at_enrt_flag,hr_api.g_varchar2)
2329: <> nvl(ben_ccm_shd.g_old_rec.entr_val_at_enrt_flag,hr_api.g_varchar2)
2330: )
2331: or
2332: not l_api_updating)
2333: then
2582: -- ----------------------------------------------------------------------------
2583: -- |---------------------------< insert_validate >----------------------------|
2584: -- ----------------------------------------------------------------------------
2585: Procedure insert_validate
2586: (p_rec in ben_ccm_shd.g_rec_type,
2587: p_effective_date in date,
2588: p_datetrack_mode in varchar2,
2589: p_validation_start_date in date,
2590: p_validation_end_date in date) is
2780: -- ----------------------------------------------------------------------------
2781: -- |---------------------------< update_validate >----------------------------|
2782: -- ----------------------------------------------------------------------------
2783: Procedure update_validate
2784: (p_rec in ben_ccm_shd.g_rec_type,
2785: p_effective_date in date,
2786: p_datetrack_mode in varchar2,
2787: p_validation_start_date in date,
2788: p_validation_end_date in date) is
2987: -- ----------------------------------------------------------------------------
2988: -- |---------------------------< delete_validate >----------------------------|
2989: -- ----------------------------------------------------------------------------
2990: Procedure delete_validate
2991: (p_rec in ben_ccm_shd.g_rec_type,
2992: p_effective_date in date,
2993: p_datetrack_mode in varchar2,
2994: p_validation_start_date in date,
2995: p_validation_end_date in date) is
3009: --
3010: chk_pen_rows_exist
3011: ( p_cvg_amt_calc_mthd_id => p_rec.cvg_amt_calc_mthd_id,
3012: p_effective_date => p_effective_date,
3013: p_pl_id => ben_ccm_shd.g_old_rec.pl_id,
3014: p_oipl_id => ben_ccm_shd.g_old_rec.oipl_id,
3015: p_business_group_id => ben_ccm_shd.g_old_rec.business_group_id,
3016: p_datetrack_mode => p_datetrack_mode );
3017: --
3010: chk_pen_rows_exist
3011: ( p_cvg_amt_calc_mthd_id => p_rec.cvg_amt_calc_mthd_id,
3012: p_effective_date => p_effective_date,
3013: p_pl_id => ben_ccm_shd.g_old_rec.pl_id,
3014: p_oipl_id => ben_ccm_shd.g_old_rec.oipl_id,
3015: p_business_group_id => ben_ccm_shd.g_old_rec.business_group_id,
3016: p_datetrack_mode => p_datetrack_mode );
3017: --
3018: hr_utility.set_location(' Leaving:'||l_proc, 10);
3011: ( p_cvg_amt_calc_mthd_id => p_rec.cvg_amt_calc_mthd_id,
3012: p_effective_date => p_effective_date,
3013: p_pl_id => ben_ccm_shd.g_old_rec.pl_id,
3014: p_oipl_id => ben_ccm_shd.g_old_rec.oipl_id,
3015: p_business_group_id => ben_ccm_shd.g_old_rec.business_group_id,
3016: p_datetrack_mode => p_datetrack_mode );
3017: --
3018: hr_utility.set_location(' Leaving:'||l_proc, 10);
3019: End delete_validate;