[Home] [Help]
PACKAGE BODY: APPS.GMI_MOVE_ORDER_HEADER_PUB
Source
1 PACKAGE BODY GMI_Move_Order_Header_PUB AS
2 /* $Header: GMIPMOHB.pls 115.12 2003/04/22 12:58:48 hwahdani ship $
3 +=========================================================================+
4 | Copyright (c) 2000 Oracle Corporation |
5 | TVP, Reading, England |
6 | All rights reserved |
7 +=========================================================================+
8 | FILENAME |
9 | GMIPMOHB.pls |
10 | |
11 | DESCRIPTION |
12 | This package contains public procedures relating to GMI |
13 | Move Order Header. |
14 | |
15 | - Process_Move_Order_Header |
16 | |
17 | |
18 | HISTORY |
19 | 03-MAY-2000 Hverddin Created |
20 | 02-AUG-2000 J. DiIorio commented out dbms_output |
21 | 14-SEP-2000 odaboval removed dummy calls . |
22 | |
23 +=========================================================================+
24 API Name : GMI_Move_Order_Header_PUB
25 Type : Global
26 -
27 Pre-reqs : N/A
28 Parameters: Per function
29
30 Current Vers : 1.0
31 */
32
33 /* Global variables */
34 G_PKG_NAME CONSTANT VARCHAR2(30):='GMI_MOVE_ORDER_HEADER_PUB';
35
36 PROCEDURE Process_Move_Order_Header
37 (
38 p_api_version_number IN NUMBER
39 , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
40 , p_validation_flag IN NUMBER DEFAULT FND_API.G_VALID_LEVEL_FULL
41 , p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
42 , p_mo_hdr_rec IN GMI_Move_Order_Global.MO_HDR_REC
43 , x_mo_hdr_rec OUT NOCOPY GMI_Move_Order_Global.MO_HDR_REC
44 , x_return_status OUT NOCOPY VARCHAR2
45 , x_msg_count OUT NOCOPY NUMBER
46 , x_msg_data OUT NOCOPY VARCHAR2
47 )
48 IS
49 l_api_name CONSTANT VARCHAR2 (30) := 'PROCESS_MOVE_ORDER_HEADER';
50 l_api_version_number CONSTANT NUMBER := 1.0;
51 l_msg_count NUMBER :=0;
52 l_msg_data VARCHAR2(2000);
53 l_return_status VARCHAR2(1):=FND_API.G_RET_STS_SUCCESS;
54 l_mo_hdr_rec GMI_MOVE_ORDER_GLOBAL.mo_hdr_rec;
55 -- HW NOCOPY changes
56 ll_mo_hdr_rec GMI_MOVE_ORDER_GLOBAL.mo_hdr_rec;
57
58
59 BEGIN
60
61 gmi_reservation_util.println('n Process_Move_Order_Header');
62 gmi_reservation_util.println('value of p_mo_hdr_rec.organization_id: '||p_mo_hdr_rec.organization_id);
63 gmi_reservation_util.println('Value of p_mo_hdr_rec.request_number is '||p_mo_hdr_rec.request_number);
64 /* DBMS_OUTPUT.PUT_LINE('IN MOVE ORDER HDR');
65 ************ DO I NEED SAVE POINT FOR PUBLIC DECLARATION *******
66 Standard call to check for call compatibility.
67 */
68
69 IF NOT FND_API.Compatible_API_CALL ( l_api_version_number
70 , p_api_version_number
71 , l_api_name
72 , G_PKG_NAME
73 )
74 THEN
75 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
76 END IF;
77
78 /* Initialize message list if p_int_msg_lst is set TRUE. */
79 IF FND_API.to_boolean(p_init_msg_lst)
80 THEN
81 FND_MSG_PUB.Initialize;
82 END IF;
83
84 /* Initialize API return status to sucess */
85 x_return_status := FND_API.G_RET_STS_SUCCESS;
86
87
88 WSH_Util_Core.PrintLn('Entering_GMI_Create_Move_Order_Header with operation='||p_mo_hdr_rec.operation);
89
90 WSH_Util_Core.PrintLn('Batch NAME => ' || p_mo_hdr_rec.request_number);
91
92 WSH_Util_Core.PrintLn('Call Convert Missing To Null');
93
94 -- HW commented call as part of bug 2643440
95 -- Since G_MISS_XXX is removed, no need to call conver_miss_to_null
96 l_mo_hdr_rec := GMI_MOVE_ORDER_HEADER_UTIL.Convert_Miss_To_Null
97 ( p_mo_hdr_rec => p_mo_hdr_rec);
98
99 gmi_reservation_util.println('Afrer calling GMI_MOVE_ORDER_HEADER_UTIL.Convert_Miss_To_Null');
100 gmi_reservation_util.println('value of l_mo_hdr_rec.organization_id: '||l_mo_hdr_rec.organization_id);
101 gmi_reservation_util.println('Value of l_mo_hdr_rec.operation is '||l_mo_hdr_rec.request_number);
102
103 WSH_Util_Core.PrintLn('Batch NAME => ' || l_mo_hdr_rec.request_number);
104
105 WSH_Util_Core.PrintLn('CAlling Move order Header PVT');
106
107 gmi_reservation_util.println('Going to call GMI_Move_Order_Header_PVT.Process_Move_Order_Header');
108 -- HW OPM use ll_mo_hdr_rec
109 GMI_Move_Order_Header_PVT.Process_Move_Order_Header
110 (
111 p_api_version_number => p_api_version_number,
112 p_init_msg_lst => p_init_msg_lst,
113 p_validation_flag => p_validation_flag,
114 p_commit => p_commit,
115 p_mo_hdr_rec => l_mo_hdr_rec,
116 x_mo_hdr_rec => ll_mo_hdr_rec,
117 x_return_status => l_return_status,
118 x_msg_count => l_msg_count,
119 x_msg_data => l_msg_data
120 );
121
122 /* Set up return Variables. */
123 -- HW NOCOPY use ll_mo_hdr_rec
124 x_mo_hdr_rec := ll_mo_hdr_rec;
125
126
127 gmi_reservation_util.println('Value of x_mo_hdr_rec.organization_id is '||x_mo_hdr_rec.organization_id);
128 gmi_reservation_util.println('Value of x_mo_hdr_rec.header_id is '||x_mo_hdr_rec.header_id);
129
130 /* GMI_Move_Order_Header_Util.Insert_Row( l_mo_hdr_rec); */
131
132 /* FND_MESSAGE.Set_Name('GMI','Entering_GMI_Create_Move_Order_Header');
133 FND_MSG_PUB.Add;
134 RAISE FND_API.G_EXC_ERROR;
135 */
136
137
138 EXCEPTION
139 WHEN fnd_api.g_exc_error THEN
140 x_return_status := fnd_api.g_ret_sts_error;
141
142 /* Get message count and data */
143 FND_MSG_PUB.count_and_get
144 ( p_count => x_msg_count
145 , p_data => x_msg_data
146 );
147
148 WHEN OTHERS THEN
149 x_return_status := fnd_api.g_ret_sts_error;
150
151 FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME
152 , l_api_name
153 );
154
155
156 /* Get message count and data */
157 FND_MSG_PUB.count_and_get
158 ( p_count => x_msg_count
159 , p_data => x_msg_data
160 );
161
162
163
164 END Process_Move_Order_Header;
165
166 END GMI_Move_Order_Header_PUB;