PACKAGE BODY: APPS.AHL_PRD_MATERIAL_TXN_CUHK

Source

1 Package Body AHL_PRD_MATERIAL_TXN_CUHK AS
2 /*$Header: AHLCMTXB.pls 120.2 2007/10/26 22:33:55 sracha noship $*/
3 
4 G_PKG_NAME VARCHAR2(30) := 'AHL_PRD_MATERIAL_TXN_CUHK';
5 
6  -- Add pre transaction specific validations in this api.
7  PROCEDURE PERFORM_MTLTXN_PRE (
8         p_x_material_txn_tbl IN OUT NOCOPY   AHL_PRD_MATERIAL_TXN_PUB.Ahl_Material_Txn_Tbl_Type,
9         x_return_status      OUT NOCOPY      VARCHAR2,
10         x_msg_count          OUT NOCOPY      NUMBER,
11         x_msg_data           OUT NOCOPY      VARCHAR2
12         )
13  IS
14     l_api_name          VARCHAR2(30) := 'PERFORM_MTLTXN_PRE';
15 
16  BEGIN
17    SAVEPOINT PERFORM_MTLTXN_PRE_CUHK;
18 
19    x_return_status:=FND_API.G_RET_STS_SUCCESS;
20    -- customer to add the customization codes here
21    -- for pre processing
22    --
23    --
24  EXCEPTION
25    WHEN FND_API.G_EXC_ERROR THEN
26     ROLLBACK TO PERFORM_MTLTXN_PRE_CUHK;
27     x_return_status := FND_API.G_RET_STS_ERROR;
28     FND_MSG_PUB.count_and_get(
29       p_encoded  => FND_API.G_FALSE,
30       p_count    => x_msg_count,
31       p_data     => x_msg_data);
32 
33   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
34     ROLLBACK TO PERFORM_MTLTXN_PRE_CUHK;
35     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
36     FND_MSG_PUB.count_and_get(
37       p_encoded  => FND_API.G_FALSE,
38       p_count    => x_msg_count,
39       p_data     => x_msg_data);
40 
41   WHEN OTHERS THEN
42     ROLLBACK TO PERFORM_MTLTXN_PRE_CUHK;
43     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
44     IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
45       FND_MSG_PUB.add_exc_msg(
46         p_pkg_name         => G_PKG_NAME,
47         p_procedure_name   => l_api_name,
48         p_error_text       => SUBSTRB(SQLERRM,1,240));
49     END IF;
50     FND_MSG_PUB.count_and_get(
51       p_encoded  => FND_API.G_FALSE,
52       p_count    => x_msg_count,
53       p_data     => x_msg_data);
54 
55  End PERFORM_MTLTXN_PRE;
56 
57 
58  -- Add post transaction specific validations in this api.
59  PROCEDURE PERFORM_MTLTXN_POST(
60         p_material_txn_tbl   IN OUT NOCOPY   AHL_PRD_MATERIAL_TXN_PUB.Ahl_Material_Txn_Tbl_Type,
61         x_return_status      OUT NOCOPY      VARCHAR2,
62         x_msg_count          OUT NOCOPY      NUMBER,
63         x_msg_data           OUT NOCOPY      VARCHAR2
64         )
65 IS
66     l_api_name          VARCHAR2(30) := 'PERFORM_MTLTXN_POST';
67 
68  Begin
69    SAVEPOINT PERFORM_MTLTXN_POST_CUHK;
70 
71    x_return_status:=FND_API.G_RET_STS_SUCCESS;
72    -- customer to add the customization codes here
73    -- for post processing
74    --
75    --
76 
77  EXCEPTION
78    WHEN FND_API.G_EXC_ERROR THEN
79     ROLLBACK TO PERFORM_MTLTXN_POST_CUHK;
80     x_return_status := FND_API.G_RET_STS_ERROR;
81     FND_MSG_PUB.count_and_get(
82       p_encoded  => FND_API.G_FALSE,
83       p_count    => x_msg_count,
84       p_data     => x_msg_data);
85 
86   WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
87     ROLLBACK TO PERFORM_MTLTXN_POST_CUHK;
88     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89     FND_MSG_PUB.count_and_get(
90       p_encoded  => FND_API.G_FALSE,
91       p_count    => x_msg_count,
92       p_data     => x_msg_data);
93 
94   WHEN OTHERS THEN
95     ROLLBACK TO PERFORM_MTLTXN_POST_CUHK;
96     x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
97     IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
98       FND_MSG_PUB.add_exc_msg(
99         p_pkg_name         => G_PKG_NAME,
100         p_procedure_name   => l_api_name,
101         p_error_text       => SUBSTRB(SQLERRM,1,240));
102     END IF;
103     FND_MSG_PUB.count_and_get(
104       p_encoded  => FND_API.G_FALSE,
105       p_count    => x_msg_count,
106       p_data     => x_msg_data);
107 
108  End PERFORM_MTLTXN_POST;
109 
110 End AHL_PRD_MATERIAL_TXN_CUHK;