[Home] [Help]
208: BEGIN
209:
210: SAVEPOINT RUN_REPAIR_EXECUTION_PVT;
211:
212: /** Standard call to check for call compatibility **/
213: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
214: p_api_version_number,
215: l_api_name,
216: G_PKG_NAME)
433:
434: Elsif (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
435: l_line_rec.line_num := I; -- 1;
436: l_line_rec.inventory_item_id := CSP_RESERVED_LINES_rec.inventory_item_id;
437: --l_line_rec.item_description := 'Sentinel Standard Desktop';
438: l_line_rec.sourced_from := 'INVENTORY';
439: l_line_rec.ordered_quantity := CSP_RESERVED_LINES_rec.quantity;
440: l_line_rec.unit_of_measure := l_primary_uom_code;
441: l_line_rec.dest_subinventory := FND_PROFILE.value(NAME => 'CSP_REPAIR_SUP_ORG_DEFECT_SUBINV');
601:
602: Begin
603: SELECT CLASS_CODE
604: INTO L_CLASS_CODE
605: FROM WIP_NON_STANDARD_CLASSES_VAL_V
606: WHERE ORGANIZATION_ID = CSP_REPAIR_PO_HEADERS_rec.repair_supplier_org_id
607: AND CLASS_TYPE = 4
608: AND CLASS_CODE = 'Expense';
609: Exception
654: CSP_REPAIR_PO_HEADERS_rec.INTERNAL_ORDER_HEADER_ID, --> (or) Pass CSP_REPAIR_PO_HEADERS_rec.repair_po_header_id
655: 2, --> 2 Validation, 4 Completion
656: 1, --> 1 Pending, 4 Complete
657: CSP_REPAIR_PO_HEADERS_rec.repair_supplier_org_id,
658: 4, --> LOAD_TYPE: 4 Non-standard discrete jobs, 3 update discrete jobs, 1 standard discrete jobs
659: CSP_REPAIR_PO_HEADERS_rec.INVENTORY_ITEM_ID,
660: CSP_REPAIR_PO_HEADERS_rec.QUANTITY,
661: 3, --> Status type: 3 Released, 4 Complete, 12 closed
662: SYSDATE, --> FIRST_UNIT_START_DATE
1074: SOURCE_LINE_ID,
1075: decode(FINAL_COMPLETION_FLAG,'Y',4,2), --> 2 Validation, 4 Completion
1076: decode(FINAL_COMPLETION_FLAG,'Y',4,1), --> 1 Pending, 4 Complete
1077: ORGANIZATION_ID,
1078: 3, --> Load type: 4 Create non-standard wip job, 3 Update non-standard wip job
1079: PRIMARY_ITEM_ID,
1080: START_QUANTITY,
1081: decode(FINAL_COMPLETION_FLAG,'Y',4,3), --> Status type: 3 Released, 4 Complete
1082: --FIRST_UNIT_START_DATE,
1205: IF FND_API.to_Boolean(l_commit) THEN
1206: COMMIT WORK;
1207: END IF;
1208:
1209: /** Standard call to get message count and if count is 1, get message info. **/
1210: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
1211: p_data => x_msg_data
1212: );
1213: /** Errbuf returns error messages and
1381: **/
1382:
1383: SAVEPOINT REPAIR_PO_SCRAP_PVT;
1384:
1385: /** Standard call to check for call compatibility **/
1386: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1387: p_api_version_number,
1388: l_api_name,
1389: G_PKG_NAME)
1613: SOURCE_LINE_ID,
1614: decode(FINAL_COMPLETION_FLAG,'Y',4,2), --> 2 Validation, 4 Completion
1615: decode(FINAL_COMPLETION_FLAG,'Y',4,1), --> 1 Pending, 4 Complete
1616: ORGANIZATION_ID,
1617: 3, --> Load type: 4 Create non-standard wip job, 3 Update non-standard wip job
1618: PRIMARY_ITEM_ID,
1619: START_QUANTITY - L_SCRAP_ADJUST_QTY, --> reducing the WIP_JOB qty to (repair_po_qty - scrap or adjustment qty)
1620: decode(FINAL_COMPLETION_FLAG,'Y',4,3), --> Status type: 3 Released, 4 Complete
1621: --FIRST_UNIT_START_DATE,
1702: END IF;
1703:
1704: x_return_status := l_return_status;
1705:
1706: /** Standard call to get message count and if count is 1, get message info */
1707: FND_MSG_PUB.Count_And_Get
1708: (p_count => x_msg_count,
1709: p_data => x_msg_data
1710: );