46: FND_MESSAGE.SET_NAME('GMO','GMO_PURGE_DEVICE_DB_ERR');
47: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
48: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
49: FND_MSG_PUB.ADD;
50: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
51: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_purge.purge_device_data', FALSE);
52: end if;
53: RAISE;
54:
47: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
48: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
49: FND_MSG_PUB.ADD;
50: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
51: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_purge.purge_device_data', FALSE);
52: end if;
53: RAISE;
54:
55: END PURGE_DEVICE_DATA;
115: FND_MESSAGE.SET_NAME('GMO','GMO_PURGE_INSTR_DB_ERR');
116: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
117: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
118: FND_MSG_PUB.ADD;
119: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
120: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_purge.purge_instruction_data', FALSE);
121: end if;
122: RAISE;
123: END PURGE_INSTRUCTION_DATA;
116: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
117: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
118: FND_MSG_PUB.ADD;
119: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
120: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_purge.purge_instruction_data', FALSE);
121: end if;
122: RAISE;
123: END PURGE_INSTRUCTION_DATA;
124:
163: FND_MESSAGE.SET_NAME('GMO','GMO_PURGE_ALL_DB_ERR');
164: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
165: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
166: FND_MSG_PUB.ADD;
167: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
168: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_purge.purge_all', FALSE);
169: end if;
170: RAISE;
171: END PURGE_ALL;
164: FND_MESSAGE.SET_TOKEN('ERROR_TEXT',SQLERRM);
165: FND_MESSAGE.SET_TOKEN('ERROR_CODE',SQLCODE);
166: FND_MSG_PUB.ADD;
167: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
168: FND_LOG.MESSAGE(FND_LOG.LEVEL_UNEXPECTED,'gmo.plsql.gmo_purge.purge_all', FALSE);
169: end if;
170: RAISE;
171: END PURGE_ALL;
172: