1 PACKAGE BODY AHL_DI_DOC_INDEX_VUHK AS
2 /* $Header: AHLIDIXB.pls 115.4 2002/12/04 08:49:01 pbarman noship $ */
3
4 PROCEDURE CREATE_DOCUMENT_PRE
5 (
6
7 p_x_document_tbl IN OUT NOCOPY AHL_DI_DOC_INDEX_PVT.Document_Tbl,
8 p_x_supplier_tbl IN OUT NOCOPY AHL_DI_DOC_INDEX_PVT.Supplier_Tbl,
9 p_x_recipient_tbl IN OUT NOCOPY AHL_DI_DOC_INDEX_PVT.Recipient_Tbl,
10 x_return_status OUT NOCOPY VARCHAR2 ,
11 x_msg_count OUT NOCOPY NUMBER ,
12 x_msg_data OUT NOCOPY VARCHAR2
13 )
14 AS
15
16 Begin
17
18 x_return_status:=FND_API.G_RET_STS_SUCCESS;
19 Exception
20 When Others Then
21 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
22 End CREATE_DOCUMENT_PRE;
23
24
25 PROCEDURE CREATE_DOCUMENT_POST
26 (
27
28 p_document_tbl IN AHL_DI_DOC_INDEX_PVT.Document_Tbl,
29 p_supplier_tbl IN AHL_DI_DOC_INDEX_PVT.Supplier_Tbl,
30 p_recipient_tbl IN AHL_DI_DOC_INDEX_PVT.Recipient_Tbl,
31 x_return_status OUT NOCOPY VARCHAR2 ,
32 x_msg_count OUT NOCOPY NUMBER ,
33 x_msg_data OUT NOCOPY VARCHAR2
34 )
35 AS
36
37 Begin
38
39 x_return_status:=FND_API.G_RET_STS_SUCCESS;
40 Exception
41 When Others Then
42 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
43 End CREATE_DOCUMENT_POST;
44
45
46
47
48 PROCEDURE MODIFY_DOCUMENT_PRE
49 (
50
51 p_x_document_tbl IN OUT NOCOPY AHL_DI_DOC_INDEX_PVT.Document_Tbl,
52 p_x_supplier_tbl IN OUT NOCOPY AHL_DI_DOC_INDEX_PVT.Supplier_Tbl,
53 p_x_recipient_tbl IN OUT NOCOPY AHL_DI_DOC_INDEX_PVT.Recipient_Tbl,
54 x_return_status OUT NOCOPY VARCHAR2 ,
55 x_msg_count OUT NOCOPY NUMBER ,
56 x_msg_data OUT NOCOPY VARCHAR2
57
58 )
59 AS
60
61 Begin
62
63 x_return_status:=FND_API.G_RET_STS_SUCCESS;
64 Exception
65 When Others Then
66 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
67 End MODIFY_DOCUMENT_PRE;
68
69
70 PROCEDURE MODIFY_DOCUMENT_POST
71 (
72
73 p_document_tbl IN AHL_DI_DOC_INDEX_PVT.Document_Tbl,
74 p_supplier_tbl IN AHL_DI_DOC_INDEX_PVT.Supplier_Tbl,
75 p_recipient_tbl IN AHL_DI_DOC_INDEX_PVT.Recipient_Tbl,
76 x_return_status OUT NOCOPY VARCHAR2 ,
77 x_msg_count OUT NOCOPY NUMBER ,
78 x_msg_data OUT NOCOPY VARCHAR2
79
80 )
81 AS
82
83 Begin
84
85 x_return_status:=FND_API.G_RET_STS_SUCCESS;
86 Exception
87 When Others Then
88 x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
89 End MODIFY_DOCUMENT_POST;
90
91
92
93 END AHL_DI_DOC_INDEX_VUHK;