1: PACKAGE BODY JL_ZZ_AR_TX_CUS_CLS_PKG AS
2: /* $Header: jlzztacb.pls 120.2 2003/03/03 19:32:04 opedrega ship $ */
3:
4:
5: PROCEDURE Populate_Cus_Cls_Rows
78: BEGIN
79:
80: -- Update the calling sequence
81:
82: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.INSERT_ROW<-' ||
83: X_calling_sequence;
84:
85: debug_info := 'Insert into JL_ZZ_AR_TX_CUS_CLS ';
86:
238: debug_info VARCHAR2(100);
239:
240: BEGIN
241:
242: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.LOCK_ROW<-' ||
243: X_calling_sequence;
244: debug_info := 'Open cursor C';
245: OPEN C;
246: debug_info := 'Fetch cursor C';
314:
315: BEGIN
316: -- Update the calling sequence
317: --
318: current_calling_sequence := 'JL_ZZ_AR_TX_CUS_CLS_PKG.CHECK_UNIQUE<-' ||
319: X_calling_sequence;
320: SELECT COUNT(1)
321: INTO l_dummy
322: FROM JL_ZZ_AR_TX_CUS_CLS
339: APP_EXCEPTION.RAISE_EXCEPTION;
340: END IF;
341: END Check_Unique;
342:
343: END JL_ZZ_AR_TX_CUS_CLS_PKG;