PACKAGE BODY: APPS.OEXCPSVR

Source

1 PACKAGE BODY OEXCPSVR AS
2 /* $Header: OEXCPSVB.pls 115.1 99/07/16 08:11:56 porting shi $ */
3 
4 PROCEDURE OE_SV_COPY_RULE
5 (	source_id			IN	NUMBER
6 ,	destination_id			IN 	NUMBER
7 ,       msg_text                        OUT 	VARCHAR2
8 ,       return_status                   OUT 	NUMBER
9 )
10 
11 IS
12 BEGIN
13 	INSERT INTO SO_STANDARD_VALUE_RULES
14 	(	STANDARD_VALUE_RULE_ID
15 	,	CREATION_DATE
16 	,	CREATED_BY
17 	,	LAST_UPDATE_DATE
18 	,	LAST_UPDATED_BY
19 	,	LAST_UPDATE_LOGIN
20 	,	STANDARD_VALUE_RULE_SET_ID
21 	,	ATTRIBUTE_ID
22 	,	SEQUENCE_NUMBER
23 	,	STANDARD_VALUE_SOURCE_ID
24 	,	ATTRIBUTE_VALUE
25 	,	OVERRIDE_ALLOWED_FLAG
26 	,	OVERRIDE_EXISTING_VALUE_FLAG
27 	)
28 	SELECT	SO_STANDARD_VALUE_RULES_S.NEXTVAL
29 	,	SYSDATE
30 	,	1
31 	,	SYSDATE
32 	,	1
33 	,	NULL
34 	,	destination_id
35 	,	ATTRIBUTE_ID
36 	,	SEQUENCE_NUMBER
37 	,	STANDARD_VALUE_SOURCE_ID
38 	,	ATTRIBUTE_VALUE
39 	,	OVERRIDE_ALLOWED_FLAG
40 	,	OVERRIDE_EXISTING_VALUE_FLAG
41 	FROM	SO_STANDARD_VALUE_RULES OESRC
42 	WHERE	STANDARD_VALUE_RULE_SET_ID = source_id
43 	AND     NOT EXISTS (
44 		SELECT NULL
45 		FROM   SO_STANDARD_VALUE_RULES OEDST
46 		WHERE  OEDST.STANDARD_VALUE_RULE_SET_ID = destination_id
47 		AND    OEDST.ATTRIBUTE_ID = OESRC.ATTRIBUTE_ID
48 		AND    OEDST.STANDARD_VALUE_SOURCE_ID =
49 		       OESRC.STANDARD_VALUE_SOURCE_ID);
50 
51        return_status := 0;     -- success
52        msg_text := 'OEXCPORD:' || 'success';
53 
54 EXCEPTION
55 
56     WHEN NO_DATA_FOUND THEN
57         return_status   := SQLCODE;
58         msg_text        := 'OEXCPSVR:' || SUBSTR(SQLERRM, 1, 70);
59 
60     WHEN OTHERS THEN
61         return_status   := SQLCODE;
62         msg_text        := 'OEXCPSVR:' || SUBSTR(SQLERRM, 1, 70);
63 
64 END;
65 
66 END OEXCPSVR;