PACKAGE BODY: APPS.GL_TRANSACTION_CODE_PKG

Source

1 PACKAGE BODY GL_TRANSACTION_CODE_PKG AS
2 /* $Header: gliussgb.pls 120.2 2005/05/05 01:29:18 kvora ship $ */
3 
4 
5 PROCEDURE check_unique_trans_code(
6 	X_rowid				varchar2,
7   	X_chart_of_accounts_id	 	number,
8 	X_ussgl_transaction_code	varchar2) IS
9 X_flag	number:=0;
10 
11 BEGIN
12 
13   SELECT 1 into X_flag
14   FROM GL_USSGL_TRANSACTION_CODES GLTR
15   WHERE  ((X_rowid is NULL) OR (X_rowid <> GLTR.rowid))
16   AND GLTR.USSGL_TRANSACTION_CODE = X_ussgl_transaction_code
17   AND GLTR.CHART_OF_ACCOUNTS_ID = X_chart_of_accounts_id;
18 
19   IF (X_flag = 1) THEN
20     fnd_message.set_name('SQLGL','GL_DUP_TRANS_CODE');
21     app_exception.raise_exception;
22   END IF;
23 
24 EXCEPTION
25   WHEN NO_DATA_FOUND THEN
26    return;
27 
28 END check_unique_trans_code;
29 
30 PROCEDURE check_unique_acct_pair(
31 	X_rowid				varchar2,
32   	X_chart_of_accounts_id	 	number,
33 	X_ussgl_transaction_code	varchar2,
34 	X_dr_account_segment_value	varchar2,
35 	X_cr_account_segment_value	varchar2) IS
36 X_flag	number:= 0;
37 
38 BEGIN
39   SELECT 1 INTO X_flag
40   FROM GL_USSGL_ACCOUNT_PAIRS GLAP
41   WHERE ((X_rowid is NULL) OR (X_rowid <> GLAP.rowid))
42   AND GLAP.CHART_OF_ACCOUNTS_ID    = X_chart_of_accounts_id
43   AND GLAP.USSGL_TRANSACTION_CODE    = X_ussgl_transaction_code
44   AND GLAP.DR_ACCOUNT_SEGMENT_VALUE  = X_DR_ACCOUNT_SEGMENT_VALUE
45   AND GLAP.CR_ACCOUNT_SEGMENT_VALUE = X_CR_ACCOUNT_SEGMENT_VALUE;
46 
47   IF (X_flag = 1) THEN
48     fnd_message.set_name('SQLGL','GL_DUP_ACCT_PAIR');
49     app_exception.raise_exception;
50   END IF;
51 
52 EXCEPTION
53   WHEN NO_DATA_FOUND THEN
54    return;
55 
56 END check_unique_acct_pair;
57 
58 END GL_TRANSACTION_CODE_PKG;