PACKAGE BODY: APPS.CS_KB_ATTACHMENTS_PKG

Source

1 PACKAGE BODY CS_KB_ATTACHMENTS_PKG AS
2 /* $Header: cskbattb.pls 115.2 2003/11/12 23:05:10 mkettle noship $ */
3 
4 
5 PROCEDURE Clone_Attachment_Links (
6     p_set_source_id IN NUMBER,
7     p_set_target_id IN NUMBER) IS
8 
9  l_current_user NUMBER := FND_GLOBAL.user_id;
10  l_current_login NUMBER := FND_GLOBAL.login_id;
11 
12 BEGIN
13 
14   IF p_set_source_id IS NOT NULL AND p_set_target_id IS NOT NULL THEN
15 
16     FND_ATTACHED_DOCUMENTS2_PKG.copy_attachments(
17               X_from_entity_name => 'CS_KB_SETS_B',
18 		      X_from_pk1_value   => to_char(p_set_source_id),
19 			  X_to_entity_name   => 'CS_KB_SETS_B',
20 			  X_to_pk1_value     => to_char(p_set_target_id),
21 			  X_created_by       => l_current_user,
22               X_last_update_login => l_current_login);
23 
24 
25 
26 
27   ELSE
28     -- Insufficient parameters passed in
29     RAISE INSUFFICIENT_PARAMS;
30   END IF;
31 EXCEPTION
32  WHEN INSUFFICIENT_PARAMS THEN
33    IF FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
34      FND_LOG.STRING(FND_LOG.LEVEL_EXCEPTION, 'csk.plsql.CS_KB_ATTACHMENTS_PKG.clone',
35                    'Insufficient parameters passed: - '||p_set_source_id||' + '||p_set_target_id );
36    END IF;
37    FND_MSG_PUB.initialize;
38    FND_MESSAGE.set_name('CS', 'CS_KB_C_MISS_PARAM');
39    FND_MSG_PUB.ADD;
40    RAISE;
41 END Clone_Attachment_Links;
42 
43 
44 END CS_KB_ATTACHMENTS_PKG;