DBA Data[Home] [Help]

APPS.JL_ZZ_AR_TX_NAT_RAT_PKG dependencies on JL_ZZ_AR_TX_NAT_RAT

Line 1: PACKAGE BODY JL_ZZ_AR_TX_NAT_RAT_PKG AS

1: PACKAGE BODY JL_ZZ_AR_TX_NAT_RAT_PKG AS
2: /* $Header: jlzztnrb.pls 120.3 2003/09/02 22:00:24 opedrega ship $*/
3:
4: PROCEDURE Insert_row
5: (X_rowid IN OUT NOCOPY VARCHAR2,

Line 41: FROM JL_ZZ_AR_TX_NAT_RAT

37: X_calling_sequence IN VARCHAR2) IS
38:
39: CURSOR C IS
40: SELECT rowid
41: FROM JL_ZZ_AR_TX_NAT_RAT
42: WHERE tax_categ_attr_val_id = X_tax_categ_attr_val_id
43: AND end_date_active = X_end_date_active
44: AND org_id = X_org_id;
45:

Line 50: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.INSERT_ROW<-' ||

46: current_calling_sequence VARCHAR2(2000);
47: debug_info VARCHAR2(100);
48:
49: BEGIN
50: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.INSERT_ROW<-' ||
51: X_calling_sequence;
52: debug_info:= 'Insert into JL_ZZ_AR_TX_NAT_RAT';
53:
54: INSERT INTO JL_ZZ_AR_TX_NAT_RAT(txn_nature_id,

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

48:
49: BEGIN
50: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.INSERT_ROW<-' ||
51: X_calling_sequence;
52: debug_info:= 'Insert into JL_ZZ_AR_TX_NAT_RAT';
53:
54: INSERT INTO JL_ZZ_AR_TX_NAT_RAT(txn_nature_id,
55: tax_categ_attr_val_id,
56: end_date_active,

Line 54: INSERT INTO JL_ZZ_AR_TX_NAT_RAT(txn_nature_id,

50: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.INSERT_ROW<-' ||
51: X_calling_sequence;
52: debug_info:= 'Insert into JL_ZZ_AR_TX_NAT_RAT';
53:
54: INSERT INTO JL_ZZ_AR_TX_NAT_RAT(txn_nature_id,
55: tax_categ_attr_val_id,
56: end_date_active,
57: tax_code,
58: last_update_date,

Line 209: FROM JL_ZZ_AR_TX_NAT_RAT

205: ATTRIBUTE12,
206: ATTRIBUTE13,
207: ATTRIBUTE14,
208: ATTRIBUTE15
209: FROM JL_ZZ_AR_TX_NAT_RAT
210: WHERE ROWID = X_rowid
211: FOR UPDATE OF tax_categ_attr_val_id,
212: end_date_active NOWAIT;
213: recinfo c%ROWTYPE;

Line 220: debug_info := 'Insert into JL_ZZ_AR_TX_NAT_RAT';

216: debug_info VARCHAR2(100);
217:
218: BEGIN
219: -- Sequence assigned in form(X_calling_sequence).
220: debug_info := 'Insert into JL_ZZ_AR_TX_NAT_RAT';
221: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.lock_row<-'||
222: X_calling_sequence;
223:
224: debug_info := 'Open cursor C';

Line 221: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.lock_row<-'||

217:
218: BEGIN
219: -- Sequence assigned in form(X_calling_sequence).
220: debug_info := 'Insert into JL_ZZ_AR_TX_NAT_RAT';
221: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.lock_row<-'||
222: X_calling_sequence;
223:
224: debug_info := 'Open cursor C';
225: OPEN c;

Line 381: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.UPDATE_ROW<-' ||

377: current_calling_sequence VARCHAR2(2000);
378: debug_info VARCHAR2(100);
379:
380: BEGIN
381: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.UPDATE_ROW<-' ||
382: X_calling_sequence;
383: debug_info:= 'Update into JL_ZZ_AR_TX_NAT_RAT';
384:
385: UPDATE jl_zz_ar_tx_nat_rat

Line 383: debug_info:= 'Update into JL_ZZ_AR_TX_NAT_RAT';

379:
380: BEGIN
381: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.UPDATE_ROW<-' ||
382: X_calling_sequence;
383: debug_info:= 'Update into JL_ZZ_AR_TX_NAT_RAT';
384:
385: UPDATE jl_zz_ar_tx_nat_rat
386: SET txn_nature_id = X_txn_nature_id,
387: tax_categ_attr_val_id = X_tax_categ_attr_val_id,

Line 385: UPDATE jl_zz_ar_tx_nat_rat

381: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.UPDATE_ROW<-' ||
382: X_calling_sequence;
383: debug_info:= 'Update into JL_ZZ_AR_TX_NAT_RAT';
384:
385: UPDATE jl_zz_ar_tx_nat_rat
386: SET txn_nature_id = X_txn_nature_id,
387: tax_categ_attr_val_id = X_tax_categ_attr_val_id,
388: end_date_active = X_end_date_active,
389: tax_code = X_tax_code,

Line 446: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.DELETE_ROW<-' ||

442: current_calling_sequence VARCHAR2(2000);
443: debug_info VARCHAR2(100);
444:
445: BEGIN
446: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.DELETE_ROW<-' ||
447: X_calling_sequence;
448: debug_info:= 'Delete into JL_ZZ_AR_TX_NAT_RAT';
449: DELETE FROM jl_zz_ar_tx_nat_rat
450: WHERE rowid = X_rowid;

Line 448: debug_info:= 'Delete into JL_ZZ_AR_TX_NAT_RAT';

444:
445: BEGIN
446: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.DELETE_ROW<-' ||
447: X_calling_sequence;
448: debug_info:= 'Delete into JL_ZZ_AR_TX_NAT_RAT';
449: DELETE FROM jl_zz_ar_tx_nat_rat
450: WHERE rowid = X_rowid;
451:
452: IF (sql%notfound) THEN

Line 449: DELETE FROM jl_zz_ar_tx_nat_rat

445: BEGIN
446: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.DELETE_ROW<-' ||
447: X_calling_sequence;
448: debug_info:= 'Delete into JL_ZZ_AR_TX_NAT_RAT';
449: DELETE FROM jl_zz_ar_tx_nat_rat
450: WHERE rowid = X_rowid;
451:
452: IF (sql%notfound) THEN
453: raise NO_DATA_FOUND;

Line 482: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.Check Unique<-' ||

478: current_calling_sequence VARCHAR2(2000);
479: debug_info VARCHAR2(100);
480:
481: BEGIN
482: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.Check Unique<-' ||
483: X_calling_sequence;
484:
485: debug_info:= 'Check Unique';
486:

Line 489: FROM JL_ZZ_AR_TX_NAT_RAT

485: debug_info:= 'Check Unique';
486:
487: SELECT COUNT(1)
488: INTO l_dummy
489: FROM JL_ZZ_AR_TX_NAT_RAT
490: WHERE tax_categ_attr_val_id = X_tax_categ_attr_val_id
491: AND end_date_active = X_end_date_active
492: AND org_id = X_org_id
493: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));

Line 523: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.<-CHECK_OVERLAPPED_DATES' ||

519:
520: BEGIN
521: -- Update the calling sequence
522: --
523: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.<-CHECK_OVERLAPPED_DATES' ||
524: X_calling_sequence;
525: debug_info:= 'Check Overlapped dates';
526:
527: SELECT COUNT(1)

Line 529: FROM jl_zz_ar_tx_nat_rat a

525: debug_info:= 'Check Overlapped dates';
526:
527: SELECT COUNT(1)
528: INTO l_dummy
529: FROM jl_zz_ar_tx_nat_rat a
530: WHERE a.tax_categ_attr_val_id = X_tax_categ_attr_val_id
531: AND ((a.end_date_active <= X_end_date_active AND
532: a.end_date_active >= X_start_date_active) OR
533: (a.start_date_active <= X_end_date_active AND

Line 570: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.CHECK_GAPS<-' ||

566:
567: BEGIN
568: -- Update the calling sequence
569: --
570: current_calling_sequence := 'JL_ZZ_AR_TX_NAT_RAT_PKG.CHECK_GAPS<-' ||
571: X_calling_sequence;
572: --
573: -- Check if there is one row with it's end date exactly one day
574: -- less than the current row's start date

Line 578: FROM jl_zz_ar_tx_nat_rat a

574: -- less than the current row's start date
575: --
576: SELECT COUNT(1)
577: INTO l_dummy
578: FROM jl_zz_ar_tx_nat_rat a
579: WHERE a.tax_categ_attr_val_id = X_tax_categ_attr_val_id
580: AND trunc(a.end_date_active) = (trunc(X_start_date_active) -1)
581: AND org_id = X_org_id
582: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));

Line 592: FROM jl_zz_ar_tx_nat_rat a

588: -- the current row's end-date
589: --
590: SELECT COUNT(1)
591: INTO l_dummy1
592: FROM jl_zz_ar_tx_nat_rat a
593: WHERE a.tax_categ_attr_val_id = X_tax_categ_attr_val_id
594: AND (trunc(a.start_date_active) = (trunc(X_end_date_active) + 1))
595: AND org_id = X_org_id
596: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));

Line 605: FROM jl_zz_ar_tx_nat_rat a

601: IF (l_dummy1 = 0) THEN
602: BEGIN
603: SELECT COUNT(1)
604: INTO l_dummy2
605: FROM jl_zz_ar_tx_nat_rat a
606: WHERE a.tax_categ_attr_val_id = X_tax_categ_attr_val_id
607: AND org_id = X_org_id
608: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
609:

Line 627: END JL_ZZ_AR_TX_NAT_RAT_PKG;

623: END;
624: END IF;
625: END Check_Gaps;
626:
627: END JL_ZZ_AR_TX_NAT_RAT_PKG;