7:
8: -- Process_OSP_Transaction
9:
10: PROCEDURE Process_OSP_Transaction
11: ( p_OSP_rec IN WIP_Transaction_PUB.Res_Rec_Type
12: , p_validation_level IN NUMBER DEFAULT COMPLETE
13: , p_return_status OUT NOCOPY VARCHAR2
14: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
15: , p_msg_count OUT NOCOPY NUMBER
17: )
18: IS
19: l_direct_item_flag NUMBER;
20: l_return_status VARCHAR2(1);
21: l_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
22: WIP_Transaction_PUB.G_MISS_RES_REC;
23: l_ShopFloorMove_rec WIP_Transaction_PUB.ShopFloorMove_Rec_Type :=
24: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
25:
18: IS
19: l_direct_item_flag NUMBER;
20: l_return_status VARCHAR2(1);
21: l_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
22: WIP_Transaction_PUB.G_MISS_RES_REC;
23: l_ShopFloorMove_rec WIP_Transaction_PUB.ShopFloorMove_Rec_Type :=
24: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
25:
26: /* this variable is passed as a value for the p_old_res_rec
19: l_direct_item_flag NUMBER;
20: l_return_status VARCHAR2(1);
21: l_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
22: WIP_Transaction_PUB.G_MISS_RES_REC;
23: l_ShopFloorMove_rec WIP_Transaction_PUB.ShopFloorMove_Rec_Type :=
24: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
25:
26: /* this variable is passed as a value for the p_old_res_rec
27: in the procedure wip_validate_res.Attributes. Enhancement No: 2665334
20: l_return_status VARCHAR2(1);
21: l_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
22: WIP_Transaction_PUB.G_MISS_RES_REC;
23: l_ShopFloorMove_rec WIP_Transaction_PUB.ShopFloorMove_Rec_Type :=
24: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
25:
26: /* this variable is passed as a value for the p_old_res_rec
27: in the procedure wip_validate_res.Attributes. Enhancement No: 2665334
28: */
26: /* this variable is passed as a value for the p_old_res_rec
27: in the procedure wip_validate_res.Attributes. Enhancement No: 2665334
28: */
29:
30: l_old_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
31: WIP_Transaction_PUB.G_MISS_RES_REC;
32:
33: l_old_ShopFloorMove_rec WIP_Transaction_PUB.Shopfloormove_Rec_Type :=
34: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
27: in the procedure wip_validate_res.Attributes. Enhancement No: 2665334
28: */
29:
30: l_old_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
31: WIP_Transaction_PUB.G_MISS_RES_REC;
32:
33: l_old_ShopFloorMove_rec WIP_Transaction_PUB.Shopfloormove_Rec_Type :=
34: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
35:
29:
30: l_old_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
31: WIP_Transaction_PUB.G_MISS_RES_REC;
32:
33: l_old_ShopFloorMove_rec WIP_Transaction_PUB.Shopfloormove_Rec_Type :=
34: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
35:
36: l_log_level NUMBER := fnd_log.g_current_runtime_level;
37: l_error_msg VARCHAR2(240);
30: l_old_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
31: WIP_Transaction_PUB.G_MISS_RES_REC;
32:
33: l_old_ShopFloorMove_rec WIP_Transaction_PUB.Shopfloormove_Rec_Type :=
34: WIP_Transaction_PUB.G_MISS_SHOPFLOORMOVE_REC;
35:
36: l_log_level NUMBER := fnd_log.g_current_runtime_level;
37: l_error_msg VARCHAR2(240);
38: l_process_phase VARCHAR2(3);
321: , x_return_status OUT NOCOPY VARCHAR2
322: , x_msg_count OUT NOCOPY NUMBER
323: , x_msg_data OUT NOCOPY VARCHAR2
324: , p_dummy IN VARCHAR2
325: , x_WIPTransaction_tbl OUT NOCOPY WIP_Transaction_PUB.Wiptransaction_Tbl_Type
326: , x_Res_tbl OUT NOCOPY WIP_Transaction_PUB.Res_Tbl_Type
327: , x_ShopFloorMove_tbl OUT NOCOPY WIP_Transaction_PUB.Shopfloormove_Tbl_Type
328: )
329: IS
322: , x_msg_count OUT NOCOPY NUMBER
323: , x_msg_data OUT NOCOPY VARCHAR2
324: , p_dummy IN VARCHAR2
325: , x_WIPTransaction_tbl OUT NOCOPY WIP_Transaction_PUB.Wiptransaction_Tbl_Type
326: , x_Res_tbl OUT NOCOPY WIP_Transaction_PUB.Res_Tbl_Type
327: , x_ShopFloorMove_tbl OUT NOCOPY WIP_Transaction_PUB.Shopfloormove_Tbl_Type
328: )
329: IS
330: l_api_version_number CONSTANT NUMBER := 1.0;
323: , x_msg_data OUT NOCOPY VARCHAR2
324: , p_dummy IN VARCHAR2
325: , x_WIPTransaction_tbl OUT NOCOPY WIP_Transaction_PUB.Wiptransaction_Tbl_Type
326: , x_Res_tbl OUT NOCOPY WIP_Transaction_PUB.Res_Tbl_Type
327: , x_ShopFloorMove_tbl OUT NOCOPY WIP_Transaction_PUB.Shopfloormove_Tbl_Type
328: )
329: IS
330: l_api_version_number CONSTANT NUMBER := 1.0;
331: l_api_name CONSTANT VARCHAR2(30):= 'Get_Transaction';
328: )
329: IS
330: l_api_version_number CONSTANT NUMBER := 1.0;
331: l_api_name CONSTANT VARCHAR2(30):= 'Get_Transaction';
332: l_WIPTransaction_tbl WIP_Transaction_PUB.Wiptransaction_Tbl_Type;
333: l_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
334: l_x_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
335: l_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
336: l_x_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
329: IS
330: l_api_version_number CONSTANT NUMBER := 1.0;
331: l_api_name CONSTANT VARCHAR2(30):= 'Get_Transaction';
332: l_WIPTransaction_tbl WIP_Transaction_PUB.Wiptransaction_Tbl_Type;
333: l_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
334: l_x_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
335: l_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
336: l_x_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
337: BEGIN
330: l_api_version_number CONSTANT NUMBER := 1.0;
331: l_api_name CONSTANT VARCHAR2(30):= 'Get_Transaction';
332: l_WIPTransaction_tbl WIP_Transaction_PUB.Wiptransaction_Tbl_Type;
333: l_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
334: l_x_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
335: l_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
336: l_x_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
337: BEGIN
338:
331: l_api_name CONSTANT VARCHAR2(30):= 'Get_Transaction';
332: l_WIPTransaction_tbl WIP_Transaction_PUB.Wiptransaction_Tbl_Type;
333: l_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
334: l_x_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
335: l_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
336: l_x_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
337: BEGIN
338:
339: -- Standard call to check for call compatibility
332: l_WIPTransaction_tbl WIP_Transaction_PUB.Wiptransaction_Tbl_Type;
333: l_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
334: l_x_Res_tbl WIP_Transaction_PUB.Res_Tbl_Type;
335: l_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
336: l_x_ShopFloorMove_tbl WIP_Transaction_PUB.Shopfloormove_Tbl_Type;
337: BEGIN
338:
339: -- Standard call to check for call compatibility
340:
461: -- Process_Resource_Transaction
462: -- ----------------------------
463:
464: PROCEDURE Process_Resource_Transaction
465: ( p_res_txn_rec IN WIP_Transaction_PUB.Res_Rec_Type
466: , p_validation_level IN NUMBER DEFAULT COMPLETE
467: , p_return_status OUT NOCOPY VARCHAR2
468: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
469: , p_msg_count OUT NOCOPY NUMBER
470: , p_msg_data OUT NOCOPY VARCHAR2
471: )
472: IS
473: l_return_status VARCHAR2(1);
474: l_res_txn_rec WIP_Transaction_PUB.Res_Rec_Type;
475:
476: /* this variable is passed as a value for the p_old_res_rec
477: in the procedure wip_validate_res.Attributes. Enhancement No: 2665334
478: */
476: /* this variable is passed as a value for the p_old_res_rec
477: in the procedure wip_validate_res.Attributes. Enhancement No: 2665334
478: */
479:
480: l_old_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
481: WIP_Transaction_PUB.G_MISS_RES_REC;
482:
483: l_log_level NUMBER := fnd_log.g_current_runtime_level;
484: l_error_msg VARCHAR2(240);
477: in the procedure wip_validate_res.Attributes. Enhancement No: 2665334
478: */
479:
480: l_old_OSP_rec WIP_Transaction_PUB.Res_Rec_Type :=
481: WIP_Transaction_PUB.G_MISS_RES_REC;
482:
483: l_log_level NUMBER := fnd_log.g_current_runtime_level;
484: l_error_msg VARCHAR2(240);
485: l_process_phase VARCHAR2(3);