61: p_msg_count => i_msg_count,
62: p_msg_data => i_msg_data);
63: if (i_return_status <> 'S') then
64: if (i_msg_count = -1) then
65: fnd_message.set_name('QA','QA_ACTION_FAILED');
66: else
67: fnd_message.set_name('QA', i_msg_data);
68: end if; -- end message count check
69: errCode := 1; --fail
63: if (i_return_status <> 'S') then
64: if (i_msg_count = -1) then
65: fnd_message.set_name('QA','QA_ACTION_FAILED');
66: else
67: fnd_message.set_name('QA', i_msg_data);
68: end if; -- end message count check
69: errCode := 1; --fail
70: errMsg := fnd_message.get;
71: return;
66: else
67: fnd_message.set_name('QA', i_msg_data);
68: end if; -- end message count check
69: errCode := 1; --fail
70: errMsg := fnd_message.get;
71: return;
72: end if; -- end error check
73:
74: END qa_enable;
121:
122: -- get the item info
123: item := wma_derive.getItem(s_rebuild_item_id, s_org_id, s_locator_id);
124: if (item.invItemID is null) then
125: fnd_message.set_name ('EAM', 'EAM_ITEM_DOES_NOT_EXIST');
126: errCode := 1;
127: errMsg := fnd_message.get;
128: return;
129: end if; -- end item info check
123: item := wma_derive.getItem(s_rebuild_item_id, s_org_id, s_locator_id);
124: if (item.invItemID is null) then
125: fnd_message.set_name ('EAM', 'EAM_ITEM_DOES_NOT_EXIST');
126: errCode := 1;
127: errMsg := fnd_message.get;
128: return;
129: end if; -- end item info check
130:
131: l_statement := 2;
166: i_transaction_quantity := 0;
167: FOR i IN 1..s_lot_serial_tbl.COUNT LOOP
168: IF s_lot_serial_tbl(i).quantity is null or s_lot_serial_tbl(i).quantity < 1 THEN
169: errCode := 1;
170: fnd_message.set_name('EAM', 'EAM_NEGATIVE_TXN_QUANTITY');
171: errMsg := fnd_message.get;
172: return;
173: ELSE
174: i_transaction_quantity := i_transaction_quantity + s_lot_serial_tbl(i).quantity;
167: FOR i IN 1..s_lot_serial_tbl.COUNT LOOP
168: IF s_lot_serial_tbl(i).quantity is null or s_lot_serial_tbl(i).quantity < 1 THEN
169: errCode := 1;
170: fnd_message.set_name('EAM', 'EAM_NEGATIVE_TXN_QUANTITY');
171: errMsg := fnd_message.get;
172: return;
173: ELSE
174: i_transaction_quantity := i_transaction_quantity + s_lot_serial_tbl(i).quantity;
175: END IF;
185: i_primary_quantity := - i_primary_quantity;
186: i_transaction_action_id := WIP_CONSTANTS.RETASSY_ACTION;
187: i_transaction_type_id := WIP_CONSTANTS.RETASSY_TYPE;
188: else
189: fnd_message.set_name('EAM','EAM_INVALID_TRANSACTION_TYPE');
190: errCode := 1;
191: errMsg := fnd_message.get;
192: return;
193: end if; -- end prepare data
187: i_transaction_type_id := WIP_CONSTANTS.RETASSY_TYPE;
188: else
189: fnd_message.set_name('EAM','EAM_INVALID_TRANSACTION_TYPE');
190: errCode := 1;
191: errMsg := fnd_message.get;
192: return;
193: end if; -- end prepare data
194:
195: l_statement := 4;
502: OPEN C;
503: FETCH C INTO Recinfo;
504: if (C%NOTFOUND) then
505: CLOSE C;
506: FND_MESSAGE.Set_Name('EAM', 'FORM_RECORD_DELETED');
507: APP_EXCEPTION.Raise_Exception;
508: end if;
509: CLOSE C;
510: if (
528: Recinfo.status_type = p_status_type)
529: ) then
530: return;
531: else
532: FND_MESSAGE.Set_Name('EAM', 'FORM_RECORD_CHANGED');
533: APP_EXCEPTION.Raise_Exception;
534: end if;
535:
536:
992: or x_transaction_type = null or x_transaction_date = null
993: or x_actual_start_date = null or x_actual_end_date = null
994: or x_actual_duration = null) then
995: ROLLBACK TO job_comp;
996: fnd_message.set_name('EAM','EAM_WORK_ORDER_MISSING_INFO');
997: errCode := 1;
998: errMsg := fnd_message.get;
999: return;
1000: end if; -- end validate data
994: or x_actual_duration = null) then
995: ROLLBACK TO job_comp;
996: fnd_message.set_name('EAM','EAM_WORK_ORDER_MISSING_INFO');
997: errCode := 1;
998: errMsg := fnd_message.get;
999: return;
1000: end if; -- end validate data
1001:
1002: l_statement := 25;
1079: i_rebuild_serial_number,
1080: i_asset_activity_id);
1081: end if;
1082: if l_valid = 1 then
1083: FND_MESSAGE.SET_NAME('EAM', 'EAM_WO_NO_UNCOMPLETE');
1084: errCode := 2;
1085: errMsg := fnd_message.get;
1086: return;
1087: end if;
1081: end if;
1082: if l_valid = 1 then
1083: FND_MESSAGE.SET_NAME('EAM', 'EAM_WO_NO_UNCOMPLETE');
1084: errCode := 2;
1085: errMsg := fnd_message.get;
1086: return;
1087: end if;
1088: end if; /* end if for fix 2446276 */
1089:
1117: );
1118:
1119: if (network_child_job_var = '1') then --In the network Work Order has Uncompleted Child Work Orders
1120: ROLLBACK TO job_comp;
1121: fnd_message.set_name('EAM','EAM_NETWRK_CHILD_JOB_NOT_COMP');
1122: errCode := 1;
1123: errMsg := 'EAM_NETWRK_CHILD_JOB_NOT_COMP';
1124: return;
1125: else
1151: );
1152:
1153: if (sibling_parent_job_var = '1') then
1154: ROLLBACK TO job_comp;
1155: fnd_message.set_name('EAM','EAM_NETWRK_SIB_JOB_NOT_COM');
1156: errCode := 1;
1157: errMsg := 'EAM_NETWRK_SIB_JOB_NOT_COM';
1158: return;
1159: else
1348: AND wdj.status_type NOT IN (WIP_CONSTANTS.COMP_CHRG,
1349: WIP_CONSTANTS.COMP_NOCHRG,WIP_CONSTANTS.CLOSED));
1350: if (child_job_var = '1') then
1351: ROLLBACK TO job_comp;
1352: fnd_message.set_name('EAM','EAM_CHILD_JOB_NOT_COMPLETE');
1353: errCode := 1;
1354: errMsg := fnd_message.get;
1355: return;
1356: else
1350: if (child_job_var = '1') then
1351: ROLLBACK TO job_comp;
1352: fnd_message.set_name('EAM','EAM_CHILD_JOB_NOT_COMPLETE');
1353: errCode := 1;
1354: errMsg := fnd_message.get;
1355: return;
1356: else
1357: null;
1358: end if;
1362: end;
1363:
1364: else
1365: ROLLBACK TO job_comp;
1366: fnd_message.set_name('EAM','EAM_INVALID_WORK_ORDER_TYPE');
1367: errCode := 1;
1368: errMsg := fnd_message.get;
1369: return;
1370: end if; -- end work order check
1364: else
1365: ROLLBACK TO job_comp;
1366: fnd_message.set_name('EAM','EAM_INVALID_WORK_ORDER_TYPE');
1367: errCode := 1;
1368: errMsg := fnd_message.get;
1369: return;
1370: end if; -- end work order check
1371:
1372: /* Bug # 5165813 : Allow shutdown info for rebuild wo also.
1442:
1443: -- Check whether parent job already completed or not
1444: if(i_parent_status_type = WIP_CONSTANTS.COMP_CHRG) then
1445: ROLLBACK TO job_comp;
1446: fnd_message.set_name('EAM','EAM_PARENT_JOB_COMPLETED');
1447: errCode := 1;
1448: errMsg := fnd_message.get;
1449: return;
1450: else
1444: if(i_parent_status_type = WIP_CONSTANTS.COMP_CHRG) then
1445: ROLLBACK TO job_comp;
1446: fnd_message.set_name('EAM','EAM_PARENT_JOB_COMPLETED');
1447: errCode := 1;
1448: errMsg := fnd_message.get;
1449: return;
1450: else
1451: null;
1452: end if; --end parent job check
1456: null;
1457:
1458: else
1459: ROLLBACK TO job_comp;
1460: fnd_message.set_name('EAM','EAM_INVALID_WORK_ORDER_TYPE');
1461: errCode := 1;
1462: errMsg := fnd_message.get;
1463: return;
1464: end if; --end work order check
1458: else
1459: ROLLBACK TO job_comp;
1460: fnd_message.set_name('EAM','EAM_INVALID_WORK_ORDER_TYPE');
1461: errCode := 1;
1462: errMsg := fnd_message.get;
1463: return;
1464: end if; --end work order check
1465:
1466: /* Bug # 5165813 : Allow shutdown info for rebuild wo also.
1490: i_work_request_status := 4; -- Work request in process
1491:
1492: else -- Other Transactions
1493: ROLLBACK TO job_comp;
1494: fnd_message.set_name('EAM','EAM_INVALID_TRANSACTION_TYPE');
1495: errCode := 1;
1496: errMsg := fnd_message.get;
1497: return;
1498: end if; -- end transaction type check
1492: else -- Other Transactions
1493: ROLLBACK TO job_comp;
1494: fnd_message.set_name('EAM','EAM_INVALID_TRANSACTION_TYPE');
1495: errCode := 1;
1496: errMsg := fnd_message.get;
1497: return;
1498: end if; -- end transaction type check
1499:
1500: l_statement := 75;