1: PACKAGE BODY JL_ZZ_AR_TX_LOCN_PKG as
2: /* $Header: jlzztxlb.pls 120.2 2003/03/03 19:40:23 opedrega ship $ */
3:
4: PROCEDURE Insert_Row
5: (X_rowid IN OUT NOCOPY VARCHAR2,
50:
51: BEGIN
52: -- Update the calling sequence
53: --
54: current_calling_sequence := 'JL_ZZ_AR_TX_LOCN_PKG.INSERT_ROW<-' ||
55: X_calling_sequence;
56:
57: debug_info := 'Insert into JL_ZZ_AR_TX_LOCN ';
58: INSERT INTO JL_ZZ_AR_TX_LOCN (locn_id,
202:
203: BEGIN
204: -- Update the calling sequence
205: --
206: current_calling_sequence := 'JL_ZZ_AR_TX_LOCN_PKG.LOCK_ROW<-' ||
207: X_calling_sequence;
208: debug_info := 'Open cursor C';
209: OPEN C;
210: debug_info := 'Fetch cursor C';
423:
424: BEGIN
425: -- Update the calling sequence
426: --
427: current_calling_sequence := 'JL_ZZ_AR_TX_LOCN_PKG.CHECK_UNIQUE<-' ||
428: X_calling_sequence;
429: SELECT COUNT(1)
430: INTO l_dummy
431: FROM jl_zz_ar_TX_LOCN
466:
467: BEGIN
468: -- Update the calling sequence
469: --
470: current_calling_sequence := 'JL_ZZ_AR_TX_LOCN_PKG.<-CHECK_OVERLAPPED_DATES' ||
471: X_calling_sequence;
472: SELECT COUNT(1)
473: INTO l_dummy
474: FROM JL_ZZ_AR_TX_LOCN A
516:
517: BEGIN
518: -- Update the calling sequence
519: --
520: current_calling_sequence := 'JL_ZZ_AR_TX_LOCN_PKG.CHECK_GAPS<-' ||
521: X_calling_sequence;
522: SELECT COUNT(1)
523: INTO l_dummy
524: FROM jl_zz_ar_TX_LOCN a
576: END;
577: END IF;
578: END Check_Gaps;
579:
580: END JL_ZZ_AR_TX_LOCN_PKG;