1 Package body AHL_DI_SUBSCRIPTION_VUHK AS
2 /* $Header: AHLISUBB.pls 115.2 2002/12/04 08:22:27 pbarman noship $ */
3
4 PROCEDURE CREATE_SUBSCRIPTION_Pre
5 (
6
7 p_x_subscription_tbl IN OUT NOCOPY AHL_DI_SUBSCRIPTION_PVT.subscription_tbl ,
8 x_return_status OUT NOCOPY VARCHAR2 ,
9 x_msg_count OUT NOCOPY NUMBER ,
10 x_msg_data OUT NOCOPY VARCHAR2)
11
12 AS
13
14 Begin
15
16 x_return_status:=FND_API.G_RET_STS_SUCCESS;
17 Exception
18 When Others Then
19 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
20
21 End CREATE_SUBSCRIPTION_Pre;
22
23
24 PROCEDURE CREATE_SUBSCRIPTION_Post
25 (
26
27 p_subscription_tbl IN AHL_DI_SUBSCRIPTION_PVT.subscription_tbl ,
28 x_return_status OUT NOCOPY VARCHAR2 ,
29 x_msg_count OUT NOCOPY NUMBER ,
30 x_msg_data OUT NOCOPY VARCHAR2)
31
32 AS
33
34 Begin
35 x_return_status:=FND_API.G_RET_STS_SUCCESS;
36 Exception
37 When Others Then
38 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
39 End CREATE_SUBSCRIPTION_Post;
40
41
42 PROCEDURE MODIFY_SUBSCRIPTION_Pre
43 (
44
45 p_x_subscription_tbl IN OUT NOCOPY AHL_DI_SUBSCRIPTION_PVT.subscription_tbl ,
46 x_return_status OUT NOCOPY VARCHAR2 ,
47 x_msg_count OUT NOCOPY NUMBER ,
48 x_msg_data OUT NOCOPY VARCHAR2)
49
50 AS
51
52 Begin
53 x_return_status:=FND_API.G_RET_STS_SUCCESS;
54 Exception
55 When Others Then
56 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
57 End MODIFY_SUBSCRIPTION_Pre;
58
59
60
61 PROCEDURE MODIFY_SUBSCRIPTION_Post
62 (
63
64 p_subscription_tbl IN AHL_DI_SUBSCRIPTION_PVT.subscription_tbl ,
65 x_return_status OUT NOCOPY VARCHAR2 ,
66 x_msg_count OUT NOCOPY NUMBER ,
67 x_msg_data OUT NOCOPY VARCHAR2)
68
69 AS
70
71 Begin
72 x_return_status:=FND_API.G_RET_STS_SUCCESS;
73 Exception
74 When Others Then
75 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
76
77 End MODIFY_SUBSCRIPTION_Post;
78
79 End AHL_DI_SUBSCRIPTION_VUHK ;