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
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
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
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:
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: )
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)
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:
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:
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
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
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: );