1: PACKAGE BODY JL_ZZ_AR_TX_EXC_FSC_PKG as
2: /* $Header: jlzztefb.pls 120.3 2003/09/02 21:59:04 opedrega ship $ */
3:
4: PROCEDURE Insert_Row
5: (X_rowid IN OUT NOCOPY VARCHAR2,
51:
52: BEGIN
53: -- Update the calling sequence
54: --
55: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_FSC_PKG.INSERT_ROW<-' ||
56: X_calling_sequence;
57:
58: debug_info := 'Insert into JL_ZZ_AR_TX_EXC_FSC ';
59: INSERT INTO jl_zz_ar_tx_exc_fsc(exc_fsc_id,
238:
239: BEGIN
240: -- Update the calling sequence
241: --
242: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_FSC_PKG.LOCK_ROW<-' ||
243: X_calling_sequence;
244:
245: debug_info := 'Open cursor C';
246: OPEN C;
463:
464: BEGIN
465: -- Update the calling sequence
466: --
467: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_FSC_PKG.CHECK_UNIQUE<-' ||
468: X_calling_sequence;
469: SELECT COUNT(1)
470: INTO l_dummy
471: FROM jl_zz_ar_tx_exc_fsc
509:
510: BEGIN
511: -- Update the calling sequence
512: --
513: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_FSC_PKG.<-CHECK_OVERLAPPED_DATES' ||
514: X_calling_sequence;
515: SELECT COUNT(1)
516: INTO l_dummy
517: FROM jl_zz_ar_tx_exc_fsc a
562:
563: BEGIN
564: -- Update the calling sequence
565: --
566: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_FSC_PKG.CHECK_GAPS<-' ||
567: X_calling_sequence;
568: --
569: -- Check if there is one row with it's end date exactly one day
570: -- less than the current row's start date
630: END;
631: END IF;
632: END Check_Gaps;
633:
634: END JL_ZZ_AR_TX_EXC_FSC_PKG;