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,
37: X_calling_sequence IN VARCHAR2) IS
38:
39: CURSOR C IS
40: SELECT rowid
41: FROM jl_zz_ar_tx_exc_fsc
42: WHERE ship_from_code = X_ship_from_code
43: AND ship_to_segment_id = X_ship_to_segment_id
44: AND fiscal_classification_code = X_fiscal_classification_code
45: AND tax_category_id = X_tax_category_id
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,
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,
60: ship_from_code,
61: ship_to_segment_id,
62: fiscal_classification_code,
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,
60: ship_from_code,
61: ship_to_segment_id,
62: fiscal_classification_code,
63: tax_category_id,
215: ATTRIBUTE12,
216: ATTRIBUTE13,
217: ATTRIBUTE14,
218: ATTRIBUTE15
219: FROM jl_zz_ar_tx_exc_fsc
220: WHERE ship_from_code = X_ship_from_code
221: AND ship_to_segment_id = X_ship_to_segment_id
222: AND fiscal_classification_code = X_fiscal_classification_code
223: AND tax_category_id = X_tax_category_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;
394: X_attribute15 VARCHAR2,
395: X_calling_sequence IN VARCHAR2) IS
396:
397: BEGIN
398: UPDATE jl_zz_ar_tx_exc_fsc
399: SET ship_from_code = X_ship_from_code,
400: ship_to_segment_id = X_ship_to_segment_id,
401: fiscal_classification_code = X_fiscal_classification_code,
402: tax_category_id = X_tax_category_id,
437: (X_rowid VARCHAR2) IS
438:
439: BEGIN
440: DELETE
441: FROM jl_zz_ar_tx_exc_fsc
442: WHERE rowid = X_rowid;
443:
444: IF (SQL%NOTFOUND)
445: THEN
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
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
472: WHERE ship_from_code = X_ship_from_code
473: AND ship_to_segment_id = X_ship_to_segment_id
474: AND fiscal_classification_code = X_fiscal_classification_code
475: AND tax_category_id = X_tax_category_id
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
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
518: WHERE a.ship_from_code = X_ship_from_code
519: AND a.ship_to_segment_id = X_ship_to_segment_id
520: AND a.fiscal_classification_code = X_fiscal_classification_code
521: AND a.tax_category_id = X_tax_category_id
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
570: -- less than the current row's start date
571: --
572: SELECT COUNT(1)
573: INTO l_dummy
574: FROM jl_zz_ar_tx_exc_fsc a
575: WHERE a.ship_from_code = X_ship_from_code
576: AND a.ship_to_segment_id = X_ship_to_segment_id
577: AND a.fiscal_classification_code = X_fiscal_classification_code
578: AND a.tax_category_id = X_tax_category_id
587: -- the current row's end-date
588: --
589: SELECT COUNT(1)
590: INTO l_dummy1
591: FROM jl_zz_ar_tx_exc_fsc a
592: WHERE a.ship_from_code = X_ship_from_code
593: AND a.ship_to_segment_id = X_ship_to_segment_id
594: AND a.fiscal_classification_code = X_fiscal_classification_code
595: AND a.tax_category_id = X_tax_category_id
603: IF (l_dummy1 = 0) THEN
604: BEGIN
605: SELECT COUNT(1)
606: INTO l_dummy2
607: FROM jl_zz_ar_tx_exc_fsc a
608: WHERE a.ship_from_code = X_ship_from_code
609: AND a.ship_to_segment_id = X_ship_to_segment_id
610: AND a.fiscal_classification_code = X_fiscal_classification_code
611: AND a.tax_category_id = X_tax_category_id
630: END;
631: END IF;
632: END Check_Gaps;
633:
634: END JL_ZZ_AR_TX_EXC_FSC_PKG;