[Home] [Help]
1: PACKAGE BODY CE_TRANSACTION_CODES_PKG as
2: /* $Header: cetrxcdb.pls 120.4.12010000.2 2009/07/31 09:34:48 vnetan ship $ */
3: --
4: -- Package
5: -- ce_transaction_codes_pkg
1: PACKAGE BODY CE_TRANSACTION_CODES_PKG as
2: /* $Header: cetrxcdb.pls 120.4.12010000.2 2009/07/31 09:34:48 vnetan ship $ */
3: --
4: -- Package
5: -- ce_transaction_codes_pkg
6: -- Purpose
7: -- To contain validation and insertion routines for ce_transaction_codes
8: -- History
9: -- 00-00-94 Dean McCarthy Created
82: SELECT ce_transaction_codes_s.nextval
83: FROM sys.dual;
84:
85: BEGIN
86: cep_standard.debug('>>CE_TRANSACTION_CODES_PKG.Insert_Row');
87:
88: cep_standard.debug('open c2 ');
89:
90: OPEN C2;
183: CLOSE C;
184: RAISE NO_DATA_FOUND;
185: END IF;
186: CLOSE C;
187: cep_standard.debug('<
189: END Insert_Row;
190:
191: --
243: FOR UPDATE of Transaction_Code_Id NOWAIT;
244:
245: Recinfo C%ROWTYPE;
246: BEGIN
247: cep_standard.debug('>>CE_TRANSACTION_CODES_PKG.Lock_Row');
248: OPEN C;
249: FETCH C INTO Recinfo;
250:
251: IF (C%NOTFOUND) THEN
323: cep_standard.debug('form_record_changed');
324: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
325: APP_EXCEPTION.Raise_Exception;
326: END IF;
327: cep_standard.debug('<
329:
330: --
331: -- Procedure
380: X_reconciliation_sequence NUMBER ,
381: X_request_id NUMBER DEFAULT NULL -- 8707463: Added
382: ) IS
383: BEGIN
384: cep_standard.debug('>>CE_TRANSACTION_CODES_PKG.update_Row');
385: UPDATE CE_TRANSACTION_CODES SET
386: transaction_code_id = X_Transaction_Code_Id,
387: bank_account_id = X_Bank_Account_Id,
388: trx_code = X_Trx_Code,
424: IF (SQL%NOTFOUND) THEN
425: cep_standard.debug('NO_DATA_FOUND');
426: RAISE NO_DATA_FOUND;
427: END IF;
428: cep_standard.debug('<
430:
431: --
432: -- Procedure
442: -- Notes
443: --
444: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
445: BEGIN
446: cep_standard.debug('>>CE_TRANSACTION_CODES_PKG.delete_Row');
447: DELETE FROM CE_TRANSACTION_CODES
448: WHERE ROWID = X_Rowid;
449: --
450: IF (SQL%NOTFOUND) THEN
450: IF (SQL%NOTFOUND) THEN
451: cep_standard.debug('NO_DATA_FOUND');
452: RAISE NO_DATA_FOUND;
453: END IF;
454: cep_standard.debug('>>CE_TRANSACTION_CODES_PKG.update_Row');
455: END Delete_Row;
456:
457: --
458: -- Procedure
526:
527: dummy VARCHAR2(100);
528: --
529: BEGIN
530: cep_standard.debug('>>CE_TRANSACTION_CODES_PKG.check_unique_txn_code');
531:
532: OPEN chk_duplicates;
533: FETCH chk_duplicates INTO dummy;
534:
564: END IF;
565:
566: CLOSE chk_duplicates3;
567:
568: cep_standard.debug('<
570: WHEN app_exceptions.application_exception THEN
571: IF ( chk_duplicates%ISOPEN ) THEN
572: CLOSE chk_duplicates;
578: CLOSE chk_duplicates3;
579: END IF;
580: RAISE;
581: WHEN OTHERS THEN
582: cep_standard.debug('EXCEPTION: CE_TRANSACTION_CODES_PKG.check_unique_txn_code');
583: fnd_message.set_name( 'SQLCE', 'CE_UNHANDLED_EXCEPTION');
584: fnd_message.set_token( 'PROCEDURE','CE_TRANSACTION_CODES_pkg.check_unique_txn_code');
585: IF ( chk_duplicates%ISOPEN ) THEN
586: CLOSE chk_duplicates;
580: RAISE;
581: WHEN OTHERS THEN
582: cep_standard.debug('EXCEPTION: CE_TRANSACTION_CODES_PKG.check_unique_txn_code');
583: fnd_message.set_name( 'SQLCE', 'CE_UNHANDLED_EXCEPTION');
584: fnd_message.set_token( 'PROCEDURE','CE_TRANSACTION_CODES_pkg.check_unique_txn_code');
585: IF ( chk_duplicates%ISOPEN ) THEN
586: CLOSE chk_duplicates;
587: END IF;
588: IF ( chk_duplicates2%ISOPEN ) THEN
610:
611: dummy VARCHAR2(240);
612:
613: BEGIN
614: cep_standard.debug('>>CE_TRANSACTION_CODES_PKG.is_in_use');
615:
616: /*
617: * Check for transaction code in the statement lines.
618: */
645:
646: cep_standard.debug('No reference. Return FALSE');
647: RETURN FALSE;
648:
649: cep_standard.debug('<
651: WHEN app_exceptions.application_exception THEN
652: cep_standard.debug('EXCEPTION: Application_exception CE_TRANSACTION_CODES_pkg.Is_In_Use');
653: IF ( chk_stmt_line%ISOPEN ) THEN
648:
649: cep_standard.debug('<
651: WHEN app_exceptions.application_exception THEN
652: cep_standard.debug('EXCEPTION: Application_exception CE_TRANSACTION_CODES_pkg.Is_In_Use');
653: IF ( chk_stmt_line%ISOPEN ) THEN
654: CLOSE chk_stmt_line;
655: END IF;
656: IF ( chk_arch_stmt_line%ISOPEN ) THEN
657: CLOSE chk_arch_stmt_line;
658: END IF;
659: RAISE;
660: WHEN OTHERS THEN
661: cep_standard.debug('EXCEPTION: CE_TRANSACTION_CODES_pkg.Is_In_Use');
662: fnd_message.set_name( 'SQLCE', 'CE_UNHANDLED_EXCEPTION');
663: fnd_message.set_token( 'FUNCTION','CE_TRANSACTION_CODES_pkg.Is_In_Use');
664: IF ( chk_stmt_line%ISOPEN ) THEN
665: CLOSE chk_stmt_line;
659: RAISE;
660: WHEN OTHERS THEN
661: cep_standard.debug('EXCEPTION: CE_TRANSACTION_CODES_pkg.Is_In_Use');
662: fnd_message.set_name( 'SQLCE', 'CE_UNHANDLED_EXCEPTION');
663: fnd_message.set_token( 'FUNCTION','CE_TRANSACTION_CODES_pkg.Is_In_Use');
664: IF ( chk_stmt_line%ISOPEN ) THEN
665: CLOSE chk_stmt_line;
666: END IF;
667: IF ( chk_arch_stmt_line%ISOPEN ) THEN
669: END IF;
670: RAISE;
671: END is_in_use;
672:
673: END CE_TRANSACTION_CODES_PKG;