1: PACKAGE BODY JL_ZZ_AR_TX_EXC_CUS_PKG as
2: /* $Header: jlzztesb.pls 120.2 2003/03/03 19:28:27 opedrega ship $ */
3:
4: PROCEDURE Insert_Row
5: (X_rowid IN OUT NOCOPY VARCHAR2,
45:
46: BEGIN
47: -- Update the calling sequence
48: --
49: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.INSERT_ROW<-' ||
50: X_calling_sequence;
51:
52: debug_info := 'Insert into JL_ZZ_AR_TX_EXC_CUS';
53:
214:
215: BEGIN
216: -- Update the calling sequence
217: --
218: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.LOCK_ROW<-' ||
219: X_calling_sequence;
220: debug_info := 'Open cursor C';
221: OPEN C;
222: debug_info := 'Fetch cursor C';
429:
430: BEGIN
431: -- Update the calling sequence
432: --
433: current_calling_sequence :='JL_ZZ_AR_TX_EXC_CUS_PKG.CHECK_UNIQUE<-' ||
434: X_calling_sequence;
435: SELECT COUNT(1)
436: INTO l_dummy
437: FROM jl_zz_ar_tx_exc_cus
469:
470: BEGIN
471: -- Update the calling sequence
472: --
473: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.<-CHECK_OVERLAPPED_DATES' ||
474: X_calling_sequence;
475:
476: SELECT COUNT(1)
477: INTO l_dummy
517:
518: BEGIN
519: -- Update the calling sequence
520: --
521: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.CHECK_GAPS<-' ||
522: X_calling_sequence;
523:
524: -- Check if there is one row with it's end date exactly one day
525: -- less than the current row's start date
577: END;
578: END IF;
579: END Check_Gaps;
580:
581: END JL_ZZ_AR_TX_EXC_CUS_PKG;