DBA Data[Home] [Help]

APPS.MTL_SERIAL_CHECK dependencies on FND_MSG_PUB

Line 263: FND_MSG_PUB.initialize;

259: END IF;
260: --
261: -- Initialize message list if p_init_msg_list is set to true
262: IF FND_API.to_Boolean(p_init_msg_list) THEN
263: FND_MSG_PUB.initialize;
264: END IF;
265: --
266: -- Initialisize API return status to access
267: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 279: FND_MSG_PUB.Add;

275: -- Check the Input variable receipt_issue is either Issue or Receipt
276: -- Otherwise return error message
277: IF p_receipt_issue_flag NOT IN ('I','R') then
278: FND_MESSAGE.set_name('INV','INV_QTYBTWN_ISSREC');
279: FND_MSG_PUB.Add;
280: x_errorcode := 116;
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283:

Line 497: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

493: COMMIT;
494: END IF;
495:
496: -- Standard call to get message count and if count is 1, get message info
497: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
498: , p_data => x_msg_data);
499:
500: EXCEPTION
501: WHEN FND_API.G_EXC_ERROR THEN

Line 507: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

503: ROLLBACK TO InvQtyBetwn;
504: --
505: x_return_status := FND_API.G_RET_STS_ERROR;
506: --
507: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
508: , p_data => x_msg_data);
509: --
510: IF (l_debug = 1) THEN
511: mdebug('Exception :FND_API.G_EXC_ERROR');

Line 533: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

529: IF (l_debug = 1) THEN
530: mdebug('InvQtyBetwn: x_return_status='||x_return_status);
531: END IF;
532:
533: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
534: , p_data => x_msg_data);
535: --
536: IF (l_debug = 1) THEN
537: mdebug('Exception :FND_API.G_EXC_UNEXPECTED_ERROR');

Line 547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

543: --
544: x_errorcode := -1;
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
546: --
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
548: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
549: END IF;
550: --
551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

Line 548: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);

544: x_errorcode := -1;
545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
546: --
547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
548: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
549: END IF;
550: --
551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
552: , p_data => x_msg_data);

Line 551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

547: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
548: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
549: END IF;
550: --
551: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
552: , p_data => x_msg_data);
553: IF (l_debug = 1) THEN
554: mdebug('Exception :');
555: END IF;

Line 652: FND_MSG_PUB.initialize;

648: END IF;
649: --
650: -- Initialize message list if p_init_msg_list is set to true
651: IF FND_API.to_Boolean(p_init_msg_list) THEN
652: FND_MSG_PUB.initialize;
653: END IF;
654: --
655: -- Initialisize API return status to access
656: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 674: FND_MSG_PUB.Add;

670: --
671: if L_nothing is not NULL then
672: FND_MESSAGE.set_name('INV','INV_SER_UNIQ1');
673: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
674: FND_MSG_PUB.Add;
675: x_errorcode := 113;
676: RAISE FND_API.G_EXC_ERROR;
677: end if;
678: EXCEPTION

Line 682: FND_MSG_PUB.Add;

678: EXCEPTION
679: WHEN TOO_MANY_ROWS THEN
680: FND_MESSAGE.set_name('INV','INV_SER_UNIQ1');
681: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
682: FND_MSG_PUB.Add;
683: x_errorcode := 113;
684: RAISE FND_API.G_EXC_ERROR;
685:
686: WHEN NO_DATA_FOUND then

Line 702: FND_MSG_PUB.Add;

698:
699: if L_nothing is not NULL then
700: FND_MESSAGE.set_name('INV','INV_SER_UNIACR');
701: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
702: FND_MSG_PUB.Add;
703: x_errorcode := 114;
704: raise FND_API.G_EXC_ERROR;
705: end if;
706:

Line 711: FND_MSG_PUB.Add;

707: EXCEPTION
708: WHEN TOO_MANY_ROWS THEN
709: FND_MESSAGE.set_name('INV','INV_SER_UNIACR');
710: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
711: FND_MSG_PUB.Add;
712: x_errorcode := 114;
713: RAISE FND_API.G_EXC_ERROR;
714: WHEN NO_DATA_FOUND THEN
715: null;

Line 727: FND_MSG_PUB.Add;

723: WHERE SERIAL_NUMBER = P_serial_number;
724: if L_nothing is not NULL then
725: FND_MESSAGE.set_name('INV','INV_INLTIS_SER1');
726: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
727: FND_MSG_PUB.Add;
728: x_errorcode := 115;
729: RAISE FND_API.G_EXC_ERROR;
730: end if;
731: EXCEPTION

Line 735: FND_MSG_PUB.Add;

731: EXCEPTION
732: WHEN TOO_MANY_ROWS THEN
733: FND_MESSAGE.set_name('INV','INV_INLTIS_SER1');
734: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
735: FND_MSG_PUB.Add;
736: x_errorcode := 115;
737: RAISE FND_API.G_EXC_ERROR;
738: WHEN NO_DATA_FOUND THEN
739: null;

Line 753: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

