PACKAGE BODY: APPS.PO_ASL_AUTHORIZATIONS_SV

Source

1 PACKAGE BODY PO_ASL_AUTHORIZATIONS_SV as
2 /* $Header: POXACLSB.pls 120.0.12010000.1 2008/09/18 12:20:52 appldev noship $ */
3 
4 /*=============================================================================
5 
6   FUNCTION NAME:	check_record_unique
7 
8 =============================================================================*/
9 function check_record_unique(x_reference_id	   	number,
10 			     x_reference_type		varchar2,
11 			     x_authorization_code	varchar2,
12 			     x_authorization_sequence   number,
13 			     x_using_organization_id    number) return boolean is
14 
15     x_dummy_count	NUMBER := 0;
16 
17 begin
18 
19     -- Check for duplicate sequence number for the current reference
20     -- number and type.  Also check for duplicate authorization
21     -- code.
22 
23     SELECT count(*)
24     INTO   x_dummy_count
25     FROM   CHV_AUTHORIZATIONS
26     WHERE  x_reference_id = reference_id
27     AND    x_reference_type = reference_type
28     AND    x_using_organization_id = using_organization_id
29     AND   (x_authorization_code = authorization_code
30        OR  x_authorization_sequence = authorization_sequence);
31 
32     IF x_dummy_count > 0 THEN
33 	return(FALSE);
34     ELSE
35 	return(TRUE);
36     END IF;
37 
38 exception
39     when others then
40         raise;
41 end;
42 
43 END PO_ASL_AUTHORIZATIONS_SV;