31:
32: PROCEDURE build_trans_rec
33: (
34: p_trans_row IN ic_tran_pnd%rowtype
35: , x_trans_rec IN OUT NOCOPY GMI_TRANS_ENGINE_PUB.ictran_rec
36: );
37: PROCEDURE build_res_rec
38: (
39: p_res_row IN gml_batch_so_reservations%rowtype
40: , x_res_rec OUT NOCOPY GML_BATCH_OM_UTIL.gme_om_reservation_rec
41: ) ;
42: PROCEDURE PRINT_DEBUG
43: (
44: p_tran_rec IN GMI_TRANS_ENGINE_PUB.ictran_rec
45: ,p_routine IN VARCHAR2
46: ) ;
47:
48: PROCEDURE create_reservation_from_FPO
287: l_so_line_rec GML_BATCH_OM_UTIL.so_line_rec;
288: l_rule_rec GML_BATCH_OM_UTIL.gme_om_rule_rec;
289: l_history_rec GML_BATCH_OM_UTIL.alloc_history_rec;
290: l_gme_trans_row ic_tran_pnd%rowtype;
291: l_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
292: l_dft_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
293: l_tran_row IC_TRAN_PND%ROWTYPE;
294: l_res_count NUMBER;
295: l_avg_qty NUMBER;
288: l_rule_rec GML_BATCH_OM_UTIL.gme_om_rule_rec;
289: l_history_rec GML_BATCH_OM_UTIL.alloc_history_rec;
290: l_gme_trans_row ic_tran_pnd%rowtype;
291: l_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
292: l_dft_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
293: l_tran_row IC_TRAN_PND%ROWTYPE;
294: l_res_count NUMBER;
295: l_avg_qty NUMBER;
296: l_avg_qty2 NUMBER;
555: l_tran_rec.line_detail_id := res_rec.delivery_detail_id;
556: l_alloc_done := 0;
557:
558: IF l_go_ahead = 1 THEN
559: GMI_TRANS_ENGINE_PUB.create_pending_transaction
560: (p_api_version => 1.0,
561: p_init_msg_list => FND_API.G_TRUE,
562: p_commit => FND_API.G_FALSE,
563: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
659: , X_msg_cont OUT NOCOPY NUMBER
660: , X_msg_data OUT NOCOPY VARCHAR2
661: ) IS
662:
663: l_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
664: l_dft_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
665: l_tran_row IC_TRAN_PND%ROWTYPE;
666: l_trans_id NUMBER;
667:
660: , X_msg_data OUT NOCOPY VARCHAR2
661: ) IS
662:
663: l_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
664: l_dft_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
665: l_tran_row IC_TRAN_PND%ROWTYPE;
666: l_trans_id NUMBER;
667:
668: Cursor find_nonstgd_alloc_for_trans (P_batch_trans_id IN NUMBER) IS
689: l_trans_id := alloc_rec.trans_id;
690: l_tran_rec.trans_id := l_trans_id;
691: GMI_RESERVATION_UTIL.PrintLn(' Deleting trans_id '||l_trans_id);
692: IF GMI_TRAN_PND_DB_PVT.FETCH_IC_TRAN_PND (l_tran_rec, l_tran_rec ) THEN
693: GMI_TRANS_ENGINE_PUB.delete_pending_transaction
694: (p_api_version => 1.0,
695: p_init_msg_list => FND_API.G_TRUE,
696: p_commit => FND_API.G_FALSE,
697: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
742: , X_msg_cont OUT NOCOPY NUMBER
743: , X_msg_data OUT NOCOPY VARCHAR2
744: ) IS
745:
746: l_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
747: l_dft_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
748: l_tran_row IC_TRAN_PND%ROWTYPE;
749: l_batch_trans_id NUMBER;
750:
743: , X_msg_data OUT NOCOPY VARCHAR2
744: ) IS
745:
746: l_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
747: l_dft_tran_rec GMI_TRANS_ENGINE_PUB.ictran_rec;
748: l_tran_row IC_TRAN_PND%ROWTYPE;
749: l_batch_trans_id NUMBER;
750:
751: Cursor find_nonstgd_alloc_for_batch (P_batch_id IN NUMBER) IS
767: IF p_batch_id is not null THEN
768: /* find out the unstaged trans for this batch line */
769: for alloc_rec in find_nonstgd_alloc_for_batch(p_batch_id) Loop
770: l_tran_rec.trans_id := alloc_rec.trans_id;
771: GMI_TRANS_ENGINE_PUB.DELETE_PENDING_TRANSACTION(
772: p_api_version => 1.0
773: ,p_init_msg_list => FND_API.G_TRUE
774: ,p_commit => FND_API.G_FALSE
775: ,p_validation_level => FND_API.G_VALID_LEVEL_NONE
782: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
783: THEN
784: GMI_reservation_Util.PrintLn('(opm_dbg) in PVT d ERROR: Returned by Delete_Transaction().');
785: FND_MESSAGE.Set_Name('GMI','GMI_ERROR');
786: FND_MESSAGE.Set_Token('BY_PROC', 'GMI_TRANS_ENGINE_PUB.DELETE_PENDING_TRANSACTION');
787: FND_MESSAGE.Set_Token('WHERE', 'Delete_Reservation');
788: FND_MSG_PUB.Add;
789: RAISE FND_API.G_EXC_ERROR;
790: END IF;
1777:
1778: PROCEDURE build_trans_rec
1779: (
1780: p_trans_row IN ic_tran_pnd%rowtype
1781: , x_trans_rec IN OUT NOCOPY GMI_TRANS_ENGINE_PUB.ictran_rec
1782: ) IS
1783: BEGIN
1784: x_trans_rec.trans_id := null;
1785: x_trans_rec.item_id := p_trans_row.item_id;
1819: END build_res_rec;
1820:
1821: PROCEDURE PRINT_DEBUG
1822: (
1823: p_tran_rec IN GMI_TRANS_ENGINE_PUB.ictran_rec
1824: ,p_routine IN VARCHAR2
1825: )
1826: IS
1827: BEGIN