28: l_return_code NUMBER := 0;
29: BEGIN
30: if (p_org_id is null or p_org_id = '') then
31: l_return_code := 1;
32: FND_MESSAGE.SET_NAME('BOM','BOM_INVALID_ORGANIZATION');
33: FND_MESSAGE.SET_TOKEN('L_ORGANIZATION_ID', p_org_id);
34: x_error_message := FND_MESSAGE.GET ;
35: end if;
36: return l_return_code;
29: BEGIN
30: if (p_org_id is null or p_org_id = '') then
31: l_return_code := 1;
32: FND_MESSAGE.SET_NAME('BOM','BOM_INVALID_ORGANIZATION');
33: FND_MESSAGE.SET_TOKEN('L_ORGANIZATION_ID', p_org_id);
34: x_error_message := FND_MESSAGE.GET ;
35: end if;
36: return l_return_code;
37: END VALIDATE_ORG_ID;
30: if (p_org_id is null or p_org_id = '') then
31: l_return_code := 1;
32: FND_MESSAGE.SET_NAME('BOM','BOM_INVALID_ORGANIZATION');
33: FND_MESSAGE.SET_TOKEN('L_ORGANIZATION_ID', p_org_id);
34: x_error_message := FND_MESSAGE.GET ;
35: end if;
36: return l_return_code;
37: END VALIDATE_ORG_ID;
38:
46: l_orderable_item NUMBER := 0;
47: BEGIN
48: if (p_item_id is null or p_item_id = '') then
49: l_return_code := 1;
50: FND_MESSAGE.SET_NAME('BOM','BOM_INVALID_ORGANIZATION');
51: FND_MESSAGE.SET_TOKEN('L_ORGANIZATION_ID', p_org_id);
52: x_error_message := FND_MESSAGE.GET ;
53: else
54: SELECT
47: BEGIN
48: if (p_item_id is null or p_item_id = '') then
49: l_return_code := 1;
50: FND_MESSAGE.SET_NAME('BOM','BOM_INVALID_ORGANIZATION');
51: FND_MESSAGE.SET_TOKEN('L_ORGANIZATION_ID', p_org_id);
52: x_error_message := FND_MESSAGE.GET ;
53: else
54: SELECT
55: 1
48: if (p_item_id is null or p_item_id = '') then
49: l_return_code := 1;
50: FND_MESSAGE.SET_NAME('BOM','BOM_INVALID_ORGANIZATION');
51: FND_MESSAGE.SET_TOKEN('L_ORGANIZATION_ID', p_org_id);
52: x_error_message := FND_MESSAGE.GET ;
53: else
54: SELECT
55: 1
56: INTO
63: AND inventory_item_id = p_item_id
64: AND organization_id = p_org_id;
65: if (l_orderable_item = 0) then
66: l_return_code := 1;
67: FND_MESSAGE.SET_NAME('BOM','BOM_NOT_ORDERABLE_TOP_ITEM');
68: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_item_id);
69: x_error_message := FND_MESSAGE.GET ;
70: end if;
71: end if;
64: AND organization_id = p_org_id;
65: if (l_orderable_item = 0) then
66: l_return_code := 1;
67: FND_MESSAGE.SET_NAME('BOM','BOM_NOT_ORDERABLE_TOP_ITEM');
68: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_item_id);
69: x_error_message := FND_MESSAGE.GET ;
70: end if;
71: end if;
72: return l_return_code;
65: if (l_orderable_item = 0) then
66: l_return_code := 1;
67: FND_MESSAGE.SET_NAME('BOM','BOM_NOT_ORDERABLE_TOP_ITEM');
68: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_item_id);
69: x_error_message := FND_MESSAGE.GET ;
70: end if;
71: end if;
72: return l_return_code;
73: END VALIDATE_ITEM_ID;
127:
128: EXCEPTION
129: WHEN NO_DATA_FOUND THEN
130: x_error_code := 1;
131: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
132: x_error_message := FND_MESSAGE.GET ;
133: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
134: return;
135: WHEN OTHERS THEN
128: EXCEPTION
129: WHEN NO_DATA_FOUND THEN
130: x_error_code := 1;
131: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
132: x_error_message := FND_MESSAGE.GET ;
133: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
134: return;
135: WHEN OTHERS THEN
136: x_error_code := 1;
133: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
134: return;
135: WHEN OTHERS THEN
136: x_error_code := 1;
137: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
138: x_error_message := FND_MESSAGE.GET ;
139: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
140: return;
141: END EXPLODE_STRUCTURE;
134: return;
135: WHEN OTHERS THEN
136: x_error_code := 1;
137: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
138: x_error_message := FND_MESSAGE.GET ;
139: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
140: return;
141: END EXPLODE_STRUCTURE;
142:
187: x_BOM := p_bom;
188: EXCEPTION
189: WHEN NO_DATA_FOUND THEN
190: x_error_code := 1;
191: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
192: x_error_message := FND_MESSAGE.GET ;
193: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
194: return;
195: WHEN OTHERS THEN
188: EXCEPTION
189: WHEN NO_DATA_FOUND THEN
190: x_error_code := 1;
191: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
192: x_error_message := FND_MESSAGE.GET ;
193: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
194: return;
195: WHEN OTHERS THEN
196: x_error_code := 1;
193: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
194: return;
195: WHEN OTHERS THEN
196: x_error_code := 1;
197: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
198: x_error_message := FND_MESSAGE.GET ;
199: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
200: return;
201: END GET_ITEMS_TO_SYNCH;
194: return;
195: WHEN OTHERS THEN
196: x_error_code := 1;
197: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
198: x_error_message := FND_MESSAGE.GET ;
199: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
200: return;
201: END GET_ITEMS_TO_SYNCH;
202:
268: x_BOM := p_bom;
269: EXCEPTION
270: WHEN NO_DATA_FOUND THEN
271: x_error_code := 1;
272: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
273: x_error_message := FND_MESSAGE.GET ;
274: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
275: return;
276: WHEN OTHERS THEN
269: EXCEPTION
270: WHEN NO_DATA_FOUND THEN
271: x_error_code := 1;
272: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
273: x_error_message := FND_MESSAGE.GET ;
274: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
275: return;
276: WHEN OTHERS THEN
277: x_error_code := 1;
274: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
275: return;
276: WHEN OTHERS THEN
277: x_error_code := 1;
278: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
279: x_error_message := FND_MESSAGE.GET ;
280: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
281: return;
282: END GET_STRUCTURE_PAYLOAD;
275: return;
276: WHEN OTHERS THEN
277: x_error_code := 1;
278: FND_MESSAGE.SET_NAME('BOM','BOM_UNEXPECTED_ERROR');
279: x_error_message := FND_MESSAGE.GET ;
280: x_error_message := x_error_message ||':'||SQLCODE || ':'||SQLERRM;
281: return;
282: END GET_STRUCTURE_PAYLOAD;
283: