1: PACKAGE BODY JL_ZZ_AR_TX_CAT_ATT_PKG as
2: /* $Header: jlzztatb.pls 120.3 2005/10/30 02:08:56 appldev 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_CAT_ATT_PKG.INSERT_ROW<-' ||
50: X_calling_sequence;
51:
52: debug_info := 'Insert into JL_ZZ_AR_TX_CAT_ATT';
53: insert into jl_zz_ar_tx_cat_att(tax_categ_attr_id,
185:
186: BEGIN
187: -- Update the calling sequence
188: --
189: current_calling_sequence := 'JL_ZZ_AR_TX_CAT_ATT_PKG.LOCK_ROW<-' ||
190: X_calling_sequence;
191:
192: debug_info := 'Open cursor C';
193: OPEN C;
435:
436: BEGIN
437: -- Update the calling sequence
438: --
439: current_calling_sequence := 'JL_ZZ_AR_TX_CAT_ATT_PKG.CHECK_UNIQUE<-' ||
440: X_calling_sequence;
441:
442: SELECT COUNT(1)
443: INTO l_dummy
475:
476: BEGIN
477: -- Update the calling sequence
478: --
479: current_calling_sequence := 'JL_ZZ_AR_TX_CAT_ATT_PKG.CHECK_DETERMINING_FACTOR<-' ||
480: X_calling_sequence;
481: SELECT COUNT(1)
482: INTO l_dummy
483: FROM jl_zz_ar_tx_cat_att
524:
525: BEGIN
526: -- Update the calling sequence
527: --
528: current_calling_sequence := 'JL_ZZ_AR_TX_CAT_ATT_PKG.LOCK_ROW_PRIORITY_NUMBER<-' ||
529: X_calling_sequence;
530: debug_info := 'Open cursor C';
531: OPEN C;
532: debug_info := 'Fetch cursor C';
581:
582: BEGIN
583: -- Update the calling sequence
584: --
585: current_calling_sequence := 'JL_ZZ_AR_TX_CAT_ATT_PKG.UPDATE_ROW_PRIORITY_NUMBER<-' ||
586: X_calling_sequence;
587: debug_info := 'Update JL_ZZ_AR_TX_CAT_ATT';
588: UPDATE JL_ZZ_AR_TX_CAT_ATT
589: SET PRIORITY_NUMBER = X_PRIORITY_NUMBER,
614: END IF;
615: APP_EXCEPTION.RAISE_EXCEPTION;
616: END Update_Row_Priority_Number;
617:
618: END JL_ZZ_AR_TX_CAT_ATT_PKG;