19: WHERE name = p_ship_confirm_rule_info.name;
20:
21: Begin
22:
23: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
24:
25: OPEN c_dup_name;
26: FETCH c_dup_name INTO l_dup_id;
27: IF c_dup_name%NOTFOUND THEN
91: WHEN wsh_duplicate_name THEN
92: IF c_dup_name%ISOPEN THEN
93: CLOSE c_dup_name;
94: END IF;
95: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
96: FND_MESSAGE.Set_Name('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
97: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
98:
99:
93: CLOSE c_dup_name;
94: END IF;
95: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
96: FND_MESSAGE.Set_Name('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
97: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
98:
99:
100: WHEN others THEN
101: IF c_dup_name%ISOPEN THEN
100: WHEN others THEN
101: IF c_dup_name%ISOPEN THEN
102: CLOSE c_dup_name;
103: END IF;
104: wsh_util_core.default_handler('WSH_SHIP_CONFIRM_RULES_PVT.Insert_Row');
105: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
106:
107: End Insert_Row;
108:
101: IF c_dup_name%ISOPEN THEN
102: CLOSE c_dup_name;
103: END IF;
104: wsh_util_core.default_handler('WSH_SHIP_CONFIRM_RULES_PVT.Insert_Row');
105: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
106:
107: End Insert_Row;
108:
109: PROCEDURE Update_Row (
121: and ship_confirm_rule_id <> p_ship_confirm_rule_info.ship_confirm_rule_id ;
122:
123: Begin
124:
125: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
126:
127: OPEN c_dup_name;
128: FETCH c_dup_name INTO l_dup_id;
129: IF c_dup_name%NOTFOUND THEN
167: WHEN wsh_duplicate_name THEN
168: IF c_dup_name%ISOPEN THEN
169: CLOSE c_dup_name;
170: END IF;
171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
172: FND_MESSAGE.Set_Name('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
173: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
174:
175:
169: CLOSE c_dup_name;
170: END IF;
171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
172: FND_MESSAGE.Set_Name('FND', 'FORM_DUPLICATE_KEY_IN_INDEX');
173: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
174:
175:
176: WHEN others THEN
177: IF c_dup_name%ISOPEN THEN
176: WHEN others THEN
177: IF c_dup_name%ISOPEN THEN
178: CLOSE c_dup_name;
179: END IF;
180: wsh_util_core.default_handler('WSH_SHIP_CONFIRM_RULES_PVT.Update_Row');
181: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
182: End Update_Row;
183:
184:
177: IF c_dup_name%ISOPEN THEN
178: CLOSE c_dup_name;
179: END IF;
180: wsh_util_core.default_handler('WSH_SHIP_CONFIRM_RULES_PVT.Update_Row');
181: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
182: End Update_Row;
183:
184:
185: PROCEDURE Lock_Row(
401: WHERE rowid = p_rowid;
402: IF SQL%NOTFOUND THEN
403: RAISE NO_DATA_FOUND;
404: END IF;
405: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
406:
407: --
408: -- Debug Statements
409: --
413: --
414: --
415: EXCEPTION
416: WHEN others THEN
417: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
418: wsh_util_core.default_handler('WSH_SHIP_CONFIRM_RULES_PVT.DELETE_ROW');
419:
420: --
421: -- Debug Statements
414: --
415: EXCEPTION
416: WHEN others THEN
417: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
418: wsh_util_core.default_handler('WSH_SHIP_CONFIRM_RULES_PVT.DELETE_ROW');
419:
420: --
421: -- Debug Statements
422: --