[Home] [Help]
PACKAGE BODY: APPS.WIP_TRANSACTION_PUB
Source
1 PACKAGE BODY WIP_Transaction_PUB AS
2 /* $Header: WIPPTXNB.pls 115.8 2002/12/05 23:26:14 seli ship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'WIP_Transaction_PUB';
7
8 -- Start of Comments
9 -- API name Get_Transaction
10 -- Type Public
11 -- Function
12 --
13 -- Pre-reqs
14 --
15 -- Parameters
16 --
17 -- Version Current version = 1.0
18 -- Initial version = 1.0
19 --
20 -- Notes
21 --
22 -- End of Comments
23
24 PROCEDURE Get_Transaction
25 ( p_api_version_number IN NUMBER
26 , p_init_msg_list IN VARCHAR2 := NULL
27 , p_return_values IN VARCHAR2 := NULL
28 , x_return_status OUT NOCOPY VARCHAR2
29 , x_msg_count OUT NOCOPY NUMBER
30 , x_msg_data OUT NOCOPY VARCHAR2
31 , p_dummy IN VARCHAR2
32 , x_WIPTransaction_tbl OUT NOCOPY Wiptransaction_Tbl_Type
33 , x_WIPTransaction_val_tbl OUT NOCOPY Wiptransaction_Val_Tbl_Type
34 , x_Res_tbl OUT NOCOPY Res_Tbl_Type
35 , x_Res_val_tbl OUT NOCOPY Res_Val_Tbl_Type
36 , x_ShopFloorMove_tbl OUT NOCOPY Shopfloormove_Tbl_Type
37 , x_ShopFloorMove_val_tbl OUT NOCOPY Shopfloormove_Val_Tbl_Type
38 )
39 IS
40 l_api_version_number CONSTANT NUMBER := 1.0;
41 l_api_name CONSTANT VARCHAR2(30):= 'Get_Transaction';
42 l_dummy VARCHAR2(1) := p_dummy;
43 l_WIPTransaction_tbl WIP_Transaction_PUB.Wiptransaction_Tbl_Type;
44 l_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
45 l_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
46 BEGIN
47
48 -- Standard call to check for call compatibility
49
50 IF NOT FND_API.Compatible_API_Call
51 ( l_api_version_number
52 , p_api_version_number
53 , l_api_name
54 , G_PKG_NAME
55 )
56 THEN
57 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
58 END IF;
59
60 -- Standard check for Val/ID conversion
61
62
63 -- Call WIP_Transaction_PVT.Get_Transaction
64
65 WIP_Transaction_PVT.Get_Transaction
66 ( p_api_version_number => 1.0
67 , p_init_msg_list => nvl(p_init_msg_list,FND_API.G_FALSE)
68 , x_return_status => x_return_status
69 , x_msg_count => x_msg_count
70 , x_msg_data => x_msg_data
71 , p_dummy => l_dummy
72 , x_WIPTransaction_tbl => l_WIPTransaction_tbl
73 , x_Res_tbl => l_Res_tbl
74 , x_ShopFloorMove_tbl => l_ShopFloorMove_tbl
75 );
76
77 -- Load Id OUT parameters.
78
79 x_WIPTransaction_tbl := l_WIPTransaction_tbl;
80 x_Res_tbl := l_Res_tbl;
81 x_ShopFloorMove_tbl := l_ShopFloorMove_tbl;
82
83 -- Set return status
84
85 x_return_status := FND_API.G_RET_STS_SUCCESS;
86
87 -- Get message count and data
88
89 FND_MSG_PUB.Count_And_Get
90 ( p_count => x_msg_count
91 , p_data => x_msg_data
92 );
93
94
95 EXCEPTION
96
97 WHEN FND_API.G_EXC_ERROR THEN
98
99 x_return_status := FND_API.G_RET_STS_ERROR;
100
101 -- Get message count and data
102
103 FND_MSG_PUB.Count_And_Get
104 ( p_count => x_msg_count
105 , p_data => x_msg_data
106 );
107
108 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
109
110 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
111
112 -- Get message count and data
113
114 FND_MSG_PUB.Count_And_Get
115 ( p_count => x_msg_count
116 , p_data => x_msg_data
117 );
118
119 WHEN OTHERS THEN
120
121 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
122
123 IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
124 THEN
125 FND_MSG_PUB.Add_Exc_Msg
126 ( G_PKG_NAME
127 , 'Get_Transaction'
128 );
129 END IF;
130
131 -- Get message count and data
132
133 FND_MSG_PUB.Count_And_Get
134 ( p_count => x_msg_count
135 , p_data => x_msg_data
136 );
137
138 END Get_Transaction;
139
140 END WIP_Transaction_PUB;