9:
10: x BOOLEAN;
11:
12: BEGIN
13: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
14: 'ROUTINE', Routine);
15: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
16: 'OPERATION', Operation);
17: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
11:
12: BEGIN
13: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
14: 'ROUTINE', Routine);
15: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
16: 'OPERATION', Operation);
17: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
18: 'MESSAGE',Message|| ' sqlcode:'||SQLCODE);
19:
13: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
14: 'ROUTINE', Routine);
15: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
16: 'OPERATION', Operation);
17: x :=OE_MSG.Set_Buffer_Message('OE_EXC_INTERNAL_EXCEPTION',
18: 'MESSAGE',Message|| ' sqlcode:'||SQLCODE);
19:
20: END Raise_Exception;
21:
305: Return (TRUE);
306:
307: END IF;
308:
309: OE_MSG.Set_Buffer_Message('OE_SCH_LOT_REV_EXIST');
310: Return (FALSE);
311:
312: END Check_Rev_Lot_Null;
313:
327:
328: IF (P_Revision IS NULL) AND
329: ((P_Lot_Number IS NOT NULL) OR (P_Subinventory IS NOT NULL)) THEN
330:
331: OE_MSG.Set_Buffer_Message('OE_SCH_ENTER_REVISION');
332: Return (FALSE);
333:
334: END IF;
335:
355:
356: IF (P_Lot_Number IS NULL) AND
357: (P_Subinventory IS NOT NULL) THEN
358:
359: OE_MSG.Set_Buffer_Message('OE_SCH_ENTER_LOT');
360: Return(FALSE);
361:
362: END IF;
363:
458: BEGIN
459:
460: IF (P_Warehouse_ID <> P_DB_Warehouse_ID) THEN
461:
462: OE_MSG.Set_Buffer_Message('OE_SCH_WH_CHG_NOT_ALLOWED');
463: Return (FALSE);
464:
465: END IF;
466:
473: BEGIN
474:
475: IF (P_Schedule_Date <> P_DB_Schedule_Date) THEN
476:
477: OE_MSG.Set_Buffer_Message('OE_SCH_DATE_CHG_NOT_ALLOWED');
478: Return (FALSE);
479:
480: END IF;
481:
487: BEGIN
488:
489: IF (P_Demand_Class_Code <> P_DB_Demand_Class_Code) THEN
490:
491: OE_MSG.Set_Buffer_Message('OE_SCH_DEM_CL_CHG_NOT_ALLOWED');
492: Return (FALSE);
493:
494: END IF;
495:
502: BEGIN
503:
504: IF (P_Quantity <> P_DB_Quantity) THEN
505:
506: OE_MSG.Set_Buffer_Message('OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
507: Return (FALSE);
508:
509: END IF;
510:
518: BEGIN
519:
520: IF (P_Subinventory <> P_DB_Subinventory) THEN
521:
522: OE_MSG.Set_Buffer_Message('OE_SCH_SUBINV_CHG_NOT_ALLOWED');
523: Return (FALSE);
524:
525: END IF;
526:
533: BEGIN
534:
535: IF (P_Lot_Number <> P_DB_Lot_Number) THEN
536:
537: OE_MSG.Set_Buffer_Message('OE_SCH_LOT_CHG_NOT_ALLOWED');
538: Return (FALSE);
539:
540: END IF;
541:
548: BEGIN
549:
550: IF (P_Revision <> P_DB_Revision) THEN
551:
552: OE_MSG.Set_Buffer_Message('OE_SCH_REV_CHG_NOT_ALLOWED');
553: Return (FALSE);
554:
555: END IF;
556: