[Home] [Help]
19: g_msg_lvl_debug_high NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH ;
20: g_msg_lvl_debug_medium NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM ;
21: g_msg_lvl_debug_low NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW ;
22:
23: g_ret_success varchar2(1) := FND_API.G_RET_STS_SUCCESS;
24: g_ret_error varchar2(1) := FND_API.G_RET_STS_ERROR;
25: g_ret_unexpected varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
26:
27: -- This procedure is added to log the transaction related data..(serial Numbers data is left out..)
20: g_msg_lvl_debug_medium NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM ;
21: g_msg_lvl_debug_low NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW ;
22:
23: g_ret_success varchar2(1) := FND_API.G_RET_STS_SUCCESS;
24: g_ret_error varchar2(1) := FND_API.G_RET_STS_ERROR;
25: g_ret_unexpected varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
26:
27: -- This procedure is added to log the transaction related data..(serial Numbers data is left out..)
28: Procedure Log_transaction_data ( p_txn_header_rec IN WLTX_TRANSACTIONS_REC_TYPE ,
21: g_msg_lvl_debug_low NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW ;
22:
23: g_ret_success varchar2(1) := FND_API.G_RET_STS_SUCCESS;
24: g_ret_error varchar2(1) := FND_API.G_RET_STS_ERROR;
25: g_ret_unexpected varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
26:
27: -- This procedure is added to log the transaction related data..(serial Numbers data is left out..)
28: Procedure Log_transaction_data ( p_txn_header_rec IN WLTX_TRANSACTIONS_REC_TYPE ,
29: p_starting_jobs_tbl IN WLTX_STARTING_JOBS_TBL_TYPE ,
570: );
571:
572: if x_return_status <> G_RET_SUCCESS then
573: IF x_return_status = G_RET_ERROR THEN
574: raise FND_API.G_EXC_ERROR;
575: ELSIF x_return_status = G_RET_UNEXPECTED THEN
576: raise FND_API.G_EXC_UNEXPECTED_ERROR;
577: END IF;
578: end if;
572: if x_return_status <> G_RET_SUCCESS then
573: IF x_return_status = G_RET_ERROR THEN
574: raise FND_API.G_EXC_ERROR;
575: ELSIF x_return_status = G_RET_UNEXPECTED THEN
576: raise FND_API.G_EXC_UNEXPECTED_ERROR;
577: END IF;
578: end if;
579: End if;
580:
612: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
613: p_run_log_level => l_log_level
614: );
615: END IF;
616: RAISE FND_API.G_EXC_ERROR;
617:
618: end if;
619:
620: if l_resulting_jobs_tbl.count <1 then
631: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
632: p_run_log_level => l_log_level
633: );
634: END IF;
635: RAISE FND_API.G_EXC_ERROR;
636: end if;
637:
638: l_stmt_num := 25;
639:
649: End if;
650:
651:
652: SPLIT_TXN( p_api_version => 1.0,
653: p_commit => FND_API.G_FALSE,
654: p_init_msg_list => FND_API.G_TRUE,
655: p_validation_level => 0,
656: p_calling_mode => p_calling_mode,
657: p_wltx_header => l_txn_header_rec,
650:
651:
652: SPLIT_TXN( p_api_version => 1.0,
653: p_commit => FND_API.G_FALSE,
654: p_init_msg_list => FND_API.G_TRUE,
655: p_validation_level => 0,
656: p_calling_mode => p_calling_mode,
657: p_wltx_header => l_txn_header_rec,
658: p_wltx_starting_job_rec => l_starting_jobs_tbl(l_starting_jobs_tbl.first),
678:
679:
680: if x_return_status <> G_RET_SUCCESS then
681: IF x_return_status = G_RET_ERROR THEN
682: raise FND_API.G_EXC_ERROR;
683: ELSIF x_return_status = G_RET_UNEXPECTED THEN
684: raise FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686: end if;
680: if x_return_status <> G_RET_SUCCESS then
681: IF x_return_status = G_RET_ERROR THEN
682: raise FND_API.G_EXC_ERROR;
683: ELSIF x_return_status = G_RET_UNEXPECTED THEN
684: raise FND_API.G_EXC_UNEXPECTED_ERROR;
685: END IF;
686: end if;
687: l_stmt_num := 55;
688:
704: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
705: p_run_log_level => l_log_level
706: );
707: END IF;
708: RAISE FND_API.G_EXC_ERROR;
709:
710: end if;
711:
712: if l_resulting_jobs_tbl.count <> 1 then
723: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
724: p_run_log_level => l_log_level
725: );
726: END IF;
727: RAISE FND_API.G_EXC_ERROR;
728: end if;
729:
730: l_stmt_num := 70;
731:
729:
730: l_stmt_num := 70;
731:
732: MERGE_TXN ( p_api_version => 1.0,
733: p_commit => FND_API.G_FALSE,
734: p_init_msg_list => FND_API.G_TRUE,
735: p_validation_level => 0,
736: p_calling_mode => p_calling_mode,
737: p_wltx_header => l_txn_header_rec,
730: l_stmt_num := 70;
731:
732: MERGE_TXN ( p_api_version => 1.0,
733: p_commit => FND_API.G_FALSE,
734: p_init_msg_list => FND_API.G_TRUE,
735: p_validation_level => 0,
736: p_calling_mode => p_calling_mode,
737: p_wltx_header => l_txn_header_rec,
738: p_wltx_starting_jobs_tbl => l_starting_jobs_tbl,
745:
746: /* if not success return error.... */ --Start AH
747: --log proc exit
748:
749: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
750: /* Txn errored....*/
751: /* Log the Procedure exit point.... */
752: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
753:
760: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
761: p_run_log_level => l_log_level
762: );
763: END IF;
764: RAISE FND_API.G_EXC_ERROR;
765:
766: if x_return_status <> G_RET_SUCCESS then
767: IF x_return_status = G_RET_ERROR THEN
768: raise FND_API.G_EXC_ERROR;
764: RAISE FND_API.G_EXC_ERROR;
765:
766: if x_return_status <> G_RET_SUCCESS then
767: IF x_return_status = G_RET_ERROR THEN
768: raise FND_API.G_EXC_ERROR;
769: ELSIF x_return_status = G_RET_UNEXPECTED THEN
770: raise FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: end if;
766: if x_return_status <> G_RET_SUCCESS then
767: IF x_return_status = G_RET_ERROR THEN
768: raise FND_API.G_EXC_ERROR;
769: ELSIF x_return_status = G_RET_UNEXPECTED THEN
770: raise FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772: end if;
773:
774: end if; --End AH
790: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
791: p_run_log_level => l_log_level
792: );
793: END IF;
794: RAISE FND_API.G_EXC_ERROR;
795: end if;
796:
797: if l_resulting_jobs_tbl.count <> 1 then
798: /* error out... */
808: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
809: p_run_log_level => l_log_level
810: );
811: END IF;
812: RAISE FND_API.G_EXC_ERROR;
813: end if;
814:
815: UPDATE_ASSEMBLY_TXN ( p_api_version => 1.0,
816: p_commit => FND_API.G_FALSE,
812: RAISE FND_API.G_EXC_ERROR;
813: end if;
814:
815: UPDATE_ASSEMBLY_TXN ( p_api_version => 1.0,
816: p_commit => FND_API.G_FALSE,
817: p_init_msg_list => FND_API.G_TRUE,
818: p_validation_level => 0,
819: p_calling_mode => p_calling_mode,
820: p_wltx_header => l_txn_header_rec,
813: end if;
814:
815: UPDATE_ASSEMBLY_TXN ( p_api_version => 1.0,
816: p_commit => FND_API.G_FALSE,
817: p_init_msg_list => FND_API.G_TRUE,
818: p_validation_level => 0,
819: p_calling_mode => p_calling_mode,
820: p_wltx_header => l_txn_header_rec,
821: p_wltx_starting_job_rec => l_starting_jobs_tbl(l_starting_jobs_tbl.first),
828:
829: /* if not success return error.... */ --Start AH
830: --log exit to fnd_log
831:
832: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
833: /* Txn errored....*/
834: /* Log the Procedure exit point.... */
835: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
836:
843: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
844: p_run_log_level => l_log_level
845: );
846: END IF;
847: RAISE FND_API.G_EXC_ERROR;
848:
849: if x_return_status <> G_RET_SUCCESS then
850: IF x_return_status = G_RET_ERROR THEN
851: raise FND_API.G_EXC_ERROR;
847: RAISE FND_API.G_EXC_ERROR;
848:
849: if x_return_status <> G_RET_SUCCESS then
850: IF x_return_status = G_RET_ERROR THEN
851: raise FND_API.G_EXC_ERROR;
852: ELSIF x_return_status = G_RET_UNEXPECTED THEN
853: raise FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855: end if;
849: if x_return_status <> G_RET_SUCCESS then
850: IF x_return_status = G_RET_ERROR THEN
851: raise FND_API.G_EXC_ERROR;
852: ELSIF x_return_status = G_RET_UNEXPECTED THEN
853: raise FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855: end if;
856: end if; --End AH
857:
872: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
873: p_run_log_level => l_log_level
874: );
875: END IF;
876: RAISE FND_API.G_EXC_ERROR;
877: end if;
878:
879: if l_resulting_jobs_tbl.count <> 1 then
880: /* error out... */
890: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
891: p_run_log_level => l_log_level
892: );
893: END IF;
894: RAISE FND_API.G_EXC_ERROR;
895: end if;
896:
897: UPDATE_ROUTING_TXN( p_api_version => 1.0,
898: p_commit => FND_API.G_FALSE,
894: RAISE FND_API.G_EXC_ERROR;
895: end if;
896:
897: UPDATE_ROUTING_TXN( p_api_version => 1.0,
898: p_commit => FND_API.G_FALSE,
899: p_init_msg_list => FND_API.G_TRUE,
900: p_validation_level => 0,
901: p_calling_mode => p_calling_mode,
902: p_wltx_header => l_txn_header_rec,
895: end if;
896:
897: UPDATE_ROUTING_TXN( p_api_version => 1.0,
898: p_commit => FND_API.G_FALSE,
899: p_init_msg_list => FND_API.G_TRUE,
900: p_validation_level => 0,
901: p_calling_mode => p_calling_mode,
902: p_wltx_header => l_txn_header_rec,
903: p_wltx_starting_job_rec => l_starting_jobs_tbl(l_starting_jobs_tbl.first),
907: x_msg_count => x_msg_count,
908: x_msg_data => x_error_msg
909: );
910:
911: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
912: /* Txn errored....*/
913: /* Log the Procedure exit point.... */
914: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
915:
922: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
923: p_run_log_level => l_log_level
924: );
925: END IF;
926: RAISE FND_API.G_EXC_ERROR;
927:
928: if x_return_status <> G_RET_SUCCESS then
929: IF x_return_status = G_RET_ERROR THEN
930: raise FND_API.G_EXC_ERROR;
926: RAISE FND_API.G_EXC_ERROR;
927:
928: if x_return_status <> G_RET_SUCCESS then
929: IF x_return_status = G_RET_ERROR THEN
930: raise FND_API.G_EXC_ERROR;
931: ELSIF x_return_status = G_RET_UNEXPECTED THEN
932: raise FND_API.G_EXC_UNEXPECTED_ERROR;
933: END IF;
934: end if;
928: if x_return_status <> G_RET_SUCCESS then
929: IF x_return_status = G_RET_ERROR THEN
930: raise FND_API.G_EXC_ERROR;
931: ELSIF x_return_status = G_RET_UNEXPECTED THEN
932: raise FND_API.G_EXC_UNEXPECTED_ERROR;
933: END IF;
934: end if;
935:
936: end if; --End AH
952: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
953: p_run_log_level => l_log_level
954: );
955: END IF;
956: RAISE FND_API.G_EXC_ERROR;
957: end if;
958:
959: if l_resulting_jobs_tbl.count <> 1 then
960: /* error out... */
970: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
971: p_run_log_level => l_log_level
972: );
973: END IF;
974: RAISE FND_API.G_EXC_ERROR;
975: end if;
976:
977: UPDATE_QUANTITY_TXN( p_api_version => 1.0,
978: p_commit => FND_API.G_FALSE,
974: RAISE FND_API.G_EXC_ERROR;
975: end if;
976:
977: UPDATE_QUANTITY_TXN( p_api_version => 1.0,
978: p_commit => FND_API.G_FALSE,
979: p_init_msg_list => FND_API.G_TRUE,
980: p_validation_level => 0,
981: p_calling_mode => p_calling_mode,
982: p_wltx_header => l_txn_header_rec,
975: end if;
976:
977: UPDATE_QUANTITY_TXN( p_api_version => 1.0,
978: p_commit => FND_API.G_FALSE,
979: p_init_msg_list => FND_API.G_TRUE,
980: p_validation_level => 0,
981: p_calling_mode => p_calling_mode,
982: p_wltx_header => l_txn_header_rec,
983: p_wltx_starting_job_rec => l_starting_jobs_tbl(l_starting_jobs_tbl.first),
988: x_msg_data => x_error_msg
989: );
990:
991:
992: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
993: /* Txn errored....*/
994: /* Log the Procedure exit point.... */
995: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
996:
1004: p_fnd_log_level => G_LOG_LEVEL_STATEMENT ,
1005: p_run_log_level => l_log_level
1006: );
1007: END IF;
1008: RAISE FND_API.G_EXC_ERROR;
1009:
1010: if x_return_status <> G_RET_SUCCESS then
1011: IF x_return_status = G_RET_ERROR THEN
1012: raise FND_API.G_EXC_ERROR;
1008: RAISE FND_API.G_EXC_ERROR;
1009:
1010: if x_return_status <> G_RET_SUCCESS then
1011: IF x_return_status = G_RET_ERROR THEN
1012: raise FND_API.G_EXC_ERROR;
1013: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1014: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1016: end if;
1010: if x_return_status <> G_RET_SUCCESS then
1011: IF x_return_status = G_RET_ERROR THEN
1012: raise FND_API.G_EXC_ERROR;
1013: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1014: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1015: END IF;
1016: end if;
1017: end if; --End AH
1018:
1033: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1034: p_run_log_level => l_log_level
1035: );
1036: END IF;
1037: RAISE FND_API.G_EXC_ERROR;
1038: end if;
1039:
1040: if l_resulting_jobs_tbl.count <> 1 then
1041: /* error out... */
1051: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1052: p_run_log_level => l_log_level
1053: );
1054: END IF;
1055: RAISE FND_API.G_EXC_ERROR;
1056: end if;
1057:
1058: UPDATE_LOTNAME_TXN( p_api_version => 1.0,
1059: p_commit => FND_API.G_FALSE,
1055: RAISE FND_API.G_EXC_ERROR;
1056: end if;
1057:
1058: UPDATE_LOTNAME_TXN( p_api_version => 1.0,
1059: p_commit => FND_API.G_FALSE,
1060: p_init_msg_list => FND_API.G_TRUE,
1061: p_validation_level => 0,
1062: p_calling_mode => p_calling_mode,
1063: p_wltx_header => l_txn_header_rec,
1056: end if;
1057:
1058: UPDATE_LOTNAME_TXN( p_api_version => 1.0,
1059: p_commit => FND_API.G_FALSE,
1060: p_init_msg_list => FND_API.G_TRUE,
1061: p_validation_level => 0,
1062: p_calling_mode => p_calling_mode,
1063: p_wltx_header => l_txn_header_rec,
1064: p_wltx_starting_job_rec => l_starting_jobs_tbl(l_starting_jobs_tbl.first),
1069: x_msg_data => x_error_msg
1070: );
1071:
1072:
1073: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1074: /* Txn errored....*/
1075: /* Log the Procedure exit point.... */
1076: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1077:
1084: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1085: p_run_log_level => l_log_level
1086: );
1087: END IF;
1088: RAISE FND_API.G_EXC_ERROR;
1089:
1090:
1091: if x_return_status <> G_RET_SUCCESS then
1092: IF x_return_status = G_RET_ERROR THEN
1089:
1090:
1091: if x_return_status <> G_RET_SUCCESS then
1092: IF x_return_status = G_RET_ERROR THEN
1093: raise FND_API.G_EXC_ERROR;
1094: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1095: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END IF;
1097: end if;
1091: if x_return_status <> G_RET_SUCCESS then
1092: IF x_return_status = G_RET_ERROR THEN
1093: raise FND_API.G_EXC_ERROR;
1094: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1095: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1096: END IF;
1097: end if;
1098:
1099: end if; --End AH
1114: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1115: p_run_log_level => l_log_level
1116: );
1117: END IF;
1118: RAISE FND_API.G_EXC_ERROR;
1119: end if;
1120:
1121: BONUS_TXN ( p_api_version => 1.0,
1122: p_commit => FND_API.G_FALSE,
1118: RAISE FND_API.G_EXC_ERROR;
1119: end if;
1120:
1121: BONUS_TXN ( p_api_version => 1.0,
1122: p_commit => FND_API.G_FALSE,
1123: p_init_msg_list => FND_API.G_TRUE,
1124: p_validation_level => 0,
1125: p_calling_mode => p_calling_mode,
1126: p_wltx_header => l_txn_header_rec,
1119: end if;
1120:
1121: BONUS_TXN ( p_api_version => 1.0,
1122: p_commit => FND_API.G_FALSE,
1123: p_init_msg_list => FND_API.G_TRUE,
1124: p_validation_level => 0,
1125: p_calling_mode => p_calling_mode,
1126: p_wltx_header => l_txn_header_rec,
1127: p_wltx_resulting_job_rec => l_resulting_jobs_tbl(l_resulting_jobs_tbl.first),
1131: x_msg_data => x_error_msg
1132: );
1133:
1134:
1135: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1136: /* Txn errored....*/
1137: /* Log the Procedure exit point.... */
1138: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1139:
1146: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1147: p_run_log_level => l_log_level
1148: );
1149: END IF;
1150: RAISE FND_API.G_EXC_ERROR;
1151:
1152:
1153: if x_return_status <> G_RET_SUCCESS then
1154: IF x_return_status = G_RET_ERROR THEN
1151:
1152:
1153: if x_return_status <> G_RET_SUCCESS then
1154: IF x_return_status = G_RET_ERROR THEN
1155: raise FND_API.G_EXC_ERROR;
1156: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1157: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1158: END IF;
1159: end if;
1153: if x_return_status <> G_RET_SUCCESS then
1154: IF x_return_status = G_RET_ERROR THEN
1155: raise FND_API.G_EXC_ERROR;
1156: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1157: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1158: END IF;
1159: end if;
1160:
1161: end if; --End AH
1176: x_msg_count => x_msg_count,
1177: x_msg_data => x_error_msg
1178: );
1179:
1180: if x_return_status <> fnd_api.g_ret_sts_success then
1181: --log error
1182: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1183:
1184: l_msg_tokens.delete;
1190: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1191: p_run_log_level => l_log_level
1192: );
1193: END IF;
1194: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1195: end if;
1196:
1197: -- Calling mode = 2 Indicates forms
1198: elsif p_calling_mode = 2 then
1225: );
1226:
1227: if x_return_status <> G_RET_SUCCESS then
1228: IF x_return_status = G_RET_ERROR THEN
1229: raise FND_API.G_EXC_ERROR;
1230: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1231: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1232: END IF;
1233: end if;
1227: if x_return_status <> G_RET_SUCCESS then
1228: IF x_return_status = G_RET_ERROR THEN
1229: raise FND_API.G_EXC_ERROR;
1230: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1231: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1232: END IF;
1233: end if;
1234:
1235: if( g_log_level_statement >= l_log_level ) then
1291: End if;
1292:
1293: EXCEPTION
1294:
1295: WHEN FND_API.G_EXC_ERROR THEN
1296:
1297: x_return_status := G_RET_ERROR;
1298: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1299: p_count => x_msg_count ,
1299: p_count => x_msg_count ,
1300: p_data => x_error_msg
1301: );
1302:
1303: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1304:
1305: x_return_status := G_RET_UNEXPECTED;
1306:
1307: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1390:
1391: l_stmt_num := 20;
1392:
1393: /* Initialize message list if p_init_msg_list is set to TRUE. */
1394: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1395: l_stmt_num := 30;
1396: FND_MSG_PUB.initialize;
1397: end if;
1398:
1398:
1399: l_stmt_num := 40;
1400:
1401: /* Check for the API compatibilty */
1402: IF NOT FND_API.Compatible_API_Call( l_api_version,
1403: p_api_version,
1404: g_pkg_name,
1405: l_api_name
1406: )
1417: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1418: p_run_log_level => l_log_level
1419: );
1420: END IF;
1421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1422: END IF;
1423:
1424:
1425: /* logginng .... */
1471: p_run_log_level => l_log_level
1472: );
1473: End if;
1474:
1475: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1476: /* Txn errored....*/
1477: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1478:
1479: l_msg_tokens.delete;
1487: );
1488: END IF;
1489: if x_return_status <> G_RET_SUCCESS then
1490: IF x_return_status = G_RET_ERROR THEN
1491: raise FND_API.G_EXC_ERROR;
1492: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1493: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1494: END IF;
1495: end if;
1489: if x_return_status <> G_RET_SUCCESS then
1490: IF x_return_status = G_RET_ERROR THEN
1491: raise FND_API.G_EXC_ERROR;
1492: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1493: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1494: END IF;
1495: end if;
1496: end if;
1497:
1545: );
1546: End if;
1547:
1548:
1549: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1550: /* Txn errored....*/
1551: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1552:
1553: l_msg_tokens.delete;
1561: );
1562: END IF;
1563: if x_return_status <> G_RET_SUCCESS then
1564: IF x_return_status = G_RET_ERROR THEN
1565: raise FND_API.G_EXC_ERROR;
1566: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1567: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1568: END IF;
1569: end if;
1563: if x_return_status <> G_RET_SUCCESS then
1564: IF x_return_status = G_RET_ERROR THEN
1565: raise FND_API.G_EXC_ERROR;
1566: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1567: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1568: END IF;
1569: end if;
1570: end if;
1571:
1617: p_run_log_level => l_log_level
1618: );
1619: End if;
1620:
1621: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1622: /* Txn errored....*/
1623: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1624:
1625: l_msg_tokens.delete;
1634: );
1635: END IF;
1636: if x_return_status <> G_RET_SUCCESS then
1637: IF x_return_status = G_RET_ERROR THEN
1638: raise FND_API.G_EXC_ERROR;
1639: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1640: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1641: END IF;
1642: end if;
1636: if x_return_status <> G_RET_SUCCESS then
1637: IF x_return_status = G_RET_ERROR THEN
1638: raise FND_API.G_EXC_ERROR;
1639: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1640: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1641: END IF;
1642: end if;
1643: end if;
1644: /* Log the Procedure exit point.... */
1696: p_run_log_level => l_log_level
1697: );
1698: End if;
1699:
1700: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1701: /* Txn errored....*/
1702: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1703:
1704: l_msg_tokens.delete;
1712: );
1713: END IF;
1714: if x_return_status <> G_RET_SUCCESS then
1715: IF x_return_status = G_RET_ERROR THEN
1716: raise FND_API.G_EXC_ERROR;
1717: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1718: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720: end if;
1714: if x_return_status <> G_RET_SUCCESS then
1715: IF x_return_status = G_RET_ERROR THEN
1716: raise FND_API.G_EXC_ERROR;
1717: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1718: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1719: END IF;
1720: end if;
1721: end if;
1722:
1736: End if;
1737:
1738: l_stmt_num := 130;
1739: /* Standard check of p_commit. */
1740: IF FND_API.To_Boolean( p_commit ) THEN
1741: l_stmt_num := 140;
1742:
1743: COMMIT;
1744: /* Log the Procedure exit point.... */
1757:
1758:
1759: EXCEPTION
1760:
1761: WHEN FND_API.G_EXC_ERROR THEN
1762: ROLLBACK TO start_split_txn;
1763:
1764: x_return_status := G_RET_ERROR;
1765: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
1768: );
1769:
1770: -- remove this later...
1771:
1772: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1773:
1774: ROLLBACK TO start_split_txn;
1775:
1776: x_return_status := G_RET_UNEXPECTED;
1874: /* W'll log the parameter values as and where they get modified....*/
1875: /* Log the standard api parameters.... */
1876: l_stmt_num := 20;
1877:
1878: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1879: l_stmt_num := 30;
1880: FND_MSG_PUB.initialize;
1881: /* Message list enabled....-- EVENT */
1882: --'FND_MSG_PUB Message Table Initialized'
1882: --'FND_MSG_PUB Message Table Initialized'
1883: end if;
1884:
1885: /* Log the Procedure entry point.... */
1886: --'Calling FND_API.Compatible_API_Call');
1887:
1888: l_stmt_num := 40;
1889:
1890: /* Check for the API compatibilty */
1887:
1888: l_stmt_num := 40;
1889:
1890: /* Check for the API compatibilty */
1891: IF NOT FND_API.Compatible_API_Call( l_api_version,
1892: p_api_version,
1893: g_pkg_name,
1894: l_api_name
1895: )
1906: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
1907: p_run_log_level => l_log_level
1908: );
1909: END IF;
1910: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1911:
1912: END IF;
1913: /* lgging -proc level */
1914: --'API compatibility success ');
1947: p_run_log_level => l_log_level
1948: );
1949: End if;
1950:
1951: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
1952: /* Txn errored....*/
1953: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
1954:
1955: l_msg_tokens.delete;
1963: );
1964: END IF;
1965: if x_return_status <> G_RET_SUCCESS then
1966: IF x_return_status = G_RET_ERROR THEN
1967: raise FND_API.G_EXC_ERROR;
1968: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1969: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971: end if;
1965: if x_return_status <> G_RET_SUCCESS then
1966: IF x_return_status = G_RET_ERROR THEN
1967: raise FND_API.G_EXC_ERROR;
1968: ELSIF x_return_status = G_RET_UNEXPECTED THEN
1969: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1970: END IF;
1971: end if;
1972: end if;
1973:
2024: p_run_log_level => l_log_level
2025: );
2026: End if;
2027:
2028: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2029: /* Txn errored....*/
2030: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2031:
2032: l_msg_tokens.delete;
2040: );
2041: END IF;
2042: if x_return_status <> G_RET_SUCCESS then
2043: IF x_return_status = G_RET_ERROR THEN
2044: raise FND_API.G_EXC_ERROR;
2045: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2046: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2047: END IF;
2048: end if;
2042: if x_return_status <> G_RET_SUCCESS then
2043: IF x_return_status = G_RET_ERROR THEN
2044: raise FND_API.G_EXC_ERROR;
2045: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2046: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2047: END IF;
2048: end if;
2049: end if;
2050:
2102: p_run_log_level => l_log_level
2103: );
2104: End if;
2105:
2106: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2107: /* Txn errored....*/
2108: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2109:
2110: l_msg_tokens.delete;
2118: );
2119: END IF;
2120: if x_return_status <> G_RET_SUCCESS then
2121: IF x_return_status = G_RET_ERROR THEN
2122: raise FND_API.G_EXC_ERROR;
2123: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2124: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2125: END IF;
2126: end if;
2120: if x_return_status <> G_RET_SUCCESS then
2121: IF x_return_status = G_RET_ERROR THEN
2122: raise FND_API.G_EXC_ERROR;
2123: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2124: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2125: END IF;
2126: end if;
2127: end if;
2128:
2186: p_run_log_level => l_log_level
2187: );
2188: End if;
2189:
2190: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2191: /* Txn errored....*/
2192: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2193:
2194: l_msg_tokens.delete;
2202: );
2203: END IF;
2204: if x_return_status <> G_RET_SUCCESS then
2205: IF x_return_status = G_RET_ERROR THEN
2206: raise FND_API.G_EXC_ERROR;
2207: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2208: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2209: END IF;
2210: end if;
2204: if x_return_status <> G_RET_SUCCESS then
2205: IF x_return_status = G_RET_ERROR THEN
2206: raise FND_API.G_EXC_ERROR;
2207: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2208: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2209: END IF;
2210: end if;
2211: end if;
2212:
2227:
2228: l_stmt_num := 130;
2229:
2230: /* Standard check of p_commit. */
2231: IF FND_API.To_Boolean( p_commit ) THEN
2232: l_stmt_num := 140;
2233: COMMIT;
2234: /* Log the Procedure exit point.... */
2235: if( g_log_level_statement >= l_log_level ) then
2245: END IF;
2246:
2247:
2248: EXCEPTION
2249: WHEN FND_API.G_EXC_ERROR THEN
2250: ROLLBACK TO start_merge_txn;
2251:
2252: x_return_status := G_RET_ERROR;
2253: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2255: p_data => x_msg_data
2256: );
2257: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.merge_txn : ' || l_stmt_num || ' Error : ');
2258:
2259: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2260:
2261: ROLLBACK TO start_merge_txn;
2262:
2263: x_return_status := G_RET_UNEXPECTED;
2347:
2348: l_stmt_num := 20;
2349:
2350: /* Log the Procedure entry point....proc level */
2351: --'Calling FND_API.to_Boolean');
2352:
2353: /* Initialize message list if p_init_msg_list is set to TRUE. */
2354: /* Initialize message list if p_init_msg_list is set to TRUE. */
2355: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2351: --'Calling FND_API.to_Boolean');
2352:
2353: /* Initialize message list if p_init_msg_list is set to TRUE. */
2354: /* Initialize message list if p_init_msg_list is set to TRUE. */
2355: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2356:
2357: l_stmt_num := 30;
2358: FND_MSG_PUB.initialize;
2359: /* Message list enabled....-- EVENT */
2364: --'Inside Update_Assembly_Txn API ' );
2365:
2366:
2367: /* Log the Procedure entry point....proc */
2368: --'Calling FND_API.Compatible_API_Call');
2369:
2370:
2371: l_stmt_num := 40;
2372:
2370:
2371: l_stmt_num := 40;
2372:
2373: /* Check for the API compatibilty */
2374: IF NOT FND_API.Compatible_API_Call( l_api_version,
2375: p_api_version,
2376: g_pkg_name,
2377: l_api_name
2378: )
2389: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2390: p_run_log_level => l_log_level
2391: );
2392: END IF;
2393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2394:
2395: END IF;
2396: /*proc level logging*/
2397: --API compatibility success ');
2437: p_run_log_level => l_log_level
2438: );
2439: End if;
2440:
2441: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2442: /* Txn errored....*/
2443: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2444:
2445: l_msg_tokens.delete;
2453: );
2454: END IF;
2455: if x_return_status <> G_RET_SUCCESS then
2456: IF x_return_status = G_RET_ERROR THEN
2457: raise FND_API.G_EXC_ERROR;
2458: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2459: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461: end if;
2455: if x_return_status <> G_RET_SUCCESS then
2456: IF x_return_status = G_RET_ERROR THEN
2457: raise FND_API.G_EXC_ERROR;
2458: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2459: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2460: END IF;
2461: end if;
2462: end if;
2463:
2509: p_run_log_level => l_log_level
2510: );
2511: End if;
2512:
2513: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2514: /* Txn errored....*/
2515: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2516:
2517: l_msg_tokens.delete;
2525: );
2526: END IF;
2527: if x_return_status <> G_RET_SUCCESS then
2528: IF x_return_status = G_RET_ERROR THEN
2529: raise FND_API.G_EXC_ERROR;
2530: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2531: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2532: END IF;
2533: end if;
2527: if x_return_status <> G_RET_SUCCESS then
2528: IF x_return_status = G_RET_ERROR THEN
2529: raise FND_API.G_EXC_ERROR;
2530: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2531: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2532: END IF;
2533: end if;
2534: end if;
2535:
2582: p_run_log_level => l_log_level
2583: );
2584: End if;
2585:
2586: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2587: /* Txn errored....*/
2588: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2589:
2590: l_msg_tokens.delete;
2598: );
2599: END IF;
2600: if x_return_status <> G_RET_SUCCESS then
2601: IF x_return_status = G_RET_ERROR THEN
2602: raise FND_API.G_EXC_ERROR;
2603: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2604: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2605: END IF;
2606: end if;
2600: if x_return_status <> G_RET_SUCCESS then
2601: IF x_return_status = G_RET_ERROR THEN
2602: raise FND_API.G_EXC_ERROR;
2603: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2604: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2605: END IF;
2606: end if;
2607: end if;
2608:
2660: p_run_log_level => l_log_level
2661: );
2662: End if;
2663:
2664: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2665: /* Txn errored....*/
2666: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2667:
2668: l_msg_tokens.delete;
2676: );
2677: END IF;
2678: if x_return_status <> G_RET_SUCCESS then
2679: IF x_return_status = G_RET_ERROR THEN
2680: raise FND_API.G_EXC_ERROR;
2681: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2682: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF;
2684: end if;
2678: if x_return_status <> G_RET_SUCCESS then
2679: IF x_return_status = G_RET_ERROR THEN
2680: raise FND_API.G_EXC_ERROR;
2681: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2682: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2683: END IF;
2684: end if;
2685: end if;
2686:
2702:
2703:
2704: l_stmt_num := 130;
2705: /* Standard check of p_commit. */
2706: IF FND_API.To_Boolean( p_commit ) THEN
2707: l_stmt_num := 140;
2708: COMMIT;
2709: /* Log the Procedure exit point....event */
2710: if( g_log_level_statement >= l_log_level ) then
2720:
2721: END IF;
2722:
2723: EXCEPTION
2724: WHEN FND_API.G_EXC_ERROR THEN
2725: ROLLBACK TO start_upd_assy_txn;
2726:
2727: x_return_status := G_RET_ERROR;
2728: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
2731: );
2732:
2733: fnd_file.put_line(fnd_file.log,' WSM_WIP_LOT_TXN_PVT.update_assembly_txn : ' || l_stmt_num || ' Error : ');
2734:
2735: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2736:
2737: ROLLBACK TO start_upd_assy_txn;
2738:
2739: x_return_status := G_RET_UNEXPECTED;
2825:
2826: l_stmt_num := 20;
2827:
2828: /* Log the Procedure entry point.... */
2829: --'Calling FND_API.to_Boolean');
2830:
2831: /* Initialize message list if p_init_msg_list is set to TRUE. */
2832: /* Initialize message list if p_init_msg_list is set to TRUE. */
2833: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2829: --'Calling FND_API.to_Boolean');
2830:
2831: /* Initialize message list if p_init_msg_list is set to TRUE. */
2832: /* Initialize message list if p_init_msg_list is set to TRUE. */
2833: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2834:
2835: l_stmt_num := 30;
2836: FND_MSG_PUB.initialize;
2837: /* Message list enabled....-- EVENT */
2842: /* FND_MSG_PUB logginng .... */
2843: --'Inside Update_Routing_Txn API ' );
2844:
2845: /* Log the Procedure entry point.... proc*/
2846: --'Calling FND_API.Compatible_API_Call');
2847:
2848: l_stmt_num := 40;
2849:
2850: /* Check for the API compatibilty */
2847:
2848: l_stmt_num := 40;
2849:
2850: /* Check for the API compatibilty */
2851: IF NOT FND_API.Compatible_API_Call( l_api_version,
2852: p_api_version,
2853: g_pkg_name,
2854: l_api_name
2855: )
2866: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
2867: p_run_log_level => l_log_level
2868: );
2869: END IF;
2870: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2871:
2872: END IF;
2873: /*proc lelvel logginh*/
2874: --'API compatibility success ');
2913: p_run_log_level => l_log_level
2914: );
2915: End if;
2916:
2917: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2918: /* Txn errored....*/
2919: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2920:
2921: l_msg_tokens.delete;
2929: );
2930: END IF;
2931: if x_return_status <> G_RET_SUCCESS then
2932: IF x_return_status = G_RET_ERROR THEN
2933: raise FND_API.G_EXC_ERROR;
2934: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2935: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2936: END IF;
2937: end if;
2931: if x_return_status <> G_RET_SUCCESS then
2932: IF x_return_status = G_RET_ERROR THEN
2933: raise FND_API.G_EXC_ERROR;
2934: ELSIF x_return_status = G_RET_UNEXPECTED THEN
2935: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2936: END IF;
2937: end if;
2938: end if;
2939:
2985: p_run_log_level => l_log_level
2986: );
2987: End if;
2988:
2989: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
2990: /* Txn errored....*/
2991: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
2992:
2993: l_msg_tokens.delete;
3001: );
3002: END IF;
3003: if x_return_status <> G_RET_SUCCESS then
3004: IF x_return_status = G_RET_ERROR THEN
3005: raise FND_API.G_EXC_ERROR;
3006: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3007: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009: end if;
3003: if x_return_status <> G_RET_SUCCESS then
3004: IF x_return_status = G_RET_ERROR THEN
3005: raise FND_API.G_EXC_ERROR;
3006: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3007: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3008: END IF;
3009: end if;
3010: end if;
3011:
3060: End if;
3061:
3062: /*stmt lvl*/
3063:
3064: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3065: /* Txn errored....*/
3066: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3067:
3068: l_msg_tokens.delete;
3076: );
3077: END IF;
3078: if x_return_status <> G_RET_SUCCESS then
3079: IF x_return_status = G_RET_ERROR THEN
3080: raise FND_API.G_EXC_ERROR;
3081: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3082: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3083: END IF;
3084: end if;
3078: if x_return_status <> G_RET_SUCCESS then
3079: IF x_return_status = G_RET_ERROR THEN
3080: raise FND_API.G_EXC_ERROR;
3081: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3082: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3083: END IF;
3084: end if;
3085: end if;
3086:
3139: p_run_log_level => l_log_level
3140: );
3141: End if;
3142:
3143: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3144: /* Txn errored....*/
3145: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3146:
3147: l_msg_tokens.delete;
3155: );
3156: END IF;
3157: if x_return_status <> G_RET_SUCCESS then
3158: IF x_return_status = G_RET_ERROR THEN
3159: raise FND_API.G_EXC_ERROR;
3160: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3161: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3162: END IF;
3163: end if;
3157: if x_return_status <> G_RET_SUCCESS then
3158: IF x_return_status = G_RET_ERROR THEN
3159: raise FND_API.G_EXC_ERROR;
3160: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3161: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3162: END IF;
3163: end if;
3164: end if;
3165:
3180: End if;
3181:
3182: l_stmt_num := 130;
3183: /* Standard check of p_commit. */
3184: IF FND_API.To_Boolean( p_commit ) THEN
3185: l_stmt_num := 140;
3186: COMMIT;
3187: /* Log the Procedure exit point....event */
3188: if( g_log_level_statement >= l_log_level ) then
3197: End if;
3198: END IF;
3199:
3200: EXCEPTION
3201: WHEN FND_API.G_EXC_ERROR THEN
3202: ROLLBACK TO start_upd_rtg_txn;
3203:
3204: x_return_status := G_RET_ERROR;
3205: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
3206: p_count => x_msg_count ,
3207: p_data => x_msg_data
3208: );
3209:
3210: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3211:
3212: ROLLBACK TO start_upd_rtg_txn;
3213:
3214: x_return_status := G_RET_UNEXPECTED;
3298:
3299: l_stmt_num := 20;
3300:
3301: /* Log the Procedure entry point....proc */
3302: --Calling FND_API.to_Boolean');
3303:
3304: /* Initialize message list if p_init_msg_list is set to TRUE. */
3305: /* Initialize message list if p_init_msg_list is set to TRUE. */
3306: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3302: --Calling FND_API.to_Boolean');
3303:
3304: /* Initialize message list if p_init_msg_list is set to TRUE. */
3305: /* Initialize message list if p_init_msg_list is set to TRUE. */
3306: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3307:
3308: l_stmt_num := 30;
3309: FND_MSG_PUB.initialize;
3310: /* Message list enabled....-- EVENT */
3314: /* FND_MSG_PUB logginng .... */
3315: --'Inside Update_Quantity_Txn API ' );
3316:
3317: /* Log the Procedure entry point.... */
3318: --'Calling FND_API.Compatible_API_Call');
3319:
3320: l_stmt_num := 40;
3321:
3322: /* Check for the API compatibilty */
3319:
3320: l_stmt_num := 40;
3321:
3322: /* Check for the API compatibilty */
3323: IF NOT FND_API.Compatible_API_Call( l_api_version,
3324: p_api_version,
3325: g_pkg_name,
3326: l_api_name
3327: )
3338: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3339: p_run_log_level => l_log_level
3340: );
3341: END IF;
3342: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3343:
3344: END IF;
3345: /*proc level*/
3346: --'API compatibility success ');
3387: p_run_log_level => l_log_level
3388: );
3389: End if;
3390:
3391: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3392: /* Txn errored....*/
3393: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3394:
3395: l_msg_tokens.delete;
3403: );
3404: END IF;
3405: if x_return_status <> G_RET_SUCCESS then
3406: IF x_return_status = G_RET_ERROR THEN
3407: raise FND_API.G_EXC_ERROR;
3408: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3409: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3410: END IF;
3411: end if;
3405: if x_return_status <> G_RET_SUCCESS then
3406: IF x_return_status = G_RET_ERROR THEN
3407: raise FND_API.G_EXC_ERROR;
3408: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3409: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3410: END IF;
3411: end if;
3412: end if;
3413:
3459: p_run_log_level => l_log_level
3460: );
3461: End if;
3462:
3463: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3464: /* Txn errored....*/
3465: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3466:
3467: l_msg_tokens.delete;
3475: );
3476: END IF;
3477: if x_return_status <> G_RET_SUCCESS then
3478: IF x_return_status = G_RET_ERROR THEN
3479: raise FND_API.G_EXC_ERROR;
3480: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3481: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3482: END IF;
3483: end if;
3477: if x_return_status <> G_RET_SUCCESS then
3478: IF x_return_status = G_RET_ERROR THEN
3479: raise FND_API.G_EXC_ERROR;
3480: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3481: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3482: END IF;
3483: end if;
3484: end if;
3485:
3532: p_run_log_level => l_log_level
3533: );
3534: End if;
3535:
3536: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3537: /* Txn errored....*/
3538: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3539:
3540: l_msg_tokens.delete;
3549: );
3550: END IF;
3551: if x_return_status <> G_RET_SUCCESS then
3552: IF x_return_status = G_RET_ERROR THEN
3553: raise FND_API.G_EXC_ERROR;
3554: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3555: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3556: END IF;
3557: end if;
3551: if x_return_status <> G_RET_SUCCESS then
3552: IF x_return_status = G_RET_ERROR THEN
3553: raise FND_API.G_EXC_ERROR;
3554: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3555: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3556: END IF;
3557: end if;
3558: end if;
3559:
3614: p_run_log_level => l_log_level
3615: );
3616: End if;
3617:
3618: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3619: /* Txn errored....*/
3620: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3621:
3622: l_msg_tokens.delete;
3630: );
3631: END IF;
3632: if x_return_status <> G_RET_SUCCESS then
3633: IF x_return_status = G_RET_ERROR THEN
3634: raise FND_API.G_EXC_ERROR;
3635: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3636: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3637: END IF;
3638: end if;
3632: if x_return_status <> G_RET_SUCCESS then
3633: IF x_return_status = G_RET_ERROR THEN
3634: raise FND_API.G_EXC_ERROR;
3635: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3636: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3637: END IF;
3638: end if;
3639: end if;
3640:
3655: End if;
3656:
3657: l_stmt_num := 130;
3658: /* Standard check of p_commit. */
3659: IF FND_API.To_Boolean( p_commit ) THEN
3660: l_stmt_num := 140;
3661: COMMIT;
3662: /* Log the Procedure exit point....event */
3663: if( g_log_level_statement >= l_log_level ) then
3674: END IF;
3675:
3676:
3677: EXCEPTION
3678: WHEN FND_API.G_EXC_ERROR THEN
3679: ROLLBACK TO start_upd_qty_txn;
3680:
3681: x_return_status := G_RET_ERROR;
3682: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
3683: p_count => x_msg_count ,
3684: p_data => x_msg_data
3685: );
3686:
3687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3688:
3689:
3690: ROLLBACK TO start_upd_qty_txn;
3691:
3776:
3777: l_stmt_num := 20;
3778:
3779: /* Initialize message list if p_init_msg_list is set to TRUE. */
3780: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3781:
3782: l_stmt_num := 30;
3783: FND_MSG_PUB.initialize;
3784: /* Message list enabled....-- EVENT */
3796:
3797: l_stmt_num := 40;
3798:
3799: /* Check for the API compatibilty */
3800: IF NOT FND_API.Compatible_API_Call( l_api_version,
3801: p_api_version,
3802: g_pkg_name,
3803: l_api_name
3804: )
3815: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
3816: p_run_log_level => l_log_level
3817: );
3818: END IF;
3819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3820:
3821: END IF;
3822:
3823:
3857: p_run_log_level => l_log_level
3858: );
3859: End if;
3860:
3861: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3862: /* Txn errored....*/
3863: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3864:
3865: l_msg_tokens.delete;
3873: );
3874: END IF;
3875: if x_return_status <> G_RET_SUCCESS then
3876: IF x_return_status = G_RET_ERROR THEN
3877: raise FND_API.G_EXC_ERROR;
3878: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3879: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3880: END IF;
3881: end if;
3875: if x_return_status <> G_RET_SUCCESS then
3876: IF x_return_status = G_RET_ERROR THEN
3877: raise FND_API.G_EXC_ERROR;
3878: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3879: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3880: END IF;
3881: end if;
3882: end if;
3883:
3929: p_run_log_level => l_log_level
3930: );
3931: End if;
3932:
3933: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
3934: /* Txn errored....*/
3935: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
3936:
3937: l_msg_tokens.delete;
3945: );
3946: END IF;
3947: if x_return_status <> G_RET_SUCCESS then
3948: IF x_return_status = G_RET_ERROR THEN
3949: raise FND_API.G_EXC_ERROR;
3950: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3951: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953: end if;
3947: if x_return_status <> G_RET_SUCCESS then
3948: IF x_return_status = G_RET_ERROR THEN
3949: raise FND_API.G_EXC_ERROR;
3950: ELSIF x_return_status = G_RET_UNEXPECTED THEN
3951: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3952: END IF;
3953: end if;
3954: end if;
3955:
4002: p_run_log_level => l_log_level
4003: );
4004: End if;
4005:
4006: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4007: /* Txn errored....*/
4008: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
4009:
4010: l_msg_tokens.delete;
4018: );
4019: END IF;
4020: if x_return_status <> G_RET_SUCCESS then
4021: IF x_return_status = G_RET_ERROR THEN
4022: raise FND_API.G_EXC_ERROR;
4023: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4024: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4025: END IF;
4026: end if;
4020: if x_return_status <> G_RET_SUCCESS then
4021: IF x_return_status = G_RET_ERROR THEN
4022: raise FND_API.G_EXC_ERROR;
4023: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4024: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4025: END IF;
4026: end if;
4027: end if;
4028:
4085: p_run_log_level => l_log_level
4086: );
4087: End if;
4088:
4089: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4090: /* Txn errored....*/
4091: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
4092:
4093: l_msg_tokens.delete;
4101: );
4102: END IF;
4103: if x_return_status <> G_RET_SUCCESS then
4104: IF x_return_status = G_RET_ERROR THEN
4105: raise FND_API.G_EXC_ERROR;
4106: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4107: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109: end if;
4103: if x_return_status <> G_RET_SUCCESS then
4104: IF x_return_status = G_RET_ERROR THEN
4105: raise FND_API.G_EXC_ERROR;
4106: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4107: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4108: END IF;
4109: end if;
4110: end if;
4111:
4126: End if;
4127:
4128: l_stmt_num := 130;
4129: /* Standard check of p_commit. */
4130: IF FND_API.To_Boolean( p_commit ) THEN
4131: l_stmt_num := 140;
4132: COMMIT;
4133: /* Log the Procedure exit point....event */
4134: if( g_log_level_statement >= l_log_level ) then
4144:
4145: END IF;
4146:
4147: EXCEPTION
4148: WHEN FND_API.G_EXC_ERROR THEN
4149: ROLLBACK TO start_upd_lotname_txn;
4150:
4151: x_return_status := G_RET_ERROR;
4152: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
4153: p_count => x_msg_count ,
4154: p_data => x_msg_data
4155: );
4156:
4157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4158:
4159: x_return_status := G_RET_UNEXPECTED;
4160:
4161: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
4247:
4248: l_stmt_num := 20;
4249:
4250: /* Initialize message list if p_init_msg_list is set to TRUE. */
4251: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4252: l_stmt_num := 30;
4253: FND_MSG_PUB.initialize;
4254: /* Message list enabled....-- EVENT */
4255: end if;
4256:
4257: l_stmt_num := 40;
4258:
4259: /* Check for the API compatibilty */
4260: IF NOT FND_API.Compatible_API_Call( l_api_version,
4261: p_api_version,
4262: g_pkg_name,
4263: l_api_name
4264: )
4275: p_fnd_log_level => G_LOG_LEVEL_ERROR ,
4276: p_run_log_level => l_log_level
4277: );
4278: END IF;
4279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4280:
4281: END IF;
4282:
4283:
4317: p_run_log_level => l_log_level
4318: );
4319: End if;
4320:
4321: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4322: /* Txn errored....*/
4323: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
4324:
4325: l_msg_tokens.delete;
4333: );
4334: END IF;
4335: if x_return_status <> G_RET_SUCCESS then
4336: IF x_return_status = G_RET_ERROR THEN
4337: raise FND_API.G_EXC_ERROR;
4338: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4339: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4340: END IF;
4341: end if;
4335: if x_return_status <> G_RET_SUCCESS then
4336: IF x_return_status = G_RET_ERROR THEN
4337: raise FND_API.G_EXC_ERROR;
4338: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4339: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4340: END IF;
4341: end if;
4342: end if;
4343:
4389: p_run_log_level => l_log_level
4390: );
4391: End if;
4392:
4393: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4394: /* Txn errored....*/
4395: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
4396:
4397: l_msg_tokens.delete;
4405: );
4406: END IF;
4407: if x_return_status <> G_RET_SUCCESS then
4408: IF x_return_status = G_RET_ERROR THEN
4409: raise FND_API.G_EXC_ERROR;
4410: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4411: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4412: END IF;
4413: end if;
4407: if x_return_status <> G_RET_SUCCESS then
4408: IF x_return_status = G_RET_ERROR THEN
4409: raise FND_API.G_EXC_ERROR;
4410: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4411: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4412: END IF;
4413: end if;
4414: end if;
4415:
4470: p_run_log_level => l_log_level
4471: );
4472: End if;
4473:
4474: if x_return_status <> FND_API.G_RET_STS_SUCCESS then
4475: /* Txn errored....*/
4476: IF G_LOG_LEVEL_ERROR >= l_log_level OR FND_MSG_PUB.check_msg_level(g_msg_lvl_error) THEN
4477:
4478: l_msg_tokens.delete;
4486: );
4487: END IF;
4488: if x_return_status <> G_RET_SUCCESS then
4489: IF x_return_status = G_RET_ERROR THEN
4490: raise FND_API.G_EXC_ERROR;
4491: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4492: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4493: END IF;
4494: end if;
4488: if x_return_status <> G_RET_SUCCESS then
4489: IF x_return_status = G_RET_ERROR THEN
4490: raise FND_API.G_EXC_ERROR;
4491: ELSIF x_return_status = G_RET_UNEXPECTED THEN
4492: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4493: END IF;
4494: end if;
4495: end if;
4496:
4511: End if;
4512:
4513: l_stmt_num := 130;
4514: /* Standard check of p_commit. */
4515: IF FND_API.To_Boolean( p_commit ) THEN
4516: l_stmt_num := 140;
4517: COMMIT;
4518: /* Log the Procedure exit point....event */
4519: if( g_log_level_statement >= l_log_level ) then
4530: END IF;
4531:
4532:
4533: EXCEPTION
4534: WHEN FND_API.G_EXC_ERROR THEN
4535: ROLLBACK TO start_bonus_txn;
4536:
4537: x_return_status := G_RET_ERROR;
4538: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,
4539: p_count => x_msg_count ,
4540: p_data => x_msg_data
4541: );
4542:
4543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4544:
4545: x_return_status := G_RET_UNEXPECTED;
4546:
4547: FND_MSG_PUB.Count_And_Get (p_encoded => 'F' ,