892:
893: --Initialize the message list if specified so.
894: IF FND_API.TO_BOOLEAN( P_INIT_MSG_LIST ) THEN
895:
896: FND_MSG_PUB.INITIALIZE;
897:
898: END IF;
899:
900: IF P_AUTO_COMMIT = FND_API.G_TRUE THEN
949: FND_MESSAGE.SET_TOKEN('CONFIG_ID',P_DISPENSE_CONFIG_ID);
950: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',P_ENTITY_NAME);
951: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',P_ENTITY_NAME);
952:
953: FND_MSG_PUB.ADD;
954:
955: FND_MSG_PUB.COUNT_AND_GET
956: (P_COUNT => X_MSG_COUNT,
957: P_DATA => X_MSG_DATA);
951: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',P_ENTITY_NAME);
952:
953: FND_MSG_PUB.ADD;
954:
955: FND_MSG_PUB.COUNT_AND_GET
956: (P_COUNT => X_MSG_COUNT,
957: P_DATA => X_MSG_DATA);
958:
959: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
970: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
971: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
972: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','INSTANTIATE_DISPENSE_SETUP');
973:
974: FND_MSG_PUB.ADD;
975:
976: IF FND_MSG_PUB.CHECK_MSG_LEVEL( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
977:
978: FND_MSG_PUB.ADD_EXC_MSG (G_PKG_NAME,
972: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','INSTANTIATE_DISPENSE_SETUP');
973:
974: FND_MSG_PUB.ADD;
975:
976: IF FND_MSG_PUB.CHECK_MSG_LEVEL( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
977:
978: FND_MSG_PUB.ADD_EXC_MSG (G_PKG_NAME,
979: L_API_NAME );
980:
974: FND_MSG_PUB.ADD;
975:
976: IF FND_MSG_PUB.CHECK_MSG_LEVEL( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
977:
978: FND_MSG_PUB.ADD_EXC_MSG (G_PKG_NAME,
979: L_API_NAME );
980:
981: END IF;
982:
979: L_API_NAME );
980:
981: END IF;
982:
983: FND_MSG_PUB.COUNT_AND_GET
984: (P_COUNT => X_MSG_COUNT,
985: P_DATA => X_MSG_DATA);
986:
987: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1019:
1020: --Initialize the message list if specified so.
1021: IF FND_API.TO_BOOLEAN( P_INIT_MSG_LIST ) THEN
1022:
1023: FND_MSG_PUB.INITIALIZE;
1024:
1025: END IF;
1026:
1027: --Check if a dispense setup exists for the specified config ID.
1067: FND_MESSAGE.SET_TOKEN('CONFIG_ID',P_DISPENSE_CONFIG_ID);
1068: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',P_ENTITY_NAME);
1069: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',P_ENTITY_NAME);
1070:
1071: FND_MSG_PUB.ADD;
1072:
1073: FND_MSG_PUB.COUNT_AND_GET
1074: (P_COUNT => X_MSG_COUNT,
1075: P_DATA => X_MSG_DATA);
1069: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',P_ENTITY_NAME);
1070:
1071: FND_MSG_PUB.ADD;
1072:
1073: FND_MSG_PUB.COUNT_AND_GET
1074: (P_COUNT => X_MSG_COUNT,
1075: P_DATA => X_MSG_DATA);
1076:
1077: IF (FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1089: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
1090: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
1091: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','INSTANTIATE_DISP_SETUP');
1092:
1093: FND_MSG_PUB.ADD;
1094:
1095: IF FND_MSG_PUB.CHECK_MSG_LEVEL( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1096:
1097: FND_MSG_PUB.ADD_EXC_MSG (G_PKG_NAME,
1091: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','INSTANTIATE_DISP_SETUP');
1092:
1093: FND_MSG_PUB.ADD;
1094:
1095: IF FND_MSG_PUB.CHECK_MSG_LEVEL( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1096:
1097: FND_MSG_PUB.ADD_EXC_MSG (G_PKG_NAME,
1098: L_API_NAME );
1099:
1093: FND_MSG_PUB.ADD;
1094:
1095: IF FND_MSG_PUB.CHECK_MSG_LEVEL( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1096:
1097: FND_MSG_PUB.ADD_EXC_MSG (G_PKG_NAME,
1098: L_API_NAME );
1099:
1100: END IF;
1101:
1098: L_API_NAME );
1099:
1100: END IF;
1101:
1102: FND_MSG_PUB.COUNT_AND_GET
1103: (P_COUNT => X_MSG_COUNT,
1104: P_DATA => X_MSG_DATA);
1105:
1106: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN