[Home] [Help]
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;