1: PACKAGE BODY JL_ZZ_AR_TX_SCHEDULES_PKG AS
2: /* $Header: jlzztscb.pls 120.5 2005/03/31 22:34:13 nipatel ship $ */
3:
4: PROCEDURE Insert_Row
5: (X_rowid IN OUT NOCOPY VARCHAR2,
46:
47: BEGIN
48: -- Update the calling sequence
49: --
50: current_calling_sequence := 'JL_ZZ_AR_TX_SCHEDULES_PKG.INSERT_ROW<-' ||
51: X_calling_sequence;
52:
53: debug_info := 'Insert into JL_ZZ_AR_TX_SCHEDULES ';
54: INSERT INTO jl_zz_ar_tx_schedules (tax_categ_slab_id,
214:
215: BEGIN
216: -- Update the calling sequence
217: --
218: current_calling_sequence := 'JL_ZZ_AR_TX_SCHEDULES_PKG.LOCK_ROW<-' ||
219: X_calling_sequence;
220: debug_info := 'Open cursor C';
221: OPEN C;
222: debug_info := 'Fetch cursor C';
371:
372: BEGIN
373: --Update the calling sequence
374: --
375: current_calling_sequence := 'JL_ZZ_AR_TX_SCHEDULES_PKG.UPDATE_ROW<-' ||
376: X_calling_sequence;
377: debug_info := 'Update JL_ZZ_AR_TX_SCHEDULES';
378:
379: UPDATE jl_zz_ar_tx_schedules
482:
483: BEGIN
484: -- Update the calling sequence
485: --
486: current_calling_sequence :=' JL_ZZ_AR_TX_SCHEDULES_PKG.<-CHECK_OVERLAPPED_DATES' ||
487: X_calling_sequence;
488: SELECT COUNT(1)
489: INTO l_dummy
490: FROM jl_zz_ar_tx_schedules a
528:
529: BEGIN
530: -- Update the calling sequence
531: --
532: current_calling_sequence := 'JL_ZZ_AR_TX_SCHEDULES_PKG.CHECK_GAPS<-' ||
533: X_calling_sequence;
534: --
535: -- Check if there is one row with it's end date exactly one day
536: -- less than the current row's start date
586: END;
587: END IF;
588: END Check_Gaps;
589:
590: END JL_ZZ_AR_TX_SCHEDULES_PKG;