DBA Data[Home] [Help]

APPS.JL_ZZ_AR_TX_EXC_CUS_PKG dependencies on JL_ZZ_AR_TX_EXC_CUS

Line 1: PACKAGE BODY JL_ZZ_AR_TX_EXC_CUS_PKG as

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,

Line 40: FROM jl_zz_ar_tx_exc_cus

36: X_calling_sequence IN VARCHAR2) IS
37:
38: CURSOR C IS
39: SELECT rowid
40: FROM jl_zz_ar_tx_exc_cus
41: WHERE exc_cus_id = X_exc_cus_id;
42:
43: current_calling_sequence VARCHAR2(2000);
44: debug_info VARCHAR2(100);

Line 49: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.INSERT_ROW<-' ||

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:

Line 52: debug_info := 'Insert into JL_ZZ_AR_TX_EXC_CUS';

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:
54: INSERT INTO JL_ZZ_AR_TX_EXC_CUS(exc_cus_id,
55: address_id,
56: tax_category_id,

Line 54: INSERT INTO JL_ZZ_AR_TX_EXC_CUS(exc_cus_id,

50: X_calling_sequence;
51:
52: debug_info := 'Insert into JL_ZZ_AR_TX_EXC_CUS';
53:
54: INSERT INTO JL_ZZ_AR_TX_EXC_CUS(exc_cus_id,
55: address_id,
56: tax_category_id,
57: --min_taxable_basis,
58: end_date_active,

Line 205: FROM JL_ZZ_AR_TX_EXC_CUS

201: ATTRIBUTE12,
202: ATTRIBUTE13,
203: ATTRIBUTE14,
204: ATTRIBUTE15
205: FROM JL_ZZ_AR_TX_EXC_CUS
206: WHERE exc_cus_id = X_exc_cus_id
207: FOR UPDATE of exc_cus_id
208: NOWAIT;
209:

Line 218: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.LOCK_ROW<-' ||

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';

Line 368: UPDATE jl_zz_ar_tx_exc_cus

364: X_attribute15 VARCHAR2,
365: X_calling_sequence IN VARCHAR2) IS
366:
367: BEGIN
368: UPDATE jl_zz_ar_tx_exc_cus
369: SET exc_cus_id = X_exc_cus_id,
370: address_id = X_address_id,
371: tax_category_id = X_tax_category_id,
372: --min_taxable_basis = X_min_taxable_basis,

Line 410: FROM JL_ZZ_AR_TX_EXC_CUS

406: (X_rowid VARCHAR2) IS
407:
408: BEGIN
409: DELETE
410: FROM JL_ZZ_AR_TX_EXC_CUS
411: WHERE rowid = X_rowid;
412:
413: IF (SQL%NOTFOUND) THEN
414: raise NO_DATA_FOUND;

Line 433: current_calling_sequence :='JL_ZZ_AR_TX_EXC_CUS_PKG.CHECK_UNIQUE<-' ||

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

Line 437: FROM jl_zz_ar_tx_exc_cus

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
438: WHERE address_id = X_address_id
439: AND tax_category_id = X_tax_category_id
440: AND end_date_active = X_end_date_active
441: AND org_id = X_org_id

Line 473: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.<-CHECK_OVERLAPPED_DATES' ||

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

Line 478: FROM jl_zz_ar_tx_exc_cus a

474: X_calling_sequence;
475:
476: SELECT COUNT(1)
477: INTO l_dummy
478: FROM jl_zz_ar_tx_exc_cus a
479: WHERE a.address_id = X_address_id
480: AND a.tax_category_id = X_tax_category_id
481: AND ((a.end_date_active <= X_end_date_active AND
482: a.end_date_active >= X_start_date_active) OR

Line 521: current_calling_sequence := 'JL_ZZ_AR_TX_EXC_CUS_PKG.CHECK_GAPS<-' ||

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

Line 529: FROM jl_zz_ar_tx_exc_cus a

525: -- less than the current row's start date
526: --
527: SELECT COUNT(1)
528: INTO l_dummy
529: FROM jl_zz_ar_tx_exc_cus a
530: WHERE a.address_id = X_address_id
531: AND a.tax_category_id = X_tax_category_id
532: AND trunc(a.end_date_active) = (trunc(X_start_date_active) -1)
533: AND org_id = X_org_id

Line 544: FROM jl_zz_ar_tx_exc_cus a

540: -- the current row's end-date
541:
542: SELECT COUNT(1)
543: INTO l_dummy1
544: FROM jl_zz_ar_tx_exc_cus a
545: WHERE a.address_id = X_address_id
546: AND a.tax_category_id = X_tax_category_id
547: AND (trunc(a.start_date_active) = (trunc(X_end_date_active) + 1))
548: AND org_id = X_org_id

Line 558: FROM jl_zz_ar_tx_exc_cus a

554: IF (l_dummy1 = 0) THEN
555: BEGIN
556: SELECT COUNT(1)
557: INTO l_dummy2
558: FROM jl_zz_ar_tx_exc_cus a
559: WHERE a.address_id = X_address_id
560: AND a.tax_category_id = X_tax_category_id
561: AND org_id = X_org_id
562: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));

Line 581: END JL_ZZ_AR_TX_EXC_CUS_PKG;

577: END;
578: END IF;
579: END Check_Gaps;
580:
581: END JL_ZZ_AR_TX_EXC_CUS_PKG;