122: IF (l_debug = 'Y') THEN
123: gmd_debug.put_line('operation number required');
124: END IF;
125:
126: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
127: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_NO');
128: FND_MSG_PUB.ADD;
129: RAISE ins_operation_err;
130: END IF;
123: gmd_debug.put_line('operation number required');
124: END IF;
125:
126: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
127: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_NO');
128: FND_MSG_PUB.ADD;
129: RAISE ins_operation_err;
130: END IF;
131:
134: IF (l_debug = 'Y') THEN
135: gmd_debug.put_line('operation version required');
136: END IF;
137:
138: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
139: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_VERS');
140: FND_MSG_PUB.ADD;
141: RAISE ins_operation_err;
142: ELSIF p_operations.oprn_vers < 0 THEN
135: gmd_debug.put_line('operation version required');
136: END IF;
137:
138: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
139: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_VERS');
140: FND_MSG_PUB.ADD;
141: RAISE ins_operation_err;
142: ELSIF p_operations.oprn_vers < 0 THEN
143: gmd_api_grp.log_message ('GMD_NEGATIVE_FIELDS',
160: IF (l_debug = 'Y') THEN
161: gmd_debug.put_line('operation desc required');
162: END IF;
163:
164: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
165: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_DESC');
166: FND_MSG_PUB.ADD;
167: RAISE ins_operation_err;
168: END IF;
161: gmd_debug.put_line('operation desc required');
162: END IF;
163:
164: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
165: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_DESC');
166: FND_MSG_PUB.ADD;
167: RAISE ins_operation_err;
168: END IF;
169:
172: IF (l_debug = 'Y') THEN
173: gmd_debug.put_line('process qty uom required');
174: END IF;
175:
176: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
177: FND_MESSAGE.SET_TOKEN ('MISSING', 'PROCESS_QTY_UOM');
178: FND_MSG_PUB.ADD;
179: RAISE ins_operation_err;
180: /* call common function to check if um passed is valid */
173: gmd_debug.put_line('process qty uom required');
174: END IF;
175:
176: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
177: FND_MESSAGE.SET_TOKEN ('MISSING', 'PROCESS_QTY_UOM');
178: FND_MSG_PUB.ADD;
179: RAISE ins_operation_err;
180: /* call common function to check if um passed is valid */
181: ELSIF (NOT(gmd_api_grp.validate_um(p_operations.PROCESS_QTY_UOM))) THEN
182: IF (l_debug = 'Y') THEN
183: gmd_debug.put_line('process qty uom invalid');
184: END IF;
185:
186: FND_MESSAGE.SET_NAME('GMA', 'SY_INVALID_UM_CODE');
187: FND_MSG_PUB.ADD;
188: RAISE ins_operation_err;
189: END IF;
190:
193: *
194: */
195: --Check that organization id is not null if raise an error message
196: IF (p_operations.owner_organization_id IS NULL) THEN
197: FND_MESSAGE.SET_NAME('GMD', 'GMD_MISSING_ORGANIZATION_ID');
198: FND_MSG_PUB.Add;
199: RAISE FND_API.G_EXC_ERROR;
200: END IF;
201:
205: END IF;
206:
207: --Check the organization id passed is process enabled if not raise an error message
208: IF NOT (gmd_api_grp.check_orgn_status(p_operations.owner_organization_id)) THEN
209: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
210: FND_MESSAGE.SET_TOKEN('ORGN_ID', p_operations.owner_organization_id);
211: FND_MSG_PUB.Add;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
206:
207: --Check the organization id passed is process enabled if not raise an error message
208: IF NOT (gmd_api_grp.check_orgn_status(p_operations.owner_organization_id)) THEN
209: FND_MESSAGE.SET_NAME('GMD', 'GMD_INVALID_ORGANIZATION_ID');
210: FND_MESSAGE.SET_TOKEN('ORGN_ID', p_operations.owner_organization_id);
211: FND_MSG_PUB.Add;
212: RAISE FND_API.G_EXC_ERROR;
213: END IF;
214:
228: IF p_operations.effective_start_date > p_operations.effective_end_date THEN
229: IF (l_debug = 'Y') THEN
230: gmd_debug.put_line('effective start date must be less then end date');
231: END IF;
232: FND_MESSAGE.SET_NAME('GMD', 'QC_MIN_MAX_DATE');
233: FND_MSG_PUB.ADD;
234: RAISE ins_operation_err;
235: END IF;
236: END IF;
369: p_data => x_message_list );
370: WHEN OTHERS THEN
371: ROLLBACK TO SAVEPOINT insert_oprn;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
374: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
375: FND_MSG_PUB.ADD;
376: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
377: P_data => x_message_list);
370: WHEN OTHERS THEN
371: ROLLBACK TO SAVEPOINT insert_oprn;
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
374: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
375: FND_MSG_PUB.ADD;
376: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
377: P_data => x_message_list);
378: END Insert_Operation;
464: gmd_debug.put_line('operation id or operation number and version are required');
465: END IF;
466:
467: IF (p_oprn_id IS NULL) THEN
468: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
469: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_ID');
470: FND_MSG_PUB.ADD;
471: ELSE
472: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
465: END IF;
466:
467: IF (p_oprn_id IS NULL) THEN
468: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
469: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_ID');
470: FND_MSG_PUB.ADD;
471: ELSE
472: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
473: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_NO, OPRN_VERS');
468: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
469: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_ID');
470: FND_MSG_PUB.ADD;
471: ELSE
472: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
473: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_NO, OPRN_VERS');
474: FND_MSG_PUB.ADD;
475: END IF;
476: RAISE upd_oprn_err;
469: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_ID');
470: FND_MSG_PUB.ADD;
471: ELSE
472: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
473: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_NO, OPRN_VERS');
474: FND_MSG_PUB.ADD;
475: END IF;
476: RAISE upd_oprn_err;
477: ELSIF p_oprn_id IS NOT NULL THEN
508: IF (l_debug = 'Y') THEN
509: gmd_debug.put_line('col_to_update required');
510: END IF;
511:
512: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
513: FND_MESSAGE.SET_TOKEN ('MISSING', 'COL_TO_UPDATE');
514: FND_MSG_PUB.ADD;
515: RAISE upd_oprn_err;
516: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'PROCESS_QTY_UOM' THEN
509: gmd_debug.put_line('col_to_update required');
510: END IF;
511:
512: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
513: FND_MESSAGE.SET_TOKEN ('MISSING', 'COL_TO_UPDATE');
514: FND_MSG_PUB.ADD;
515: RAISE upd_oprn_err;
516: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'PROCESS_QTY_UOM' THEN
517: IF (NOT(gmd_api_grp.validate_um(p_update_table(i).p_value))) THEN
517: IF (NOT(gmd_api_grp.validate_um(p_update_table(i).p_value))) THEN
518: IF (l_debug = 'Y') THEN
519: gmd_debug.put_line('process qty uom invalid');
520: END IF;
521: FND_MESSAGE.SET_NAME('GMA', 'SY_INVALID_UM_CODE');
522: FND_MSG_PUB.ADD;
523: RAISE upd_oprn_err;
524: END IF;
525: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'MINIMUM_TRANSFER_QTY' THEN
534: RAISE upd_oprn_err;
535: END IF;
536: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'OPRN_DESC' THEN
537: IF p_update_table(i).p_value IS NULL THEN
538: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
539: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_DESC');
540: FND_MSG_PUB.ADD;
541: RAISE upd_oprn_err;
542: END IF;
535: END IF;
536: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'OPRN_DESC' THEN
537: IF p_update_table(i).p_value IS NULL THEN
538: FND_MESSAGE.SET_NAME ('GMI', 'GMI_MISSING');
539: FND_MESSAGE.SET_TOKEN ('MISSING', 'OPRN_DESC');
540: FND_MSG_PUB.ADD;
541: RAISE upd_oprn_err;
542: END IF;
543: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'DELETE_MARK' THEN
543: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'DELETE_MARK' THEN
544: GMDRTVAL_PUB.check_delete_mark ( Pdelete_mark => p_update_table(i).p_value,
545: x_return_status => l_retn_status);
546: IF l_retn_status <> 'S' THEN /* it indicates that invalid value has been passed */
547: FND_MESSAGE.SET_NAME('GMA', 'SY_BADDELETEMARK');
548: FND_MSG_PUB.ADD;
549: RAISE upd_oprn_err;
550: END IF;
551: ELSIF UPPER(p_update_table(i).p_col_to_update) = 'OWNER_ORGANIZATION_ID' THEN
562: IF NOT GMD_COMMON_VAL.UPDATE_ALLOWED
563: (Entity => 'OPERATION',
564: Entity_id => v_oprn_id,
565: Update_Column_name => p_update_table(i).p_col_to_update) THEN
566: FND_MESSAGE.SET_NAME('GMD', 'GMD_OPRN_NOT_VALID');
567: FND_MSG_PUB.ADD;
568: RAISE upd_oprn_err;
569: END IF;
570: END IF;
607: P_data => x_message_list);
608: WHEN OTHERS THEN
609: ROLLBACK TO SAVEPOINT update_oprn;
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
612: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
613: FND_MSG_PUB.ADD;
614: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
615: P_data => x_message_list);
608: WHEN OTHERS THEN
609: ROLLBACK TO SAVEPOINT update_oprn;
610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
611: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
612: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
613: FND_MSG_PUB.ADD;
614: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
615: P_data => x_message_list);
616:
694: P_data => x_message_list);
695: WHEN OTHERS THEN
696: ROLLBACK TO SAVEPOINT delete_oprn;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
699: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
700: FND_MSG_PUB.ADD;
701: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
702: P_data => x_message_list);
695: WHEN OTHERS THEN
696: ROLLBACK TO SAVEPOINT delete_oprn;
697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
698: FND_MESSAGE.SET_NAME('GMD', 'GMD_UNEXPECTED_ERROR');
699: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
700: FND_MSG_PUB.ADD;
701: FND_MSG_PUB.COUNT_AND_GET (P_count => x_message_count,
702: P_data => x_message_list);
703: