22: p_aso_resource_rec.dml_operation <> 'C' ) THEN
23: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
24: FND_MESSAGE.set_token( 'FIELD', p_aso_resource_rec.dml_operation );
25: FND_MSG_PUB.add;
26: RAISE FND_API.G_EXC_ERROR;
27: END IF;
28: IF p_bom_resource_tbl.count > 0 THEN
29: FOR i IN p_bom_resource_tbl.FIRST..p_bom_resource_tbl.LAST LOOP
30: IF ( p_bom_resource_tbl(i).dml_operation <> 'D' AND
33: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
34: FND_MESSAGE.set_token( 'FIELD', p_bom_resource_tbl(i).dml_operation );
35: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code ) ;
36: FND_MSG_PUB.add;
37: RAISE FND_API.G_EXC_ERROR;
38: END IF;
39: END LOOP;
40: END IF;
41: IF ( p_aso_resource_rec.dml_operation = 'C' and p_bom_resource_tbl.count >0 ) THEN
44: FND_MESSAGE.set_name( 'AHL', 'AHL_COM_INVALID_DML' );
45: FND_MESSAGE.set_token( 'FIELD', p_bom_resource_tbl(i).dml_operation );
46: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code ) ;
47: FND_MSG_PUB.add;
48: RAISE FND_API.G_EXC_ERROR;
49: END IF;
50: END LOOP;
51: END IF;
52:
62: BEGIN
63: IF (p_x_aso_resource_rec.dml_operation <> 'D') THEN
64: IF ( p_x_aso_resource_rec.resource_type IS NULL ) THEN
65: p_x_aso_resource_rec.resource_type_id := NULL;
66: ELSIF ( p_x_aso_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
67: p_x_aso_resource_rec.resource_type_id := FND_API.G_MISS_NUM;
68: END IF;
69: END IF;
70: IF p_x_bom_resource_tbl.count > 0 THEN
63: IF (p_x_aso_resource_rec.dml_operation <> 'D') THEN
64: IF ( p_x_aso_resource_rec.resource_type IS NULL ) THEN
65: p_x_aso_resource_rec.resource_type_id := NULL;
66: ELSIF ( p_x_aso_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
67: p_x_aso_resource_rec.resource_type_id := FND_API.G_MISS_NUM;
68: END IF;
69: END IF;
70: IF p_x_bom_resource_tbl.count > 0 THEN
71: FOR i IN p_x_bom_resource_tbl.FIRST..p_x_bom_resource_tbl.LAST LOOP
71: FOR i IN p_x_bom_resource_tbl.FIRST..p_x_bom_resource_tbl.LAST LOOP
72: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D') THEN
73: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL ) THEN
74: p_x_bom_resource_tbl(i).bom_resource_id := NULL;
75: ELSIF ( p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
76: p_x_bom_resource_tbl(i).bom_resource_id := FND_API.G_MISS_NUM;
77: END IF;
78: END IF;
79: END LOOP;
72: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D') THEN
73: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL ) THEN
74: p_x_bom_resource_tbl(i).bom_resource_id := NULL;
75: ELSIF ( p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
76: p_x_bom_resource_tbl(i).bom_resource_id := FND_API.G_MISS_NUM;
77: END IF;
78: END IF;
79: END LOOP;
80: END IF;
92: l_total_return_status VARCHAR2(1);
93: l_msg_data VARCHAR2(2000);
94:
95: BEGIN
96: l_total_return_status := FND_API.G_RET_STS_SUCCESS;
97:
98: -- Convert / Validate ASO Resource Type
99: IF ( p_x_aso_resource_rec.dml_operation <> 'D') THEN
100: IF ( ( p_x_aso_resource_rec.resource_type_id IS NOT NULL AND
97:
98: -- Convert / Validate ASO Resource Type
99: IF ( p_x_aso_resource_rec.dml_operation <> 'D') THEN
100: IF ( ( p_x_aso_resource_rec.resource_type_id IS NOT NULL AND
101: p_x_aso_resource_rec.resource_type_id <> FND_API.G_MISS_NUM ) OR
102: ( p_x_aso_resource_rec.resource_type IS NOT NULL AND
103: p_x_aso_resource_rec.resource_type <> FND_API.G_MISS_CHAR ) ) THEN
104:
105: AHL_RM_ROUTE_UTIL.validate_mfg_lookup
99: IF ( p_x_aso_resource_rec.dml_operation <> 'D') THEN
100: IF ( ( p_x_aso_resource_rec.resource_type_id IS NOT NULL AND
101: p_x_aso_resource_rec.resource_type_id <> FND_API.G_MISS_NUM ) OR
102: ( p_x_aso_resource_rec.resource_type IS NOT NULL AND
103: p_x_aso_resource_rec.resource_type <> FND_API.G_MISS_CHAR ) ) THEN
104:
105: AHL_RM_ROUTE_UTIL.validate_mfg_lookup
106: (
107: x_return_status => l_return_status,
110: p_lookup_meaning => p_x_aso_resource_rec.resource_type,
111: p_x_lookup_code => p_x_aso_resource_rec.resource_type_id
112: );
113:
114: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
115: IF ( l_msg_data = 'AHL_COM_INVALID_MFG_LOOKUP' ) THEN
116: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_RES_TYPE' );
117: ELSIF ( l_msg_data = 'AHL_COM_TOO_MANY_LOOKUPS' ) THEN
118: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_TOO_MANY_RES_TYPES' );
120: FND_MESSAGE.set_name( 'AHL', l_msg_data );
121: END IF;
122:
123: IF ( p_x_aso_resource_rec.resource_type IS NULL OR
124: p_x_aso_resource_rec.resource_type = FND_API.G_MISS_CHAR ) THEN
125: FND_MESSAGE.set_token( 'FIELD', p_x_aso_resource_rec.resource_type_id );
126: ELSE
127: FND_MESSAGE.set_token( 'FIELD', p_x_aso_resource_rec.resource_type );
128: END IF;
127: FND_MESSAGE.set_token( 'FIELD', p_x_aso_resource_rec.resource_type );
128: END IF;
129:
130: FND_MSG_PUB.add;
131: l_total_return_status := FND_API.G_RET_STS_ERROR;
132: END IF;
133: END IF;
134: END IF;
135:
137: IF p_x_bom_resource_tbl.count > 0 THEN
138: FOR i IN p_x_bom_resource_tbl.FIRST..p_x_bom_resource_tbl.LAST LOOP
139: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D' ) THEN
140: IF ( ( p_x_bom_resource_tbl(i).bom_resource_code IS NOT NULL AND
141: p_x_bom_resource_tbl(i).bom_resource_code <> FND_API.G_MISS_CHAR ) OR
142: ( p_x_bom_resource_tbl(i).bom_resource_id IS NOT NULL AND
143: p_x_bom_resource_tbl(i).bom_resource_id <> FND_API.G_MISS_NUM ) ) THEN
144:
145: AHL_RM_ROUTE_UTIL.validate_bom_resource
139: IF (p_x_bom_resource_tbl(i).dml_operation <> 'D' ) THEN
140: IF ( ( p_x_bom_resource_tbl(i).bom_resource_code IS NOT NULL AND
141: p_x_bom_resource_tbl(i).bom_resource_code <> FND_API.G_MISS_CHAR ) OR
142: ( p_x_bom_resource_tbl(i).bom_resource_id IS NOT NULL AND
143: p_x_bom_resource_tbl(i).bom_resource_id <> FND_API.G_MISS_NUM ) ) THEN
144:
145: AHL_RM_ROUTE_UTIL.validate_bom_resource
146: (
147: x_return_status => l_return_status,
150: p_x_bom_resource_id => p_x_bom_resource_tbl(i).bom_resource_id,
151: p_x_bom_org_id => p_x_bom_resource_tbl(i).bom_org_id
152: );
153:
154: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
155: FND_MESSAGE.set_name( 'AHL', l_msg_data );
156: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL OR
157: p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
158: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_bom_resource_tbl(i).bom_resource_id ) );
153:
154: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
155: FND_MESSAGE.set_name( 'AHL', l_msg_data );
156: IF ( p_x_bom_resource_tbl(i).bom_resource_code IS NULL OR
157: p_x_bom_resource_tbl(i).bom_resource_code = FND_API.G_MISS_CHAR ) THEN
158: FND_MESSAGE.set_token( 'FIELD', TO_CHAR( p_x_bom_resource_tbl(i).bom_resource_id ) );
159: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( p_x_bom_resource_tbl(i).bom_resource_id ) );
160: ELSE
161: FND_MESSAGE.set_token( 'FIELD', p_x_bom_resource_tbl(i).bom_resource_code );
161: FND_MESSAGE.set_token( 'FIELD', p_x_bom_resource_tbl(i).bom_resource_code );
162: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_tbl(i).bom_resource_code );
163: END IF;
164: FND_MSG_PUB.add;
165: l_total_return_status := FND_API.G_RET_STS_ERROR;
166: END IF;
167: END IF;
168:
169: -- pdoki ER 7436910 Begin.
168:
169: -- pdoki ER 7436910 Begin.
170: -- Convert / Validate BOM resource's department
171: IF ( ( p_x_bom_resource_tbl(i).department_name IS NOT NULL AND
172: p_x_bom_resource_tbl(i).department_name <> FND_API.G_MISS_CHAR ) OR
173: ( p_x_bom_resource_tbl(i).department_id IS NOT NULL AND
174: p_x_bom_resource_tbl(i).department_id <> FND_API.G_MISS_NUM ) ) THEN
175:
176: IF (p_x_bom_resource_tbl(i).bom_resource_id IS NULL OR p_x_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM)
170: -- Convert / Validate BOM resource's department
171: IF ( ( p_x_bom_resource_tbl(i).department_name IS NOT NULL AND
172: p_x_bom_resource_tbl(i).department_name <> FND_API.G_MISS_CHAR ) OR
173: ( p_x_bom_resource_tbl(i).department_id IS NOT NULL AND
174: p_x_bom_resource_tbl(i).department_id <> FND_API.G_MISS_NUM ) ) THEN
175:
176: IF (p_x_bom_resource_tbl(i).bom_resource_id IS NULL OR p_x_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM)
177: THEN
178: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
172: p_x_bom_resource_tbl(i).department_name <> FND_API.G_MISS_CHAR ) OR
173: ( p_x_bom_resource_tbl(i).department_id IS NOT NULL AND
174: p_x_bom_resource_tbl(i).department_id <> FND_API.G_MISS_NUM ) ) THEN
175:
176: IF (p_x_bom_resource_tbl(i).bom_resource_id IS NULL OR p_x_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM)
177: THEN
178: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
179: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
180: FND_MSG_PUB.add;
177: THEN
178: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
179: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
180: FND_MSG_PUB.add;
181: l_total_return_status := FND_API.G_RET_STS_ERROR;
182: ELSE
183: AHL_RM_ROUTE_UTIL.validate_bom_res_dep
184: (
185: x_return_status => l_return_status,
189: p_bom_department_name => p_x_bom_resource_tbl(i).department_name,
190: p_x_bom_department_id => p_x_bom_resource_tbl(i).department_id
191: );
192:
193: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
194: FND_MESSAGE.set_name( 'AHL', l_msg_data );
195: IF ( p_x_bom_resource_tbl(i).department_name IS NULL OR
196: p_x_bom_resource_tbl(i).department_name = FND_API.G_MISS_CHAR ) THEN
197: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( p_x_bom_resource_tbl(i).department_id ) );
192:
193: IF ( NVL( l_return_status, 'X' ) <> FND_API.G_RET_STS_SUCCESS ) THEN
194: FND_MESSAGE.set_name( 'AHL', l_msg_data );
195: IF ( p_x_bom_resource_tbl(i).department_name IS NULL OR
196: p_x_bom_resource_tbl(i).department_name = FND_API.G_MISS_CHAR ) THEN
197: FND_MESSAGE.set_token( 'RECORD', TO_CHAR( p_x_bom_resource_tbl(i).department_id ) );
198: ELSE
199: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_tbl(i).department_name );
200: END IF;
198: ELSE
199: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_tbl(i).department_name );
200: END IF;
201: FND_MSG_PUB.add;
202: l_total_return_status := FND_API.G_RET_STS_ERROR;
203: END IF;
204: END IF;
205: END IF;
206: -- pdoki ER 7436910 End.
206: -- pdoki ER 7436910 End.
207:
208: END IF;
209: END LOOP;
210: IF (l_total_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: END IF;
213: END IF;
214: END convert_values_to_ids;
207:
208: END IF;
209: END LOOP;
210: IF (l_total_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
211: RAISE FND_API.G_EXC_ERROR;
212: END IF;
213: END IF;
214: END convert_values_to_ids;
215:
263: IF ( p_aso_resource_rec.dml_operation = 'C' OR
264: p_aso_resource_rec.dml_operation = 'U' ) THEN
265: -- Check if the mandatory resource_type column contains a value.
266: IF ( (p_aso_resource_rec.resource_type_id IS NULL OR
267: p_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM) AND
268: p_aso_resource_rec.dml_operation <> 'U' ) THEN
269: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_TYPE_NULL' );
270: FND_MSG_PUB.add;
271: RAISE FND_API.G_EXC_ERROR;
267: p_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM) AND
268: p_aso_resource_rec.dml_operation <> 'U' ) THEN
269: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_TYPE_NULL' );
270: FND_MSG_PUB.add;
271: RAISE FND_API.G_EXC_ERROR;
272: END IF;
273:
274: -- Check if the mandatory name column contains a value.
275: IF ( p_aso_resource_rec.name IS NULL OR
272: END IF;
273:
274: -- Check if the mandatory name column contains a value.
275: IF ( p_aso_resource_rec.name IS NULL OR
276: p_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
277: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_NAME_NULL' );
278: FND_MSG_PUB.add;
279: RAISE FND_API.G_EXC_ERROR;
280: END IF;
275: IF ( p_aso_resource_rec.name IS NULL OR
276: p_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
277: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_NAME_NULL' );
278: FND_MSG_PUB.add;
279: RAISE FND_API.G_EXC_ERROR;
280: END IF;
281:
282: -- Check if the mandatory description column contains a value.
283: IF ( p_aso_resource_rec.description IS NULL OR
280: END IF;
281:
282: -- Check if the mandatory description column contains a value.
283: IF ( p_aso_resource_rec.description IS NULL OR
284: p_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
285: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_DESC_NULL' );
286: FND_MSG_PUB.add;
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
283: IF ( p_aso_resource_rec.description IS NULL OR
284: p_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
285: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_DESC_NULL' );
286: FND_MSG_PUB.add;
287: RAISE FND_API.G_EXC_ERROR;
288: END IF;
289:
290: --pekambar added for ER # 9014609 -- Start
291: -- If p_x_aso_resource_rec.one_bomres_org is other than Y or N throw an error
292: IF ( p_aso_resource_rec.one_bomres_org IS NOT NULL AND ( p_aso_resource_rec.one_bomres_org <> 'Y' AND p_aso_resource_rec.one_bomres_org <> 'N') ) THEN
293: FND_MESSAGE.set_name( 'AHL','AHL_RM_ASO_RES_INVALID_VALUE' );
294: FND_MESSAGE.set_token( 'BOMRES',p_aso_resource_rec.one_bomres_org);
295: FND_MSG_PUB.add;
296: RAISE FND_API.G_EXC_ERROR;
297: END IF;
298: --pekambar added for ER # 9014609 -- End
299: END IF;
300: -- Check if the mandatory bom_resource_id column in details table contains a value.
303: IF ( p_bom_resource_tbl(i).dml_operation = 'C' OR
304: p_bom_resource_tbl(i).dml_operation = 'U' ) THEN
305:
306: IF (p_bom_resource_tbl(i).bom_resource_id IS NULL OR
307: p_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM) THEN
308: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
309: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
310: FND_MSG_PUB.add;
311: RAISE FND_API.G_EXC_ERROR;
307: p_bom_resource_tbl(i).bom_resource_id = FND_API.G_MISS_NUM) THEN
308: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_RES_ID_NULL' );
309: FND_MESSAGE.set_token( 'RECORD',TO_CHAR(i));
310: FND_MSG_PUB.add;
311: RAISE FND_API.G_EXC_ERROR;
312: END IF;
313: IF (p_bom_resource_tbl(i).bom_org_id IS NULL OR
314: p_bom_resource_tbl(i).bom_org_id = FND_API.G_MISS_NUM) THEN
315: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_ORG_ID_NULL' );
310: FND_MSG_PUB.add;
311: RAISE FND_API.G_EXC_ERROR;
312: END IF;
313: IF (p_bom_resource_tbl(i).bom_org_id IS NULL OR
314: p_bom_resource_tbl(i).bom_org_id = FND_API.G_MISS_NUM) THEN
315: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_ORG_ID_NULL' );
316: FND_MESSAGE.set_token( 'RECORD',p_bom_resource_tbl(i).bom_resource_code);
317: FND_MSG_PUB.add;
318: RAISE FND_API.G_EXC_ERROR;
314: p_bom_resource_tbl(i).bom_org_id = FND_API.G_MISS_NUM) THEN
315: FND_MESSAGE.set_name( 'AHL','AHL_RM_BOM_ORG_ID_NULL' );
316: FND_MESSAGE.set_token( 'RECORD',p_bom_resource_tbl(i).bom_resource_code);
317: FND_MSG_PUB.add;
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320: END IF;
321: END LOOP;
322: END IF;
332: BEGIN
333:
334: -- Convert G_MISS values to NULL
335: IF p_x_aso_resource_rec.dml_operation = 'C' THEN
336: IF ( p_x_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
337: p_x_aso_resource_rec.resource_type_id := null;
338: END IF;
339:
340: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
336: IF ( p_x_aso_resource_rec.resource_type_id = FND_API.G_MISS_NUM ) THEN
337: p_x_aso_resource_rec.resource_type_id := null;
338: END IF;
339:
340: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
341: p_x_aso_resource_rec.name := null;
342: END IF;
343:
344: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
340: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
341: p_x_aso_resource_rec.name := null;
342: END IF;
343:
344: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
345: p_x_aso_resource_rec.description := null;
346: END IF;
347:
348: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
344: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
345: p_x_aso_resource_rec.description := null;
346: END IF;
347:
348: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
349: p_x_aso_resource_rec.attribute_category := null;
350: END IF;
351:
352: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
348: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
349: p_x_aso_resource_rec.attribute_category := null;
350: END IF;
351:
352: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
353: p_x_aso_resource_rec.attribute1 := null;
354: END IF;
355:
356: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
352: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
353: p_x_aso_resource_rec.attribute1 := null;
354: END IF;
355:
356: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
357: p_x_aso_resource_rec.attribute2 := null;
358: END IF;
359:
360: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
356: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
357: p_x_aso_resource_rec.attribute2 := null;
358: END IF;
359:
360: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
361: p_x_aso_resource_rec.attribute3 := null;
362: END IF;
363:
364: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
360: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
361: p_x_aso_resource_rec.attribute3 := null;
362: END IF;
363:
364: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
365: p_x_aso_resource_rec.attribute4 := null;
366: END IF;
367:
368: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
364: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
365: p_x_aso_resource_rec.attribute4 := null;
366: END IF;
367:
368: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
369: p_x_aso_resource_rec.attribute5 := null;
370: END IF;
371:
372: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
368: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
369: p_x_aso_resource_rec.attribute5 := null;
370: END IF;
371:
372: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
373: p_x_aso_resource_rec.attribute6 := null;
374: END IF;
375:
376: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
372: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
373: p_x_aso_resource_rec.attribute6 := null;
374: END IF;
375:
376: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
377: p_x_aso_resource_rec.attribute7 := null;
378: END IF;
379:
380: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
376: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
377: p_x_aso_resource_rec.attribute7 := null;
378: END IF;
379:
380: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
381: p_x_aso_resource_rec.attribute8 := null;
382: END IF;
383:
384: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
380: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
381: p_x_aso_resource_rec.attribute8 := null;
382: END IF;
383:
384: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
385: p_x_aso_resource_rec.attribute9 := null;
386: END IF;
387:
388: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
384: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
385: p_x_aso_resource_rec.attribute9 := null;
386: END IF;
387:
388: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
389: p_x_aso_resource_rec.attribute10 := null;
390: END IF;
391:
392: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
388: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
389: p_x_aso_resource_rec.attribute10 := null;
390: END IF;
391:
392: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
393: p_x_aso_resource_rec.attribute11 := null;
394: END IF;
395:
396: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
392: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
393: p_x_aso_resource_rec.attribute11 := null;
394: END IF;
395:
396: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
397: p_x_aso_resource_rec.attribute12 := null;
398: END IF;
399:
400: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
396: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
397: p_x_aso_resource_rec.attribute12 := null;
398: END IF;
399:
400: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
401: p_x_aso_resource_rec.attribute13 := null;
402: END IF;
403:
404: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
400: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
401: p_x_aso_resource_rec.attribute13 := null;
402: END IF;
403:
404: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
405: p_x_aso_resource_rec.attribute14 := null;
406: END IF;
407:
408: IF ( p_x_aso_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
404: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
405: p_x_aso_resource_rec.attribute14 := null;
406: END IF;
407:
408: IF ( p_x_aso_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
409: p_x_aso_resource_rec.attribute15 := null;
410: END IF;
411: END IF;
412: END default_miss_aso_attributes;
419: IS
420:
421: BEGIN
422: IF ( p_x_bom_resource_rec.dml_operation = 'C') THEN
423: IF ( p_x_bom_resource_rec.bom_resource_id = FND_API.G_MISS_NUM ) THEN
424: p_x_bom_resource_rec.bom_resource_id := null;
425: END IF;
426:
427: IF ( p_x_bom_resource_rec.bom_org_id = FND_API.G_MISS_NUM ) THEN
423: IF ( p_x_bom_resource_rec.bom_resource_id = FND_API.G_MISS_NUM ) THEN
424: p_x_bom_resource_rec.bom_resource_id := null;
425: END IF;
426:
427: IF ( p_x_bom_resource_rec.bom_org_id = FND_API.G_MISS_NUM ) THEN
428: p_x_bom_resource_rec.bom_org_id := null;
429: END IF;
430:
431: --pdoki ER 7436910 Begin.
428: p_x_bom_resource_rec.bom_org_id := null;
429: END IF;
430:
431: --pdoki ER 7436910 Begin.
432: IF ( p_x_bom_resource_rec.department_id = FND_API.G_MISS_NUM ) THEN
433: p_x_bom_resource_rec.department_id := null;
434: END IF;
435: --pdoki ER 7436910 End.
436:
433: p_x_bom_resource_rec.department_id := null;
434: END IF;
435: --pdoki ER 7436910 End.
436:
437: IF ( p_x_bom_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
438: p_x_bom_resource_rec.attribute_category := null;
439: END IF;
440:
441: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
437: IF ( p_x_bom_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
438: p_x_bom_resource_rec.attribute_category := null;
439: END IF;
440:
441: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
442: p_x_bom_resource_rec.attribute1 := null;
443: END IF;
444:
445: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
441: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
442: p_x_bom_resource_rec.attribute1 := null;
443: END IF;
444:
445: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
446: p_x_bom_resource_rec.attribute2 := null;
447: END IF;
448:
449: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
445: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
446: p_x_bom_resource_rec.attribute2 := null;
447: END IF;
448:
449: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
450: p_x_bom_resource_rec.attribute3 := null;
451: END IF;
452:
453: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
449: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
450: p_x_bom_resource_rec.attribute3 := null;
451: END IF;
452:
453: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
454: p_x_bom_resource_rec.attribute4 := null;
455: END IF;
456:
457: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
453: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
454: p_x_bom_resource_rec.attribute4 := null;
455: END IF;
456:
457: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
458: p_x_bom_resource_rec.attribute5 := null;
459: END IF;
460:
461: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
457: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
458: p_x_bom_resource_rec.attribute5 := null;
459: END IF;
460:
461: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
462: p_x_bom_resource_rec.attribute6 := null;
463: END IF;
464:
465: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
461: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
462: p_x_bom_resource_rec.attribute6 := null;
463: END IF;
464:
465: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
466: p_x_bom_resource_rec.attribute7 := null;
467: END IF;
468:
469: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
465: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
466: p_x_bom_resource_rec.attribute7 := null;
467: END IF;
468:
469: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
470: p_x_bom_resource_rec.attribute8 := null;
471: END IF;
472:
473: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
469: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
470: p_x_bom_resource_rec.attribute8 := null;
471: END IF;
472:
473: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
474: p_x_bom_resource_rec.attribute9 := null;
475: END IF;
476:
477: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
473: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
474: p_x_bom_resource_rec.attribute9 := null;
475: END IF;
476:
477: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
478: p_x_bom_resource_rec.attribute10 := null;
479: END IF;
480:
481: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
477: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
478: p_x_bom_resource_rec.attribute10 := null;
479: END IF;
480:
481: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
482: p_x_bom_resource_rec.attribute11 := null;
483: END IF;
484:
485: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
481: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
482: p_x_bom_resource_rec.attribute11 := null;
483: END IF;
484:
485: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
486: p_x_bom_resource_rec.attribute12 := null;
487: END IF;
488:
489: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
485: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
486: p_x_bom_resource_rec.attribute12 := null;
487: END IF;
488:
489: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
490: p_x_bom_resource_rec.attribute13 := null;
491: END IF;
492:
493: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
489: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
490: p_x_bom_resource_rec.attribute13 := null;
491: END IF;
492:
493: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
494: p_x_bom_resource_rec.attribute14 := null;
495: END IF;
496:
497: IF ( p_x_bom_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
493: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
494: p_x_bom_resource_rec.attribute14 := null;
495: END IF;
496:
497: IF ( p_x_bom_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
498: p_x_bom_resource_rec.attribute15 := null;
499: END IF;
500: END IF;
501: END default_miss_bom_attributes;
570: IF get_old_aso_rec%NOTFOUND THEN
571: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_ASO_REC' );
572: FND_MSG_PUB.add;
573: CLOSE get_old_aso_rec;
574: RAISE FND_API.G_EXC_ERROR;
575: END IF;
576:
577: CLOSE get_old_aso_rec;
578:
577: CLOSE get_old_aso_rec;
578:
579: -- Convert G_MISS values to NULL and NULL values to Old values
580:
581: IF ( p_x_aso_resource_rec.name = FND_API.G_MISS_CHAR ) THEN
582: p_x_aso_resource_rec.name := null;
583: ELSIF ( p_x_aso_resource_rec.name IS NULL ) THEN
584: p_x_aso_resource_rec.name := l_old_aso_resource_rec.name;
585: END IF;
583: ELSIF ( p_x_aso_resource_rec.name IS NULL ) THEN
584: p_x_aso_resource_rec.name := l_old_aso_resource_rec.name;
585: END IF;
586:
587: IF ( p_x_aso_resource_rec.description = FND_API.G_MISS_CHAR ) THEN
588: p_x_aso_resource_rec.description := null;
589: ELSIF ( p_x_aso_resource_rec.description IS NULL ) THEN
590: p_x_aso_resource_rec.description := l_old_aso_resource_rec.description;
591: END IF;
589: ELSIF ( p_x_aso_resource_rec.description IS NULL ) THEN
590: p_x_aso_resource_rec.description := l_old_aso_resource_rec.description;
591: END IF;
592:
593: IF ( p_x_aso_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
594: p_x_aso_resource_rec.attribute_category := null;
595: ELSIF ( p_x_aso_resource_rec.attribute_category IS NULL ) THEN
596: p_x_aso_resource_rec.attribute_category := l_old_aso_resource_rec.attribute_category;
597: END IF;
595: ELSIF ( p_x_aso_resource_rec.attribute_category IS NULL ) THEN
596: p_x_aso_resource_rec.attribute_category := l_old_aso_resource_rec.attribute_category;
597: END IF;
598:
599: IF ( p_x_aso_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
600: p_x_aso_resource_rec.attribute1 := null;
601: ELSIF ( p_x_aso_resource_rec.attribute1 IS NULL ) THEN
602: p_x_aso_resource_rec.attribute1 := l_old_aso_resource_rec.attribute1;
603: END IF;
601: ELSIF ( p_x_aso_resource_rec.attribute1 IS NULL ) THEN
602: p_x_aso_resource_rec.attribute1 := l_old_aso_resource_rec.attribute1;
603: END IF;
604:
605: IF ( p_x_aso_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
606: p_x_aso_resource_rec.attribute2 := null;
607: ELSIF ( p_x_aso_resource_rec.attribute2 IS NULL ) THEN
608: p_x_aso_resource_rec.attribute2 := l_old_aso_resource_rec.attribute2;
609: END IF;
607: ELSIF ( p_x_aso_resource_rec.attribute2 IS NULL ) THEN
608: p_x_aso_resource_rec.attribute2 := l_old_aso_resource_rec.attribute2;
609: END IF;
610:
611: IF ( p_x_aso_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
612: p_x_aso_resource_rec.attribute3 := null;
613: ELSIF ( p_x_aso_resource_rec.attribute3 IS NULL ) THEN
614: p_x_aso_resource_rec.attribute3 := l_old_aso_resource_rec.attribute3;
615: END IF;
613: ELSIF ( p_x_aso_resource_rec.attribute3 IS NULL ) THEN
614: p_x_aso_resource_rec.attribute3 := l_old_aso_resource_rec.attribute3;
615: END IF;
616:
617: IF ( p_x_aso_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
618: p_x_aso_resource_rec.attribute4 := null;
619: ELSIF ( p_x_aso_resource_rec.attribute4 IS NULL ) THEN
620: p_x_aso_resource_rec.attribute4 := l_old_aso_resource_rec.attribute4;
621: END IF;
619: ELSIF ( p_x_aso_resource_rec.attribute4 IS NULL ) THEN
620: p_x_aso_resource_rec.attribute4 := l_old_aso_resource_rec.attribute4;
621: END IF;
622:
623: IF ( p_x_aso_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
624: p_x_aso_resource_rec.attribute5 := null;
625: ELSIF ( p_x_aso_resource_rec.attribute5 IS NULL ) THEN
626: p_x_aso_resource_rec.attribute5 := l_old_aso_resource_rec.attribute5;
627: END IF;
625: ELSIF ( p_x_aso_resource_rec.attribute5 IS NULL ) THEN
626: p_x_aso_resource_rec.attribute5 := l_old_aso_resource_rec.attribute5;
627: END IF;
628:
629: IF ( p_x_aso_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
630: p_x_aso_resource_rec.attribute6 := null;
631: ELSIF ( p_x_aso_resource_rec.attribute6 IS NULL ) THEN
632: p_x_aso_resource_rec.attribute6 := l_old_aso_resource_rec.attribute6;
633: END IF;
631: ELSIF ( p_x_aso_resource_rec.attribute6 IS NULL ) THEN
632: p_x_aso_resource_rec.attribute6 := l_old_aso_resource_rec.attribute6;
633: END IF;
634:
635: IF ( p_x_aso_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
636: p_x_aso_resource_rec.attribute7 := null;
637: ELSIF ( p_x_aso_resource_rec.attribute7 IS NULL ) THEN
638: p_x_aso_resource_rec.attribute7 := l_old_aso_resource_rec.attribute7;
639: END IF;
637: ELSIF ( p_x_aso_resource_rec.attribute7 IS NULL ) THEN
638: p_x_aso_resource_rec.attribute7 := l_old_aso_resource_rec.attribute7;
639: END IF;
640:
641: IF ( p_x_aso_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
642: p_x_aso_resource_rec.attribute8 := null;
643: ELSIF ( p_x_aso_resource_rec.attribute8 IS NULL ) THEN
644: p_x_aso_resource_rec.attribute8 := l_old_aso_resource_rec.attribute8;
645: END IF;
643: ELSIF ( p_x_aso_resource_rec.attribute8 IS NULL ) THEN
644: p_x_aso_resource_rec.attribute8 := l_old_aso_resource_rec.attribute8;
645: END IF;
646:
647: IF ( p_x_aso_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
648: p_x_aso_resource_rec.attribute9 := null;
649: ELSIF ( p_x_aso_resource_rec.attribute9 IS NULL ) THEN
650: p_x_aso_resource_rec.attribute9 := l_old_aso_resource_rec.attribute9;
651: END IF;
649: ELSIF ( p_x_aso_resource_rec.attribute9 IS NULL ) THEN
650: p_x_aso_resource_rec.attribute9 := l_old_aso_resource_rec.attribute9;
651: END IF;
652:
653: IF ( p_x_aso_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
654: p_x_aso_resource_rec.attribute10 := null;
655: ELSIF ( p_x_aso_resource_rec.attribute10 IS NULL ) THEN
656: p_x_aso_resource_rec.attribute10 := l_old_aso_resource_rec.attribute10;
657: END IF;
655: ELSIF ( p_x_aso_resource_rec.attribute10 IS NULL ) THEN
656: p_x_aso_resource_rec.attribute10 := l_old_aso_resource_rec.attribute10;
657: END IF;
658:
659: IF ( p_x_aso_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
660: p_x_aso_resource_rec.attribute11 := null;
661: ELSIF ( p_x_aso_resource_rec.attribute11 IS NULL ) THEN
662: p_x_aso_resource_rec.attribute11 := l_old_aso_resource_rec.attribute11;
663: END IF;
661: ELSIF ( p_x_aso_resource_rec.attribute11 IS NULL ) THEN
662: p_x_aso_resource_rec.attribute11 := l_old_aso_resource_rec.attribute11;
663: END IF;
664:
665: IF ( p_x_aso_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
666: p_x_aso_resource_rec.attribute12 := null;
667: ELSIF ( p_x_aso_resource_rec.attribute12 IS NULL ) THEN
668: p_x_aso_resource_rec.attribute12 := l_old_aso_resource_rec.attribute12;
669: END IF;
667: ELSIF ( p_x_aso_resource_rec.attribute12 IS NULL ) THEN
668: p_x_aso_resource_rec.attribute12 := l_old_aso_resource_rec.attribute12;
669: END IF;
670:
671: IF ( p_x_aso_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
672: p_x_aso_resource_rec.attribute13 := null;
673: ELSIF ( p_x_aso_resource_rec.attribute13 IS NULL ) THEN
674: p_x_aso_resource_rec.attribute13 := l_old_aso_resource_rec.attribute13;
675: END IF;
673: ELSIF ( p_x_aso_resource_rec.attribute13 IS NULL ) THEN
674: p_x_aso_resource_rec.attribute13 := l_old_aso_resource_rec.attribute13;
675: END IF;
676:
677: IF ( p_x_aso_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
678: p_x_aso_resource_rec.attribute14 := null;
679: ELSIF ( p_x_aso_resource_rec.attribute14 IS NULL ) THEN
680: p_x_aso_resource_rec.attribute14 := l_old_aso_resource_rec.attribute14;
681: END IF;
679: ELSIF ( p_x_aso_resource_rec.attribute14 IS NULL ) THEN
680: p_x_aso_resource_rec.attribute14 := l_old_aso_resource_rec.attribute14;
681: END IF;
682:
683: IF ( p_x_aso_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
684: p_x_aso_resource_rec.attribute15 := null;
685: ELSIF ( p_x_aso_resource_rec.attribute15 IS NULL ) THEN
686: p_x_aso_resource_rec.attribute15 := l_old_aso_resource_rec.attribute15;
687: END IF;
747: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_MAPPING_REC' );
748: FND_MESSAGE.set_token( 'RECORD', p_x_bom_resource_rec.bom_resource_code);
749: FND_MSG_PUB.add;
750: CLOSE get_old_bom_rec;
751: RAISE FND_API.G_EXC_ERROR;
752: END IF;
753:
754: CLOSE get_old_bom_rec;
755:
753:
754: CLOSE get_old_bom_rec;
755:
756: -- Convert G_MISS values to NULL and NULL values to Old values
757: IF ( p_x_bom_resource_rec.bom_resource_id = FND_API.G_MISS_NUM ) THEN
758: p_x_bom_resource_rec.bom_resource_id := null;
759: ELSIF ( p_x_bom_resource_rec.bom_resource_id IS NULL ) THEN
760: p_x_bom_resource_rec.bom_resource_id := l_old_bom_resource_rec.bom_resource_id;
761: END IF;
759: ELSIF ( p_x_bom_resource_rec.bom_resource_id IS NULL ) THEN
760: p_x_bom_resource_rec.bom_resource_id := l_old_bom_resource_rec.bom_resource_id;
761: END IF;
762:
763: IF ( p_x_bom_resource_rec.bom_org_id = FND_API.G_MISS_NUM ) THEN
764: p_x_bom_resource_rec.bom_org_id := null;
765: ELSIF ( p_x_bom_resource_rec.bom_org_id IS NULL ) THEN
766: p_x_bom_resource_rec.bom_org_id := l_old_bom_resource_rec.bom_org_id;
767: END IF;
765: ELSIF ( p_x_bom_resource_rec.bom_org_id IS NULL ) THEN
766: p_x_bom_resource_rec.bom_org_id := l_old_bom_resource_rec.bom_org_id;
767: END IF;
768:
769: IF ( p_x_bom_resource_rec.attribute_category = FND_API.G_MISS_CHAR ) THEN
770: p_x_bom_resource_rec.attribute_category := null;
771: ELSIF ( p_x_bom_resource_rec.attribute_category IS NULL ) THEN
772: p_x_bom_resource_rec.attribute_category := l_old_bom_resource_rec.attribute_category;
773: END IF;
771: ELSIF ( p_x_bom_resource_rec.attribute_category IS NULL ) THEN
772: p_x_bom_resource_rec.attribute_category := l_old_bom_resource_rec.attribute_category;
773: END IF;
774:
775: IF ( p_x_bom_resource_rec.attribute1 = FND_API.G_MISS_CHAR ) THEN
776: p_x_bom_resource_rec.attribute1 := null;
777: ELSIF ( p_x_bom_resource_rec.attribute1 IS NULL ) THEN
778: p_x_bom_resource_rec.attribute1 := l_old_bom_resource_rec.attribute1;
779: END IF;
777: ELSIF ( p_x_bom_resource_rec.attribute1 IS NULL ) THEN
778: p_x_bom_resource_rec.attribute1 := l_old_bom_resource_rec.attribute1;
779: END IF;
780:
781: IF ( p_x_bom_resource_rec.attribute2 = FND_API.G_MISS_CHAR ) THEN
782: p_x_bom_resource_rec.attribute2 := null;
783: ELSIF ( p_x_bom_resource_rec.attribute2 IS NULL ) THEN
784: p_x_bom_resource_rec.attribute2 := l_old_bom_resource_rec.attribute2;
785: END IF;
783: ELSIF ( p_x_bom_resource_rec.attribute2 IS NULL ) THEN
784: p_x_bom_resource_rec.attribute2 := l_old_bom_resource_rec.attribute2;
785: END IF;
786:
787: IF ( p_x_bom_resource_rec.attribute3 = FND_API.G_MISS_CHAR ) THEN
788: p_x_bom_resource_rec.attribute3 := null;
789: ELSIF ( p_x_bom_resource_rec.attribute3 IS NULL ) THEN
790: p_x_bom_resource_rec.attribute3 := l_old_bom_resource_rec.attribute3;
791: END IF;
789: ELSIF ( p_x_bom_resource_rec.attribute3 IS NULL ) THEN
790: p_x_bom_resource_rec.attribute3 := l_old_bom_resource_rec.attribute3;
791: END IF;
792:
793: IF ( p_x_bom_resource_rec.attribute4 = FND_API.G_MISS_CHAR ) THEN
794: p_x_bom_resource_rec.attribute4 := null;
795: ELSIF ( p_x_bom_resource_rec.attribute4 IS NULL ) THEN
796: p_x_bom_resource_rec.attribute4 := l_old_bom_resource_rec.attribute4;
797: END IF;
795: ELSIF ( p_x_bom_resource_rec.attribute4 IS NULL ) THEN
796: p_x_bom_resource_rec.attribute4 := l_old_bom_resource_rec.attribute4;
797: END IF;
798:
799: IF ( p_x_bom_resource_rec.attribute5 = FND_API.G_MISS_CHAR ) THEN
800: p_x_bom_resource_rec.attribute5 := null;
801: ELSIF ( p_x_bom_resource_rec.attribute5 IS NULL ) THEN
802: p_x_bom_resource_rec.attribute5 := l_old_bom_resource_rec.attribute5;
803: END IF;
801: ELSIF ( p_x_bom_resource_rec.attribute5 IS NULL ) THEN
802: p_x_bom_resource_rec.attribute5 := l_old_bom_resource_rec.attribute5;
803: END IF;
804:
805: IF ( p_x_bom_resource_rec.attribute6 = FND_API.G_MISS_CHAR ) THEN
806: p_x_bom_resource_rec.attribute6 := null;
807: ELSIF ( p_x_bom_resource_rec.attribute6 IS NULL ) THEN
808: p_x_bom_resource_rec.attribute6 := l_old_bom_resource_rec.attribute6;
809: END IF;
807: ELSIF ( p_x_bom_resource_rec.attribute6 IS NULL ) THEN
808: p_x_bom_resource_rec.attribute6 := l_old_bom_resource_rec.attribute6;
809: END IF;
810:
811: IF ( p_x_bom_resource_rec.attribute7 = FND_API.G_MISS_CHAR ) THEN
812: p_x_bom_resource_rec.attribute7 := null;
813: ELSIF ( p_x_bom_resource_rec.attribute7 IS NULL ) THEN
814: p_x_bom_resource_rec.attribute7 := l_old_bom_resource_rec.attribute7;
815: END IF;
813: ELSIF ( p_x_bom_resource_rec.attribute7 IS NULL ) THEN
814: p_x_bom_resource_rec.attribute7 := l_old_bom_resource_rec.attribute7;
815: END IF;
816:
817: IF ( p_x_bom_resource_rec.attribute8 = FND_API.G_MISS_CHAR ) THEN
818: p_x_bom_resource_rec.attribute8 := null;
819: ELSIF ( p_x_bom_resource_rec.attribute8 IS NULL ) THEN
820: p_x_bom_resource_rec.attribute8 := l_old_bom_resource_rec.attribute8;
821: END IF;
819: ELSIF ( p_x_bom_resource_rec.attribute8 IS NULL ) THEN
820: p_x_bom_resource_rec.attribute8 := l_old_bom_resource_rec.attribute8;
821: END IF;
822:
823: IF ( p_x_bom_resource_rec.attribute9 = FND_API.G_MISS_CHAR ) THEN
824: p_x_bom_resource_rec.attribute9 := null;
825: ELSIF ( p_x_bom_resource_rec.attribute9 IS NULL ) THEN
826: p_x_bom_resource_rec.attribute9 := l_old_bom_resource_rec.attribute9;
827: END IF;
825: ELSIF ( p_x_bom_resource_rec.attribute9 IS NULL ) THEN
826: p_x_bom_resource_rec.attribute9 := l_old_bom_resource_rec.attribute9;
827: END IF;
828:
829: IF ( p_x_bom_resource_rec.attribute10 = FND_API.G_MISS_CHAR ) THEN
830: p_x_bom_resource_rec.attribute10 := null;
831: ELSIF ( p_x_bom_resource_rec.attribute10 IS NULL ) THEN
832: p_x_bom_resource_rec.attribute10 := l_old_bom_resource_rec.attribute10;
833: END IF;
831: ELSIF ( p_x_bom_resource_rec.attribute10 IS NULL ) THEN
832: p_x_bom_resource_rec.attribute10 := l_old_bom_resource_rec.attribute10;
833: END IF;
834:
835: IF ( p_x_bom_resource_rec.attribute11 = FND_API.G_MISS_CHAR ) THEN
836: p_x_bom_resource_rec.attribute11 := null;
837: ELSIF ( p_x_bom_resource_rec.attribute11 IS NULL ) THEN
838: p_x_bom_resource_rec.attribute11 := l_old_bom_resource_rec.attribute11;
839: END IF;
837: ELSIF ( p_x_bom_resource_rec.attribute11 IS NULL ) THEN
838: p_x_bom_resource_rec.attribute11 := l_old_bom_resource_rec.attribute11;
839: END IF;
840:
841: IF ( p_x_bom_resource_rec.attribute12 = FND_API.G_MISS_CHAR ) THEN
842: p_x_bom_resource_rec.attribute12 := null;
843: ELSIF ( p_x_bom_resource_rec.attribute12 IS NULL ) THEN
844: p_x_bom_resource_rec.attribute12 := l_old_bom_resource_rec.attribute12;
845: END IF;
843: ELSIF ( p_x_bom_resource_rec.attribute12 IS NULL ) THEN
844: p_x_bom_resource_rec.attribute12 := l_old_bom_resource_rec.attribute12;
845: END IF;
846:
847: IF ( p_x_bom_resource_rec.attribute13 = FND_API.G_MISS_CHAR ) THEN
848: p_x_bom_resource_rec.attribute13 := null;
849: ELSIF ( p_x_bom_resource_rec.attribute13 IS NULL ) THEN
850: p_x_bom_resource_rec.attribute13 := l_old_bom_resource_rec.attribute13;
851: END IF;
849: ELSIF ( p_x_bom_resource_rec.attribute13 IS NULL ) THEN
850: p_x_bom_resource_rec.attribute13 := l_old_bom_resource_rec.attribute13;
851: END IF;
852:
853: IF ( p_x_bom_resource_rec.attribute14 = FND_API.G_MISS_CHAR ) THEN
854: p_x_bom_resource_rec.attribute14 := null;
855: ELSIF ( p_x_bom_resource_rec.attribute14 IS NULL ) THEN
856: p_x_bom_resource_rec.attribute14 := l_old_bom_resource_rec.attribute14;
857: END IF;
855: ELSIF ( p_x_bom_resource_rec.attribute14 IS NULL ) THEN
856: p_x_bom_resource_rec.attribute14 := l_old_bom_resource_rec.attribute14;
857: END IF;
858:
859: IF ( p_x_bom_resource_rec.attribute15 = FND_API.G_MISS_CHAR ) THEN
860: p_x_bom_resource_rec.attribute15 := null;
861: ELSIF ( p_x_bom_resource_rec.attribute15 IS NULL ) THEN
862: p_x_bom_resource_rec.attribute15 := l_old_bom_resource_rec.attribute15;
863: END IF;
882: l_res_type NUMBER;
883: l_return_status VARCHAR2(1);
884:
885: BEGIN
886: l_return_status := FND_API.G_RET_STS_SUCCESS;
887: IF p_bom_resource_tbl.count > 0 THEN
888: FOR i IN p_bom_resource_tbl.FIRST..p_bom_resource_tbl.LAST LOOP
889: IF p_bom_resource_tbl(i).dml_operation <> 'D' THEN
890: OPEN get_bom_rec(p_bom_resource_tbl(i).bom_resource_id);
892: IF get_bom_rec%NOTFOUND THEN
893: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_INVALID_BOM_RES_REC' );
894: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
895: FND_MSG_PUB.add;
896: l_return_status := FND_API.G_RET_STS_ERROR;
897: ELSIF trunc(nvl(l_get_bom_rec.disable_date,sysdate))
899: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
900: FND_MSG_PUB.add;
897: ELSIF trunc(nvl(l_get_bom_rec.disable_date,sysdate))
899: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
900: FND_MSG_PUB.add;
901: l_return_status := FND_API.G_RET_STS_ERROR;
902: ELSIF (l_get_bom_rec.resource_type <> p_aso_resource_rec.resource_type_id
903: OR l_get_bom_rec.resource_type IS NULL) THEN
904: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RES_TYPE_NOT_MATCH' );
905: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
903: OR l_get_bom_rec.resource_type IS NULL) THEN
904: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RES_TYPE_NOT_MATCH' );
905: FND_MESSAGE.set_token( 'RECORD', p_bom_resource_tbl(i).bom_resource_code);
906: FND_MSG_PUB.add;
907: l_return_status := FND_API.G_RET_STS_ERROR;
908: END IF;
909: CLOSE get_bom_rec;
910: END IF;
911: END LOOP;
908: END IF;
909: CLOSE get_bom_rec;
910: END IF;
911: END LOOP;
912: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915: END IF;
916: END validate_bom_record;
909: CLOSE get_bom_rec;
910: END IF;
911: END LOOP;
912: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
913: RAISE FND_API.G_EXC_ERROR;
914: END IF;
915: END IF;
916: END validate_bom_record;
917:
940: IF ( get_dup_rec%FOUND ) THEN
941: CLOSE get_dup_rec;
942: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_ASO_RESOURCE_DUP' );
943: FND_MSG_PUB.add;
944: RAISE FND_API.G_EXC_ERROR;
945: ELSE
946: CLOSE get_dup_rec;
947: END IF;
948:
963: FND_MSG_PUB.add;
964: IF G_DEBUG = 'Y' THEN
965: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : Inside validate_records procedure');
966: END IF;
967: RAISE FND_API.G_EXC_ERROR;
968: END IF;
969: END validate_records;
970:
971: -- Procedure to perform cross records validation in details table after DML Operations
1115: IF l_dummy_num < 1 THEN
1116: CLOSE get_bom_res_num;
1117: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RES_COUNT_ZERO' );
1118: FND_MSG_PUB.add;
1119: RAISE FND_API.G_EXC_ERROR;
1120: END IF;
1121: CLOSE get_bom_res_num;
1122:
1123: --pekambar ER # 9014609 -- Start
1129: IF get_bom_res_org%FOUND THEN
1130: CLOSE get_bom_res_org;
1131: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MUL_BOM_RES_PER_ORG' );
1132: FND_MSG_PUB.add;
1133: RAISE FND_API.G_EXC_ERROR;
1134: END IF;
1135: CLOSE get_bom_res_org;
1136: */
1137:
1146: IF get_bom_res_org%FOUND THEN
1147: CLOSE get_bom_res_org;
1148: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MUL_BOM_RES_PER_ORG' );
1149: FND_MSG_PUB.add;
1150: RAISE FND_API.G_EXC_ERROR;
1151: END IF;
1152: CLOSE get_bom_res_org;
1153:
1154: --MANESING::ER 10631036, 03-Jan-11, added validation to associate only 1 BOM resource per dept. per organization
1158: IF get_bom_res_org_dept%FOUND THEN
1159: CLOSE get_bom_res_org_dept;
1160: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_MUL_BOM_RES_PER_DPT_ORG' );
1161: FND_MSG_PUB.add;
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164: CLOSE get_bom_res_org_dept;
1165: END IF;
1166:
1171: IF get_bom_res_dup%FOUND THEN
1172: CLOSE get_bom_res_dup;
1173: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_BOM_RESOURCE_DUP' );
1174: FND_MSG_PUB.add;
1175: RAISE FND_API.G_EXC_ERROR;
1176: END IF;
1177: CLOSE get_bom_res_dup;
1178:
1179: --Pekambar Relaxed the validation for ER # 9014609
1195: IF ( get_dept_conflicts%FOUND ) THEN
1196: CLOSE get_dept_conflicts;
1197: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_UPD_RES_CONFLICT' );
1198: FND_MSG_PUB.add;
1199: RAISE FND_API.G_EXC_ERROR;
1200: END IF;
1201: CLOSE get_dept_conflicts;
1202:
1203: --checking dept conflicts b/w the primary resource and alt resources of OTHER primary resources
1211: IF ( get_dept_conflicts_alt_res%FOUND ) THEN
1212: CLOSE get_dept_conflicts_alt_res;
1213: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_UPD_RES_CONFLICT' );
1214: FND_MSG_PUB.add;
1215: RAISE FND_API.G_EXC_ERROR;
1216: END IF;
1217: CLOSE get_dept_conflicts_alt_res;
1218: END LOOP;
1219: CLOSE get_rt_oper_res_ids;
1240: IF ( get_dept_conflicts_alt_pri%FOUND ) THEN
1241: CLOSE get_dept_conflicts_alt_pri;
1242: FND_MESSAGE.set_name( 'AHL', 'AHL_RM_UPD_RES_CONFLICT' );
1243: FND_MSG_PUB.add;
1244: RAISE FND_API.G_EXC_ERROR;
1245: END IF;
1246: CLOSE get_dept_conflicts_alt_pri;
1247:
1248: END LOOP;
1255:
1256: PROCEDURE process_aso_resource
1257: (
1258: p_api_version IN NUMBER := 1.0,
1259: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1262: p_default IN VARCHAR2 := FND_API.G_FALSE,
1263: p_module_type IN VARCHAR2 := NULL,
1256: PROCEDURE process_aso_resource
1257: (
1258: p_api_version IN NUMBER := 1.0,
1259: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1262: p_default IN VARCHAR2 := FND_API.G_FALSE,
1263: p_module_type IN VARCHAR2 := NULL,
1264: x_return_status OUT NOCOPY VARCHAR2,
1257: (
1258: p_api_version IN NUMBER := 1.0,
1259: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1262: p_default IN VARCHAR2 := FND_API.G_FALSE,
1263: p_module_type IN VARCHAR2 := NULL,
1264: x_return_status OUT NOCOPY VARCHAR2,
1265: x_msg_count OUT NOCOPY NUMBER,
1258: p_api_version IN NUMBER := 1.0,
1259: p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE,
1260: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1261: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1262: p_default IN VARCHAR2 := FND_API.G_FALSE,
1263: p_module_type IN VARCHAR2 := NULL,
1264: x_return_status OUT NOCOPY VARCHAR2,
1265: x_msg_count OUT NOCOPY NUMBER,
1266: x_msg_data OUT NOCOPY VARCHAR2,
1280: WHERE aso_resource_id = c_resource_id;
1281:
1282: BEGIN
1283: -- Initialize API return status to success
1284: x_return_status := FND_API.G_RET_STS_SUCCESS;
1285:
1286: -- Standard Start of API savepoint
1287: SAVEPOINT process_aso_resource_pvt;
1288:
1286: -- Standard Start of API savepoint
1287: SAVEPOINT process_aso_resource_pvt;
1288:
1289: -- Standard call to check for call compatibility.
1290: IF NOT FND_API.compatible_api_call
1291: (
1292: l_api_version,
1293: p_api_version,
1294: G_API_NAME,
1294: G_API_NAME,
1295: G_PKG_NAME
1296: )
1297: THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300:
1301: -- Initialize message list if p_init_msg_list is set to TRUE.
1302: IF FND_API.to_boolean( p_init_msg_list ) THEN
1298: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1299: END IF;
1300:
1301: -- Initialize message list if p_init_msg_list is set to TRUE.
1302: IF FND_API.to_boolean( p_init_msg_list ) THEN
1303: FND_MSG_PUB.initialize;
1304: END IF;
1305:
1306: IF G_DEBUG = 'Y' THEN
1328: );
1329: END IF;
1330:
1331: -- Convert Values into Ids.
1332: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1333: convert_values_to_ids
1334: (
1335: p_x_aso_resource_rec => p_x_aso_resource_rec,
1336: p_x_bom_resource_tbl => p_x_bom_resource_tbl
1341: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after convert_values_to_ids' );
1342: END IF;
1343:
1344: -- Default aso_resource attributes.
1345: IF FND_API.to_boolean( p_default ) THEN
1346: IF ( p_x_aso_resource_rec.dml_operation <> 'D' ) THEN
1347: default_attributes
1348: (
1349: p_x_aso_resource_rec,
1356: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after default_attributes' );
1357: END IF;
1358:
1359: -- Validate all attributes (Item level validation)
1360: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1361: validate_attributes
1362: (
1363: p_x_aso_resource_rec,
1364: p_x_bom_resource_tbl
1404: AHL_DEBUG_PUB.debug( G_PKG_NAME || '.' || G_API_NAME || ' : after default_unchanged_attributes / default_missing_attributes' );
1405: END IF;
1406:
1407: -- Validate records (Across records validation)
1408: IF ( p_validation_level = FND_API.G_VALID_LEVEL_FULL ) THEN
1409: IF p_x_bom_resource_tbl.count > 0 THEN
1410: validate_bom_record
1411: (
1412: p_x_aso_resource_rec,
1754: -- Get all the error messages from the previous steps (if any) and raise the appropriate Exception
1755: l_msg_count := FND_MSG_PUB.count_msg;
1756: IF l_msg_count > 0 THEN
1757: x_msg_count := l_msg_count;
1758: RAISE FND_API.G_EXC_ERROR;
1759: END IF;
1760:
1761: -- Perform the Commit (if requested)
1762: IF FND_API.to_boolean( p_commit ) THEN
1758: RAISE FND_API.G_EXC_ERROR;
1759: END IF;
1760:
1761: -- Perform the Commit (if requested)
1762: IF FND_API.to_boolean( p_commit ) THEN
1763: COMMIT WORK;
1764: END IF;
1765:
1766: -- Count and Get messages (optional)
1765:
1766: -- Count and Get messages (optional)
1767: FND_MSG_PUB.count_and_get
1768: (
1769: p_encoded => FND_API.G_FALSE,
1770: p_count => x_msg_count,
1771: p_data => x_msg_data
1772: );
1773:
1775: IF G_DEBUG = 'Y' THEN
1776: AHL_DEBUG_PUB.disable_debug;
1777: END IF;
1778: EXCEPTION
1779: WHEN FND_API.G_EXC_ERROR THEN
1780: ROLLBACK TO PROCESS_ASO_RESOURCE_PVT;
1781: x_return_status := FND_API.G_RET_STS_ERROR ;
1782: FND_MSG_PUB.count_and_get
1783: (
1777: END IF;
1778: EXCEPTION
1779: WHEN FND_API.G_EXC_ERROR THEN
1780: ROLLBACK TO PROCESS_ASO_RESOURCE_PVT;
1781: x_return_status := FND_API.G_RET_STS_ERROR ;
1782: FND_MSG_PUB.count_and_get
1783: (
1784: p_encoded => FND_API.G_FALSE,
1785: p_count => x_msg_count,
1780: ROLLBACK TO PROCESS_ASO_RESOURCE_PVT;
1781: x_return_status := FND_API.G_RET_STS_ERROR ;
1782: FND_MSG_PUB.count_and_get
1783: (
1784: p_encoded => FND_API.G_FALSE,
1785: p_count => x_msg_count,
1786: p_data => x_msg_data
1787: );
1788: -- Disable debug (if enabled)
1789: IF G_DEBUG = 'Y' THEN
1790: AHL_DEBUG_PUB.disable_debug;
1791: END IF;
1792:
1793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1794: ROLLBACK TO process_aso_resource_PVT;
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1796: FND_MSG_PUB.count_and_get
1797: (
1791: END IF;
1792:
1793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1794: ROLLBACK TO process_aso_resource_PVT;
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1796: FND_MSG_PUB.count_and_get
1797: (
1798: p_encoded => FND_API.G_FALSE,
1799: p_count => x_msg_count,
1794: ROLLBACK TO process_aso_resource_PVT;
1795: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1796: FND_MSG_PUB.count_and_get
1797: (
1798: p_encoded => FND_API.G_FALSE,
1799: p_count => x_msg_count,
1800: p_data => x_msg_data
1801: );
1802:
1806: END IF;
1807:
1808: WHEN OTHERS THEN
1809: ROLLBACK TO process_aso_resource_PVT;
1810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1811: IF FND_MSG_PUB.check_msg_level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1812: THEN
1813: FND_MSG_PUB.add_exc_msg
1814: (
1818: );
1819: END IF;
1820: FND_MSG_PUB.count_and_get
1821: (
1822: p_encoded => FND_API.G_FALSE,
1823: p_count => x_msg_count,
1824: p_data => x_msg_data
1825: );
1826: