67:
68:
69: /* B1731567 - identify co_code associated with whse and orgn_code
70: ================================================================*/
71: CURSOR sy_orgn_mst_c1 is
72: SELECT co_code
73: FROM sy_orgn_mst
74: WHERE orgn_code = l_ic_whse_mst_rec.orgn_code;
75:
69: /* B1731567 - identify co_code associated with whse and orgn_code
70: ================================================================*/
71: CURSOR sy_orgn_mst_c1 is
72: SELECT co_code
73: FROM sy_orgn_mst
74: WHERE orgn_code = l_ic_whse_mst_rec.orgn_code;
75:
76:
77: BEGIN
181: /* B1731567 - identify co_code associated with whse and orgn_code
182: it may differ from that associated with the cust_no
183: ================================================================*/
184: -- HW BUG#:2643440 use ll_allocation_rec instead of l_allocation_rec
185: OPEN sy_orgn_mst_c1;
186: FETCH sy_orgn_mst_c1 INTO ll_allocation_rec.co_code;
187:
188: /* Report error if row not located
189: =================================*/
182: it may differ from that associated with the cust_no
183: ================================================================*/
184: -- HW BUG#:2643440 use ll_allocation_rec instead of l_allocation_rec
185: OPEN sy_orgn_mst_c1;
186: FETCH sy_orgn_mst_c1 INTO ll_allocation_rec.co_code;
187:
188: /* Report error if row not located
189: =================================*/
190: IF (sy_orgn_mst_c1%NOTFOUND)
186: FETCH sy_orgn_mst_c1 INTO ll_allocation_rec.co_code;
187:
188: /* Report error if row not located
189: =================================*/
190: IF (sy_orgn_mst_c1%NOTFOUND)
191: THEN
192: CLOSE sy_orgn_mst_c1;
193: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
194: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_ic_whse_mst_rec.orgn_code);
188: /* Report error if row not located
189: =================================*/
190: IF (sy_orgn_mst_c1%NOTFOUND)
191: THEN
192: CLOSE sy_orgn_mst_c1;
193: FND_MESSAGE.SET_NAME('GMI','IC_API_INVALID_ORGN_CODE');
194: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_ic_whse_mst_rec.orgn_code);
195: FND_MSG_PUB.Add;
196: RAISE FND_API.G_EXC_ERROR;
194: FND_MESSAGE.SET_TOKEN('ORGN_CODE',l_ic_whse_mst_rec.orgn_code);
195: FND_MSG_PUB.Add;
196: RAISE FND_API.G_EXC_ERROR;
197: ELSE
198: CLOSE sy_orgn_mst_c1;
199: END IF;
200:
201: /*Select inventory in accordance with allocation rules
202: =====================================================*/