749: COMMIT;
750: END IF;
751:
752: -- Standard call to get message count and if count is 1, get message info
753: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
754: , p_data => x_msg_data);
755:
756:
757: EXCEPTION

Line 764: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);

760: ROLLBACK TO SNUniqueCheck;
761: --
762: x_return_status := FND_API.G_RET_STS_ERROR;
763: --
764: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
765:
766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
767: --
768: ROLLBACK TO SNUniqueCheck;

Line 773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

769:
770: x_errorcode := -1;
771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
772:
773: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
774: , p_data => x_msg_data);
775:
776: WHEN OTHERS THEN
777: --

Line 783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

779: --
780: x_errorcode := -1;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: --
783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
784: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
785: END IF;
786: --
787: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

Line 784: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);

780: x_errorcode := -1;
781: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
782: --
783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
784: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
785: END IF;
786: --
787: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
788: , p_data => x_msg_data);

Line 787: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

783: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
784: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
785: END IF;
786: --
787: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
788: , p_data => x_msg_data);
789:
790: END SNUniqueCheck;
791: /*----------------------------------------------------------------------------

Line 884: FND_MSG_PUB.Add;

880: END LOOP;
881:
882: IF x_to_status = 0 then
883: FND_MESSAGE.SET_NAME('INV', 'INV_INLTIS_SNGET_MASK');
884: FND_MSG_PUB.Add;
885: x_errorcode := 123;
886: return(FALSE);
887: ELSE
888: return(TRUE);

Line 951: FND_MSG_PUB.initialize;

947: END IF;
948: --
949: -- Initialize message list if p_init_msg_list is set to true
950: IF FND_API.to_Boolean(p_init_msg_list) THEN
951: FND_MSG_PUB.initialize;
952: END IF;
953: --
954: -- Initialisize API return status to success
955: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 1015: FND_MSG_PUB.Add;

1011: L_current_status < 1 or
1012: L_current_status > 5 then
1013: FND_MESSAGE.set_name('INV','INV_SER_INVALID_STATUS');
1014: FND_MESSAGE.SET_TOKEN('TOKEN',P_serial_number);
1015: FND_MSG_PUB.Add;
1016: x_errorcode := 105;
1017: raise FND_API.G_EXC_ERROR;
1018: END IF;
1019:

Line 1033: FND_MSG_PUB.Add;

1029: END IF;
1030: IF substr(P_mask,L_current_status+7,1)='0' then
1031: FND_MESSAGE.set_name('INV','INV_SER_STATUS_NA');
1032: FND_MESSAGE.SET_TOKEN('TOKEN',P_serial_number);
1033: FND_MSG_PUB.Add;
1034: x_errorcode := 106;
1035: raise FND_API.G_EXC_ERROR;
1036: END IF;
1037: IF (l_debug = 1) THEN

Line 1060: FND_MSG_PUB.Add;

1056: L_current_status = 1) AND
1057: L_current_organization_id <> p_org_id then
1058: FND_MESSAGE.set_name('INV','INV_SER_ORG_INVALID');
1059: FND_MESSAGE.SET_TOKEN('TOKEN',P_serial_number);
1060: FND_MSG_PUB.Add;
1061: x_errorcode := 107;
1062: RAISE FND_API.G_EXC_ERROR;
1063: END IF;
1064:

Line 1074: FND_MSG_PUB.Add;

1070: IF L_current_revision <> P_revision then
1071: FND_MESSAGE.set_name('INV','INV_SER_REV_INVALID');
1072: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
1073: FND_MESSAGE.SET_TOKEN('TOKEN2',L_current_revision);
1074: FND_MSG_PUB.Add;
1075: x_errorcode := 108;
1076: raise FND_API.G_EXC_ERROR;
1077: ELSIF L_current_lot_number <> P_lot_number then
1078: FND_MESSAGE.set_name('INV','INV_SER_LOT_INVALID');

Line 1081: FND_MSG_PUB.Add;

1077: ELSIF L_current_lot_number <> P_lot_number then
1078: FND_MESSAGE.set_name('INV','INV_SER_LOT_INVALID');
1079: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
1080: FND_MESSAGE.SET_TOKEN('TOKEN2',L_current_lot_number);
1081: FND_MSG_PUB.Add;
1082: x_errorcode := 109;
1083: raise FND_API.G_EXC_ERROR;
1084: END IF;
1085: END IF;

Line 1099: FND_MSG_PUB.Add;

1095: IF L_current_subinventory <> P_subinventory then
1096: FND_MESSAGE.set_name('INV','INV_SER_SUB_INVALID');
1097: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
1098: FND_MESSAGE.SET_TOKEN('TOKEN2',L_current_subinventory);
1099: FND_MSG_PUB.Add;
1100: x_errorcode := 110;
1101: RAISE FND_API.G_EXC_ERROR;
1102: ELSIF L_current_locator_id <> P_locator_id then
1103: FND_MESSAGE.set_name('INV','INV_SER_LOC_INVALID');

Line 1105: FND_MSG_PUB.Add;

1101: RAISE FND_API.G_EXC_ERROR;
1102: ELSIF L_current_locator_id <> P_locator_id then
1103: FND_MESSAGE.set_name('INV','INV_SER_LOC_INVALID');
1104: FND_MESSAGE.SET_TOKEN('TOKEN1',P_serial_number);
1105: FND_MSG_PUB.Add;
1106: x_errorcode := 111;
1107: RAISE FND_API.G_EXC_ERROR;
1108: END IF;
1109: END IF;

Line 1120: FND_MSG_PUB.Add;

1116:
1117: IF nvl(P_dynamic_ok,0)= 0 then
1118: FND_MESSAGE.set_name('INV','INV_SER_NOTEXIST');
1119: FND_MESSAGE.SET_TOKEN('TOKEN',P_serial_number);
1120: FND_MSG_PUB.Add;
1121: x_errorcode := 118;
1122: RAISE FND_API.G_EXC_ERROR;
1123: ELSE
1124: x_SerExists := 0;

Line 1136: FND_MSG_PUB.Add;

1132: ( P_txn_action_id = 27 ) ) AND
1133: L_wip_entity_id is NULL then
1134: FND_MESSAGE.set_name('INV','INV_SER_STATUS_NA');
1135: FND_MESSAGE.SET_TOKEN('TOKEN',P_serial_number);
1136: FND_MSG_PUB.Add;
1137: x_errorcode := 106;
1138: raise FND_API.G_EXC_ERROR;
1139: END IF;
1140:

Line 1154: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

1150: IF FND_API.to_Boolean(p_commit) THEN
1151: COMMIT;
1152: END IF;
1153: -- Standard call to get message count and if count is 1, get message info
1154: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1155: , p_data => x_msg_data);
1156:
1157: EXCEPTION
1158: WHEN FND_API.G_EXC_ERROR THEN

Line 1164: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

1160: ROLLBACK TO SNValidate;
1161: --
1162: x_return_status := FND_API.G_RET_STS_ERROR;
1163: --
1164: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1165: , p_data => x_msg_data);
1166: --
1167:
1168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 1179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

1175: x_errorcode := -1;
1176:
1177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1178:
1179: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1180: , p_data => x_msg_data);
1181:
1182:
1183: WHEN OTHERS THEN

Line 1193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN

1189: --
1190: x_errorcode := -1;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: --
1193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1195: END IF;
1196: --
1197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

Line 1194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);

1190: x_errorcode := -1;
1191: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1192: --
1193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1195: END IF;
1196: --
1197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1198: , p_data => x_msg_data);

Line 1197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count

1193: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1194: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1195: END IF;
1196: --
1197: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count
1198: , p_data => x_msg_data);
1199:
1200: END SNValidate;
1201: /*---------------------------------------------------------------------------

Line 1269: FND_MSG_PUB.Add;

1265:
1266: --
1267: IF L_from_length = 0 then
1268: FND_MESSAGE.SET_NAME('INV', 'INV_QTYBTWN_NO_SERIAL');
1269: FND_MSG_PUB.Add;
1270: x_errorcode := 124;
1271: return (FALSE);
1272: END IF;
1273:

Line 1321: FND_MSG_PUB.Add;

1317: (l_f_alp_part is null and l_t_alp_part is not null) or
1318: (l_f_alp_part is not null and l_t_alp_part is null)
1319: then
1320: FND_MESSAGE.set_name('INV','INV_QTYBTWN_PFX');
1321: FND_MSG_PUB.Add;
1322: x_errorcode := 119;
1323: RETURN(FALSE);
1324:
1325: end if;

Line 1333: FND_MSG_PUB.Add;

1329: +---------------------------------------------------------------*/
1330: if (L_from_length <> L_to_length) then
1331: -- Message Name : INV_QTYBTWN_LGTH
1332: FND_MESSAGE.set_name('INV','INV_QTYBTWN_LGTH');
1333: FND_MSG_PUB.Add;
1334: x_errorcode := 120;
1335: RETURN(FALSE);
1336: end if;
1337: /*-------------------------------------------------------

Line 1347: FND_MSG_PUB.Add;

1343: if L_f_ser_num <> L_t_ser_num then
1344: if ascii(substr(L_f_ser_num,LENGTH(L_f_ser_num),1)) < 48 and
1345: ascii(substr(L_f_ser_num,LENGTH(L_f_ser_num),1)) > 57 then
1346: FND_MESSAGE.set_name('INV','INV_QTYBTWN_LAST');
1347: FND_MSG_PUB.Add;
1348: x_errorcode := 121;
1349: RETURN (FALSE);
1350: end if;
1351: end if;

Line 1367: FND_MSG_PUB.Add;

1363:
1364: if (X_Quantity <= 0) then
1365: -- Message Name : INV_QTYBTWN_NUM
1366: FND_MESSAGE.set_name('INV','INV_QTYBTWN_NUM');
1367: FND_MSG_PUB.Add;
1368: x_errorcode := 122;
1369: RETURN (FALSE);
1370: end if;
1371: --