42:
43: IF GET_ITEM_DISPLAY_NAME_CUR%ISOPEN THEN
44: CLOSE GET_ITEM_DISPLAY_NAME_CUR;
45: END IF;
46: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
47: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
48: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
49: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DISPLAY_NAME');
50: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
43: IF GET_ITEM_DISPLAY_NAME_CUR%ISOPEN THEN
44: CLOSE GET_ITEM_DISPLAY_NAME_CUR;
45: END IF;
46: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
47: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
48: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
49: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DISPLAY_NAME');
50: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
51: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
44: CLOSE GET_ITEM_DISPLAY_NAME_CUR;
45: END IF;
46: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
47: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
48: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
49: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DISPLAY_NAME');
50: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
51: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
52: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.GET_ITEM_DISPLAY_NAME',
45: END IF;
46: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
47: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
48: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
49: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DISPLAY_NAME');
50: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
51: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
52: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.GET_ITEM_DISPLAY_NAME',
53: FALSE
98:
99: IF GET_ITEM_DESCRIPTION_CUR%ISOPEN THEN
100: CLOSE GET_ITEM_DESCRIPTION_CUR;
101: END IF;
102: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
103: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
104: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
105: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DESCRIPTION');
106:
99: IF GET_ITEM_DESCRIPTION_CUR%ISOPEN THEN
100: CLOSE GET_ITEM_DESCRIPTION_CUR;
101: END IF;
102: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
103: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
104: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
105: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DESCRIPTION');
106:
107: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
100: CLOSE GET_ITEM_DESCRIPTION_CUR;
101: END IF;
102: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
103: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
104: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
105: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DESCRIPTION');
106:
107: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
101: END IF;
102: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
103: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
104: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
105: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_ITEM_DESCRIPTION');
106:
107: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
108: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
109: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.GET_ITEM_DESCRIPTION',
205: END IF;
206:
207: EXCEPTION
208: WHEN CREATE_ERROR THEN
209: FND_MESSAGE.SET_ENCODED(L_MSG_DATA);
210:
211: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
212: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
213: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.CREATE_DEFN_CONTEXT',
217:
218: APP_EXCEPTION.RAISE_EXCEPTION;
219:
220: WHEN OTHERS THEN
221: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
222: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
224: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
225:
218: APP_EXCEPTION.RAISE_EXCEPTION;
219:
220: WHEN OTHERS THEN
221: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
222: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
224: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
225:
226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
219:
220: WHEN OTHERS THEN
221: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
222: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
224: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
225:
226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
227: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
220: WHEN OTHERS THEN
221: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
222: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
223: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
224: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
225:
226: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
227: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
228: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.CREATE_DEFN_CONTEXT',
321: END IF;
322:
323: EXCEPTION
324: WHEN UPDATE_ERROR THEN
325: FND_MESSAGE.SET_ENCODED(L_MSG_DATA);
326:
327: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
328: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
329: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.UPDATE_CONTEXT_PARAMS',
333:
334: APP_EXCEPTION.RAISE_EXCEPTION;
335:
336: WHEN OTHERS THEN
337: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
338: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
340: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
341:
334: APP_EXCEPTION.RAISE_EXCEPTION;
335:
336: WHEN OTHERS THEN
337: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
338: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
340: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
341:
342: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
335:
336: WHEN OTHERS THEN
337: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
338: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
340: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
341:
342: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
343: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
336: WHEN OTHERS THEN
337: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
338: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
339: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
340: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','CREATE_DEFN_CONTEXT');
341:
342: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
343: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
344: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.UPDATE_CONTEXT_PARAMS',
405: DBMS_LOB.WRITEAPPEND(X_OUTPUT_XML,length(EDR_CONSTANTS_GRP.G_ERECORD_XML_FOOTER),EDR_CONSTANTS_GRP.G_ERECORD_XML_FOOTER);
406:
407: EXCEPTION
408: WHEN XML_ERROR THEN
409: FND_MESSAGE.SET_ENCODED(L_MSG_DATA);
410: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
411: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
412: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.GET_TRANSACTION_XML',
413: FALSE
416:
417: APP_EXCEPTION.RAISE_EXCEPTION;
418:
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
421: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
422: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
423: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_TRANSACTION_XML');
424:
417: APP_EXCEPTION.RAISE_EXCEPTION;
418:
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
421: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
422: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
423: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_TRANSACTION_XML');
424:
425: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
418:
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
421: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
422: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
423: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_TRANSACTION_XML');
424:
425: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
426: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
419: WHEN OTHERS THEN
420: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
421: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
422: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
423: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','GET_TRANSACTION_XML');
424:
425: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
426: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
427: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.GET_TRANSACTION_XML',
525: IF DISPENSE_INSTR_TYPES_CSR%ISOPEN THEN
526: CLOSE DISPENSE_INSTR_TYPES_CSR;
527: END IF;
528:
529: FND_MESSAGE.SET_ENCODED(L_MSG_DATA);
530:
531: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
532: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
533: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.SEND_INSTR_ACKN',
542: IF DISPENSE_INSTR_TYPES_CSR%ISOPEN THEN
543: CLOSE DISPENSE_INSTR_TYPES_CSR;
544: END IF;
545:
546: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
547: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
548: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
549: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','SEND_INSTR_ACKN');
550:
543: CLOSE DISPENSE_INSTR_TYPES_CSR;
544: END IF;
545:
546: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
547: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
548: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
549: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','SEND_INSTR_ACKN');
550:
551: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
544: END IF;
545:
546: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
547: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
548: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
549: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','SEND_INSTR_ACKN');
550:
551: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
552: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
545:
546: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
547: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
548: FND_MESSAGE.SET_TOKEN('PKG_NAME','GMO_DISPENSE_SETUP_PVT');
549: FND_MESSAGE.SET_TOKEN('PROCEDURE_NAME','SEND_INSTR_ACKN');
550:
551: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
552: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,
553: 'edr.plsql.GMO_DISPENSE_SETUP_PVT.SEND_INSTR_ACKN',
944: WHEN GMO_NO_DISPENSE_CONFIG_ERR THEN
945:
946: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
947:
948: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_CONFIG_ID');
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:
945:
946: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
947:
948: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_CONFIG_ID');
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;
946: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
947:
948: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_CONFIG_ID');
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:
947:
948: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_CONFIG_ID');
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
965: WHEN OTHERS THEN
966:
967: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
968:
969: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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:
966:
967: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
968:
969: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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;
967: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
968:
969: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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:
968:
969: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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
1062: ROLLBACK;
1063:
1064: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
1065:
1066: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_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:
1063:
1064: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
1065:
1066: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_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;
1064: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
1065:
1066: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_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:
1065:
1066: FND_MESSAGE.SET_NAME('GMO','GMO_INVALID_DISPENSE_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
1084: ROLLBACK;
1085:
1086: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
1087:
1088: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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:
1085:
1086: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
1087:
1088: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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;
1086: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR ;
1087:
1088: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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:
1087:
1088: FND_MESSAGE.SET_NAME('FND','FND_AS_UNEXPECTED_ERROR');
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