6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'MRP_WFS_Form_Flow_Schedule';
7:
8: -- Global variables holding cached record.
9:
10: g_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
11: g_db_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14: /*
7:
8: -- Global variables holding cached record.
9:
10: g_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
11: g_db_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
12:
13: -- Forward declaration of procedures maintaining entity record cache.
14: /*
15: Enhancement : 2665434
14: /*
15: Enhancement : 2665434
16: Description : Changed the usage of the record type from old record type
17: (MRP_FLow_Schedule_PUB.Flow_Schedule_Rec_Type) to new record type
18: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
19: */
20:
21: PROCEDURE Write_flow_schedule
22: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
18: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
19: */
20:
21: PROCEDURE Write_flow_schedule
22: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
23: , p_db_record IN BOOLEAN := NULL
24: );
25:
26: /*
26: /*
27: Enhancement : 2665434
28: Description : Changed the usage of the record type from old record type
29: (MRP_FLow_Schedule_PUB.Flow_Schedule_Rec_Type) to new record type
30: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
31: */
32: FUNCTION Get_flow_schedule
33: ( p_db_record IN BOOLEAN := NULL
34: , p_wip_entity_id IN NUMBER
32: FUNCTION Get_flow_schedule
33: ( p_db_record IN BOOLEAN := NULL
34: , p_wip_entity_id IN NUMBER
35: )
36: RETURN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
37:
38: /*Enhancement : 2665434
39: Changed the usage of the record type from old record type
40: (MRP_FLow_Schedule_PUB.Flow_Schedule_Rec_Type) to new record type
37:
38: /*Enhancement : 2665434
39: Changed the usage of the record type from old record type
40: (MRP_FLow_Schedule_PUB.Flow_Schedule_Rec_Type) to new record type
41: (MRP_FLow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type)
42: Using the logic to initialize g_flow_schedule_rec and g_db_flow_schedule_rec to NULL instead
43: of G_MISS_REC.
44: */
45: PROCEDURE Clear_flow_schedule;
47: /*Enhancement : 2665434
48: New Function created to store the value in the cache correctly.
49: */
50: FUNCTION Convert_Null_To_Miss
51: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
52: ) RETURN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type ;
53:
54:
55: -- Global variable holding performed operations.
48: New Function created to store the value in the cache correctly.
49: */
50: FUNCTION Convert_Null_To_Miss
51: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
52: ) RETURN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type ;
53:
54:
55: -- Global variable holding performed operations.
56:
132: , x_end_item_unit_number OUT NOCOPY VARCHAR2
133: , x_quantity_scrapped OUT NOCOPY NUMBER
134: )
135: IS
136: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
137: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
138: l_control_rec MRP_GLOBALS.Control_Rec_Type;
139: l_return_status VARCHAR2(1);
140: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
133: , x_quantity_scrapped OUT NOCOPY NUMBER
134: )
135: IS
136: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
137: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
138: l_control_rec MRP_GLOBALS.Control_Rec_Type;
139: l_return_status VARCHAR2(1);
140: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
141: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
136: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
137: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
138: l_control_rec MRP_GLOBALS.Control_Rec_Type;
139: l_return_status VARCHAR2(1);
140: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
141: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
142: BEGIN
143:
144: -- Set control flags.
137: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
138: l_control_rec MRP_GLOBALS.Control_Rec_Type;
139: l_return_status VARCHAR2(1);
140: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
141: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
142: BEGIN
143:
144: -- Set control flags.
145:
188: -- Set Operation to Create
189:
190: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
191:
192: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
193:
194: MRP_Flow_Schedule_PVT.Process_flow_schedule
195: ( p_api_version_number => 1.0
196: , p_init_msg_list => FND_API.G_TRUE
190: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
191:
192: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
193:
194: MRP_Flow_Schedule_PVT.Process_flow_schedule
195: ( p_api_version_number => 1.0
196: , p_init_msg_list => FND_API.G_TRUE
197: , x_return_status => l_return_status
198: , x_msg_count => x_msg_count
450: , x_end_item_unit_number OUT NOCOPY VARCHAR2
451: , x_quantity_scrapped OUT NOCOPY NUMBER
452: )
453: IS
454: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
455: l_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
456: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
457: l_control_rec MRP_GLOBALS.Control_Rec_Type;
458: l_return_status VARCHAR2(1);
451: , x_quantity_scrapped OUT NOCOPY NUMBER
452: )
453: IS
454: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
455: l_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
456: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
457: l_control_rec MRP_GLOBALS.Control_Rec_Type;
458: l_return_status VARCHAR2(1);
459: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
452: )
453: IS
454: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
455: l_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
456: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
457: l_control_rec MRP_GLOBALS.Control_Rec_Type;
458: l_return_status VARCHAR2(1);
459: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
460: temp varchar2(1000);
455: l_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
456: l_flow_schedule_val_rec MRP_Flow_Schedule_PVT.Flow_Schedule_Val_PVT_Rec_Type;
457: l_control_rec MRP_GLOBALS.Control_Rec_Type;
458: l_return_status VARCHAR2(1);
459: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
460: temp varchar2(1000);
461: BEGIN
462:
463: -- Set control flags.
633: ELSE
634: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
635: END IF;
636:
637: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
638:
639: MRP_Flow_Schedule_PVT.Process_flow_schedule
640: ( p_api_version_number => 1.0
641: , p_init_msg_list => FND_API.G_TRUE
635: END IF;
636:
637: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
638:
639: MRP_Flow_Schedule_PVT.Process_flow_schedule
640: ( p_api_version_number => 1.0
641: , p_init_msg_list => FND_API.G_TRUE
642: , p_validation_level => FND_API.G_VALID_LEVEL_NONE
643: , x_return_status => l_return_status
1182: -- Function Convert_Miss_To_Null
1183: --
1184:
1185: FUNCTION Convert_Null_To_Miss
1186: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
1187: ) RETURN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
1188: IS
1189: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type:= p_flow_schedule_rec;
1190: BEGIN
1183: --
1184:
1185: FUNCTION Convert_Null_To_Miss
1186: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
1187: ) RETURN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
1188: IS
1189: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type:= p_flow_schedule_rec;
1190: BEGIN
1191:
1185: FUNCTION Convert_Null_To_Miss
1186: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
1187: ) RETURN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
1188: IS
1189: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type:= p_flow_schedule_rec;
1190: BEGIN
1191:
1192: IF l_flow_schedule_rec.alternate_bom_designator IS NULL THEN
1193: l_flow_schedule_rec.alternate_bom_designator := FND_API.G_MISS_CHAR;
1483: , x_last_updated_by OUT NOCOPY NUMBER
1484: , x_last_update_login OUT NOCOPY NUMBER
1485: )
1486: IS
1487: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1488: l_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1489: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1490: l_return_status VARCHAR2(1);
1491: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1484: , x_last_update_login OUT NOCOPY NUMBER
1485: )
1486: IS
1487: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1488: l_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1489: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1490: l_return_status VARCHAR2(1);
1491: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1492: BEGIN
1487: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1488: l_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1489: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1490: l_return_status VARCHAR2(1);
1491: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1492: BEGIN
1493:
1494: -- Set control flags.
1495:
1525: ELSE
1526: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
1527: END IF;
1528:
1529: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1530: MRP_Flow_Schedule_PVT.Process_flow_schedule
1531: ( p_api_version_number => 1.0
1532: , p_init_msg_list => FND_API.G_TRUE
1533: , x_return_status => l_return_status
1526: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
1527: END IF;
1528:
1529: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1530: MRP_Flow_Schedule_PVT.Process_flow_schedule
1531: ( p_api_version_number => 1.0
1532: , p_init_msg_list => FND_API.G_TRUE
1533: , x_return_status => l_return_status
1534: , x_msg_count => x_msg_count
1629: , x_msg_data OUT NOCOPY VARCHAR2
1630: , p_wip_entity_id IN NUMBER
1631: )
1632: IS
1633: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1634: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1635: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1636: l_return_status VARCHAR2(1);
1637: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1630: , p_wip_entity_id IN NUMBER
1631: )
1632: IS
1633: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1634: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1635: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1636: l_return_status VARCHAR2(1);
1637: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1638: BEGIN
1633: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1634: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1635: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1636: l_return_status VARCHAR2(1);
1637: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1638: BEGIN
1639:
1640: -- Set control flags.
1641:
1662: -- Set Operation.
1663:
1664: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_DELETE;
1665:
1666: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1667:
1668: MRP_Flow_Schedule_PVT.Process_flow_schedule
1669: ( p_api_version_number => 1.0
1670: , p_init_msg_list => FND_API.G_TRUE
1664: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_DELETE;
1665:
1666: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1667:
1668: MRP_Flow_Schedule_PVT.Process_flow_schedule
1669: ( p_api_version_number => 1.0
1670: , p_init_msg_list => FND_API.G_TRUE
1671: , x_return_status => l_return_status
1672: , x_msg_count => x_msg_count
1755: )
1756: IS
1757: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1758: l_return_status VARCHAR2(1);
1759: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1760: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1761: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1762: BEGIN
1763:
1756: IS
1757: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1758: l_return_status VARCHAR2(1);
1759: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1760: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1761: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1762: BEGIN
1763:
1764: -- Set control flags.
1757: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1758: l_return_status VARCHAR2(1);
1759: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1760: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1761: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1762: BEGIN
1763:
1764: -- Set control flags.
1765:
1776:
1777: l_control_rec.clear_api_cache := FALSE;
1778: l_control_rec.clear_api_requests := FALSE;
1779:
1780: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1781:
1782: MRP_Flow_Schedule_PVT.Process_flow_schedule
1783: ( p_api_version_number => 1.0
1784: , p_init_msg_list => FND_API.G_TRUE
1778: l_control_rec.clear_api_requests := FALSE;
1779:
1780: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1781:
1782: MRP_Flow_Schedule_PVT.Process_flow_schedule
1783: ( p_api_version_number => 1.0
1784: , p_init_msg_list => FND_API.G_TRUE
1785: , x_return_status => l_return_status
1786: , x_msg_count => x_msg_count
1865: )
1866: IS
1867: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1868: l_return_status VARCHAR2(1);
1869: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1870: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1871: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1872:
1873: BEGIN
1866: IS
1867: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1868: l_return_status VARCHAR2(1);
1869: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1870: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1871: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1872:
1873: BEGIN
1874:
1867: l_control_rec MRP_GLOBALS.Control_Rec_Type;
1868: l_return_status VARCHAR2(1);
1869: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1870: l_p_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1871: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
1872:
1873: BEGIN
1874:
1875: -- Set control flags.
1887:
1888: l_control_rec.clear_api_cache := FALSE;
1889: l_control_rec.clear_api_requests := TRUE;
1890:
1891: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1892:
1893: MRP_Flow_Schedule_PVT.Process_flow_schedule
1894: ( p_api_version_number => 1.0
1895: , p_init_msg_list => FND_API.G_TRUE
1889: l_control_rec.clear_api_requests := TRUE;
1890:
1891: -- Call MRP_Flow_Schedule_PVT.Process_flow_schedule
1892:
1893: MRP_Flow_Schedule_PVT.Process_flow_schedule
1894: ( p_api_version_number => 1.0
1895: , p_init_msg_list => FND_API.G_TRUE
1896: , x_return_status => l_return_status
1897: , x_msg_count => x_msg_count
2044: , p_quantity_scrapped IN NUMBER
2045: )
2046: IS
2047: l_return_status VARCHAR2(1);
2048: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2049: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2050: l_file UTL_FILE.file_type;
2051: BEGIN
2052:
2045: )
2046: IS
2047: l_return_status VARCHAR2(1);
2048: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2049: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2050: l_file UTL_FILE.file_type;
2051: BEGIN
2052:
2053: -- Load flow_schedule record
2123: l_flow_schedule_rec.quantity_scrapped := p_quantity_scrapped;
2124:
2125: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_LOCK;
2126:
2127: -- Call MRP_Flow_Schedule_PVT.Lock_flow_schedule
2128:
2129: MRP_Flow_Schedule_PVT.Lock_flow_schedule
2130: ( p_api_version_number => 1.0
2131: , p_init_msg_list => FND_API.G_TRUE
2125: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_LOCK;
2126:
2127: -- Call MRP_Flow_Schedule_PVT.Lock_flow_schedule
2128:
2129: MRP_Flow_Schedule_PVT.Lock_flow_schedule
2130: ( p_api_version_number => 1.0
2131: , p_init_msg_list => FND_API.G_TRUE
2132: , x_return_status => l_return_status
2133: , x_msg_count => x_msg_count
2266: )
2267: IS
2268: l_return_status VARCHAR2(1);
2269: l_control_rec MRP_GLOBALS.Control_Rec_Type ;
2270: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2271: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2272: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2273: BEGIN
2274:
2267: IS
2268: l_return_status VARCHAR2(1);
2269: l_control_rec MRP_GLOBALS.Control_Rec_Type ;
2270: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2271: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2272: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2273: BEGIN
2274:
2275: -- Load flow_schedule record
2268: l_return_status VARCHAR2(1);
2269: l_control_rec MRP_GLOBALS.Control_Rec_Type ;
2270: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2271: l_x_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2272: l_p_old_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2273: BEGIN
2274:
2275: -- Load flow_schedule record
2276:
2344: l_flow_schedule_rec.end_item_unit_number := p_end_item_unit_number;
2345: l_flow_schedule_rec.quantity_scrapped := p_quantity_scrapped;
2346: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
2347:
2348: -- Call MRP_Flow_Schedule_PVT.Process_Flow_Schedule
2349:
2350: MRP_Flow_Schedule_PVT.Process_Flow_Schedule
2351: ( p_api_version_number => 1.0
2352: , p_init_msg_list => FND_API.G_TRUE
2346: l_flow_schedule_rec.operation := MRP_GLOBALS.G_OPR_CREATE;
2347:
2348: -- Call MRP_Flow_Schedule_PVT.Process_Flow_Schedule
2349:
2350: MRP_Flow_Schedule_PVT.Process_Flow_Schedule
2351: ( p_api_version_number => 1.0
2352: , p_init_msg_list => FND_API.G_TRUE
2353: , x_return_status => l_return_status
2354: , x_msg_count => x_msg_count
2397:
2398: -- Procedures maintaining flow_schedule record cache.
2399:
2400: PROCEDURE Write_flow_schedule
2401: ( p_flow_schedule_rec IN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
2402: , p_db_record IN BOOLEAN := NULL
2403: )
2404: IS
2405: BEGIN
2417: FUNCTION Get_flow_schedule
2418: ( p_db_record IN BOOLEAN := NULL
2419: , p_wip_entity_id IN NUMBER
2420: )
2421: RETURN MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type
2422: IS
2423: BEGIN
2424:
2425: IF ((p_wip_entity_id <> g_flow_schedule_rec.wip_entity_id ) or (g_flow_schedule_rec.wip_entity_id IS NULL)) and (p_wip_entity_id IS NOT NULL)
2452: END Get_Flow_Schedule;
2453:
2454: PROCEDURE Clear_Flow_Schedule
2455: IS
2456: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2457: l_db_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2458: BEGIN
2459:
2460: g_flow_schedule_rec := l_flow_schedule_rec ;
2453:
2454: PROCEDURE Clear_Flow_Schedule
2455: IS
2456: l_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2457: l_db_flow_schedule_rec MRP_Flow_Schedule_PVT.Flow_Schedule_PVT_Rec_Type;
2458: BEGIN
2459:
2460: g_flow_schedule_rec := l_flow_schedule_rec ;
2461: g_db_flow_schedule_rec := l_db_flow_schedule_rec ;