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