[Home] [Help]
64: /* The condition x_return_code <> 0 will be handled by the main WSMLBMIB
65: code */
66: If (x_return_code = 0) THEN
67: If l_debug = 'Y' Then
68: fnd_file.put_line(fnd_file.log, 'Returned success from check_charges_exist. l_charges_exist='||l_charges_exist);
69: End if;
70: if (l_charges_exist=1) then
71: if ((l_manually_added_resource = 1) or (l_issued_resource = 1)) then
72:
72:
73: fnd_message.set_name('WSM', 'WSM_MANUAL_CHARGES_EXIST');
74: fnd_message.set_token('ELEMENT', 'Resources');
75: x_err_buf := FND_MESSAGE.GET;
76: fnd_file.put_line(fnd_file.log, x_err_buf);
77: end if;
78:
79: if (l_manually_added_comp = 2) then
80: FND_MESSAGE.Set_Name('WSM','WSM_PHANTOM_COMPONENTS_EXIST');
78:
79: if (l_manually_added_comp = 2) then
80: FND_MESSAGE.Set_Name('WSM','WSM_PHANTOM_COMPONENTS_EXIST');
81: x_err_buf := FND_MESSAGE.GET;
82: fnd_file.put_line(fnd_file.log, x_err_buf);
83: end if;
84:
85: if ((l_manually_added_comp = 1) or (l_issued_material = 1)) then
86: fnd_message.set_name('WSM', 'WSM_MANUAL_CHARGES_EXIST');
85: if ((l_manually_added_comp = 1) or (l_issued_material = 1)) then
86: fnd_message.set_name('WSM', 'WSM_MANUAL_CHARGES_EXIST');
87: fnd_message.set_token('ELEMENT', 'Materials');
88: x_err_buf := FND_MESSAGE.GET;
89: fnd_file.put_line(fnd_file.log, x_err_buf);
90: end if;
91:
92: end if;
93: end if;
95: EXCEPTION
96: WHEN OTHERS THEN
97: x_return_code := SQLCODE;
98: x_err_buf := 'WSMPLBMI.val_jump_from_queue' ||'(stmt_num='||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
99: fnd_file.put_line(fnd_file.log, x_err_buf);
100:
101: END val_jump_from_queue;
102:
103:
309: x_err_buf := '';
310: l_stmt_num := 10;
311:
312: if (l_debug = 'Y') then
313: fnd_file.put_line(fnd_file.log, 'g_aps_wps_profile '||g_aps_wps_profile);
314: fnd_file.put_line(fnd_file.log, '*******************Parameters to WSMPLBMI*******************');
315:
316: fnd_file.put_line(fnd_file.log, 'p_header_id='||p_header_id||
317: ', p_txn_id='||p_txn_id||
310: l_stmt_num := 10;
311:
312: if (l_debug = 'Y') then
313: fnd_file.put_line(fnd_file.log, 'g_aps_wps_profile '||g_aps_wps_profile);
314: fnd_file.put_line(fnd_file.log, '*******************Parameters to WSMPLBMI*******************');
315:
316: fnd_file.put_line(fnd_file.log, 'p_header_id='||p_header_id||
317: ', p_txn_id='||p_txn_id||
318: ', p_wip_entity_name='||p_wip_entity_name||
312: if (l_debug = 'Y') then
313: fnd_file.put_line(fnd_file.log, 'g_aps_wps_profile '||g_aps_wps_profile);
314: fnd_file.put_line(fnd_file.log, '*******************Parameters to WSMPLBMI*******************');
315:
316: fnd_file.put_line(fnd_file.log, 'p_header_id='||p_header_id||
317: ', p_txn_id='||p_txn_id||
318: ', p_wip_entity_name='||p_wip_entity_name||
319: ', p_txn_qty='||p_txn_qty||
320: ', p_txn_date='||p_txn_date||
329: ', p_to_intraop_step_type='||p_to_intraop_step_type||
330: ', p_to_dept_id='||p_to_dept_id||
331: ', p_org_id='||p_org_id||
332: ', p_jump_flag='||p_jump_flag );
333: fnd_file.put_line(fnd_file.log, '');
334:
335: fnd_file.put_line(fnd_file.log, 'g_prev_org_id='||g_prev_org_id||
336: ', g_prev_org_code='||g_prev_org_code||
337: ', g_prev_cr_user_id='||g_prev_cr_user_id||
331: ', p_org_id='||p_org_id||
332: ', p_jump_flag='||p_jump_flag );
333: fnd_file.put_line(fnd_file.log, '');
334:
335: fnd_file.put_line(fnd_file.log, 'g_prev_org_id='||g_prev_org_id||
336: ', g_prev_org_code='||g_prev_org_code||
337: ', g_prev_cr_user_id='||g_prev_cr_user_id||
338: ', g_prev_cr_user_name='||g_prev_cr_user_name||
339: ', g_prev_upd_user_id='||g_prev_upd_user_id||
340: ', g_prev_upd_user_name='||g_prev_upd_user_name||
341: ', g_prev_op_seq_incr='||g_prev_op_seq_incr||
342: ', g_acct_period_id='||g_acct_period_id||
343: ', g_prev_txn_date='||g_prev_txn_date);
344: fnd_file.put_line(fnd_file.log, '');
345: end if;
346:
347: --***VJ Added for Performance Upgrade***--
348: IF (p_txn_type < 1) OR (p_txn_type > 4) THEN
351: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
352: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'transaction_type');
353: x_err_buf := FND_MESSAGE.GET;
354:
355: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
356: return(x_return_code);
357: END IF;
358:
359: -- Changed p_txn_type to l_txn_type in this procedure
382: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
383: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'Organization_id');
384: x_err_buf := FND_MESSAGE.GET;
385:
386: fnd_file.put_line(fnd_file.log,
387: 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
388: x_return_code := 1;
389: return(x_return_code);
390: END;
396:
397: FND_MESSAGE.SET_NAME('WSM', 'WSM_NON_WSM_ORG');
398: x_err_buf := FND_MESSAGE.GET;
399:
400: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
401:
402: return(x_return_code);
403: END IF;
404:
458: FND_MESSAGE.SET_NAME('WSM', 'WSM_INFO_NOT_FOUND');
459: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'acct_period_id');
460: x_err_buf := FND_MESSAGE.GET;
461:
462: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
463: return(x_return_code);
464: END IF;
465:
466: l_stmt_num := 30;
481: x_return_code := 1;
482: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
483: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entity_name/wip_entity_id');
484: x_err_buf := FND_MESSAGE.GET;
485: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
486: return(x_return_code);
487: END IF;
488:
489: l_stmt_num := 32;
502: FND_MESSAGE.SET_NAME('WSM', 'WSM_NOT_WSM_LOT_JOB');
503: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entities');
504: x_err_buf := FND_MESSAGE.GET;
505:
506: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
507: return(x_return_code);
508: END IF;
509:
510: l_stmt_num := 33;
522: x_return_code := 1;
523: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
524: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entity_id');
525: x_err_buf := FND_MESSAGE.GET;
526: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
527: return(x_return_code);
528:
529: WHEN OTHERS THEN
530: x_return_code := SQLCODE;
528:
529: WHEN OTHERS THEN
530: x_return_code := SQLCODE;
531: x_err_buf := 'WSMPLBMI.custom_validation' ||'(stmt_num='||l_stmt_num||') : '||substrb(sqlerrm,1,1000);
532: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
533: return(x_return_code);
534: END;
535:
536: ELSE -- if the user has passed wip_entity_name and not wip_entity_id
553: FND_MESSAGE.SET_NAME('WSM', 'WSM_NOT_WSM_LOT_JOB');
554: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entities');
555: x_err_buf := FND_MESSAGE.GET;
556:
557: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
558: return(x_return_code);
559: END IF;
560:
561: EXCEPTION
563: x_return_code := 1;
564: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
565: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entity_name');
566: x_err_buf := FND_MESSAGE.GET;
567: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
568: return(x_return_code);
569: END;
570: --***VJ End Changes***--
571: END IF; -- Fix for bug #2095035
578: application => 'WSM',
579: name => 'WSM_NO_VALID_COPY');
580: x_err_buf := FND_MESSAGE.GET;
581:
582: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
583: return(x_return_code);
584: END IF;
585: --bug 3512105 end
586:
618: FND_MESSAGE.SET_NAME('WSM', 'WSM_NOT_RELEASED_JOB');
619: FND_MESSAGE.SET_TOKEN('FLD_NAME', p_wip_entity_name);
620: x_err_buf := FND_MESSAGE.GET;
621:
622: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
623: return(x_return_code);
624: end if;
625: --end bug fix 1667427
626:
641: -- ST : Bug fix : 4454300 : End
642:
643: x_err_buf := FND_MESSAGE.GET;
644:
645: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
646: return(x_return_code);
647: END IF;
648: -- End Fix for bug #2094358
649:
670: error = l_error_msg -- CZH.BUG2135538
671: where header_id = p_header_id;
672:
673: l_stmt_num := 60;
674: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
675:
676: ELSIF (l_wlmti_wip_entity_id <> l_wip_entity_id) THEN
677:
678: x_return_code := 1;
680: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
681: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entity_id');
682: x_err_buf := FND_MESSAGE.GET;
683:
684: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
685: return(x_return_code);
686:
687: END IF;
688:
733: --***VJ End Additions***--
734:
735: l_stmt_num := 65;
736: if (l_debug = 'Y') then
737: fnd_file.put_line(fnd_file.log, 'l_entity_type='||l_entity_type||
738: ', l_wlmti_primary_item_id='||l_wlmti_primary_item_id||
739: ', l_wlmti_org_code='||l_wlmti_org_code||
740: ', l_wlmti_last_upd_by='||l_wlmti_last_upd_by||
741: ', l_wlmti_last_upd_name='||l_wlmti_last_upd_name||
744: ', l_wlmti_acct_period_id='||l_wlmti_acct_period_id||
745: ', l_reason_id='||l_reason_id||
746: ', l_reason_name='||l_reason_name||
747: ', l_wlmti_scrap_acct_id='||l_wlmti_scrap_acct_id);
748: fnd_file.put_line(fnd_file.log, '');
749: end if;
750:
751: IF (l_entity_type <> 5) THEN
752: x_return_code := 1;
754: FND_MESSAGE.SET_NAME('WSM', 'WSM_NOT_WSM_LOT_JOB');
755: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wsm_lot_move_txn_interface');
756: x_err_buf := FND_MESSAGE.GET;
757:
758: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
759: return(x_return_code);
760: END IF;
761:
762: l_stmt_num := 70;
772: error = l_error_msg -- CZH.BUG2135538
773: where header_id = p_header_id;
774:
775: l_stmt_num := 75;
776: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
777: ELSIF (l_wlmti_primary_item_id <> l_primary_item_id) THEN
778: x_return_code := 1;
779:
780: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
780: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
781: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'primary_item_id');
782: x_err_buf := FND_MESSAGE.GET;
783:
784: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
785: return(x_return_code);
786: END IF;
787:
788: IF (l_wlmti_org_code IS NULL) THEN
797: --ERROR = 'WARNING:'||x_err_buf -- CZH.BUG2135538
798: error = l_error_msg -- CZH.BUG2135538
799: where header_id = p_header_id;
800: l_stmt_num := 80;
801: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
802:
803: ELSIF (l_wlmti_org_code <> g_prev_org_code) THEN --***VJ Changed for Performance Upgrade***--
804: x_return_code := 1;
805:
805:
806: FND_MESSAGE.SET_NAME('WSM', 'WSM_ORG_ID-CODE_COMB_INVALID');
807: x_err_buf := FND_MESSAGE.GET;
808:
809: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
810: return(x_return_code);
811: END IF;
812:
813: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
847: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
848: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'last_updated_by');
849: x_err_buf := FND_MESSAGE.GET;
850:
851: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
852: return(x_return_code);
853: END;
854:
855: l_stmt_num := 90;
885: error = l_error_msg -- CZH.BUG2135538
886: where header_id = p_header_id;
887:
888: l_stmt_num := 95;
889: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
890: ELSIF (l_wlmti_last_upd_name <> g_prev_upd_user_name) THEN
891: --***VJ Changed for Performance Upgrade***--
892: x_return_code := 1;
893:
894: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
895: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'last_updated_by_name');
896: x_err_buf := FND_MESSAGE.GET;
897:
898: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
899: return(x_return_code);
900: END IF;
901: END IF;
902:
918: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
919: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'created_by');
920: x_err_buf := FND_MESSAGE.GET;
921:
922: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
923: ||l_stmt_num||'): '||x_err_buf);
924: return(x_return_code);
925: END;
926: END IF;
944: error = l_error_msg -- CZH.BUG2135538
945: where header_id = p_header_id;
946:
947: l_stmt_num := 110;
948: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
949: ELSIF (l_wlmti_created_by_name <> g_prev_cr_user_name) THEN
950: --***VJ Changed for Performance Upgrade***--
951: x_return_code := 1;
952:
953: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
954: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'created_by_name');
955: x_err_buf := FND_MESSAGE.GET;
956:
957: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
958: return(x_return_code);
959: END IF;
960: END IF;
961: END IF; --IF (l_source_code NOT IN ('move in oa page',
959: END IF;
960: END IF;
961: END IF; --IF (l_source_code NOT IN ('move in oa page',
962: if (l_debug = 'Y') then
963: fnd_file.put_line(fnd_file.log, 'g_prev_org_id='||g_prev_org_id||
964: ', g_prev_org_code='||g_prev_org_code||
965: ', g_prev_cr_user_id='||g_prev_cr_user_id||
966: ', g_prev_cr_user_name='||g_prev_cr_user_name||
967: ', g_prev_upd_user_id='||g_prev_upd_user_id||
969: --** VJ: Deleted for removal of 9999** ', g_prev_last_op='||g_prev_last_op||
970: ', g_prev_op_seq_incr='||g_prev_op_seq_incr||
971: ', g_acct_period_id='||g_acct_period_id||
972: ', g_prev_txn_date='||g_prev_txn_date);
973: fnd_file.put_line(fnd_file.log, '');
974: end if;
975:
976:
977: -- Validate acct_period_id
1000: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1001: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'acct_period_id');
1002: x_err_buf := FND_MESSAGE.GET;
1003:
1004: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1005: return(x_return_code);
1006: -- END;
1007: --***VJ End Changes***--
1008: END IF;
1023: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1024: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'reason_id');
1025: x_err_buf := FND_MESSAGE.GET;
1026:
1027: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1028: return(x_return_code);
1029: END;
1030: END IF;
1031:
1046: error = l_error_msg -- CZH.BUG2135538
1047: where header_id = p_header_id;
1048:
1049: l_stmt_num := 130;
1050: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1051: --***VJ End Additions***--
1052: ELSIF (l_reason_name <> l_mtr_reason_name) THEN
1053: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
1054: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'reason_name');
1061: error = l_error_msg -- CZH.BUG2135538
1062: where header_id = p_header_id;
1063:
1064: l_stmt_num := 135;
1065: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1066: END IF;
1067: -- END Fix for bug #1497882
1068:
1069:
1082: FND_MESSAGE.SET_NAME('WSM', 'WSM_PENDING_TXN');
1083: FND_MESSAGE.SET_TOKEN('TABLE', 'wip_move_txn_interface');
1084: x_err_buf := FND_MESSAGE.GET;
1085:
1086: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1087: return(x_return_code);
1088: END IF;
1089:
1090: l_stmt_num := 145;
1103: FND_MESSAGE.SET_NAME('WSM', 'WSM_PENDING_TXN');
1104: FND_MESSAGE.SET_TOKEN('TABLE', 'wsm_split_merge_transactions');
1105: x_err_buf := FND_MESSAGE.GET;
1106:
1107: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1108:
1109: return(x_return_code);
1110: END IF;
1111:
1121:
1122: -- FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_MOVE_FM_LAST_OP');
1123: -- x_err_buf := FND_MESSAGE.GET;
1124:
1125: -- fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1126: -- return(x_return_code);
1127: --END IF;
1128: --**VJ: End Deletion for 9999 Removal **--
1129:
1135: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1136: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'jump_flag');
1137: x_err_buf := FND_MESSAGE.GET;
1138:
1139: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1140: return(x_return_code);
1141: END IF;
1142: --***VJ End Additions***--
1143:
1173: error = l_error_msg -- CZH.BUG2135538
1174: where header_id = p_header_id;
1175:
1176: l_stmt_num := 160;
1177: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1178: ELSE
1179: IF (p_primary_uom <> l_primary_uom) THEN
1180: x_return_code := 1;
1181:
1182: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_PRI_UOM');
1183: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'primary_uom');
1184: x_err_buf := FND_MESSAGE.GET;
1185:
1186: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1187: return(x_return_code);
1188: END IF;
1189: END IF;
1190: -- end fix for bug1765389
1220: name => 'WIP_STATUS_NO_TXN1');
1221: l_err_buf := fnd_message.get;
1222: x_err_buf := substrb(l_err_buf,1,150);
1223:
1224: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):');
1225: fnd_file.put_line(fnd_file.log, 'ERROR :' ||l_err_buf);
1226: return(x_return_code);
1227: end if;
1228: end;
1221: l_err_buf := fnd_message.get;
1222: x_err_buf := substrb(l_err_buf,1,150);
1223:
1224: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):');
1225: fnd_file.put_line(fnd_file.log, 'ERROR :' ||l_err_buf);
1226: return(x_return_code);
1227: end if;
1228: end;
1229:
1315: name => 'WIP_NO_MOVE_SF_STATUS_BETWEEN');
1316: l_err_buf := fnd_message.get;
1317: x_err_buf := substrb(l_err_buf,1,150);
1318:
1319: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):');
1320: fnd_file.put_line(fnd_file.log, 'ERROR :' ||l_err_buf);
1321: return(x_return_code);
1322: end if;
1323: end;
1316: l_err_buf := fnd_message.get;
1317: x_err_buf := substrb(l_err_buf,1,150);
1318:
1319: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):');
1320: fnd_file.put_line(fnd_file.log, 'ERROR :' ||l_err_buf);
1321: return(x_return_code);
1322: end if;
1323: end;
1324: -- end bugfix 1840372
1339:
1340: FND_MESSAGE.SET_NAME('WSM', 'WSM_TXN_FOR_SCR');
1341: x_err_buf := FND_MESSAGE.GET;
1342:
1343: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1344: return(x_return_code);
1345: END IF;
1346:
1347: --***VJ Changed for Performance Upgrade***--
1364: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1365: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'from_operation_seq_num/code/intraoperation_step');
1366: x_err_buf := FND_MESSAGE.GET;
1367:
1368: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1369:
1370: return(x_return_code);
1371: END;
1372: --***VJ End Changes***--
1438: x_current_rtg_op_seq_num := l_wo_rtg_op_seq_num ;
1439: -- ST : Serial Support Project --
1440:
1441: if (l_debug = 'Y') then
1442: fnd_file.put_line(fnd_file.log, 'p_fm_op_seq_num='||p_fm_op_seq_num||'l_wo_op_seq_num='||l_wo_op_seq_num);
1443: end if;
1444:
1445: -- p_fm_op_seq_num must be l_wo_op_seq_num
1446: IF (p_fm_op_seq_num <> l_wo_op_seq_num) THEN
1449: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1450: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_op_seq_num');
1451: x_err_buf := FND_MESSAGE.GET;
1452:
1453: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1454: return(x_return_code);
1455: END IF;
1456:
1457: l_stmt_num := 176;
1471: x_return_code := 1;
1472: fnd_message.set_name('WSM', 'WSM_INVALID_FIELD');
1473: fnd_message.set_token('FLD_NAME', 'fm_op_code');
1474: x_err_buf := fnd_message.get;
1475: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1476: return(x_return_code);
1477:
1478: elsif (p_fm_op_code is null and l_wo_op_code is not null) then
1479: UPDATE wsm_lot_move_txn_interface
1483: fnd_message.set_name('WSM', 'WSM_MODIFIED_FIELD');
1484: fnd_message.set_token('FLD_NAME', 'fm_operation_code');
1485: x_err_buf := fnd_message.get;
1486:
1487: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1488:
1489: -- henceforth, if p_fm_op_code is NULL, use l_fm_op_code_temp instead.
1490: l_fm_op_code_temp := l_wo_op_code;
1491:
1493: x_return_code := 1;
1494: fnd_message.set_name('WSM', 'WSM_INVALID_FIELD');
1495: fnd_message.set_token('FLD_NAME', 'fm_op_code');
1496: x_err_buf := fnd_message.get;
1497: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1498: return(x_return_code);
1499:
1500: end if;
1501: -- end bugfix 2363380
1507: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1508: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_intraop_step_type');
1509: x_err_buf := FND_MESSAGE.GET;
1510:
1511: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1512: return(x_return_code);
1513: END IF;
1514:
1515: -- p_fm_intraop_step_type should not be Scrap
1519:
1520: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_MOVE_FM_SCRAP');
1521: x_err_buf := FND_MESSAGE.GET;
1522:
1523: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1524: return(x_return_code);
1525: END IF;
1526:
1527:
1586: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1587: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wo_dept_id'); --bugfix 1587295: changed the token
1588: x_err_buf := FND_MESSAGE.GET;
1589:
1590: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1591: return(x_return_code);
1592: ELSE
1593: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
1594: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_department_id/fm_department_code');
1593: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
1594: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_department_id/fm_department_code');
1595: x_err_buf := FND_MESSAGE.GET;
1596:
1597: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1598: END IF;
1599:
1600: l_stmt_num := 185;
1601: SELECT nvl(common_routing_sequence_id, routing_reference_id)
1615: IF (x_return_code <> 0) THEN
1616: FND_MESSAGE.SET_NAME('WSM', 'WSM_CANNOT_GET_RTG_END');
1617: x_err_buf := FND_MESSAGE.GET;
1618:
1619: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1620: return(x_return_code);
1621: ELSE
1622: if (l_debug = 'Y') then
1623: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
1619: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1620: return(x_return_code);
1621: ELSE
1622: if (l_debug = 'Y') then
1623: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
1624: ||'): Returned success from WSMPUTIL.find_routing_end');
1625: end if;
1626: END IF;
1627:
1649: x_return_code := 1;
1650: FND_MESSAGE.SET_NAME('WSM', 'WSM_NULL_FIELD');
1651: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'p_to_op_seq_num');
1652: x_err_buf := FND_MESSAGE.GET;
1653: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1654: return(x_return_code);
1655:
1656: END IF;
1657:
1671: THEN
1672: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_EFFECTIVE_NEXT_OP');
1673: x_err_buf := FND_MESSAGE.GET;
1674: l_error_msg := substr(l_error_msg||'WARNING: '||x_err_buf||'| ', 1, 2000);
1675: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1676: END IF;
1677: -- EA: CZH.I_OED-1
1678:
1679: --NO CHECK FOR RETURN VALUES HERE....-VJ--
1702: x_return_code := 1;
1703: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1704: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num');
1705: x_err_buf := FND_MESSAGE.GET;
1706: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1707: return(x_return_code);
1708: END;
1709: --***VJ End Changes***--
1710:
1713: IF ((l_wo_rtg_op_seq_num = p_to_op_seq_num) AND (l_wo_op_seq_id <> l_op_seq_id)) THEN
1714: x_return_code := 1;
1715: FND_MESSAGE.SET_NAME('WSM', 'WSM_MOVE_CURR_OP_REPLACED');
1716: x_err_buf := FND_MESSAGE.GET;
1717: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1718: return(x_return_code);
1719: END IF;
1720: --end bug 3463128
1721:
1732: l_op_code := '';
1733: end if;
1734:
1735: if (l_debug = 'Y') then
1736: fnd_file.put_line(fnd_file.log, 'p_to_op_code='||p_to_op_code||'l_op_code='||l_op_code);
1737: end if;
1738:
1739: if (p_to_op_code is NULL) AND (l_op_code is not NULL) then
1740: l_stmt_num := 215;
1745: x_return_code := 1;
1746: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1747: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
1748: x_err_buf := FND_MESSAGE.GET;
1749: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1750: return(x_return_code);
1751: end if;
1752:
1753: else -- l_iop_move_out_rtg = TURE, intraop move @ outside rtg
1759: x_return_code := 1;
1760: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1761: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
1762: x_err_buf := FND_MESSAGE.GET;
1763: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1764: return(x_return_code);
1765: else
1766: -- BA: CZH.bug 2362225, because we use l_op_code later on
1767: l_op_code := p_to_op_code;
1781: x_return_code := 1;
1782: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1783: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
1784: x_err_buf := FND_MESSAGE.GET;
1785: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
1786: ||l_stmt_num||'): ' ||x_err_buf);
1787: return(x_return_code);
1788: end;
1789: end if;
1800: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1801: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
1802: x_err_buf := FND_MESSAGE.GET;
1803:
1804: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1805: return(x_return_code);
1806: END IF;
1807:
1808: UPDATE WSM_LOT_MOVE_TXN_INTERFACE WLMTI
1822: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1823: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'dept_id');
1824: x_err_buf := FND_MESSAGE.GET;
1825:
1826: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1827: return(x_return_code);
1828: ELSE
1829: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
1830: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
1829: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
1830: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
1831: x_err_buf := FND_MESSAGE.GET;
1832:
1833: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1834: END IF;
1835:
1836:
1837: l_stmt_num := 230;
1897: x_return_code := 1;
1898: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1899: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num/to_op_code');
1900: x_err_buf := FND_MESSAGE.GET;
1901: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
1902: ||l_stmt_num||'): '||x_err_buf);
1903: return(x_return_code);
1904: end;
1905: elsif l_op_seq_id = l_wo_op_seq_id then -- CZH: move from inside rtg to inside rtg, to the same op
1909: x_return_code := -1;
1910: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1911: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_intraop_step_type');
1912: x_err_buf := FND_MESSAGE.GET;
1913: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
1914: return(x_return_code);
1915: end if;
1916:
1917: end if;
1951: x_return_code := 1;
1952: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1953: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num');
1954: x_err_buf := FND_MESSAGE.GET;
1955: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1956: return(x_return_code);
1957:
1958: WHEN TOO_MANY_ROWS THEN
1959: x_return_code := 1;
1959: x_return_code := 1;
1960: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
1961: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num');
1962: x_err_buf := FND_MESSAGE.GET;
1963: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
1964: return(x_return_code);
1965:
1966: END;
1967: --***VJ End Changes***--
2001: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2002: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2003: x_err_buf := FND_MESSAGE.GET;
2004:
2005: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2006: return(x_return_code);
2007: end if;
2008: -- NSO Modification by abedajna: additions end
2009:
2011: x_return_code := 1;
2012: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2013: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
2014: x_err_buf := FND_MESSAGE.GET;
2015: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2016: return(x_return_code);
2017: END IF;
2018:
2019: ELSE -- p_to_op_seq_num is NULL, i.e. jump to outside routing
2038: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2039: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2040: x_err_buf := FND_MESSAGE.GET;
2041:
2042: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
2043: ||l_stmt_num||'):'||x_err_buf);
2044: return(x_return_code);
2045: END;
2046: --***VJ End Changes***--
2057: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2058: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2059: x_err_buf := FND_MESSAGE.GET;
2060:
2061: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
2062: ||l_stmt_num||'):'||x_err_buf);
2063: return(x_return_code);
2064: END IF;
2065:
2070: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2071: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
2072: x_err_buf := FND_MESSAGE.GET;
2073:
2074: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2075: return(x_return_code);
2076: END IF;
2077:
2078: ELSE -- IF p_to_op_code IS NULL
2084: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2085: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2086: x_err_buf := FND_MESSAGE.GET;
2087:
2088: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2089: return(x_return_code);
2090: --End additions
2091:
2092: END IF; -- p_to_op_code IS NULL/NOT NULL
2103:
2104: if (l_wo_qty_in_scrap <> 0 ) then
2105: fnd_message.set_name('WSM', 'WSM_SCRAP_EXISTS');
2106: x_err_buf := FND_MESSAGE.GET;
2107: fnd_file.put_line(fnd_file.log, x_err_buf);
2108: if (l_debug = 'Y') then
2109: fnd_file.put_line(fnd_file.log, 'Jump from Queue is set to FALSE');
2110: end if;
2111: else
2105: fnd_message.set_name('WSM', 'WSM_SCRAP_EXISTS');
2106: x_err_buf := FND_MESSAGE.GET;
2107: fnd_file.put_line(fnd_file.log, x_err_buf);
2108: if (l_debug = 'Y') then
2109: fnd_file.put_line(fnd_file.log, 'Jump from Queue is set to FALSE');
2110: end if;
2111: else
2112: WSMPLBMI.val_jump_from_queue(l_wip_entity_id,
2113: p_org_id,
2116: x_return_code,
2117: x_err_buf);
2118:
2119: if (x_return_code <> 0) then
2120: fnd_file.put_line(fnd_file.log,
2121: 'After calling WSMPLBMI.val_jump_from_queue ' || x_err_buf);
2122: return(x_return_code);
2123: end if;
2124: l_jump_from_queue := TRUE;
2122: return(x_return_code);
2123: end if;
2124: l_jump_from_queue := TRUE;
2125: if (l_debug = 'Y') then
2126: fnd_file.put_line(fnd_file.log,
2127: 'Jump from Queue is set to TRUE');
2128: end if;
2129: end if; /* scrap <> 0 */
2130: end if; /* g_param_jump_fm_q = 2 */
2148: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2149: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
2150: x_err_buf := FND_MESSAGE.GET;
2151:
2152: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2153: return(x_return_code);
2154: ELSE
2155: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2156: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
2155: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2156: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
2157: x_err_buf := FND_MESSAGE.GET;
2158:
2159: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2160: END IF;
2161:
2162: -- Fix bug #1501376
2163: l_to_dept_id := l_jmp_dept_id; -- l_to_dept_id is a local variable for p_to_dept_id, if NULL
2202: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2203: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wo_dept_id'); --bugfix 1587295: changed the token
2204: x_err_buf := FND_MESSAGE.GET;
2205:
2206: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2207: return(x_return_code);
2208: ELSE
2209: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2210: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_department_id/fm_department_code');
2209: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2210: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_department_id/fm_department_code');
2211: x_err_buf := FND_MESSAGE.GET;
2212:
2213: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2214: END IF;
2215:
2216: l_stmt_num := 190;
2217: BEGIN
2233: x_return_code := 1;
2234: FND_MESSAGE.SET_NAME('WSM', 'WSM_CANNOT_GET_RTG_END');
2235: x_err_buf := FND_MESSAGE.GET;
2236:
2237: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2238: return(x_return_code);
2239: END;
2240: if (l_debug = 'Y') then
2241: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): l_end_op_seq_id '||l_end_op_seq_id||' l_end_std_op_id '||l_end_std_op_id||' l_end_dept_id '||l_end_dept_id||' l_end_op_seq_num '||l_end_op_seq_num);
2237: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2238: return(x_return_code);
2239: END;
2240: if (l_debug = 'Y') then
2241: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): l_end_op_seq_id '||l_end_op_seq_id||' l_end_std_op_id '||l_end_std_op_id||' l_end_dept_id '||l_end_dept_id||' l_end_op_seq_num '||l_end_op_seq_num);
2242: end if;
2243:
2244: l_op_seq_id := NULL;
2245:
2260: x_return_code := 1;
2261: FND_MESSAGE.SET_NAME('WSM', 'WSM_NULL_FIELD');
2262: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'p_to_op_seq_num');
2263: x_err_buf := FND_MESSAGE.GET;
2264: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2265: return(x_return_code);
2266:
2267: END IF;
2268:
2294: x_return_code := 1;
2295: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2296: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num');
2297: x_err_buf := FND_MESSAGE.GET;
2298: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2299: return(x_return_code);
2300: END;
2301:
2302: --bug 3463128 give a message if the current operation has been replaced and the user is trying a
2304: IF ((l_wo_rtg_op_seq_num = p_to_op_seq_num) AND (l_wo_op_seq_id <> l_op_seq_id)) THEN
2305: x_return_code := 1;
2306: FND_MESSAGE.SET_NAME('WSM', 'WSM_MOVE_CURR_OP_REPLACED');
2307: x_err_buf := FND_MESSAGE.GET;
2308: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2309: return(x_return_code);
2310: END IF;
2311: --end bug 3463128
2312:
2310: END IF;
2311: --end bug 3463128
2312:
2313: if (l_debug = 'Y') then
2314: fnd_file.put_line(fnd_file.log, 'p_to_op_code='||p_to_op_code||'l_op_code='||l_op_code);
2315: end if;
2316:
2317: if (p_to_op_code is NULL) AND (l_op_code is not NULL) then
2318: l_stmt_num := 215;
2323: x_return_code := 1;
2324: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2325: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2326: x_err_buf := FND_MESSAGE.GET;
2327: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2328: return(x_return_code);
2329: end if;
2330:
2331: else -- l_iop_move_out_rtg = TURE, intraop move @ outside rtg
2337: x_return_code := 1;
2338: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2339: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2340: x_err_buf := FND_MESSAGE.GET;
2341: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2342: return(x_return_code);
2343: else
2344: -- BA: CZH.bug 2362225, because we use l_op_code later on
2345: l_op_code := p_to_op_code;
2359: x_return_code := 1;
2360: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2361: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2362: x_err_buf := FND_MESSAGE.GET;
2363: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
2364: ||l_stmt_num||'): ' ||x_err_buf);
2365: return(x_return_code);
2366: end;
2367: end if;
2378: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2379: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
2380: x_err_buf := FND_MESSAGE.GET;
2381:
2382: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2383: return(x_return_code);
2384: END IF;
2385:
2386: --move enh
2404: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2405: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'dept_id');
2406: x_err_buf := FND_MESSAGE.GET;
2407:
2408: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2409: return(x_return_code);
2410: ELSE
2411: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2412: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
2411: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2412: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
2413: x_err_buf := FND_MESSAGE.GET;
2414:
2415: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2416: END IF;
2417: ELSE --(l_to_dept_code IS NOT NULL)
2418: UPDATE WSM_LOT_MOVE_TXN_INTERFACE WLMTI
2419: SET TO_DEPARTMENT_CODE=l_to_dept_code
2457: x_return_code := 1;
2458: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2459: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num/to_op_code');
2460: x_err_buf := FND_MESSAGE.GET;
2461: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation( stmt_num=' ||l_stmt_num||'): '||x_err_buf);
2462: return(x_return_code);
2463: end;
2464: END IF;
2465:
2470: x_return_code := -1;
2471: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2472: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_intraop_step_type');
2473: x_err_buf := FND_MESSAGE.GET;
2474: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2475: return(x_return_code);
2476: end if;
2477:
2478: end if;
2514: x_return_code := 1;
2515: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2516: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num');
2517: x_err_buf := FND_MESSAGE.GET;
2518: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2519: return(x_return_code);
2520:
2521: WHEN TOO_MANY_ROWS THEN
2522: x_return_code := 1;
2522: x_return_code := 1;
2523: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2524: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_seq_num');
2525: x_err_buf := FND_MESSAGE.GET;
2526: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2527: return(x_return_code);
2528: END;
2529:
2530: l_std_op_id := l_jmp_std_op_id;
2547: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2548: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2549: x_err_buf := FND_MESSAGE.GET;
2550:
2551: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2552: return(x_return_code);
2553: end if;
2554: -- NSO Modification by abedajna: additions end
2555:
2557: x_return_code := 1;
2558: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2559: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
2560: x_err_buf := FND_MESSAGE.GET;
2561: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2562: return(x_return_code);
2563: END IF;
2564:
2565: ELSE -- p_to_op_seq_num is NULL, i.e. jump to outside routing
2584: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2585: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2586: x_err_buf := FND_MESSAGE.GET;
2587:
2588: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
2589: ||l_stmt_num||'):'||x_err_buf);
2590: return(x_return_code);
2591: END;
2592: --***VJ End Changes***--
2603: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2604: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2605: x_err_buf := FND_MESSAGE.GET;
2606:
2607: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
2608: ||l_stmt_num||'):'||x_err_buf);
2609: return(x_return_code);
2610: END IF;
2611:
2616: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2617: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
2618: x_err_buf := FND_MESSAGE.GET;
2619:
2620: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2621: return(x_return_code);
2622: END IF;
2623:
2624: ELSE -- IF p_to_op_code IS NULL
2630: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2631: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_op_code');
2632: x_err_buf := FND_MESSAGE.GET;
2633:
2634: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2635: return(x_return_code);
2636: --End additions
2637:
2638: END IF; -- p_to_op_code IS NULL/NOT NULL
2648:
2649: if (l_wo_qty_in_scrap <> 0 ) then
2650: fnd_message.set_name('WSM', 'WSM_SCRAP_EXISTS');
2651: x_err_buf := FND_MESSAGE.GET;
2652: fnd_file.put_line(fnd_file.log, x_err_buf);
2653: if (l_debug = 'Y') then
2654: fnd_file.put_line(fnd_file.log, 'Jump from Queue is set to FALSE');
2655: end if;
2656: else
2650: fnd_message.set_name('WSM', 'WSM_SCRAP_EXISTS');
2651: x_err_buf := FND_MESSAGE.GET;
2652: fnd_file.put_line(fnd_file.log, x_err_buf);
2653: if (l_debug = 'Y') then
2654: fnd_file.put_line(fnd_file.log, 'Jump from Queue is set to FALSE');
2655: end if;
2656: else
2657: WSMPLBMI.val_jump_from_queue(l_wip_entity_id,
2658: p_org_id,
2661: x_return_code,
2662: x_err_buf);
2663:
2664: if (x_return_code <> 0) then
2665: fnd_file.put_line(fnd_file.log,
2666: 'After calling WSMPLBMI.val_jump_from_queue ' || x_err_buf);
2667: return(x_return_code);
2668: end if;
2669: l_jump_from_queue := TRUE;
2667: return(x_return_code);
2668: end if;
2669: l_jump_from_queue := TRUE;
2670: if (l_debug = 'Y') then
2671: fnd_file.put_line(fnd_file.log,
2672: 'Jump from Queue is set to TRUE');
2673: end if;
2674: end if; /* scrap <> 0 */
2675: end if; /* g_param_jump_fm_q = 2 */
2696: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2697: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id');
2698: x_err_buf := FND_MESSAGE.GET;
2699:
2700: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2701: return(x_return_code);
2702: ELSE
2703: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2704: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
2703: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2704: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_id/to_department_code');
2705: x_err_buf := FND_MESSAGE.GET;
2706:
2707: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2708: END IF;
2709: END IF; --l_to_dept_code IS NULL
2710:
2711: -- Fix bug #1501376
2738: value => 'zero',
2739: translate => TRUE); */
2740: FND_MESSAGE.SET_NAME('WSM', 'WSM_SCRAP_NOT_LESS_THAN_ZERO');
2741: x_err_buf := FND_MESSAGE.GET;
2742: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2743: return(x_return_code);
2744: END IF;
2745:
2746: IF (p_txn_qty < 0) THEN
2758: token => 'ENTITY2',
2759: value => 'zero',
2760: translate => TRUE);
2761: x_err_buf := FND_MESSAGE.GET;
2762: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2763: return(x_return_code);
2764: END IF;
2765:
2766: IF ((l_scrap_qty = 0) AND (p_txn_qty = 0)) THEN
2768: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2769: --move enh? get the meaning of /
2770: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_quantity/transaction_quantity');
2771: x_err_buf := FND_MESSAGE.GET;
2772: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2773: return(x_return_code);
2774: END IF;
2775:
2776: IF ((p_to_intraop_step_type = 5)) THEN
2778: x_return_code := 1;
2779: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2780: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_quantity/transaction_quantity');
2781: x_err_buf := FND_MESSAGE.GET;
2782: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2783: return(x_return_code);
2784:
2785: END IF;
2786:
2789: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2790: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_at_operation_flag');
2791: x_err_buf := FND_MESSAGE.GET;
2792:
2793: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2794: END IF;
2795:
2796: ELSIF (l_scrap_qty>0) THEN
2797: --bug 3385113 added nvls
2801: x_return_code := 1;
2802: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2803: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_at_operation_flag');
2804: x_err_buf := FND_MESSAGE.GET;
2805: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2806: return(x_return_code);
2807: END IF;
2808: ELSE
2809: IF (nvl(l_scrap_at_operation_flag, -1) <> 1) THEN
2811: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
2812: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_at_operation_flag');
2813: x_err_buf := FND_MESSAGE.GET;
2814:
2815: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
2816: END IF;
2817: END IF;
2818: END IF;
2819:
2823: AND (g_param_jump_fm_q = 2)) THEN
2824: x_return_code := 1;
2825: FND_MESSAGE.SET_NAME('WSM', 'WSM_SCRAP_AT_TO_ONLY');
2826: x_err_buf := FND_MESSAGE.GET;
2827: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2828: return(x_return_code);
2829: END IF;
2830:
2831: -- p_to_intraop_step_type should not be > 5 -- NSO Modification by abedajna
2836: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
2837: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_intraop_step_type');
2838: x_err_buf := FND_MESSAGE.GET;
2839:
2840: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2841: return(x_return_code);
2842: END IF;
2843:
2844: -- Cannot Scrap in a Future Op
2855:
2856: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_FUTURE_SCR');
2857: x_err_buf := FND_MESSAGE.GET;
2858:
2859: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2860: return(x_return_code);
2861: END IF;
2862:
2863: --mes added following if condition
2878: x_err_buf);
2879: IF (x_return_code <> 0) THEN
2880: FND_MESSAGE.SET_NAME('WSM', 'WSM_CANNOT_GET_NEXT_MAND_STEP');
2881: x_err_buf := FND_MESSAGE.GET;
2882: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2883: return(x_return_code);
2884: ELSE
2885: if (l_debug = 'Y') then
2886: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
2882: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2883: return(x_return_code);
2884: ELSE
2885: if (l_debug = 'Y') then
2886: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
2887: ||'): Returned success from WSMPOPRN.get_current_op');
2888: end if;
2889: END IF;
2890: else
2891: l_next_mand_step := null;
2892: end if;
2893:
2894: if (l_debug = 'Y') then
2895: fnd_file.put_line(fnd_file.log, 'l_next_mand_step: '||l_next_mand_step);
2896: end if;
2897:
2898: -- Cannot skip a mandatory intraop in the current op seq
2899: l_err_condition := 0;
2956: IF (x_return_code <> 0) THEN
2957: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_INTRAOP_VALUE');
2958: x_err_buf := FND_MESSAGE.GET;
2959:
2960: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2961: return(x_return_code);
2962: ELSE
2963: if (l_debug = 'Y') then
2964: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
2960: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2961: return(x_return_code);
2962: ELSE
2963: if (l_debug = 'Y') then
2964: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
2965: ||'): Returned success from WSMPOPRN.get_intra_operation_value');
2966: end if;
2967: END IF;
2968:
2983: END IF;
2984: END IF;
2985:
2986: if (l_debug = 'Y') then
2987: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
2988: || ') l_err_condition: '||l_err_condition);
2989: end if;
2990:
2991: IF (l_err_condition = 1) THEN
2994:
2995: FND_MESSAGE.SET_NAME('WSM', 'WSM_MAND_STEP');
2996: x_err_buf := FND_MESSAGE.GET;
2997:
2998: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
2999: return(x_return_code);
3000: END IF;
3001: END IF; --IF (nvl(l_source_code, 'interface') NOT IN ('move in oa page'
3002:
3010: x_return_code := 1;
3011: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3012: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_intraop_step_type/to_intraop_step_type');
3013: x_err_buf := FND_MESSAGE.GET;
3014: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3015: return(x_return_code);
3016: end if;
3017:
3018: end if;
3022: -- NSO Modification by abedajna end
3023:
3024: l_operation_qty := l_wo_qty;
3025: if (l_debug = 'Y') then
3026: fnd_file.put_line(fnd_file.log, 'l_operation_qty='||l_operation_qty);
3027: end if;
3028:
3029: -- Validate UOM and quantity
3030: l_stmt_num := 310;
3037: to_unit => l_primary_uom,
3038: from_name => NULL,
3039: to_name => NULL);
3040: if (l_debug = 'Y') then
3041: fnd_file.put_line(fnd_file.log, 'l_converted_txn_qty='||l_converted_txn_qty);
3042: end if;
3043:
3044: --bug 5496297 throw a message if api returns -99999 which means that no valid conversion exists
3045: if (l_converted_txn_qty = -99999) then
3047: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_UOM_CONV');
3048: FND_MESSAGE.SET_TOKEN('VALUE1', p_txn_uom);
3049: FND_MESSAGE.SET_TOKEN('VALUE2', l_primary_uom);
3050: x_err_buf := FND_MESSAGE.GET;
3051: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3052: return(x_return_code);
3053: end if;
3054: --end bug 5496297
3055:
3064: x_return_code := 1;
3065: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_JOB_TXN_QTY');
3066: x_err_buf := FND_MESSAGE.GET;
3067:
3068: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3069: return(x_return_code);
3070:
3071: END IF;
3072: -- ST : Serial Support Project ---
3082: to_unit => l_primary_uom,
3083: from_name => NULL,
3084: to_name => NULL);
3085: if (l_debug = 'Y') then
3086: fnd_file.put_line(fnd_file.log, 'l_converted_scrap_qty='||l_converted_scrap_qty);
3087: end if;
3088:
3089: -- ST : Serial Support Project ---
3090: -- Validate the scrap quantity and the converted qty here...
3097: x_return_code := 1;
3098: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_JOB_TXN_QTY');
3099: x_err_buf := FND_MESSAGE.GET;
3100:
3101: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3102: return(x_return_code);
3103:
3104: END IF;
3105: -- ST : Serial Support Project ---
3111: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3112: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'transaction_quantity');
3113: x_err_buf := FND_MESSAGE.GET;
3114:
3115: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3116: return(x_return_code);
3117: END IF;
3118:
3119: IF (l_converted_scrap_qty > l_operation_qty) THEN
3122: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3123: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_quantity');
3124: x_err_buf := FND_MESSAGE.GET;
3125:
3126: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3127: return(x_return_code);
3128: END IF;
3129: --end move enh
3130:
3134: --move enh added the condition OR (l_scrap_qty>0) to the if statement
3135: IF ((p_to_intraop_step_type = WIP_CONSTANTS.SCRAP) OR (l_scrap_qty>0)) THEN
3136:
3137: if (l_debug = 'Y') then
3138: fnd_file.put_line(fnd_file.log, 'IOP = SCRAP');
3139: end if;
3140:
3141: -- abb H optional scap accounting begin
3142: /*******************************************************************************
3219: error = l_error_msg -- CZH.BUG2135538
3220: where header_id = p_header_id;
3221:
3222: l_stmt_num := 325;
3223: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3224: ELSE
3225: x_return_code := 1;
3226: -- abb changed the message
3227: fnd_message.set_name('WSM','WSM_NO_SCRAP_ACC');
3226: -- abb changed the message
3227: fnd_message.set_name('WSM','WSM_NO_SCRAP_ACC');
3228: fnd_message.set_token('DEPT_ID',to_char(l_to_dept_id));
3229: x_err_buf := FND_MESSAGE.GET;
3230: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3231: return(x_return_code);
3232: END IF;
3233: END IF;
3234:
3253: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3254: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account_id');
3255: x_err_buf := FND_MESSAGE.GET;
3256:
3257: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||
3258: l_stmt_num||'): '||x_err_buf);
3259: return(x_return_code);
3260: END;
3261: --***VJ End Additions***--
3278: x_return_code := 1;
3279: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3280: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account_id');
3281: x_err_buf := FND_MESSAGE.GET;
3282: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='|| l_stmt_num||'): '||x_err_buf);
3283: return(x_return_code);
3284: END;
3285:
3286: elsif ((l_est_scrap_acc = 2 or l_job_type = 3) and l_wlmti_scrap_acct_id = -1) then
3316: WHERE WCO.wip_entity_id = l_wip_entity_id
3317: AND WCO.operation_seq_num = l_wo_rtg_op_seq_num;
3318: EXCEPTION
3319: WHEN no_data_found THEN
3320: fnd_file.put_line(fnd_file.log, 'in no data found after selecting from wco');
3321: END;
3322: END IF;
3323:
3324: IF (((nvl(l_scrap_at_operation_flag, 1)=1) AND (l_from_scrap_id IS NULL)) OR
3351: error = l_error_msg
3352: where header_id = p_header_id;
3353:
3354: l_stmt_num := 325;
3355: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3356: ELSE
3357: x_return_code := 1;
3358: fnd_message.set_name('WSM','WSM_NO_SCRAP_ACC');
3359: IF (nvl(l_scrap_at_operation_flag, 1) = 1) THEN
3361: ELSE
3362: fnd_message.set_token('DEPT_ID',to_char(l_to_dept_id));
3363: END IF;
3364: x_err_buf := FND_MESSAGE.GET;
3365: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3366: return(x_return_code);
3367: END IF;
3368:
3369: BEGIN
3378: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3379: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account_id');
3380: x_err_buf := FND_MESSAGE.GET;
3381:
3382: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||
3383: l_stmt_num||'): '||x_err_buf);
3384: return(x_return_code);
3385: END;
3386: ELSE --(l_wlmti_scrap_acct_id <> -1)
3416: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3417: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account_id');
3418: x_err_buf := FND_MESSAGE.GET;
3419:
3420: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||
3421: l_stmt_num||'): '||x_err_buf);
3422: return(x_return_code);
3423: END;
3424: END IF;
3455: error = l_error_msg
3456: where header_id = p_header_id;
3457:
3458: l_stmt_num := 325;
3459: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3460: ELSE
3461: x_return_code := 1;
3462: fnd_message.set_name('WSM','WSM_NO_SCRAP_ACC');
3463: IF (nvl(l_scrap_at_operation_flag, 1) = 1) THEN
3465: ELSE
3466: fnd_message.set_token('DEPT_ID',to_char(l_to_dept_id));
3467: END IF;
3468: x_err_buf := FND_MESSAGE.GET;
3469: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3470: return(x_return_code);
3471: END IF;
3472:
3473: BEGIN
3482: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3483: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account_id');
3484: x_err_buf := FND_MESSAGE.GET;
3485:
3486: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||
3487: l_stmt_num||'): '||x_err_buf);
3488: return(x_return_code);
3489: END;
3490: ELSE --(l_wlmti_scrap_acct_id <> -1)
3506: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3507: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account_id');
3508: x_err_buf := FND_MESSAGE.GET;
3509:
3510: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||
3511: l_stmt_num||'): '||x_err_buf);
3512: return(x_return_code);
3513: END;
3514: END IF; --(l_wlmti_scrap_acct_id = -1)
3532: x_return_code := 1;
3533: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3534: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account_id');
3535: x_err_buf := FND_MESSAGE.GET;
3536: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='|| l_stmt_num||'): '||x_err_buf);
3537: return(x_return_code);
3538: END;
3539:
3540: elsif ((l_est_scrap_acc = 2 or l_job_type = 3) and l_wlmti_scrap_acct_id = -1) then
3556: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3557: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'primary_quantity');
3558: x_err_buf := FND_MESSAGE.GET;
3559:
3560: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3561: return(x_return_code);
3562: END IF;*/
3563:
3564: --bug 3385113 added nvls
3568:
3569: FND_MESSAGE.SET_NAME('WSM', 'WSM_SCRAP_MOVE_QTY_INCORRECT');
3570: x_err_buf := FND_MESSAGE.GET;
3571:
3572: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3573: return(x_return_code);
3574: END IF;
3575: --move enh commented out ELSE branch
3576:
3576:
3577: /* ELSE -- intraop step <> Scrap
3578:
3579: if (l_debug = 'Y') then
3580: fnd_file.put_line(fnd_file.log, 'IOP <>SCRAP');
3581: end if;
3582:
3583: IF (l_converted_txn_qty <> l_operation_qty) THEN
3584:
3586:
3587: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_TXN_QTY');
3588: x_err_buf := FND_MESSAGE.GET;
3589:
3590: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3591: return(x_return_code);
3592: END IF;
3593:
3594: END IF;
3634: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
3635: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'jump_flag');
3636: x_err_buf := FND_MESSAGE.GET;
3637:
3638: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3639:
3640: return(x_return_code);
3641: end if;
3642:
3685:
3686: fnd_message.set_name('WIP', 'WIP_EZ_NO_SUBINV_DEFAULT1');
3687: x_err_buf := fnd_message.get;
3688:
3689: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3690:
3691: return(x_return_code);
3692: end if;
3693: --endfix
3704:
3705: l_stmt_num := 355;
3706: l_txn_type := 2;
3707:
3708: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
3709: ||l_stmt_num||'): WARNING: Changed transaction_type to 2 in WLMTI');
3710:
3711: END IF;
3712: ELSE -- not the last operation
3721:
3722: l_stmt_num := 360;
3723: l_txn_type := 1;
3724:
3725: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
3726: ||l_stmt_num||'): WARNING: Changed transaction_type to 1 in WLMTI');
3727: END IF;
3728: END IF;
3729:
3741:
3742: fnd_message.set_name('WIP', 'WIP_EZ_NO_SUBINV_DEFAULT1');
3743: x_err_buf := fnd_message.get;
3744:
3745: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
3746:
3747: return(x_return_code);
3748: end if;
3749: --endfix
3759:
3760: l_stmt_num := 365;
3761: l_txn_type := 2;
3762:
3763: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
3764: ||l_stmt_num||'): WARNING: Changed transaction_type to 2 in WLMTI');
3765: END IF;
3766: ELSE -- not the last operation
3767: IF (l_txn_type <> 1) THEN -- Move only
3775:
3776: l_stmt_num := 370;
3777: l_txn_type := 1;
3778:
3779: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
3780: ||l_stmt_num||'): WARNING: Changed transaction_type to 1 in WLMTI');
3781: END IF;
3782: END IF;
3783: END IF;
3804: l_stmt_num := 371;
3805: x_return_code := 1;
3806: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_SCRAP_BKFLSH_OFF');
3807: x_err_buf := FND_MESSAGE.GET;
3808: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3809: return(x_return_code);
3810: END IF;
3811:
3812: END IF; -- for forward moves and completions
3843: x_return_code := 1;
3844: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_COMPLETION');
3845: x_err_buf := FND_MESSAGE.GET;
3846:
3847: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3848: return(x_return_code);
3849: END;
3850: --***VJ End Changes***--
3851:
3854: x_return_code := 1;
3855: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_COMPLETION');
3856: x_err_buf := FND_MESSAGE.GET;
3857:
3858: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3859: return(x_return_code);
3860: END IF;
3861:
3862: l_stmt_num := 380;
3896: THEN
3897: x_return_code := 1;
3898: FND_MESSAGE.SET_NAME('WSM', 'WSM_MES_UNDO_OA_FORMSINTERFACE');
3899: x_err_buf := FND_MESSAGE.GET;
3900: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3901: return(x_return_code);
3902: END IF;
3903: --mes end
3904:
3973: error = l_error_msg -- CZH.BUG2135538
3974: where header_id = p_header_id;
3975:
3976: l_stmt_num := 390;
3977: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
3978: end if;
3979:
3980: BEGIN
3981: -- ST : Serial Support Project ---
4088: and lot_number = nvl(l_cmp_lot_number, lot_number);
4089:
4090:
4091: if (l_debug = 'Y') then
4092: fnd_file.put_line(fnd_file.log, 'l_onhand_qty='||l_onhand_qty
4093: ||', p_txn_qty='||p_txn_qty||', l_qty_completed='||l_qty_completed);
4094: end if;
4095:
4096: --BA: CZH: BUG2154720
4102: to_unit => l_primary_uom,
4103: from_name => NULL,
4104: to_name => NULL);
4105: if (l_debug = 'Y') then
4106: fnd_file.put_line(fnd_file.log, 'l_converted_txn_qty='||l_converted_txn_qty);
4107: end if;
4108:
4109: -- ST : Serial Support ---
4110: -- Place validations here for the transaction quantity and the converted txn quantity,...
4117: x_return_code := 1;
4118: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_JOB_TXN_QTY');
4119: x_err_buf := FND_MESSAGE.GET;
4120:
4121: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4122: return(x_return_code);
4123:
4124: END IF;
4125: -- ST : Serial Support ---
4135: from_name => NULL,
4136: to_name => NULL);
4137:
4138: if (l_debug = 'Y') then
4139: fnd_file.put_line(fnd_file.log, 'l_converted_txn_qty='||l_converted_txn_qty);
4140: end if;
4141: END IF; --l_scrap_qty > 0 */
4142:
4143: IF (nvl(l_scrap_qty, -1) <> nvl(l_wmt_scrap_qty, -1)) THEN
4177: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_RETURN'); -- Fix for bug #2095267
4178: x_return_code := 1;
4179: x_err_buf := FND_MESSAGE.GET;
4180:
4181: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
4182: return(x_return_code);
4183: end if;
4184:
4185: -- abbKanban begin
4188: -- when returning, if the job has a kanban reference, just provide a warning...
4189: if l_kanban_card_id is not null then
4190: FND_MESSAGE.set_name('WSM', 'WSM_KNBN_RET_ISSUES');
4191: x_warning_mesg := fnd_message.get;
4192: fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4193: fnd_file.put_line(fnd_file.log, x_warning_mesg);
4194: fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4195: end if; --kanban card is not null
4196:
4189: if l_kanban_card_id is not null then
4190: FND_MESSAGE.set_name('WSM', 'WSM_KNBN_RET_ISSUES');
4191: x_warning_mesg := fnd_message.get;
4192: fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4193: fnd_file.put_line(fnd_file.log, x_warning_mesg);
4194: fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4195: end if; --kanban card is not null
4196:
4197:
4190: FND_MESSAGE.set_name('WSM', 'WSM_KNBN_RET_ISSUES');
4191: x_warning_mesg := fnd_message.get;
4192: fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4193: fnd_file.put_line(fnd_file.log, x_warning_mesg);
4194: fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4195: end if; --kanban card is not null
4196:
4197:
4198:
4211: **l_stmt_num := 406.1;
4212: ** if l_cur_supply_status = 5 then
4213: ** FND_MESSAGE.set_name('WSM', 'WSM_KNBN_RET_ISSUES');
4214: ** x_warning_mesg := fnd_message.get;
4215: ** fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4216: ** fnd_file.put_line(fnd_file.log, x_warning_mesg);
4217: ** fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4218: ** else
4219: ** inv_kanban_pvt.Update_Card_Supply_Status
4212: ** if l_cur_supply_status = 5 then
4213: ** FND_MESSAGE.set_name('WSM', 'WSM_KNBN_RET_ISSUES');
4214: ** x_warning_mesg := fnd_message.get;
4215: ** fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4216: ** fnd_file.put_line(fnd_file.log, x_warning_mesg);
4217: ** fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4218: ** else
4219: ** inv_kanban_pvt.Update_Card_Supply_Status
4220: ** (X_Return_Status => l_returnStatus,
4213: ** FND_MESSAGE.set_name('WSM', 'WSM_KNBN_RET_ISSUES');
4214: ** x_warning_mesg := fnd_message.get;
4215: ** fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4216: ** fnd_file.put_line(fnd_file.log, x_warning_mesg);
4217: ** fnd_file.put_line(fnd_file.log, '******** WARNING *********');
4218: ** else
4219: ** inv_kanban_pvt.Update_Card_Supply_Status
4220: ** (X_Return_Status => l_returnStatus,
4221: ** p_Kanban_Card_Id => l_kanban_card_id,
4225: ** FND_MESSAGE.SET_NAME('WSM', 'WSM_KNBN_CARD_STS_FAIL');
4226: ** fnd_message.set_token('STATUS','InProcess');
4227: ** x_return_code := 1;
4228: ** x_err_buf := FND_MESSAGE.GET;
4229: ** fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
4230: ** return(x_return_code);
4231: ** end if;
4232: ** end if;
4233: **
4259: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_WAC_SCRAP_ACC');
4260: fnd_message.set_token('CC', l_class_code);
4261: x_return_code := 1;
4262: x_err_buf := FND_MESSAGE.GET;
4263: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
4264: return(x_return_code);
4265: end if;
4266: end if;
4267:
4280: fnd_message.set_name('WSM','WSM_NO_SCRAP_ACC');
4281: fnd_message.set_token('DEPT_ID',to_char(l_cmp_to_dept_id));
4282: x_return_code := 1;
4283: x_err_buf := FND_MESSAGE.GET;
4284: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
4285: return(x_return_code);
4286: end if;
4287: end if;
4288:
4327: FND_MESSAGE.SET_NAME('WSM', 'WSM_UNDO_NOT_ENABLED');
4328: --end bug 4202723
4329: x_err_buf := FND_MESSAGE.GET;
4330:
4331: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4332:
4333: return(x_return_code);
4334: end if;
4335:
4353: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
4354: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entity_name');
4355: x_err_buf := FND_MESSAGE.GET;
4356:
4357: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4358: return(x_return_code);
4359: END;
4360: --***VJ End Changes***--
4361:
4390: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
4391: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'wip_entity_name');
4392: x_err_buf := FND_MESSAGE.GET;
4393:
4394: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4395: return(x_return_code);
4396: END;
4397:
4398:
4439:
4440: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_MOVE_TXNS');
4441: x_err_buf := FND_MESSAGE.GET;
4442:
4443: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4444:
4445: return(x_return_code);
4446: END IF;
4447: EXCEPTION
4450:
4451: FND_MESSAGE.SET_NAME('WSM', 'WSM_NO_MOVE_TXNS');
4452: x_err_buf := FND_MESSAGE.GET;
4453:
4454: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4455: return(x_return_code);
4456: END;
4457: -- End fix for bug #2095253
4458:
4484: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
4485: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_operation_seq_num/transaction_quantity');
4486: x_err_buf := FND_MESSAGE.GET;
4487:
4488: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4489: return(x_return_code);
4490: END;
4491:
4492: -- abb changes for bug 2427171 begin
4493: if l_txn_id is null then
4494: x_return_code := 1;
4495: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_MOVE_CAND');
4496: x_err_buf := FND_MESSAGE.GET;
4497: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf) ;
4498: return(x_return_code);
4499: end if;
4500: -- abb changes for bug 2427171 end
4501: --***VJ End Changes***--
4543: THEN
4544: x_return_code := 1;
4545: FND_MESSAGE.SET_NAME('WSM', 'WSM_MES_UNDO_OA_FORMSINTERFACE');
4546: x_err_buf := FND_MESSAGE.GET;
4547: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
4548: return(x_return_code);
4549: END IF;
4550:
4551: IF (l_fm_op_seq_num <> l_to_op_seq_num) THEN
4677: x_err_buf := x_err_buf || FND_MESSAGE.GET;
4678: END IF;
4679:
4680: if (l_debug = 'Y') then
4681: fnd_file.put_line(fnd_file.log, 'VALUES FETCHED FROM WMT TABLE '||
4682: ' l_fm_op_seq_num='||l_fm_op_seq_num||
4683: ', l_fm_op_code='||l_fm_op_code||
4684: ', l_fm_dept_id='||l_fm_dept_id||
4685: ', l_fm_intraop_step_type='||l_fm_intraop_step ||
4689: ', l_to_dept_id='||l_to_dept_id||
4690: ', error_msg ' || l_error_msg);
4691: end if;
4692:
4693: fnd_file.put_line(fnd_file.log, 'x_err_buf '||x_err_buf);
4694: IF (x_err_buf IS NOT NULL) THEN
4695: l_error_msg := substr(l_error_msg||'WARNING: '||x_err_buf||'| ', 1, 2000);
4696: --move enh added SCRAP_QUANTITY, SCRAP_QUANTITY
4697: -- CZH.BUG2135538
4720: p_run_log_level => l_log_level
4721: );
4722: END IF;
4723: l_stmt_num := 440;
4724: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4725:
4726: END IF;
4727:
4728: -- Verify if the given p_to_op_seq/code/iop/dept_id is same as the above retrieved l_from_op_seq/code/iop/dept_id.
4766: error = l_error_msg -- CZH.BUG2135538
4767: where header_id = p_header_id;
4768:
4769: l_stmt_num := 445;
4770: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4771: END IF;
4772:
4773: --BA: CZH:BUG2154720
4774: l_stmt_num := 447;
4782: to_name => NULL);
4783:
4784:
4785: if (l_debug = 'Y') then
4786: fnd_file.put_line(fnd_file.log, 'after converting @447 l_converted_txn_qty='||l_converted_txn_qty);
4787: end if;
4788:
4789: -- ST : Serial Support ---
4790: -- Place the check for qty here...
4797: x_return_code := 1;
4798: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_JOB_TXN_QTY');
4799: x_err_buf := FND_MESSAGE.GET;
4800:
4801: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4802: return(x_return_code);
4803:
4804: END IF;
4805: -- ST : Serial Support ---
4806:
4807: --move enh 115.135 modified the qty check after perf check
4808: --move enh 115.136 corrected the from_quantity
4809: if (l_debug = 'Y') then
4810: fnd_file.put_line(fnd_file.log, 'l_scrap_qty '||l_scrap_qty||' l_to_intraop_step '||l_to_intraop_step);
4811: end if;
4812:
4813: IF ((l_to_intraop_step = 5) AND (l_scrap_qty > 0)) THEN
4814: l_converted_scrap_qty := inv_convert.inv_um_convert (item_id => l_primary_item_id,
4831: p_run_log_level => l_log_level
4832: );
4833: END IF;
4834: if (l_debug = 'Y') then
4835: fnd_file.put_line(fnd_file.log, 'l_converted_scrap_qty='||l_converted_scrap_qty);
4836: end if;
4837:
4838: -- ST : Serial Support ---
4839: -- Place the check here for qty ...
4846: x_return_code := 1;
4847: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_JOB_TXN_QTY');
4848: x_err_buf := FND_MESSAGE.GET;
4849:
4850: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4851: return(x_return_code);
4852:
4853: END IF;
4854: -- ST : Serial Support ---
4868: x_return_code := 1;
4869: FND_MESSAGE.SET_NAME('WSM', 'WSM_SCRAP_QTY_INCORRECT');
4870: x_err_buf := FND_MESSAGE.GET;
4871:
4872: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):
4873: '||x_err_buf);
4874:
4875: return(x_return_code);
4876: END IF;
4888: --FND_MESSAGE.SET_TOKEN('FLD_NAME', 'transaction_quantity');
4889: FND_MESSAGE.SET_NAME('WSM', 'WSM_LOT_INVALID_CANDIDATE'); -- Fix for bug #2095253
4890: x_err_buf := FND_MESSAGE.GET;
4891:
4892: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4893: return(x_return_code);
4894: end if;
4895: -- END IF;
4896:
4941: error = l_error_msg -- CZH.BUG2135538
4942: where header_id = p_header_id;
4943:
4944: l_stmt_num := 460;
4945: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
4946: --bug 5185751 modify line below since l_wmt_scrap_acct_id may be null
4947: --elsif (l_wmt_scrap_acct_id <> l_wlmti_scrap_acct_id) then
4948: elsif (nvl(l_wmt_scrap_acct_id, -1) <> l_wlmti_scrap_acct_id) then
4949: x_return_code := 1;
4951: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
4952: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'scrap_account');
4953: x_err_buf := FND_MESSAGE.GET;
4954:
4955: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4956:
4957: return(x_return_code);
4958: end if;
4959:
4976: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
4977: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_dept_id'); --bugfix 1587295: changed the token
4978: x_err_buf := FND_MESSAGE.GET;
4979:
4980: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
4981: return(x_return_code);
4982: ELSE
4983: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
4984: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_department_code');
4983: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
4984: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_department_code');
4985: x_err_buf := FND_MESSAGE.GET;
4986:
4987: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
4988: END IF;
4989: --***VJ End Additions***--
4990:
4991: l_stmt_num := 475;
5002: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
5003: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_dept_id'); --bugfix 1587295: changed the token
5004: x_err_buf := FND_MESSAGE.GET;
5005:
5006: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5007: return(x_return_code);
5008: ELSE
5009: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
5010: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_code');
5009: FND_MESSAGE.SET_NAME('WSM', 'WSM_MODIFIED_FIELD');
5010: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'to_department_code');
5011: x_err_buf := FND_MESSAGE.GET;
5012:
5013: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'):'||x_err_buf);
5014: END IF;
5015: --***VJ End Additions***--
5016:
5017: --NSO Modification by abedajna addition end
5069: FND_MESSAGE.SET_NAME('WSM', 'WSM_INFO_NOT_FOUND');
5070: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'acct_period_id');
5071: x_err_buf := FND_MESSAGE.GET;
5072:
5073: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5074: return(x_return_code);
5075: END IF;
5076:
5077:
5096: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_PRI_UOM');
5097: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'fm_op_seq_num/fm_intraop_step_type');
5098: x_err_buf := FND_MESSAGE.GET;
5099:
5100: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5101: return(x_return_code);
5102: END IF;
5103:
5104:
5111: to_unit => l_primary_uom,
5112: from_name => NULL,
5113: to_name => NULL);
5114: if (l_debug = 'Y') then
5115: fnd_file.put_line(fnd_file.log, ' after converting l_converted_txn_qty='||l_converted_txn_qty);
5116: end if;
5117:
5118: -- ST : Serial Support ---
5119: -- Place the check here for qty also ...
5125: x_return_code := 1;
5126: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_JOB_TXN_QTY');
5127: x_err_buf := FND_MESSAGE.GET;
5128:
5129: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5130: return(x_return_code);
5131:
5132: END IF;
5133: -- ST : Serial Support ---
5168: FND_MESSAGE.SET_NAME('WSM', 'WSM_UPDATE_INVALID');
5169: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'primary_quantity');
5170: x_err_buf := FND_MESSAGE.GET;
5171:
5172: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5173: return(x_return_code);
5174: END IF;
5175:
5176:
5198: -- so that the IF condition doesn't fail when a move/jump is done
5199: -- after jumping outside the routing.
5200:
5201: if (l_debug = 'Y') then
5202: fnd_file.put_line(fnd_file.log, ' l_wo_op_seq_id=' ||l_wo_op_seq_id
5203: ||' l_op_seq_id=' ||l_op_seq_id
5204: ||' l_wo_op_code=' ||l_wo_op_code
5205: ||' l_op_code=' ||l_op_code
5206: || 'l_end_op_seq_num='||l_end_op_seq_num
5223: -- IF (x_return_code <> 0) THEN
5224: -- FND_MESSAGE.SET_NAME('WSM', 'WSM_DISABLE_OPS_FAILED');
5225: -- x_err_buf := FND_MESSAGE.GET;
5226: --
5227: -- fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5228: -- return(x_return_code);
5229: -- ELSE
5230: -- if (l_debug = 'Y') then
5231: -- fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
5227: -- fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5228: -- return(x_return_code);
5229: -- ELSE
5230: -- if (l_debug = 'Y') then
5231: -- fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
5232: -- ||'): Returned success from WSMPOPRN.disable_operations');
5233: -- end if;
5234: -- END IF;
5235: -- EA: CZH.BUG2168828
5309: end if;
5310:
5311: -- OSP FP I end changes
5312:
5313: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5314: return(x_return_code);
5315: ELSE
5316: if (l_debug = 'Y') then
5317: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
5313: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): '||x_err_buf);
5314: return(x_return_code);
5315: ELSE
5316: if (l_debug = 'Y') then
5317: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
5318: ||'): Returned success from WSMPOPRN.add_operation');
5319: end if;
5320:
5321: END IF;
5332: and operation_seq_num= p_fm_op_seq_num;
5333: END IF;
5334:
5335: if (l_debug = 'Y') then
5336: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num||'): ');
5337: end if;
5338:
5339: --abb H Non Std Jobs
5340: IF (g_aps_wps_profile='N') THEN
5380: l_stmt_num := 540;
5381: IF (x_return_code <> 0) THEN
5382: -- use the error message returned from WSMPWROT.POPULATE_WRO
5383:
5384: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='
5385: ||l_stmt_num||') calling WSMPWROT.POPULATE_WRO: '||x_err_buf);
5386: return(x_return_code);
5387: ELSE
5388: if (l_debug = 'Y') then
5385: ||l_stmt_num||') calling WSMPWROT.POPULATE_WRO: '||x_err_buf);
5386: return(x_return_code);
5387: ELSE
5388: if (l_debug = 'Y') then
5389: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation(stmt_num='||l_stmt_num
5390: ||'): Returned success from WSMPWROT.POPULATE_WRO');
5391: end if;
5392: END IF;
5393: -- BA: CZH.BUGFIX 2350705
5412:
5413: x_return_code := 0;
5414: x_err_buf := NULL;
5415: if (l_debug = 'Y') then
5416: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.custom_validation' ||': Returned Success');
5417: end if;
5418:
5419: return x_return_code;
5420:
5421: EXCEPTION
5422: WHEN OTHERS THEN
5423: x_return_code := SQLCODE;
5424: x_err_buf := 'WSMPLBMI.custom_validation' ||'(stmt_num='||l_stmt_num||') : '||substrb(sqlerrm,1,1000);
5425: fnd_file.put_line(fnd_file.log, x_err_buf);
5426:
5427: return x_return_code;
5428: END custom_validation;
5429:
5474: x_return_code := 1;
5475: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
5476: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'transaction_type');
5477: x_err_buf := FND_MESSAGE.GET;
5478: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.validate_lot_txn_for_bk_move(stmt_num='
5479: ||l_stmt_num||'): '||x_err_buf);
5480: return(x_return_code);
5481: END IF;
5482:
5515: x_return_code := 1;
5516: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
5517: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'move');
5518: x_err_buf := FND_MESSAGE.GET;
5519: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.validate_lot_txn_for_bk_move(stmt_num='
5520: || l_stmt_num||'): '||x_err_buf);
5521: return(x_return_code);
5522: END;
5523:
5548: --FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
5549: --FND_MESSAGE.SET_TOKEN('FLD_NAME', 'transaction_quantity');
5550: FND_MESSAGE.SET_NAME('WSM', 'WSM_LOT_INVALID_CANDIDATE'); -- Fix for bug #2095253
5551: x_err_buf := FND_MESSAGE.GET;
5552: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.validate_lot_txn_for_bk_move(stmt_num='
5553: ||l_stmt_num||'): '||x_err_buf);
5554: return(x_return_code);
5555: END IF;
5556:
5588: EXCEPTION
5589: WHEN OTHERS THEN
5590: x_return_code := SQLCODE;
5591: x_err_buf := 'WSMPLBMI.validate_lot_txn_for_bk_move' ||'(stmt_num='||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
5592: fnd_file.put_line(fnd_file.log, x_err_buf);
5593: return x_return_code;
5594: END validate_lot_txn_for_bk_move;
5595:
5596:
5656: --and batch_id < p_undo_txn_id;
5657: and nvl(batch_id, transaction_id) < p_undo_txn_id;
5658:
5659: if (l_debug = 'Y') then
5660: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.set_undo_txn_id(stmt_num=' || l_stmt_num || '): p_undo_txn_id ' ||p_undo_txn_id||' x_undone_batch_id '||x_undone_batch_id);
5661: end if;
5662:
5663: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
5664: l_msg_tokens.delete;
5708: WHEN NO_DATA_FOUND THEN
5709: x_return_code := 1;
5710: FND_MESSAGE.SET_NAME('WSM', 'WSM_SET_UNDO_TXN_ID_FAILED');
5711: x_err_buf := FND_MESSAGE.GET;
5712: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.set_undo_txn_id(stmt_num=' ||
5713: l_stmt_num || '): ' ||x_err_buf);
5714: return(x_return_code);
5715:
5716: WHEN OTHERS THEN
5715:
5716: WHEN OTHERS THEN
5717: x_return_code := SQLCODE;
5718: x_err_buf := 'WSMPLBMI.set_undo_txn_id' ||'(stmt_num='||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
5719: fnd_file.put_line(fnd_file.log, x_err_buf);
5720: return x_return_code;
5721:
5722: END set_undo_txn_id;
5723:
5761: WHEN NO_DATA_FOUND THEN
5762: x_return_code := 1;
5763: FND_MESSAGE.SET_NAME('WSM', 'WSM_SET_UNDO_TXN_ID_FAILED');
5764: x_err_buf := FND_MESSAGE.GET;
5765: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.set_undo_txn_id(stmt_num=' ||
5766: l_stmt_num || '): ' ||x_err_buf);
5767: return(x_return_code);
5768:
5769: WHEN OTHERS THEN
5768:
5769: WHEN OTHERS THEN
5770: x_return_code := SQLCODE;
5771: x_err_buf := 'WSMPLBMI.set_undo_txn_id' ||'(stmt_num='||l_stmt_num||'): '||substrb(sqlerrm,1,1000);
5772: fnd_file.put_line(fnd_file.log, x_err_buf);
5773: return x_return_code;
5774:
5775: END set_undo_txn_id;
5776:
5790: l_wmt_group_id NUMBER;
5791: l_transaction_id NUMBER;
5792: BEGIN
5793: l_stmt_num := 10;
5794: fnd_file.put_line(fnd_file.log,'Inside copy_WTIE_to_WIE...');
5795:
5796: l_stmt_num := 40;
5797: INSERT INTO WSM_INTERFACE_ERRORS (
5798: HEADER_ID,
5825: EXCEPTION
5826: WHEN OTHERS THEN
5827: x_error_code := SQLCODE;
5828: x_error_msg := substrb('WSMPLMTI.copy_WTIE_to_WIE' ||'(stmt_num='||l_stmt_num||') : '||sqlerrm, 1,4000);
5829: FND_FILE.PUT_LINE(FND_FILE.LOG, x_error_msg);
5830:
5831: END copy_WTIE_to_WIE;
5832:
5833: PROCEDURE update_txn_status(x_error_code OUT NOCOPY NUMBER
5848: EXCEPTION
5849: WHEN OTHERS THEN
5850: x_error_code := SQLCODE;
5851: x_error_msg := substrb('WSMPLMTI.update_txn_status' ||'(stmt_num='||l_stmt_num||') : '||sqlerrm, 1,4000);
5852: FND_FILE.PUT_LINE(FND_FILE.LOG, x_error_msg);
5853: END update_txn_status;
5854:
5855:
5856: PROCEDURE error_handler(x_error_code OUT NOCOPY NUMBER,
5863: l_stmt_num NUMBER;
5864: l_transaction_id NUMBER;
5865: BEGIN
5866: l_stmt_num := 10;
5867: fnd_file.put_line(fnd_file.log, 'Inside error_handler '||'p_error_msg='||p_error_msg||' p_header_id='||' p_txn_id='||p_transaction_id);
5868: WSMPUTIL.AUTONOMOUS_TXN(p_user=> g_user_id,
5869: p_login=> g_login_id,
5870: p_header_id => p_header_id,
5871: p_message => p_error_msg,
5878: x_err_msg => x_error_msg);
5879:
5880: if (x_error_code <> 0) then
5881: x_error_msg := 'WSMPLMTI.error_handler' ||'(stmt_num='||l_stmt_num||') : '||substrb(x_error_msg, 1,4000);
5882: fnd_file.put_line(fnd_file.log, x_error_msg);
5883: return;
5884: end if;
5885:
5886: l_stmt_num := 20;
5888: SET status = 3,
5889: ERROR = g_fnd_generic_err_msg
5890: WHERE header_id = p_header_id;
5891:
5892: fnd_file.put_line(fnd_file.log, 'Errors populated in wsm_interface_errors table');
5893: EXCEPTION
5894: WHEN OTHERS THEN
5895: x_error_code := SQLCODE;
5896: x_error_msg := substrb('WSMPLMTI.error_handler' ||'(stmt_num='||l_stmt_num||') : '||sqlerrm, 1,4000);
5893: EXCEPTION
5894: WHEN OTHERS THEN
5895: x_error_code := SQLCODE;
5896: x_error_msg := substrb('WSMPLMTI.error_handler' ||'(stmt_num='||l_stmt_num||') : '||sqlerrm, 1,4000);
5897: FND_FILE.PUT_LINE(FND_FILE.LOG, x_error_msg);
5898: END error_handler;
5899:
5900: Procedure update_int_grp_id(x_error_code OUT NOCOPY NUMBER,
5901: x_error_msg OUT NOCOPY VARCHAR2,
6256:
6257: l_stmt_num := 10;
6258: --move enh? to be removed
6259: IF (l_debug = 'Y') THEN
6260: fnd_file.put_line(fnd_file.log, 'Inside Move Worker....');
6261: --dmfut11i
6262: /* fnd_global.apps_initialize(user_id => 1006484,
6263: resp_id => 22435,
6264: resp_appl_id => 410);
6261: --dmfut11i
6262: /* fnd_global.apps_initialize(user_id => 1006484,
6263: resp_id => 22435,
6264: resp_appl_id => 410);
6265: fnd_file.put_line(fnd_file.log, 'session ID = ' || fnd_global.session_id);
6266:
6267: --dmfdv11i
6268: fnd_global.apps_initialize(user_id => 1005369,
6269: resp_id => 50511,
6267: --dmfdv11i
6268: fnd_global.apps_initialize(user_id => 1005369,
6269: resp_id => 50511,
6270: resp_appl_id => 700);
6271: fnd_file.put_line(fnd_file.log, 'session ID = ' || fnd_global.session_id);*/
6272: END IF;
6273: --move enh 115.137 changed from WSMPCNST to WSMPUTIL
6274: IF WSMPUTIL.REFER_SITE_LEVEL_PROFILE = 'Y' THEN
6275: l_job_copy_flag := WSMPUTIL.CREATE_LBJ_COPY_RTG_PROFILE;
6324: IF (SQL%ROWCOUNT = 0) THEN
6325: FND_MESSAGE.SET_NAME('WSM', 'WSM_UPDATE_INVALID');
6326: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'STATUS');
6327: errbuf := FND_MESSAGE.GET;
6328: fnd_file.put_line(fnd_file.log, errbuf);
6329: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', errbuf);
6330: return;
6331: ELSE
6332: IF (l_debug='Y') THEN
6329: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', errbuf);
6330: return;
6331: ELSE
6332: IF (l_debug='Y') THEN
6333: fnd_file.put_line(fnd_file.log, 'updated status to running');
6334: END IF;
6335: --mes
6336: IF (nvl(p_source_code, 'interface') = 'interface') THEN
6337: COMMIT;
6340: ELSE
6341: FND_MESSAGE.SET_NAME('WSM', 'WSM_INVALID_FIELD');
6342: FND_MESSAGE.SET_TOKEN('FLD_NAME', 'GROUP_ID');
6343: errbuf := FND_MESSAGE.GET;
6344: fnd_file.put_line(fnd_file.log, errbuf);
6345: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR', errbuf);
6346: return;
6347: END IF;
6348:
6354:
6355: --move enh
6356: LOOP /* outer loop */
6357: IF (l_debug = 'Y') THEN
6358: fnd_file.put_line(fnd_file.log, 'begin outer loop');
6359: END IF;
6360:
6361: l_ac_ar_exists := 0;
6362: l_inserted_wmti := 0;
6367: LOOP /* inner loop */
6368: <
6369:
6370: IF (l_debug = 'Y') THEN
6371: fnd_file.put_line(fnd_file.log, 'begin inner loop');
6372: END IF;
6373:
6374: i := i+1;
6375:
6421: END IF;
6422:
6423:
6424: IF (l_debug = 'Y') THEN
6425: fnd_file.put_line(fnd_file.log, 'g_aps_wps_profile '||g_aps_wps_profile);
6426: END IF;
6427:
6428: IF (C_TXNS%NOTFOUND) THEN
6429: /* if no row left, break inner loop; if first_time, break inner and outer loop */
6427:
6428: IF (C_TXNS%NOTFOUND) THEN
6429: /* if no row left, break inner loop; if first_time, break inner and outer loop */
6430: IF (g_mrp_debug='Y') THEN
6431: fnd_file.put_line(fnd_file.log, 'NO rows this round');
6432: END IF;
6433: --move enh
6434: IF (l_first_time=1) THEN
6435: IF (g_mrp_debug='Y') THEN
6432: END IF;
6433: --move enh
6434: IF (l_first_time=1) THEN
6435: IF (g_mrp_debug='Y') THEN
6436: fnd_file.put_line(fnd_file.log, 'NO more rows left, done!');
6437: END IF;
6438: GOTO outer_loop;
6439: END IF;
6440: EXIT;
6440: EXIT;
6441: END IF;
6442:
6443: IF (g_mrp_debug='Y') THEN
6444: fnd_file.put_line(fnd_file.log, 'Transaction_id ='||l_transaction_id||' header_id = '||l_header_id);
6445: END IF;
6446:
6447: l_job_exists :=0;
6448: IF (l_first_time=1) THEN
6473: /* processing for this job this time. This txn will be considered
6474: for processing next time when the cursor is re-opened
6475: by the outer loop */
6476: IF (l_debug = 'Y') THEN
6477: fnd_file.put_line(fnd_file.log, 'Skipped this row since txn of the same job exists in WMTI');
6478: END IF;
6479: GOTO inner_loop;
6480: END IF;
6481:
6481:
6482: l_first_time :=0;
6483:
6484: IF (l_debug='Y') THEN
6485: fnd_file.put_line(fnd_file.log, 'Calling custom_validation');
6486: END IF;
6487:
6488: SAVEPOINT validation;
6489:
6526: l_total_txns := l_total_txns+1;
6527:
6528: IF (x_error_code<> 0) THEN
6529: l_error_msg := x_error_msg;
6530: FND_FILE.PUT_LINE(FND_FILE.LOG, substrb('WSMPLBMI.MoveTransactions' ||'(stmt_num='||l_stmt_num||') : '||l_error_msg, 1,4000));
6531: ROLLBACK TO validation;
6532: error_handler(p_header_id => l_header_id
6533: , p_transaction_id => l_transaction_id
6534: , p_error_msg => l_error_msg
6549: raise e_proc_exception;
6550: END IF;
6551: -- l_err_flag := 1; /*Added to fix bug #1815584*/
6552: IF (g_mrp_debug='Y') THEN
6553: fnd_file.put_line(fnd_file.log, 'custom_validation returned failure. Rolled back to validation');
6554: END IF;
6555: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
6556: l_msg_tokens.delete;
6557: WSM_log_PVT.logMessage (
6565: END IF;
6566: GOTO inner_loop; /* go to get next entry */
6567: ELSE
6568: IF (g_mrp_debug='Y') THEN
6569: fnd_file.put_line(fnd_file.log, 'custom_validation returned success');
6570: END IF;
6571: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
6572: l_msg_tokens.delete;
6573: WSM_log_PVT.logMessage (
6628:
6629: /* LotAttr */
6630: l_stmt_num := 95;
6631: IF (g_mrp_debug='Y') THEN
6632: fnd_file.put_line(fnd_file.log,'p_wip_entity_id => ' || l_wip_entity_id || 'p_org_id =>' || l_organization_id || ' p_intf_txn_id =>' || l_transaction_id);
6633: fnd_file.put_line(fnd_file.log, 'Before Calling WSM_LotAttr_PVT.create_update_lotattr');
6634: END IF;
6635: WSM_LotAttr_PVT.create_update_lotattr(
6636: x_err_code => x_err_code,
6629: /* LotAttr */
6630: l_stmt_num := 95;
6631: IF (g_mrp_debug='Y') THEN
6632: fnd_file.put_line(fnd_file.log,'p_wip_entity_id => ' || l_wip_entity_id || 'p_org_id =>' || l_organization_id || ' p_intf_txn_id =>' || l_transaction_id);
6633: fnd_file.put_line(fnd_file.log, 'Before Calling WSM_LotAttr_PVT.create_update_lotattr');
6634: END IF;
6635: WSM_LotAttr_PVT.create_update_lotattr(
6636: x_err_code => x_err_code,
6637: x_err_msg => x_error_msg,
6641: p_intf_src_code => 'WSM');
6642:
6643: IF (x_err_code<> 0) THEN
6644: l_error_msg := x_error_msg;
6645: FND_FILE.PUT_LINE(FND_FILE.LOG, substrb('WSMPLBMI.MoveTransactions' ||'(stmt_num='||l_stmt_num||') : '||l_error_msg, 1,4000));
6646: ROLLBACK TO validation;
6647: error_handler(p_header_id => l_header_id
6648: , p_transaction_id => l_transaction_id
6649: , p_error_msg => l_error_msg
6654: END IF;
6655: GOTO inner_loop; /* go to get next entry */
6656: END IF;
6657: IF (g_mrp_debug='Y') THEN
6658: fnd_file.put_line(fnd_file.log, 'No Error reported from WSM_LotAttr_PVT.create_update_lotattr');
6659: END IF;
6660: /* Fixed bug #1560345 */
6661:
6662: l_stmt_num := 110;
6700: FROM wsm_lot_move_txn_interface
6701: WHERE rowid=l_rowid;
6702:
6703: IF (l_debug = 'Y') THEN
6704: fnd_file.put_line(fnd_file.log, 'to_op_seq_num '||l_to_op_seq_num||' l_to_intraoperation_step_type '||l_to_intraoperation_step_type||
6705: ' l_fm_op_seq_num '||l_fm_op_seq_num||
6706: ' l_transaction_type '||l_transaction_type||
6707: ' l_scrap_qty '||l_scrap_qty||
6708: ' l_converted_scrap_qty '||l_converted_scrap_qty||
7709: x_error_code,
7710: x_error_msg);
7711:
7712: IF (x_error_code=0) THEN
7713: FND_FILE.PUT_LINE(FND_FILE.LOG, 'find_routing_end returned success');
7714: ELSE
7715: l_error_msg := x_error_msg;
7716: FND_FILE.PUT_LINE(FND_FILE.LOG,'WSMPLBMI.custom_validation' ||'(stmt_num='||l_stmt_num||') : '||substrb(l_error_msg, 1,4000));
7717: ROLLBACK TO validation;
7712: IF (x_error_code=0) THEN
7713: FND_FILE.PUT_LINE(FND_FILE.LOG, 'find_routing_end returned success');
7714: ELSE
7715: l_error_msg := x_error_msg;
7716: FND_FILE.PUT_LINE(FND_FILE.LOG,'WSMPLBMI.custom_validation' ||'(stmt_num='||l_stmt_num||') : '||substrb(l_error_msg, 1,4000));
7717: ROLLBACK TO validation;
7718: error_handler(p_header_id => l_header_id
7719: , p_transaction_id => l_transaction_id
7720: , p_error_msg => l_error_msg
7809: );
7810:
7811: if l_return_status = FND_API.G_RET_STS_SUCCESS then
7812: IF (l_debug='Y') THEN
7813: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Move_serial_intf_proc returned Success');
7814: END IF;
7815: ELSE
7816:
7817: IF (l_error_count = 1) THEN
7814: END IF;
7815: ELSE
7816:
7817: IF (l_error_count = 1) THEN
7818: fnd_file.put_line(fnd_file.log, l_error_msg);
7819: ELSIF (l_error_count > 1) THEN
7820: FOR i IN 1..l_error_count LOOP
7821: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
7822: p_encoded => FND_API.G_FALSE
7820: FOR i IN 1..l_error_count LOOP
7821: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
7822: p_encoded => FND_API.G_FALSE
7823: );
7824: fnd_file.put_line(fnd_file.log, l_error_msg);
7825: END LOOP;
7826: ELSE
7827: l_error_msg := 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned failure';
7828: END IF;
7827: l_error_msg := 'WSM_Serial_support_PVT.LBJ_serial_intf_proc returned failure';
7828: END IF;
7829:
7830: IF (l_debug='Y') THEN
7831: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Move_serial_intf_proc returned failure');
7832: END IF;
7833:
7834: ROLLBACK TO validation;
7835: error_handler(p_header_id => l_header_id ,
7908: WHERE wip_entity_id = l_wip_entity_id;
7909:
7910: /* Call for Assy completion as well as Assy returns */
7911: IF (l_debug = 'Y') THEN
7912: fnd_file.put_line(fnd_file.log, 'l_wip_entity_id '||l_wip_entity_id||
7913: ' l_subinventory '||l_subinventory||
7914: ' l_organization_id '||l_organization_id||
7915: ' l_transaction_type '||l_transaction_type||
7916: ' l_dup_name '||l_dup_name);
7943: x_error_code,
7944: x_error_msg);
7945:
7946: IF (l_debug = 'Y') THEN
7947: fnd_file.put_line(fnd_file.log, 'x_error_code '||x_error_code||
7948: ' x_error_msg '||x_error_msg||
7949: ' l_new_name '||l_new_name);
7950: END IF;
7951:
7968: SET new_wip_entity_name=l_new_name
7969: where rowid=l_rowid;
7970: ELSE
7971: l_error_msg := x_error_msg;
7972: FND_FILE.PUT_LINE(FND_FILE.LOG,'WSMPLBMI.MoveTransactions' ||'(stmt_num='||l_stmt_num||') : '||substrb(l_error_msg, 1,4000));
7973: ROLLBACK TO validation;
7974: error_handler(p_header_id => l_header_id
7975: , p_transaction_id => l_transaction_id
7976: , p_error_msg => l_error_msg
7985: END;
7986:
7987: l_stmt_num := 205;
7988: IF (g_mrp_debug='Y') THEN
7989: fnd_file.put_line(fnd_file.log, 'update_job_name returned success');
7990: END IF;
7991: END IF;
7992:
7993: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
8039: WHERE wip_entity_id = l_wip_entity_id;
8040:
8041: /* Call for Assy completion as well as Assy returns */
8042: IF (l_debug = 'Y') THEN
8043: fnd_file.put_line(fnd_file.log, 'l_wip_entity_id '||l_wip_entity_id||
8044: ' l_subinventory '||l_subinventory||
8045: ' l_organization_id '||l_organization_id||
8046: ' l_transaction_type '||l_transaction_type||
8047: ' l_dup_name '||l_dup_name);
8085: x_error_code,
8086: x_error_msg);
8087:
8088: IF (l_debug = 'Y') THEN
8089: fnd_file.put_line(fnd_file.log, 'x_error_code '||x_error_code||
8090: ' x_error_msg '||x_error_msg||
8091: ' l_new_name '||l_new_name);
8092: END IF;
8093:
8114: SET wip_entity_name=l_new_name
8115: where rowid=l_rowid;
8116: ELSE
8117: l_error_msg := x_error_msg;
8118: FND_FILE.PUT_LINE(FND_FILE.LOG,'WSMPLBMI.MoveTransactions' ||'(stmt_num='||l_stmt_num||') : '||substrb(l_error_msg, 1,4000));
8119: ROLLBACK TO validation;
8120: error_handler(p_header_id => l_header_id
8121: , p_transaction_id => l_transaction_id
8122: , p_error_msg => l_error_msg
8131: END;
8132:
8133: l_stmt_num := 205;
8134: IF (g_mrp_debug='Y') THEN
8135: fnd_file.put_line(fnd_file.log, 'update_job_name returned success');
8136: END IF;
8137: END IF;
8138: --end bug 4380374
8139:
8146: /* EC: CZH.BUG2442776*/
8147:
8148: IF (g_aps_wps_profile='N') THEN
8149: IF (l_debug='Y') THEN
8150: fnd_file.put_line(fnd_file.log, 'l_to_op_seq_num '||l_to_op_seq_num||' l_routing_seq_id '
8151: ||l_routing_seq_id||' l_rtg_revision_date '||l_rtg_revision_date);
8152: END IF;
8153:
8154: -- Bug 4480248 Added the condition ( AND l_to_op_seq_num is NOT NULL) in the IF statement below
8451: WHERE header_id = l_header_id);
8452:
8453: l_count := SQL%ROWCOUNT;
8454: IF (g_mrp_debug='Y') THEN
8455: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.MoveTransaction' ||'(stmt_num='||l_stmt_num||') :
8456: Inserted Scrap Txn');
8457: END IF;
8458:
8459: --mes populate l_job_fm_op_seq_num, l_job_to_op_seq_num
8659: );
8660:
8661: l_count := l_count+SQL%ROWCOUNT;
8662: IF (g_mrp_debug='Y') THEN
8663: fnd_file.put_line(fnd_file.log, 'Inserted '||l_count||' row(s) in WMTI, group_id '|| l_wmti_group_id||', txn_id '
8664: ||l_transaction_id||' scrap txn id '||l_scrap_txn_id);
8665: END IF;
8666:
8667: --mes populate l_job_fm_op_seq_num, l_job_to_op_seq_num
8672: END IF;
8673:
8674:
8675: IF (l_count = 0) THEN
8676: fnd_file.put_line(fnd_file.log, 'WARNING: Could not insert into WMTI');
8677:
8678: l_stmt_num := 230;
8679: FND_MESSAGE.SET_NAME('WSM', 'WSM_INS_TBL_FAILED');
8680: FND_MESSAGE.SET_TOKEN('TABLE', 'wip_move_txn_interface');
8685: , p_transaction_id => l_transaction_id
8686: , p_error_msg => l_error_msg
8687: , x_error_code => x_err_code
8688: , x_error_msg => x_err_msg);
8689: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.MoveTransaction' ||'(stmt_num='||l_stmt_num||') : '||l_error_msg);
8690: IF (x_err_code <> 0) THEN
8691: raise e_proc_exception;
8692: END IF;
8693:
8819: AND wo.operation_seq_num = wro.operation_seq_num
8820: AND wo.count_point_type = 3);
8821:
8822: IF (g_mrp_debug='Y') THEN
8823: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.MoveTransaction' ||'(stmt_num='||l_stmt_num||') :
8824: Updated '||SQL%ROWCOUNT||' rows in WRO');
8825: END IF;
8826:
8827: END IF;
8868: p_to_job_op_seq_num => l_max_op_seq,
8869: p_scheQuantity => l_new_op_txn_qty);
8870: IF (x_return_code = 0) THEN
8871: IF (g_mrp_debug='Y') THEN
8872: FND_FILE.PUT_LINE(FND_FILE.LOG, 'WSMPOPRN.call_infinite_scheduler returned success');
8873: END IF;
8874: ELSE
8875: l_error_msg := x_error_msg;
8876: FND_FILE.PUT_LINE(FND_FILE.LOG,'WSMPLBMI.custom_validation' ||'(stmt_num='||l_stmt_num||') : '||substrb(l_error_msg, 1,4000));
8872: FND_FILE.PUT_LINE(FND_FILE.LOG, 'WSMPOPRN.call_infinite_scheduler returned success');
8873: END IF;
8874: ELSE
8875: l_error_msg := x_error_msg;
8876: FND_FILE.PUT_LINE(FND_FILE.LOG,'WSMPLBMI.custom_validation' ||'(stmt_num='||l_stmt_num||') : '||substrb(l_error_msg, 1,4000));
8877: ROLLBACK TO validation;
8878: error_handler(p_header_id => l_header_id
8879: , p_transaction_id => l_transaction_id
8880: , p_error_msg => l_error_msg
8952: );
8953:
8954: if l_return_status = FND_API.G_RET_STS_SUCCESS then
8955: IF (l_debug='Y') THEN
8956: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Insert_attr_WSTI returned Success');
8957: END IF;
8958:
8959: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
8960: l_msg_tokens.delete;
8977: p_run_log_level => l_log_level
8978: );
8979: END IF;
8980: IF (l_error_count = 1) THEN
8981: fnd_file.put_line(fnd_file.log, l_error_msg);
8982: ELSIF (l_error_count > 1) THEN
8983: FOR i IN 1..l_error_count LOOP
8984: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
8985: p_encoded => FND_API.G_FALSE
8983: FOR i IN 1..l_error_count LOOP
8984: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
8985: p_encoded => FND_API.G_FALSE
8986: );
8987: fnd_file.put_line(fnd_file.log, l_error_msg);
8988: END LOOP;
8989: ELSE
8990: l_error_msg := 'WSM_Serial_support_PVT.Insert_attr_WSTI returned failure';
8991: END IF;
8990: l_error_msg := 'WSM_Serial_support_PVT.Insert_attr_WSTI returned failure';
8991: END IF;
8992:
8993: IF (l_debug='Y') THEN
8994: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Insert_attr_WSTI returned failure');
8995: END IF;
8996: -- This call is supposed to not return any error...
8997: raise e_proc_exception;
8998: END IF;
9033: x_returnStatus => l_return_status,
9034: x_errorMsg => l_error_msg);
9035:
9036: IF(l_return_status <> 'S')THEN
9037: FND_FILE.PUT_LINE(FND_FILE.LOG, substrb('WSMPLBMI.MoveTransactions' ||'(stmt_num='||l_stmt_num||') : '||l_error_msg, 1,4000));
9038: ROLLBACK TO validation;
9039: error_handler(p_header_id => l_header_id
9040: , p_transaction_id => l_transaction_id
9041: , p_error_msg => l_error_msg
9101: x_returnStatus => l_return_status,
9102: x_errorMsg => l_error_msg);
9103:
9104: IF (l_return_status <> 'S') THEN
9105: FND_FILE.PUT_LINE(FND_FILE.LOG, substrb('WSMPLBMI.MoveTransactions' ||'(stmt_num='||l_stmt_num||') : '||l_error_msg, 1,4000));
9106: ROLLBACK TO validation;
9107: error_handler(p_header_id => l_header_id
9108: , p_transaction_id => l_transaction_id
9109: , p_error_msg => l_error_msg
10012: );
10013:
10014: if l_return_status = FND_API.G_RET_STS_SUCCESS then
10015: IF (l_debug='Y') THEN
10016: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Update_attr_move returned Success');
10017: END IF;
10018: ELSE
10019: IF (l_error_count = 1) THEN
10020: fnd_file.put_line(fnd_file.log, l_error_msg);
10016: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Update_attr_move returned Success');
10017: END IF;
10018: ELSE
10019: IF (l_error_count = 1) THEN
10020: fnd_file.put_line(fnd_file.log, l_error_msg);
10021: ELSIF (l_error_count > 1) THEN
10022: FOR i IN 1..l_error_count LOOP
10023: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
10024: p_encoded => FND_API.G_FALSE
10022: FOR i IN 1..l_error_count LOOP
10023: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
10024: p_encoded => FND_API.G_FALSE
10025: );
10026: fnd_file.put_line(fnd_file.log, l_error_msg);
10027: END LOOP;
10028: ELSE
10029: l_error_msg := 'WSM_Serial_support_PVT.Update_attr_move returned failure';
10030: END IF;
10029: l_error_msg := 'WSM_Serial_support_PVT.Update_attr_move returned failure';
10030: END IF;
10031:
10032: IF (l_debug='Y') THEN
10033: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Update_attr_move returned failure');
10034: END IF;
10035: -- This call is supposed to not return any error...
10036: raise e_proc_exception;
10037:
10045: CLOSE C_TXNS;
10046:
10047: IF (l_inserted_wmti=0) THEN
10048: IF (g_mrp_debug='Y') THEN
10049: fnd_file.put_line(fnd_file.log, 'No txns inserted in WMTI');
10050: END IF;
10051: EXIT;
10052: ELSE
10053: IF (g_mrp_debug='Y') THEN
10050: END IF;
10051: EXIT;
10052: ELSE
10053: IF (g_mrp_debug='Y') THEN
10054: fnd_file.put_line(fnd_file.log, 'Inserted '||l_inserted_wmti||' row(s) in WMTI');
10055: END IF;
10056: END IF;
10057:
10058: -- MES
10089: );
10090:
10091: if l_return_status = FND_API.G_RET_STS_SUCCESS then
10092: IF (l_debug='Y') THEN
10093: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Insert_attr_WSTI returned Success');
10094: END IF;
10095:
10096: IF (G_LOG_LEVEL_STATEMENT >= l_log_level) THEN
10097: l_msg_tokens.delete;
10114: p_run_log_level => l_log_level
10115: );
10116: END IF;
10117: IF (l_error_count = 1) THEN
10118: fnd_file.put_line(fnd_file.log, l_error_msg);
10119: ELSIF (l_error_count > 1) THEN
10120: FOR i IN 1..l_error_count LOOP
10121: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
10122: p_encoded => FND_API.G_FALSE
10120: FOR i IN 1..l_error_count LOOP
10121: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
10122: p_encoded => FND_API.G_FALSE
10123: );
10124: fnd_file.put_line(fnd_file.log, l_error_msg);
10125: END LOOP;
10126: ELSE
10127: l_error_msg := 'WSM_Serial_support_PVT.Insert_attr_WSTI returned failure';
10128: END IF;
10127: l_error_msg := 'WSM_Serial_support_PVT.Insert_attr_WSTI returned failure';
10128: END IF;
10129:
10130: IF (l_debug='Y') THEN
10131: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Insert_attr_WSTI returned failure');
10132: END IF;
10133: -- This call is supposed to not return any error...
10134: raise e_proc_exception;
10135: END IF;
10282: rec.error_message);
10283: END LOOP;
10284: END;
10285: l_success := 0;
10286: fnd_file.put_line(fnd_file.log, 'Returned unsuccessfully from Wip_movProc_grp.processInterface');
10287: IF (G_LOG_LEVEL_UNEXPECTED >= l_log_level) THEN
10288: l_msg_tokens.delete;
10289: WSM_log_PVT.logMessage (
10290: p_module_name => l_module ,
10305: WHERE GROUP_ID=l_wmti_group_id
10306: AND PROCESS_STATUS = 3;
10307:
10308: IF (g_mrp_debug='Y') THEN
10309: fnd_file.put_line(fnd_file.log, 'Returned successfully from Wip_movProc_grp.processInterface');
10310: END IF;
10311: IF (l_wmti_err_txns > 0) THEN
10312: l_success := 0;
10313: ELSE
10339: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
10340: p_run_log_level => l_log_level
10341: );
10342: END IF;
10343: fnd_file.put_line(fnd_file.log, 'Returned unsuccessfully from Wip_movProc_grp.processInterface');
10344: raise e_proc_exception;
10345: END IF;
10346:
10347: END IF;
10570: )
10571: ));
10572:
10573: IF (g_mrp_debug='Y') THEN
10574: fnd_file.put_line(fnd_file.log, 'WSMPLBMI.MoveTransaction' ||'(stmt_num='||l_stmt_num||') :
10575: Updated '||SQL%ROWCOUNT||' rows in WOY');
10576: END IF;
10577: /**********************************
10578: UPDATE WIP_OPERATION_YIELDS woy
10740: END LOOP;
10741: END;
10742:
10743: IF (g_mrp_debug='Y') THEN
10744: fnd_file.put_line(fnd_file.log, 'set_undo_txn_id undo_txn_id= '||l_undo_txn_id);
10745: END IF;
10746:
10747: IF (x_return_code <> 0) THEN
10748: fnd_file.put_line(fnd_file.log, 'wip_move_transactions: set wsm_undo_txn_id failed');
10744: fnd_file.put_line(fnd_file.log, 'set_undo_txn_id undo_txn_id= '||l_undo_txn_id);
10745: END IF;
10746:
10747: IF (x_return_code <> 0) THEN
10748: fnd_file.put_line(fnd_file.log, 'wip_move_transactions: set wsm_undo_txn_id failed');
10749: END IF;
10750:
10751: END IF; /* End of if (undo_exists) */
10752: /* EA: CZH.JUMPENH */
10835:
10836:
10837:
10838: IF (SQL%ROWCOUNT=0) THEN
10839: fnd_file.put_line(fnd_file.log, 'wip_entities : Update failed '||l_new_jobname);
10840: ELSE
10841: IF (g_mrp_debug='Y') THEN
10842: fnd_file.put_line(fnd_file.log, 'updated wip_entity_id= '||l_wip_entity_id||' with the new_job_name '||l_new_jobname);
10843: END IF;
10838: IF (SQL%ROWCOUNT=0) THEN
10839: fnd_file.put_line(fnd_file.log, 'wip_entities : Update failed '||l_new_jobname);
10840: ELSE
10841: IF (g_mrp_debug='Y') THEN
10842: fnd_file.put_line(fnd_file.log, 'updated wip_entity_id= '||l_wip_entity_id||' with the new_job_name '||l_new_jobname);
10843: END IF;
10844: END IF;
10845:
10846: l_stmt_num := 290;
10879:
10880: END IF;
10881:
10882: IF (g_mrp_debug='Y') THEN
10883: fnd_file.put_line(fnd_file.log, 'set_undo_txn_id undo_txn_id= '||l_batch_id);
10884: END IF;
10885:
10886: IF (x_return_code <> 0) THEN
10887: fnd_file.put_line(fnd_file.log, 'wip_move_transactions: set wsm_undo_txn_id failed');
10883: fnd_file.put_line(fnd_file.log, 'set_undo_txn_id undo_txn_id= '||l_batch_id);
10884: END IF;
10885:
10886: IF (x_return_code <> 0) THEN
10887: fnd_file.put_line(fnd_file.log, 'wip_move_transactions: set wsm_undo_txn_id failed');
10888: END IF;
10889: -- Commented for bug 5286219. Code for trf reservation during return txn will be present
10890: -- before we call move processor.
10891: /*
10968: );
10969:
10970: if l_return_status = FND_API.G_RET_STS_SUCCESS then
10971: IF (l_debug='Y') THEN
10972: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Update_attr_move returned Success');
10973: END IF;
10974: ELSE
10975: IF (l_error_count = 1) THEN
10976: fnd_file.put_line(fnd_file.log, l_error_msg);
10972: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Update_attr_move returned Success');
10973: END IF;
10974: ELSE
10975: IF (l_error_count = 1) THEN
10976: fnd_file.put_line(fnd_file.log, l_error_msg);
10977: ELSIF (l_error_count > 1) THEN
10978: FOR i IN 1..l_error_count LOOP
10979: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
10980: p_encoded => FND_API.G_FALSE
10978: FOR i IN 1..l_error_count LOOP
10979: l_error_msg := fnd_msg_pub.get( p_msg_index => l_error_count - i + 1,
10980: p_encoded => FND_API.G_FALSE
10981: );
10982: fnd_file.put_line(fnd_file.log, l_error_msg);
10983: END LOOP;
10984: ELSE
10985: l_error_msg := 'WSM_Serial_support_PVT.Update_attr_move returned failure';
10986: END IF;
10985: l_error_msg := 'WSM_Serial_support_PVT.Update_attr_move returned failure';
10986: END IF;
10987:
10988: IF (l_debug='Y') THEN
10989: fnd_file.put_line(fnd_file.log, 'WSM_Serial_support_PVT.Update_attr_move returned failure');
10990: END IF;
10991: -- This call is supposed to not return any error...
10992: raise e_proc_exception;
10993:
11095: WHERE group_id = p_group_id
11096: AND status = 3;
11097:
11098: IF (l_debug = 'Y') THEN
11099: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_err_count '||l_err_count);
11100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_total_txns '||l_total_txns);
11101: END IF;
11102:
11103: IF (l_tot_count = l_err_count AND l_tot_count <>0) THEN
11096: AND status = 3;
11097:
11098: IF (l_debug = 'Y') THEN
11099: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_err_count '||l_err_count);
11100: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_total_txns '||l_total_txns);
11101: END IF;
11102:
11103: IF (l_tot_count = l_err_count AND l_tot_count <>0) THEN
11104: CONC_STATUS := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
11134: /*Changes for skaradib*/
11135:
11136: l_stmt_num := 340;
11137: IF (g_mrp_debug='Y') THEN
11138: fnd_file.put_line(fnd_file.log,'WSMPLBMI.MoveTransaction Successful ');
11139: END IF;
11140:
11141: IF (G_LOG_LEVEL_PROCEDURE >= l_log_level) THEN
11142: l_msg_tokens.delete;
11196: WHEN e_proc_exception THEN
11197:
11198: retcode := -1;
11199: errbuf := 'WSMPLBMI.MoveTransaction' ||'(stmt_num='||l_stmt_num||') : '||x_error_msg;
11200: fnd_file.put_line(fnd_file.log, errbuf);
11201: ROLLBACK;
11202:
11203: UPDATE wsm_lot_move_txn_interface WLMTI
11204: SET WLMTI.ERROR = substrb('Error:' ||errbuf, 1, 2000),
11207: WHERE WLMTI.GROUP_ID = p_group_id
11208: AND WLMTI.STATUS in (g_pending, g_running) ;
11209:
11210: IF (g_mrp_debug='Y') THEN
11211: fnd_file.put_line(fnd_file.log, 'Updated # of txns: '||SQL%ROWCOUNT||' (set WLMTI.error = ErrorMsg)'); /* bugfix 2721366 */
11212: END IF;
11213:
11214: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
11215: 'errors encountered in interface txn, please check the log file.');
11238: END IF;
11239:
11240: retcode := SQLCODE;
11241: errbuf :='WSMPLBMI.MoveTransaction' ||'(stmt_num='||l_stmt_num||') : '||sqlerrm;
11242: fnd_file.put_line(fnd_file.log, errbuf);
11243: ROLLBACK;
11244:
11245: UPDATE wsm_lot_move_txn_interface WLMTI
11246: SET WLMTI.ERROR = substrb('Unexpected SQL Error:' ||errbuf, 1, 2000),
11249: WHERE WLMTI.GROUP_ID = p_group_id
11250: AND WLMTI.STATUS in (g_pending, g_running) ;
11251:
11252: IF (g_mrp_debug='Y') THEN
11253: fnd_file.put_line(fnd_file.log, 'Updated # of txns: '||SQL%ROWCOUNT||' (set WLMTI.error = ErrorMsg)'); /* bugfix 2721366 */
11254: END IF;
11255:
11256: l_conc_status := FND_CONCURRENT.SET_COMPLETION_STATUS('ERROR',
11257: 'errors encountered in interface txn, please check the log file.');