PACKAGE BODY: APPS.OKL_COPY_TEMPLATE_PUB

Source

1 PACKAGE BODY OKL_COPY_TEMPLATE_PUB AS
2 /* $Header: OKLPTLCB.pls 115.3 2002/12/18 12:43:07 kjinger noship $ */
3 
4 
5 PROCEDURE COPY_TEMPLATES(p_api_version                IN         NUMBER,
6                          p_init_msg_list              IN         VARCHAR2,
7                          x_return_status              OUT        NOCOPY VARCHAR2,
8                          x_msg_count                  OUT        NOCOPY NUMBER,
9                          x_msg_data                   OUT        NOCOPY VARCHAR2,
10 						 p_aes_id_from                IN         NUMBER,
11 						 p_aes_id_to                  IN         NUMBER)
12 IS
13 
14 
15 l_api_version NUMBER := 1.0;
16 l_api_name    VARCHAR2(30) := 'COPY_TEMPLATES';
17 
18 l_aes_id_from        NUMBER := p_aes_id_from;
19 l_aes_id_to          NUMBER := p_aes_id_to;
20 
21 l_return_status       VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
22 
23 BEGIN
24 
25   SAVEPOINT COPY_TEMPLATES;
26 
27   x_return_status    := FND_API.G_RET_STS_SUCCESS;
28 
29   -- customer pre-processing
30 
31 
32 
33 
34 -- Run the MAIN Procedure
35 
36 
37    OKL_COPY_TEMPLATE_PVT.COPY_TEMPLATES(p_api_version      => l_api_version,
38                                         p_init_msg_list    => p_init_msg_list,
39                                         x_return_status    => x_return_status,
40                                         x_msg_count        => x_msg_count,
41                                         x_msg_data         => x_msg_data,
42                                         p_aes_id_from      => l_aes_id_from,
43                                         p_aes_id_to        => l_aes_id_to);
44 
45 
46 
47   IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
48       RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
49   ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
50       RAISE FND_API.G_EXC_ERROR;
51   END IF;
52 
53 
54 
55 
56 
57 EXCEPTION
58 
59   WHEN FND_API.G_EXC_ERROR THEN
60       ROLLBACK TO COPY_TEMPLATES;
61       x_return_status := FND_API.G_RET_STS_ERROR;
62 
63       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
64                                ,p_count   => x_msg_count
65                                ,p_data    => x_msg_data);
66 
67   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
68       ROLLBACK TO COPY_TEMPLATES;
69       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
71                                ,p_count   => x_msg_count
72                                ,p_data    => x_msg_data);
73 
74   WHEN OTHERS THEN
75 
76       FND_MSG_PUB.ADD_EXC_MSG('OKL_COPY_TEMPLATE_PUB','COPY_TEMPLATES');
77       FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
78                                ,p_count   => x_msg_count
79                                ,p_data    => x_msg_data);
80       x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
81 
82 
83 
84 END COPY_TEMPLATES;
85 
86 
87 
88 END OKL_COPY_TEMPLATE_PUB;