[Home] [Help]
47:
48: /*Defaulting occurs for each MISSING attribute.
49: Attributes that are not explicitly passed by the user and therefore, retain the values
50: on the initialized record are defined as MISSING attributes. For e.g. all the number
51: fields on the entity records are initialized to the value FND_API.G_MISS_NUM and
52: thus, all number fields with this value are MISSING attributes.
53: */
54:
55: FUNCTION Check_For_Miss ( p_param IN NUMBER ) RETURN NUMBER ;
117: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_cost_flag_checked';
118:
119: BEGIN
120:
121: x_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: FOR v_transaction_type_id IN c_transaction_type_id LOOP
124: lv_exists_flag := 'Y';
125: END LOOP;
128:
129: EXCEPTION
130:
131: WHEN OTHERS THEN
132: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
133: RETURN lv_exists_flag;
134:
135: END IS_COST_FLAG_CHECKED;
136:
155: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_charge_line_type_valid';
156:
157: BEGIN
158:
159: x_return_status := FND_API.G_RET_STS_SUCCESS;
160:
161: FOR v_charge_line_type IN c_charge_line_type(p_charge_line_type)
162: LOOP
163: IF v_charge_line_type.lookup_code ='ACTUAL' then
173: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
174: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
175: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
176: FND_MSG_PUB.add;
177: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
178: RETURN lv_exists_flag;
179:
180: END IS_CHARGE_LINE_TYPE_VALID;
181:
199: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_incident_id_valid';
200:
201: BEGIN
202:
203: x_return_status := FND_API.G_RET_STS_SUCCESS;
204:
205: OPEN c_incident;
206: FETCH c_incident INTO lv_exists_flag;
207: CLOSE c_incident;
215: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
216: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
217: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
218: FND_MSG_PUB.add;
219: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
220: RETURN lv_exists_flag;
221:
222: END IS_INCIDENT_ID_VALID;
223:
239: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_estimate_detail_id_valid';
240:
241: BEGIN
242:
243: x_return_status := FND_API.G_RET_STS_SUCCESS;
244:
245: FOR v_estimate_detail_id IN c_estimate_detail_id
246: LOOP
247: lv_exists_flag := 'Y';
257: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
258: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
259: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
260: FND_MSG_PUB.add;
261: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
262: RETURN lv_exists_flag;
263:
264: END IS_ESTIMATE_DETAIL_ID_VALID;
265:
296: l_ERRM VARCHAR2(100);
297:
298: BEGIN
299:
300: x_return_status := FND_API.G_RET_STS_SUCCESS;
301:
302:
303: -- THe 3 valid source codes are 'SR'(Estimate_Detail_id)
304: -- 'SD'(Debrief_Line_Id)
316: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_SOURCE');
317: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
318: FND_MESSAGE.SET_TOKEN('SOURCE_ID', p_source_id);
319: FND_MSG_PUB.Add;
320: RAISE FND_API.G_EXC_ERROR;
321:
322: END IF;
323:
324: ELSE
323:
324: ELSE
325: -- source_id cannot be cannot be null
326: Add_Null_Parameter_Msg(p_api_name, 'p_source_id');
327: RAISE FND_API.G_EXC_ERROR;
328: END IF ;
329:
330: ELSIF p_source_code = 'DR' THEN
331: IF p_source_id IS NOT NULL THEN
334: x_source_id := p_source_id;
335: END LOOP;
336:
337: IF lv_exists_flag <> 'Y' THEN
338: --RAISE FND_API.G_EXC_ERROR;
339: --null;
340: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_SOURCE');
341: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
342: FND_MESSAGE.SET_TOKEN('SOURCE_ID', p_source_id);
340: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_SOURCE');
341: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
342: FND_MESSAGE.SET_TOKEN('SOURCE_ID', p_source_id);
343: FND_MSG_PUB.Add;
344: RAISE FND_API.G_EXC_ERROR;
345: END IF;
346:
347: ELSE
348: -- source_id cannot be cannot be null
346:
347: ELSE
348: -- source_id cannot be cannot be null
349: Add_Null_Parameter_Msg(p_api_name, 'p_source_id');
350: RAISE FND_API.G_EXC_ERROR;
351: END IF ;
352:
353: ELSIF p_source_code = 'SD' THEN
354: IF p_source_id IS NOT NULL THEN
357: x_source_id := p_source_id;
358: END LOOP;
359:
360: IF lv_exists_flag <> 'Y' THEN
361: --RAISE FND_API.G_EXC_ERROR;
362: --null;
363: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_SOURCE');
364: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
365: FND_MESSAGE.SET_TOKEN('SOURCE_ID', p_source_id);
363: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_SOURCE');
364: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
365: FND_MESSAGE.SET_TOKEN('SOURCE_ID', p_source_id);
366: FND_MSG_PUB.Add;
367: RAISE FND_API.G_EXC_ERROR;
368: END IF;
369:
370: ELSE
371: -- raise error as source_id cannot be cannot be null
369:
370: ELSE
371: -- raise error as source_id cannot be cannot be null
372: Add_Null_Parameter_Msg(p_api_name, 'p_source_id');
373: RAISE FND_API.G_EXC_ERROR;
374: END IF ;
375:
376:
377: ELSE
380: p_token_an => p_api_name,
381: p_token_v => p_source_code,
382: p_token_p => 'p_source_code');
383:
384: RAISE FND_API.G_EXC_ERROR;
385: END IF ;
386:
387: EXCEPTION
388:
385: END IF ;
386:
387: EXCEPTION
388:
389: WHEN FND_API.G_EXC_ERROR THEN
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: fnd_msg_pub.count_and_get(p_count => x_msg_count
392: ,p_data => x_msg_data);
393:
386:
387: EXCEPTION
388:
389: WHEN FND_API.G_EXC_ERROR THEN
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: fnd_msg_pub.count_and_get(p_count => x_msg_count
392: ,p_data => x_msg_data);
393:
394: WHEN NO_DATA_FOUND THEN
391: fnd_msg_pub.count_and_get(p_count => x_msg_count
392: ,p_data => x_msg_data);
393:
394: WHEN NO_DATA_FOUND THEN
395: x_return_status := FND_API.G_RET_STS_ERROR;
396: IF p_source_id IS NOT NULL THEN
397: Add_Invalid_Argument_Msg
398: (p_token_an => p_api_name,
399: p_token_v => p_source_id,
400: p_token_p => 'p_source_id');
401: END IF ;
402:
403: WHEN OTHERS THEN
404: x_return_status := FND_API.G_RET_STS_ERROR;
405: FND_MESSAGE.Set_Name('CS', 'CS_CHG_INVALID_SOURCE');
406: FND_MESSAGE.SET_TOKEN('SOURCE_CODE', p_source_code);
407: FND_MESSAGE.SET_TOKEN('SOURCE_ID', p_source_id);
408: FND_MSG_PUB.Add;
436: lv_exists_flag := 'Y';
437: END LOOP;
438:
439: IF lv_exists_flag = 'Y' THEN
440: x_return_status := FND_API.G_RET_STS_SUCCESS ;
441: ELSE
442: raise NO_DATA_FOUND;
443: END IF;
444:
453: fnd_msg_pub.count_and_get(
454: p_count => x_msg_count
455: ,p_data => x_msg_data);
456:
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458:
459: WHEN OTHERS THEN
460: x_return_status := FND_API.G_RET_STS_ERROR ;
461:
456:
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458:
459: WHEN OTHERS THEN
460: x_return_status := FND_API.G_RET_STS_ERROR ;
461:
462: END VALIDATE_ORG_ID;
463:
464: --===============================
482: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_item_valid';
483:
484: BEGIN
485:
486: x_return_status := FND_API.G_RET_STS_SUCCESS;
487: FOR v_inventory_item_id IN c_inventory_item_id LOOP
488: lv_exists_flag := 'Y';
489: END LOOP;
490: RETURN lv_exists_flag;
497: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
498: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
499: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
500: FND_MSG_PUB.add;
501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
502: RETURN lv_exists_flag;
503:
504: END IS_ITEM_VALID;
505:
534: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_txn_inv_org_valid';
535:
536: BEGIN
537:
538: x_return_status := FND_API.G_RET_STS_SUCCESS;
539:
540: FOR v_oper_unit_for_inv_org IN c_oper_unit_for_inv_org (p_txn_inv_org)
541: LOOP
542: IF v_oper_unit_for_inv_org.OPERATING_UNIT = p_org_id THEN
555: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
556: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
557: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
558: FND_MSG_PUB.add;
559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
560: RETURN lv_exists_flag;
561: END;
562:
563: --===============================
586:
587: BEGIN
588:
589: -- Initialize API return status to success
590: x_return_status := FND_API.G_RET_STS_SUCCESS;
591: FOR v_primary_uom IN c_primary_uom(P_INVentory_item_ID)
592: LOOP
593: lv_exists_flag := 'Y';
594: x_primary_uom := v_primary_uom.uom_code;
601: FND_MESSAGE.Set_Name('CS', 'CS_CHG_GET_UOM_FAILED');
602: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
603: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', cs_std.get_item_valdn_orgzn_id);
604: FND_MSG_PUB.add;
605: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
606:
607: END GET_PRIMARY_UOM;
608:
609: --===============================
629: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_uom_valid';
630:
631: BEGIN
632:
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
634:
635: FOR v_uom_code IN c_uom_code(p_uom_code,p_inv_id)
636: LOOP
637: lv_exists_flag := 'Y';
645: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
646: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
647: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
648: FND_MSG_PUB.add;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
650: RETURN lv_exists_flag;
651: END;
652:
653: --===============================
672: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'get_currency_code';
673:
674: BEGIN
675: -- Initialize API return status to success
676: x_return_status := FND_API.G_RET_STS_SUCCESS;
677:
678: FOR v_currency_code IN c_currency_code
679: LOOP
680: lv_exists_flag := 'Y';
686: WHEN OTHERS THEN
687:
688: FND_MESSAGE.Set_Name('CS', 'CS_COST_GET_CURRENCY_FAILED');
689: FND_MSG_PUB.add;
690: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
691:
692: END GET_CURRENCY_CODE;
693:
694: --===============================
711: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_currency_code_valid';
712:
713: BEGIN
714:
715: x_return_status := FND_API.G_RET_STS_SUCCESS;
716:
717: FOR v_currency_code IN c_currency_code
718: LOOP
719: lv_exists_flag := 'Y';
728: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
729: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
730: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
731: FND_MSG_PUB.add;
732: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
733: RETURN lv_exists_flag;
734:
735: END IS_CURRENCY_CODE_VALID;
736:
752: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'is_cost_id_valid';
753:
754: BEGIN
755:
756: x_return_status := FND_API.G_RET_STS_SUCCESS;
757:
758: FOR v_cost_id IN c_cost_id
759: LOOP
760: lv_exists_flag := 'Y';
769: FND_MESSAGE.SET_TOKEN(token => G_PROG_NAME_TOKEN, value => l_prog_name);
770: FND_MESSAGE.SET_TOKEN(token => G_SQLCODE_TOKEN, value => SQLCODE);
771: FND_MESSAGE.SET_TOKEN(token => G_SQLERRM_TOKEN, value => SQLERRM);
772: FND_MSG_PUB.add;
773: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
774: RETURN lv_exists_flag;
775:
776: END IS_COST_ID_VALID;
777:
799: lv_exists_flag := 'Y';
800: END LOOP;
801:
802: IF lv_exists_flag = 'Y' THEN
803: x_return_status := FND_API.G_RET_STS_SUCCESS ;
804: ELSE
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: RAISE NO_DATA_FOUND;
807: END IF;
801:
802: IF lv_exists_flag = 'Y' THEN
803: x_return_status := FND_API.G_RET_STS_SUCCESS ;
804: ELSE
805: x_return_status := FND_API.G_RET_STS_ERROR;
806: RAISE NO_DATA_FOUND;
807: END IF;
808:
809: EXCEPTION
808:
809: EXCEPTION
810:
811: WHEN NO_DATA_FOUND THEN
812: x_return_status := FND_API.G_RET_STS_ERROR;
813:
814: WHEN OTHERS THEN
815: x_return_status := FND_API.G_RET_STS_ERROR ;
816:
811: WHEN NO_DATA_FOUND THEN
812: x_return_status := FND_API.G_RET_STS_ERROR;
813:
814: WHEN OTHERS THEN
815: x_return_status := FND_API.G_RET_STS_ERROR ;
816:
817: END VALIDATE_BUSINESS_PROCESS;
818:
819: --===============================
841: lv_exists_flag := 'Y';
842: END LOOP;
843:
844: IF lv_exists_flag = 'Y' THEN
845: x_return_status := FND_API.G_RET_STS_SUCCESS ;
846: ELSE
847: x_return_status := FND_API.G_RET_STS_ERROR;
848: RAISE NO_DATA_FOUND;
849: END IF;
843:
844: IF lv_exists_flag = 'Y' THEN
845: x_return_status := FND_API.G_RET_STS_SUCCESS ;
846: ELSE
847: x_return_status := FND_API.G_RET_STS_ERROR;
848: RAISE NO_DATA_FOUND;
849: END IF;
850:
851: EXCEPTION
850:
851: EXCEPTION
852:
853: WHEN NO_DATA_FOUND THEN
854: x_return_status := FND_API.G_RET_STS_ERROR;
855:
856: WHEN OTHERS THEN
857: x_return_status := FND_API.G_RET_STS_ERROR ;
858:
853: WHEN NO_DATA_FOUND THEN
854: x_return_status := FND_API.G_RET_STS_ERROR;
855:
856: WHEN OTHERS THEN
857: x_return_status := FND_API.G_RET_STS_ERROR ;
858:
859: END VALIDATE_OPERATING_UNIT;
860:
861: --===============================
885: x_line_order_category_code:=v_transaction_type_id.line_order_category_code;
886: END LOOP;
887:
888: IF lv_exists_flag = 'Y' THEN
889: x_return_status := FND_API.G_RET_STS_SUCCESS ;
890: ELSE
891: RAISE NO_DATA_FOUND;
892: END IF;
893:
902: fnd_msg_pub.count_and_get(
903: p_count => x_msg_count
904: ,p_data => x_msg_data);
905:
906: x_return_status := FND_API.G_RET_STS_ERROR ;
907:
908: WHEN OTHERS THEN
909: x_return_status := FND_API.G_RET_STS_ERROR ;
910:
905:
906: x_return_status := FND_API.G_RET_STS_ERROR ;
907:
908: WHEN OTHERS THEN
909: x_return_status := FND_API.G_RET_STS_ERROR ;
910:
911: END VALIDATE_transaction_type_id;
912:
913: --===============================
963:
964: EXCEPTION
965:
966: WHEN OTHERS THEN
967: x_return_status := FND_API.G_RET_STS_ERROR ;
968:
969: END Get_Item_from_Profile;
970:
971: --===============================
979: x_msg_count OUT NOCOPY NUMBER,
980: x_return_status OUT NOCOPY VARCHAR2) IS
981: BEGIN
982:
983: x_return_status := FND_API.G_RET_STS_SUCCESS ;
984:
985: SELECT *
986: INTO x_cost_detail_rec
987: FROM CS_COST_DETAILS
990:
991: EXCEPTION
992:
993: WHEN NO_DATA_FOUND THEN
994: x_return_status := FND_API.G_RET_STS_ERROR;
995: CS_COST_DETAILS_PVT.Add_Invalid_Argument_Msg(
996: p_token_an => p_api_name,
997: p_token_v => to_char(p_cost_id) ,
998: p_token_p => 'p_cost_id') ;
1000: p_count => x_msg_count
1001: ,p_data => x_msg_data);
1002:
1003: WHEN RECORD_LOCK_EXCEPTION THEN
1004: x_return_status := FND_API.G_RET_STS_ERROR ;
1005: CS_cost_Details_PVT.Record_Is_Locked_Msg(
1006: p_token_an => p_api_name);
1007:
1008: WHEN OTHERS THEN
1005: CS_cost_Details_PVT.Record_Is_Locked_Msg(
1006: p_token_an => p_api_name);
1007:
1008: WHEN OTHERS THEN
1009: x_return_status := FND_API.G_RET_STS_ERROR;
1010: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_COST_FAILED');
1011: FND_MESSAGE.SET_TOKEN('API_NAME', p_api_name);
1012: FND_MSG_PUB.add;
1013: fnd_msg_pub.count_and_get(
1053: AND csinall.incident_id = p_incident_id;
1054:
1055: BEGIN
1056:
1057: IF p_transaction_type_id is not null and p_transaction_type_id <> fnd_api.g_miss_num
1058: THEN
1059: OPEN sac_flags ;
1060: FETCH sac_flags
1061: INTO x_create_charge_flag ,x_create_cost_flag;
1064: --Add null argument error
1065: Add_Invalid_Argument_Msg(p_token_an => p_api_name,
1066: p_token_v => TO_CHAR(p_incident_id),
1067: p_token_p => 'p_transaction_type_id');
1068: RAISE FND_API.G_EXC_ERROR;
1069: END IF;
1070: CLOSE sac_flags;
1071: ELSE
1072: x_create_charge_flag :='Y';
1081: CLOSE c_charge_flags;
1082: Add_Invalid_Argument_Msg(p_token_an => p_api_name,
1083: p_token_v => TO_CHAR(p_incident_id),
1084: p_token_p => 'p_incident_id');
1085: RAISE FND_API.G_EXC_ERROR;
1086: END IF;
1087: CLOSE c_charge_flags;
1088: END;
1089:
1110: x_return_status OUT NOCOPY VARCHAR2) IS
1111:
1112: BEGIN
1113:
1114: x_return_status := FND_API.G_RET_STS_SUCCESS ;
1115:
1116: SELECT incident_id ,
1117: transaction_type_id ,
1118: txn_billing_type_id ,
1145: WHEN NO_DATA_FOUND THEN
1146: Add_Invalid_Argument_Msg(p_token_an => p_api_name,
1147: p_token_v => to_char(p_estimate_detail_id) ,
1148: p_token_p => 'estimate_detail_id' ) ;
1149: RAISE FND_API.G_EXC_ERROR;
1150:
1151: WHEN RECORD_LOCK_EXCEPTION THEN
1152: x_return_status := FND_API.G_RET_STS_ERROR ;
1153: CS_cost_Details_PVT.Record_Is_Locked_Msg(
1148: p_token_p => 'estimate_detail_id' ) ;
1149: RAISE FND_API.G_EXC_ERROR;
1150:
1151: WHEN RECORD_LOCK_EXCEPTION THEN
1152: x_return_status := FND_API.G_RET_STS_ERROR ;
1153: CS_cost_Details_PVT.Record_Is_Locked_Msg(
1154: p_token_an => p_api_name);
1155: RAISE FND_API.G_EXC_ERROR;
1156:
1151: WHEN RECORD_LOCK_EXCEPTION THEN
1152: x_return_status := FND_API.G_RET_STS_ERROR ;
1153: CS_cost_Details_PVT.Record_Is_Locked_Msg(
1154: p_token_an => p_api_name);
1155: RAISE FND_API.G_EXC_ERROR;
1156:
1157: WHEN OTHERS THEN
1158: x_return_status := FND_API.G_RET_STS_ERROR;
1159: FND_MESSAGE.SET_NAME('CS', 'CS_CHG_GET_CHARGE_FAILED');
1154: p_token_an => p_api_name);
1155: RAISE FND_API.G_EXC_ERROR;
1156:
1157: WHEN OTHERS THEN
1158: x_return_status := FND_API.G_RET_STS_ERROR;
1159: FND_MESSAGE.SET_NAME('CS', 'CS_CHG_GET_CHARGE_FAILED');
1160: FND_MESSAGE.SET_TOKEN('API_NAME', p_api_name);
1161: FND_MSG_PUB.add;
1162: fnd_msg_pub.count_and_get(p_count => x_msg_count,p_data => x_msg_data);
1186:
1187: BEGIN
1188:
1189: -- Initialize API return status to success
1190: x_return_status := FND_API.G_RET_STS_SUCCESS;
1191: FOR v_get_sr_org IN c_get_sr_org(p_incident_id)
1192: LOOP
1193: x_org_id:=v_get_sr_org.org_id;
1194: x_inv_organization_id:= v_get_sr_org.inv_organization_id;
1215: l_exist_cost_id NUMBER;
1216:
1217: BEGIN
1218:
1219: x_return_status := FND_API.G_RET_STS_SUCCESS;
1220:
1221: SELECT cost_id
1222: INTO l_exist_cost_id
1223: FROM CS_cost_details
1232: EXCEPTION
1233:
1234: WHEN RECORD_LOCK_EXCEPTION THEN
1235:
1236: x_return_status := FND_API.G_RET_STS_ERROR ;
1237: CS_cost_Details_PVT.Record_Is_Locked_Msg(
1238: p_token_an => p_api_name);
1239: RAISE FND_API.G_EXC_ERROR;
1240:
1235:
1236: x_return_status := FND_API.G_RET_STS_ERROR ;
1237: CS_cost_Details_PVT.Record_Is_Locked_Msg(
1238: p_token_an => p_api_name);
1239: RAISE FND_API.G_EXC_ERROR;
1240:
1241: WHEN OTHERS THEN
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: RETURN lv_exists_flag;
1238: p_token_an => p_api_name);
1239: RAISE FND_API.G_EXC_ERROR;
1240:
1241: WHEN OTHERS THEN
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1243: RETURN lv_exists_flag;
1244:
1245: END Do_Cost_Line_Exist ;
1246:
1258: l_prog_name CONSTANT VARCHAR2(61) := G_PKG_NAME||'.'||'do_charge_line_exist';
1259:
1260: BEGIN
1261:
1262: x_return_status := FND_API.G_RET_STS_SUCCESS;
1263:
1264: SELECT ced.estimate_detail_id
1265: INTO l_charge_exist
1266: FROM CS_cost_details csd,cs_estimate_details ced
1307: lv_exists_flag VARCHAR2(1) := 'N';
1308:
1309: BEGIN
1310: -- Initialize API return status to success
1311: x_return_status := FND_API.G_RET_STS_SUCCESS;
1312:
1313: FOR v_txn_billing_type IN c_txn_billing_type(p_inv_id,p_txn_type_id)
1314: LOOP
1315: x_txn_billing_type_id := v_txn_billing_type.txn_billing_type_id;
1320: FND_MESSAGE.Set_Name('CS', 'CS_CHG_ITM_BILL_TYP_NOT_IN_TXN');
1321: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inv_id);
1322: FND_MESSAGE.SET_TOKEN('TXN_TYPE_ID', p_txn_type_id);
1323: FND_MSG_PUB.Add;
1324: RAISE FND_API.G_EXC_ERROR;
1325: END IF;
1326:
1327: EXCEPTION
1328:
1325: END IF;
1326:
1327: EXCEPTION
1328:
1329: WHEN FND_API.G_EXC_ERROR THEN
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1331: fnd_msg_pub.count_and_get(
1332: p_count => x_msg_count
1333: ,p_data => x_msg_data);
1326:
1327: EXCEPTION
1328:
1329: WHEN FND_API.G_EXC_ERROR THEN
1330: x_return_status := FND_API.G_RET_STS_ERROR;
1331: fnd_msg_pub.count_and_get(
1332: p_count => x_msg_count
1333: ,p_data => x_msg_data);
1334:
1332: p_count => x_msg_count
1333: ,p_data => x_msg_data);
1334:
1335: WHEN OTHERS THEN
1336: x_return_status := FND_API.G_RET_STS_ERROR;
1337: FND_MESSAGE.Set_Name('CS', 'CS_CHG_ITM_BILL_TYP_NOT_IN_TXN');
1338: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inv_id);
1339: FND_MESSAGE.SET_TOKEN('TXN_TYPE_ID', p_txn_type_id);
1340: FND_MSG_PUB.Add;
1357:
1358: PROCEDURE Create_cost_details
1359: (
1360: p_api_version IN NUMBER,
1361: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1362: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1363: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1364: x_return_status OUT NOCOPY VARCHAR2,
1365: x_msg_count OUT NOCOPY NUMBER,
1358: PROCEDURE Create_cost_details
1359: (
1360: p_api_version IN NUMBER,
1361: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1362: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1363: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1364: x_return_status OUT NOCOPY VARCHAR2,
1365: x_msg_count OUT NOCOPY NUMBER,
1366: x_object_version_number OUT NOCOPY NUMBER,
1359: (
1360: p_api_version IN NUMBER,
1361: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1362: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1363: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1364: x_return_status OUT NOCOPY VARCHAR2,
1365: x_msg_count OUT NOCOPY NUMBER,
1366: x_object_version_number OUT NOCOPY NUMBER,
1367: x_msg_data OUT NOCOPY VARCHAR2,
1369: p_resp_appl_id IN NUMBER := FND_GLOBAL.RESP_APPL_ID,
1370: p_resp_id IN NUMBER := FND_GLOBAL.RESP_ID,
1371: p_user_id IN NUMBER := FND_GLOBAL.USER_ID,
1372: p_login_id IN NUMBER := FND_GLOBAL.LOGIN_ID,
1373: p_transaction_control IN VARCHAR2 := FND_API.G_TRUE,
1374: p_cost_rec IN CS_Cost_Details_PUB.Cost_Rec_Type,
1375: p_cost_creation_override IN VARCHAR2:='N'
1376: ) IS
1377:
1419:
1420:
1421: BEGIN
1422: -- Standard start of API savepoint
1423: IF FND_API.To_Boolean(p_transaction_control) THEN
1424: SAVEPOINT Create_Cost_Details_PVT;
1425: END IF ;
1426: -- Standard call to check for call compatibility
1427: IF NOT FND_API.Compatible_API_Call(l_api_version,
1423: IF FND_API.To_Boolean(p_transaction_control) THEN
1424: SAVEPOINT Create_Cost_Details_PVT;
1425: END IF ;
1426: -- Standard call to check for call compatibility
1427: IF NOT FND_API.Compatible_API_Call(l_api_version,
1428: p_api_version,
1429: l_api_name,
1430: G_PKG_NAME) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1427: IF NOT FND_API.Compatible_API_Call(l_api_version,
1428: p_api_version,
1429: l_api_name,
1430: G_PKG_NAME) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433: -- Initialize message list if p_init_msg_list is set to TRUE
1434: IF FND_API.To_Boolean(p_init_msg_list) THEN
1435: FND_MSG_PUB.Initialize;
1430: G_PKG_NAME) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433: -- Initialize message list if p_init_msg_list is set to TRUE
1434: IF FND_API.To_Boolean(p_init_msg_list) THEN
1435: FND_MSG_PUB.Initialize;
1436: END IF;
1437: -- Initialize API return status to success
1438: x_return_status := FND_API.G_RET_STS_SUCCESS;
1434: IF FND_API.To_Boolean(p_init_msg_list) THEN
1435: FND_MSG_PUB.Initialize;
1436: END IF;
1437: -- Initialize API return status to success
1438: x_return_status := FND_API.G_RET_STS_SUCCESS;
1439:
1440: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
1441: THEN
1442: FND_LOG.String
1505: );
1506:
1507: END IF;
1508:
1509: --Convert the IN Parameters from FND_API.G_MISS_XXXX to NULL
1510: --if no value is passed then return NULL otherwise return the value passed
1511:
1512: TO_NULL (p_cost_Rec, l_cost_Rec) ;
1513:
1535:
1536: if lv_cost_id is not null then
1537: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CHARGE_EXIST');
1538: FND_MSG_PUB.ADD;
1539: RAISE FND_API.G_EXC_ERROR;
1540: end if;
1541:
1542: --call get_charge_details to get the data from cs_estimate_details table
1543: get_charge_details
1598: If l_create_charge_flag ='N' and l_create_cost_flag = 'Y' then
1599: if l_disallow_request_update='Y' THEN
1600: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_INSERT');
1601: FND_MSG_PUB.ADD;
1602: RAISE FND_API.G_EXC_ERROR;
1603: end if;
1604:
1605: Else
1606: if l_disallow_new_charge = 'Y' OR l_disallow_request_update='Y' THEN
1605: Else
1606: if l_disallow_new_charge = 'Y' OR l_disallow_request_update='Y' THEN
1607: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_INSERT');
1608: FND_MSG_PUB.ADD;
1609: RAISE FND_API.G_EXC_ERROR;
1610: end if;
1611: end if;
1612: --end Bug 6972425
1613:
1645: x_msg_count => l_msg_count,
1646: x_return_status => l_return_status
1647: ) ;
1648:
1649: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1650: RAISE FND_API.G_EXC_ERROR ;
1651: Else
1652: l_valid_check := IS_COST_FLAG_CHECKED
1653: (p_transaction_type_id => l_transaction_type_id,
1646: x_return_status => l_return_status
1647: ) ;
1648:
1649: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
1650: RAISE FND_API.G_EXC_ERROR ;
1651: Else
1652: l_valid_check := IS_COST_FLAG_CHECKED
1653: (p_transaction_type_id => l_transaction_type_id,
1654: x_msg_data => l_msg_data,
1666: x_msg_count => l_msg_count,
1667: x_return_status => l_return_status
1668: ) ;
1669:
1670: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1671: FND_MESSAGE.SET_NAME('CS', 'CS_COST_INVALID_BUS_PROCESS');
1672: FND_MSG_PUB.ADD;
1673: RAISE FND_API.G_EXC_ERROR;
1674: END IF;
1669:
1670: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1671: FND_MESSAGE.SET_NAME('CS', 'CS_COST_INVALID_BUS_PROCESS');
1672: FND_MSG_PUB.ADD;
1673: RAISE FND_API.G_EXC_ERROR;
1674: END IF;
1675: Else
1676: FND_MESSAGE.SET_NAME('CS', 'CS_COST_INVALID_COST_FLAG');
1677: FND_MSG_PUB.ADD;
1680: end if;
1681: else -- transaction_type_id is null
1682: Add_Null_Parameter_Msg(l_api_name,
1683: 'p_transaction_type_id') ;
1684: RAISE FND_API.G_EXC_ERROR;
1685: end if;
1686: END IF;--p_cost_creation_overrid
1687:
1688:
1708: x_return_status => l_return_status
1709: );
1710:
1711: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = G_RET_STS_ERROR THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716:
1710:
1711: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
1712: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1713: ELSIF l_return_status = G_RET_STS_ERROR THEN
1714: RAISE FND_API.G_EXC_ERROR;
1715: END IF;
1716:
1717: if l_valid_check ='Y' then
1718: l_cost_rec.charge_line_type := l_charge_line_type;
1738: --------------------------------------------------------------------------------------------------------------------------
1739: -- All the Other Validations would be performed only when the Validation_level is FULL .
1740:
1741:
1742: IF (p_validation_level = FND_API.G_VALID_LEVEL_NONE) THEN
1743:
1744:
1745: Validate_Who_Info ( p_api_name => l_api_name_full,
1746: p_user_id => NVL(p_user_id, -1),
1747: p_login_id => p_login_id,
1748: x_return_status => l_return_status
1749: );
1750:
1751: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1752: RAISE FND_API.G_EXC_ERROR;
1753: END IF;
1754: L_RECALC_COST := 'Y';
1755:
1748: x_return_status => l_return_status
1749: );
1750:
1751: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1752: RAISE FND_API.G_EXC_ERROR;
1753: END IF;
1754: L_RECALC_COST := 'Y';
1755:
1756:
1753: END IF;
1754: L_RECALC_COST := 'Y';
1755:
1756:
1757: ELSIF (p_validation_level = FND_API.G_VALID_LEVEL_FULL) then
1758:
1759:
1760: -- Perform all the validations by calling the procedure VALIDATE_COST_DETAILS which inturn does all the validations
1761:
1772: x_msg_count => x_msg_count,
1773: x_return_status => l_return_status
1774: );
1775:
1776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: FND_MESSAGE.Set_Name('CS', 'CS_COST_VALIDATE_COST_DTL_ER');
1778: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
1779: FND_MSG_PUB.Add;
1780: RAISE FND_API.G_EXC_ERROR;
1776: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1777: FND_MESSAGE.Set_Name('CS', 'CS_COST_VALIDATE_COST_DTL_ER');
1778: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
1779: FND_MSG_PUB.Add;
1780: RAISE FND_API.G_EXC_ERROR;
1781: END IF;
1782: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
1783: THEN
1784: FND_LOG.String
1799:
1800: Add_Invalid_Argument_Msg(l_api_name_full,
1801: to_char(lx_cost_rec.extended_cost),
1802: 'Extended Cost ');
1803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1804: end if;
1805: */
1806: --===============================
1807: ---Quantity validations
1811:
1812: Add_Invalid_Argument_Msg(l_api_name_full,
1813: to_char(lx_cost_rec.quantity),
1814: 'Quantity ');
1815: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1816:
1817: end if;
1818:
1819: --IF Quantity is not passed then Default it to 1
1991:
1992: FND_MSG_PUB.Count_And_Get
1993: ( p_count => x_msg_count,
1994: p_data => x_msg_data,
1995: p_encoded => FND_API.G_FALSE) ;
1996:
1997: EXCEPTION
1998:
1999: WHEN FND_API.G_EXC_ERROR THEN
1995: p_encoded => FND_API.G_FALSE) ;
1996:
1997: EXCEPTION
1998:
1999: WHEN FND_API.G_EXC_ERROR THEN
2000: x_return_status := FND_API.G_RET_STS_ERROR;
2001: IF FND_API.To_Boolean(p_transaction_control)
2002: THEN
2003: ROLLBACK TO Create_Cost_Details_PVT;
1996:
1997: EXCEPTION
1998:
1999: WHEN FND_API.G_EXC_ERROR THEN
2000: x_return_status := FND_API.G_RET_STS_ERROR;
2001: IF FND_API.To_Boolean(p_transaction_control)
2002: THEN
2003: ROLLBACK TO Create_Cost_Details_PVT;
2004: END IF ;
1997: EXCEPTION
1998:
1999: WHEN FND_API.G_EXC_ERROR THEN
2000: x_return_status := FND_API.G_RET_STS_ERROR;
2001: IF FND_API.To_Boolean(p_transaction_control)
2002: THEN
2003: ROLLBACK TO Create_Cost_Details_PVT;
2004: END IF ;
2005: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2003: ROLLBACK TO Create_Cost_Details_PVT;
2004: END IF ;
2005: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2006: p_data => x_msg_data,
2007: p_encoded => FND_API.G_FALSE) ;
2008:
2009: WHEN G_WARNING THEN
2010: x_return_status := FND_API.G_RET_STS_SUCCESS;
2011: IF FND_API.To_Boolean(p_transaction_control)
2006: p_data => x_msg_data,
2007: p_encoded => FND_API.G_FALSE) ;
2008:
2009: WHEN G_WARNING THEN
2010: x_return_status := FND_API.G_RET_STS_SUCCESS;
2011: IF FND_API.To_Boolean(p_transaction_control)
2012: THEN
2013: ROLLBACK TO Create_Cost_Details_PVT;
2014: END IF ;
2007: p_encoded => FND_API.G_FALSE) ;
2008:
2009: WHEN G_WARNING THEN
2010: x_return_status := FND_API.G_RET_STS_SUCCESS;
2011: IF FND_API.To_Boolean(p_transaction_control)
2012: THEN
2013: ROLLBACK TO Create_Cost_Details_PVT;
2014: END IF ;
2015: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2013: ROLLBACK TO Create_Cost_Details_PVT;
2014: END IF ;
2015: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2016: p_data => x_msg_data,
2017: p_encoded => FND_API.G_FALSE) ;
2018:
2019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2020: IF FND_API.To_Boolean(p_transaction_control) THEN
2021: ROLLBACK TO Create_Cost_Details_PVT;
2015: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2016: p_data => x_msg_data,
2017: p_encoded => FND_API.G_FALSE) ;
2018:
2019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2020: IF FND_API.To_Boolean(p_transaction_control) THEN
2021: ROLLBACK TO Create_Cost_Details_PVT;
2022: END IF ;
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2016: p_data => x_msg_data,
2017: p_encoded => FND_API.G_FALSE) ;
2018:
2019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2020: IF FND_API.To_Boolean(p_transaction_control) THEN
2021: ROLLBACK TO Create_Cost_Details_PVT;
2022: END IF ;
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2024: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2019: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2020: IF FND_API.To_Boolean(p_transaction_control) THEN
2021: ROLLBACK TO Create_Cost_Details_PVT;
2022: END IF ;
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2024: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2025: p_data => x_msg_data,
2026: p_encoded => FND_API.G_FALSE) ;
2027:
2022: END IF ;
2023: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2024: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2025: p_data => x_msg_data,
2026: p_encoded => FND_API.G_FALSE) ;
2027:
2028: WHEN OTHERS THEN
2029: IF FND_API.To_Boolean(p_transaction_control) THEN
2030: ROLLBACK TO Create_Cost_Details_PVT;
2025: p_data => x_msg_data,
2026: p_encoded => FND_API.G_FALSE) ;
2027:
2028: WHEN OTHERS THEN
2029: IF FND_API.To_Boolean(p_transaction_control) THEN
2030: ROLLBACK TO Create_Cost_Details_PVT;
2031: END IF ;
2032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2028: WHEN OTHERS THEN
2029: IF FND_API.To_Boolean(p_transaction_control) THEN
2030: ROLLBACK TO Create_Cost_Details_PVT;
2031: END IF ;
2032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2034: THEN
2035: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2036: END IF;
2035: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2036: END IF;
2037: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2038: p_data => x_msg_data,
2039: p_encoded => FND_API.G_FALSE) ;
2040:
2041: END create_cost_details;
2042:
2043: /*======================================================================+
2053:
2054: PROCEDURE Update_Cost_Details
2055: (
2056: p_api_version IN NUMBER,
2057: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2060: x_return_status OUT NOCOPY VARCHAR2,
2061: x_msg_count OUT NOCOPY NUMBER,
2054: PROCEDURE Update_Cost_Details
2055: (
2056: p_api_version IN NUMBER,
2057: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2060: x_return_status OUT NOCOPY VARCHAR2,
2061: x_msg_count OUT NOCOPY NUMBER,
2062: x_object_version_number OUT NOCOPY NUMBER,
2055: (
2056: p_api_version IN NUMBER,
2057: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2058: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2059: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
2060: x_return_status OUT NOCOPY VARCHAR2,
2061: x_msg_count OUT NOCOPY NUMBER,
2062: x_object_version_number OUT NOCOPY NUMBER,
2063: x_msg_data OUT NOCOPY VARCHAR2,
2064: p_resp_appl_id IN NUMBER := FND_GLOBAL.RESP_APPL_ID,
2065: p_resp_id IN NUMBER := FND_GLOBAL.RESP_ID,
2066: p_user_id IN NUMBER := FND_GLOBAL.USER_ID,
2067: p_login_id IN NUMBER :=FND_GLOBAL.LOGIN_ID,
2068: p_transaction_control IN VARCHAR2 := FND_API.G_TRUE,
2069: p_Cost_Rec IN CS_Cost_Details_PUB.Cost_Rec_Type
2070:
2071: ) IS
2072:
2126: WHERE estimate_Detail_id = p_estimate_detail_id;
2127:
2128: BEGIN
2129: -- Standard start of API savepoint
2130: IF FND_API.To_Boolean(p_transaction_control) THEN
2131: SAVEPOINT Update_Cost_Details_PVT;
2132: END IF ;
2133: -- Standard call to check for call compatibility
2134: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2130: IF FND_API.To_Boolean(p_transaction_control) THEN
2131: SAVEPOINT Update_Cost_Details_PVT;
2132: END IF ;
2133: -- Standard call to check for call compatibility
2134: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2135: THEN
2136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2137: END IF;
2138: -- Initialize message list if p_init_msg_list is set to TRUE
2132: END IF ;
2133: -- Standard call to check for call compatibility
2134: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2135: THEN
2136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2137: END IF;
2138: -- Initialize message list if p_init_msg_list is set to TRUE
2139: IF FND_API.To_Boolean(p_init_msg_list) THEN
2140: FND_MSG_PUB.Initialize;
2135: THEN
2136: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2137: END IF;
2138: -- Initialize message list if p_init_msg_list is set to TRUE
2139: IF FND_API.To_Boolean(p_init_msg_list) THEN
2140: FND_MSG_PUB.Initialize;
2141: END IF;
2142: -- Initialize API return status to success
2143: x_return_status := FND_API.G_RET_STS_SUCCESS;
2139: IF FND_API.To_Boolean(p_init_msg_list) THEN
2140: FND_MSG_PUB.Initialize;
2141: END IF;
2142: -- Initialize API return status to success
2143: x_return_status := FND_API.G_RET_STS_SUCCESS;
2144:
2145: ----------------------- FND Logging -----------------------------------
2146: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
2147: THEN
2220: to NULL and extended cost to the value passed.
2221: */
2222:
2223:
2224: IF p_cost_rec.cost_id is not null and p_cost_rec.cost_id <> fnd_api.g_miss_num
2225: THEN
2226:
2227: begin
2228:
2245: END IF;
2246:
2247:
2248: IF lt_estimate_detail_id IS NOT NULL
2249: AND lt_estimate_detail_id<> fnd_api.g_miss_num
2250: THEN
2251:
2252: p_estimate_Detail_id := lt_estimate_detail_id;
2253:
2321:
2322: if l_disallow_request_update='Y' THEN
2323: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_UPDATE');
2324: FND_MSG_PUB.ADD;
2325: RAISE FND_API.G_EXC_ERROR;
2326: end if;
2327:
2328: Else
2329:
2329:
2330: if l_disallow_charge_update = 'Y' OR l_disallow_request_update='Y' THEN
2331: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_UPDATE');
2332: FND_MSG_PUB.ADD;
2333: RAISE FND_API.G_EXC_ERROR;
2334: end if;
2335:
2336: end if;
2337:
2342: lx_cost_rec:=l_cost_rec;
2343:
2344: --Cost Line can only be created for 'ACTUAL' charge Line types
2345:
2346: if lx_cost_rec.charge_line_type is not null and lx_cost_rec.charge_line_type <> fnd_api.g_miss_char
2347: then
2348: if lx_cost_rec.charge_line_type<>'ACTUAL' then
2349:
2350: Add_Invalid_Argument_Msg(l_api_name_full,
2355: end if;
2356:
2357:
2358:
2359: IF (p_validation_level = FND_API.G_VALID_LEVEL_NONE) THEN
2360:
2361:
2362: Validate_Who_Info ( p_api_name => l_api_name_full,
2363: p_user_id => NVL(p_user_id, -1),
2363: p_user_id => NVL(p_user_id, -1),
2364: p_login_id => p_login_id,
2365: x_return_status => l_return_status);
2366:
2367: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2368: RAISE FND_API.G_EXC_ERROR;
2369: END IF;
2370:
2371: IF lt_estimate_detail_id is null then
2364: p_login_id => p_login_id,
2365: x_return_status => l_return_status);
2366:
2367: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2368: RAISE FND_API.G_EXC_ERROR;
2369: END IF;
2370:
2371: IF lt_estimate_detail_id is null then
2372:
2376:
2377: L_RECALC_COST :='Y';
2378:
2379:
2380: ELSIF (p_validation_level = FND_API.G_VALID_LEVEL_FULL) then
2381:
2382:
2383: -- Perform all the validations by calling the procedure VALIDATE_COST_DETAILS which inturn does all the validations
2384: --This is done only when there is no estimate_Detail_id
2381:
2382:
2383: -- Perform all the validations by calling the procedure VALIDATE_COST_DETAILS which inturn does all the validations
2384: --This is done only when there is no estimate_Detail_id
2385: if lt_estimate_detail_id is null or lt_estimate_detail_id = fnd_api.g_miss_num
2386: then
2387:
2388: VALIDATE_COST_DETAILS
2389: (
2398: x_return_status => l_return_status
2399: );
2400:
2401:
2402: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2403: FND_MESSAGE.Set_Name('CS', 'CS_COST_VALIDATE_COST_DTL_ER');
2404: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
2405: FND_MSG_PUB.Add;
2406: RAISE FND_API.G_EXC_ERROR;
2402: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2403: FND_MESSAGE.Set_Name('CS', 'CS_COST_VALIDATE_COST_DTL_ER');
2404: FND_MESSAGE.Set_Token('API_NAME', l_api_name_full);
2405: FND_MSG_PUB.Add;
2406: RAISE FND_API.G_EXC_ERROR;
2407: END IF;
2408:
2409: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
2410: THEN
2437:
2438: Add_Invalid_Argument_Msg(l_api_name_full,
2439: to_char(lx_cost_rec.extended_cost),
2440: 'Extended Cost ');
2441: RAISE FND_API.G_EXC_ERROR;
2442:
2443: end if;
2444: */
2445:
2449:
2450: Add_Invalid_Argument_Msg(l_api_name_full,
2451: to_char(lx_cost_rec.quantity),
2452: 'Quantity ');
2453: RAISE FND_API.G_EXC_ERROR;
2454:
2455: end if;
2456:
2457:
2466:
2467: l_override_ext_cost_flag:=v_override_ext_cost_flag;
2468: l_unit_cost :=v_unit_cost;
2469: if lx_cost_rec.extended_cost is not null
2470: and lx_cost_rec.extended_cost <> fnd_api.g_miss_num then
2471:
2472: --l_unit_cost := NULL;
2473: --lx_cost_rec.quantity := NULL;
2474: l_unit_cost := v_unit_cost;
2528: p_cost_type_id => p_cost_type_id
2529: );
2530:
2531: --Calculate the Item's Extended Cost
2532: If lx_cost_rec.extended_cost IS NULL or lx_cost_rec.extended_cost = fnd_api.g_miss_num
2533: THEN
2534: lx_cost_rec.extended_cost :=l_unit_cost*lx_cost_rec.quantity;
2535: l_override_ext_cost_flag :='N';
2536: Else
2598:
2599:
2600:
2601: -- Standard check of p_commit
2602: IF FND_API.To_Boolean(p_commit) THEN
2603: COMMIT ;
2604:
2605: END IF;
2606:
2612:
2613:
2614: EXCEPTION
2615:
2616: WHEN FND_API.G_EXC_ERROR THEN
2617: IF FND_API.To_Boolean(p_transaction_control) THEN
2618: ROLLBACK TO Update_Cost_Details_PVT;
2619: END IF ;
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2613:
2614: EXCEPTION
2615:
2616: WHEN FND_API.G_EXC_ERROR THEN
2617: IF FND_API.To_Boolean(p_transaction_control) THEN
2618: ROLLBACK TO Update_Cost_Details_PVT;
2619: END IF ;
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: FND_MSG_PUB.Count_And_Get(
2616: WHEN FND_API.G_EXC_ERROR THEN
2617: IF FND_API.To_Boolean(p_transaction_control) THEN
2618: ROLLBACK TO Update_Cost_Details_PVT;
2619: END IF ;
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: FND_MSG_PUB.Count_And_Get(
2622: p_count => x_msg_count,
2623: p_data => x_msg_data,
2624: p_encoded => FND_API.G_FALSE) ;
2620: x_return_status := FND_API.G_RET_STS_ERROR;
2621: FND_MSG_PUB.Count_And_Get(
2622: p_count => x_msg_count,
2623: p_data => x_msg_data,
2624: p_encoded => FND_API.G_FALSE) ;
2625:
2626: WHEN G_WARNING THEN
2627: x_return_status := FND_API.G_RET_STS_SUCCESS;
2628:
2623: p_data => x_msg_data,
2624: p_encoded => FND_API.G_FALSE) ;
2625:
2626: WHEN G_WARNING THEN
2627: x_return_status := FND_API.G_RET_STS_SUCCESS;
2628:
2629: IF FND_API.To_Boolean(p_transaction_control) THEN
2630: ROLLBACK TO Update_Cost_Details_PVT;
2631: END IF ;
2625:
2626: WHEN G_WARNING THEN
2627: x_return_status := FND_API.G_RET_STS_SUCCESS;
2628:
2629: IF FND_API.To_Boolean(p_transaction_control) THEN
2630: ROLLBACK TO Update_Cost_Details_PVT;
2631: END IF ;
2632: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2633: p_data => x_msg_data,
2630: ROLLBACK TO Update_Cost_Details_PVT;
2631: END IF ;
2632: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2633: p_data => x_msg_data,
2634: p_encoded => FND_API.G_FALSE) ;
2635:
2636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2637: IF FND_API.To_Boolean(p_transaction_control) THEN
2638: ROLLBACK TO Update_Cost_Details_PVT;
2632: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2633: p_data => x_msg_data,
2634: p_encoded => FND_API.G_FALSE) ;
2635:
2636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2637: IF FND_API.To_Boolean(p_transaction_control) THEN
2638: ROLLBACK TO Update_Cost_Details_PVT;
2639: END IF ;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2633: p_data => x_msg_data,
2634: p_encoded => FND_API.G_FALSE) ;
2635:
2636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2637: IF FND_API.To_Boolean(p_transaction_control) THEN
2638: ROLLBACK TO Update_Cost_Details_PVT;
2639: END IF ;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2636: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2637: IF FND_API.To_Boolean(p_transaction_control) THEN
2638: ROLLBACK TO Update_Cost_Details_PVT;
2639: END IF ;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2642: p_data => x_msg_data,
2643: p_encoded => FND_API.G_FALSE) ;
2644: WHEN OTHERS THEN
2639: END IF ;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2642: p_data => x_msg_data,
2643: p_encoded => FND_API.G_FALSE) ;
2644: WHEN OTHERS THEN
2645: IF FND_API.To_Boolean(p_transaction_control) THEN
2646: ROLLBACK TO Update_Cost_Details_PVT;
2647: END IF ;
2641: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2642: p_data => x_msg_data,
2643: p_encoded => FND_API.G_FALSE) ;
2644: WHEN OTHERS THEN
2645: IF FND_API.To_Boolean(p_transaction_control) THEN
2646: ROLLBACK TO Update_Cost_Details_PVT;
2647: END IF ;
2648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2649: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2644: WHEN OTHERS THEN
2645: IF FND_API.To_Boolean(p_transaction_control) THEN
2646: ROLLBACK TO Update_Cost_Details_PVT;
2647: END IF ;
2648: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2649: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2650: THEN
2651: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2652: END IF;
2651: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2652: END IF;
2653: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2654: p_data => x_msg_data,
2655: p_encoded => FND_API.G_FALSE) ;
2656:
2657:
2658: END Update_Cost_Details;
2659:
2699:
2700: BEGIN
2701:
2702: --Standard Start of API Savepoint
2703: IF FND_API.To_Boolean( p_transaction_control ) THEN
2704: SAVEPOINT Delete_Cost_Details_PVT ;
2705: END IF ;
2706: --Standard Call to check API compatibility
2707: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2703: IF FND_API.To_Boolean( p_transaction_control ) THEN
2704: SAVEPOINT Delete_Cost_Details_PVT ;
2705: END IF ;
2706: --Standard Call to check API compatibility
2707: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2708: THEN
2709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2710: END IF ;
2711: --Initialize the message list if p_msg_list is set to TRUE
2705: END IF ;
2706: --Standard Call to check API compatibility
2707: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME)
2708: THEN
2709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2710: END IF ;
2711: --Initialize the message list if p_msg_list is set to TRUE
2712: IF FND_API.To_Boolean(p_init_msg_list) THEN
2713: FND_MSG_PUB.initialize ;
2708: THEN
2709: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2710: END IF ;
2711: --Initialize the message list if p_msg_list is set to TRUE
2712: IF FND_API.To_Boolean(p_init_msg_list) THEN
2713: FND_MSG_PUB.initialize ;
2714: END IF ;
2715:
2716: --Initialize the API Return Success to True
2713: FND_MSG_PUB.initialize ;
2714: END IF ;
2715:
2716: --Initialize the API Return Success to True
2717: x_return_status := FND_API.G_RET_STS_SUCCESS ;
2718:
2719: ----------------------- FND Logging -----------------------------------
2720: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
2721: THEN
2752:
2753: IF (p_cost_id IS NULL) THEN
2754: Add_Null_Parameter_Msg(l_api_name_full,
2755: 'p_cost_id') ;
2756: RAISE FND_API.G_EXC_ERROR ;
2757: END IF ;
2758:
2759: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
2760: THEN
2782: 'cost_id');
2783: RAISE G_WARNING;
2784: END IF;
2785:
2786: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2787: RAISE G_WARNING ;
2788: END IF ;
2789:
2790: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
2816: cost_id = p_cost_id;
2817:
2818: --End of API Body
2819: --Standard Check of p_commit
2820: IF FND_API.To_Boolean( p_commit ) THEN
2821: COMMIT WORK ;
2822: END IF ;
2823:
2824: --Standard call to get message count and if count is 1 , get message info
2828: --Begin Exception Handling
2829:
2830: EXCEPTION
2831:
2832: WHEN FND_API.G_EXC_ERROR THEN
2833: IF FND_API.To_Boolean( p_transaction_control ) THEN
2834: ROLLBACK TO Delete_Cost_Details_PVT;
2835: END IF ;
2836: x_return_status := FND_API.G_RET_STS_ERROR ;
2829:
2830: EXCEPTION
2831:
2832: WHEN FND_API.G_EXC_ERROR THEN
2833: IF FND_API.To_Boolean( p_transaction_control ) THEN
2834: ROLLBACK TO Delete_Cost_Details_PVT;
2835: END IF ;
2836: x_return_status := FND_API.G_RET_STS_ERROR ;
2837: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2832: WHEN FND_API.G_EXC_ERROR THEN
2833: IF FND_API.To_Boolean( p_transaction_control ) THEN
2834: ROLLBACK TO Delete_Cost_Details_PVT;
2835: END IF ;
2836: x_return_status := FND_API.G_RET_STS_ERROR ;
2837: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2838: p_data => x_msg_data,
2839: p_encoded => FND_API.G_FALSE) ;
2840:
2835: END IF ;
2836: x_return_status := FND_API.G_RET_STS_ERROR ;
2837: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2838: p_data => x_msg_data,
2839: p_encoded => FND_API.G_FALSE) ;
2840:
2841: WHEN G_WARNING THEN
2842: x_return_status := FND_API.G_RET_STS_SUCCESS;
2843: IF FND_API.To_Boolean(p_transaction_control) THEN
2838: p_data => x_msg_data,
2839: p_encoded => FND_API.G_FALSE) ;
2840:
2841: WHEN G_WARNING THEN
2842: x_return_status := FND_API.G_RET_STS_SUCCESS;
2843: IF FND_API.To_Boolean(p_transaction_control) THEN
2844: ROLLBACK TO Delete_Cost_Details_PVT;
2845: END IF ;
2846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2839: p_encoded => FND_API.G_FALSE) ;
2840:
2841: WHEN G_WARNING THEN
2842: x_return_status := FND_API.G_RET_STS_SUCCESS;
2843: IF FND_API.To_Boolean(p_transaction_control) THEN
2844: ROLLBACK TO Delete_Cost_Details_PVT;
2845: END IF ;
2846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2847: p_data => x_msg_data,
2844: ROLLBACK TO Delete_Cost_Details_PVT;
2845: END IF ;
2846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2847: p_data => x_msg_data,
2848: p_encoded => FND_API.G_FALSE) ;
2849:
2850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2851: IF FND_API.To_Boolean( p_transaction_control ) THEN
2852: ROLLBACK TO Delete_Cost_Details_PVT;
2846: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2847: p_data => x_msg_data,
2848: p_encoded => FND_API.G_FALSE) ;
2849:
2850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2851: IF FND_API.To_Boolean( p_transaction_control ) THEN
2852: ROLLBACK TO Delete_Cost_Details_PVT;
2853: END IF ;
2854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2847: p_data => x_msg_data,
2848: p_encoded => FND_API.G_FALSE) ;
2849:
2850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2851: IF FND_API.To_Boolean( p_transaction_control ) THEN
2852: ROLLBACK TO Delete_Cost_Details_PVT;
2853: END IF ;
2854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2855: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2851: IF FND_API.To_Boolean( p_transaction_control ) THEN
2852: ROLLBACK TO Delete_Cost_Details_PVT;
2853: END IF ;
2854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2855: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2856: p_data => x_msg_data,
2857: p_encoded => FND_API.G_FALSE) ;
2858:
2853: END IF ;
2854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2855: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2856: p_data => x_msg_data,
2857: p_encoded => FND_API.G_FALSE) ;
2858:
2859: WHEN OTHERS THEN
2860: IF FND_API.To_Boolean( p_transaction_control ) THEN
2861: ROLLBACK TO Delete_Cost_Details_PVT;
2856: p_data => x_msg_data,
2857: p_encoded => FND_API.G_FALSE) ;
2858:
2859: WHEN OTHERS THEN
2860: IF FND_API.To_Boolean( p_transaction_control ) THEN
2861: ROLLBACK TO Delete_Cost_Details_PVT;
2862: END IF ;
2863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2859: WHEN OTHERS THEN
2860: IF FND_API.To_Boolean( p_transaction_control ) THEN
2861: ROLLBACK TO Delete_Cost_Details_PVT;
2862: END IF ;
2863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2864: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2865: THEN
2866: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2867: END IF ;
2866: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2867: END IF ;
2868: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
2869: p_data => x_msg_data,
2870: p_encoded => FND_API.G_FALSE) ;
2871:
2872: End Delete_Cost_Details;
2873:
2874: /*======================================================================+
2935:
2936: IF p_validation_mode = 'U' THEN
2937:
2938: IF pv_cost_rec.cost_id IS NULL OR
2939: pv_cost_rec.cost_id = FND_API.G_MISS_NUM THEN
2940: Add_Null_Parameter_Msg(l_api_name,'cost_id') ;
2941: Add_Invalid_Argument_Msg(l_api_name,TO_CHAR(pv_cost_rec.estimate_detail_id),'cost_id');
2942: RAISE FND_API.G_EXC_ERROR;
2943: ELSE -- validate the cost id passed
2938: IF pv_cost_rec.cost_id IS NULL OR
2939: pv_cost_rec.cost_id = FND_API.G_MISS_NUM THEN
2940: Add_Null_Parameter_Msg(l_api_name,'cost_id') ;
2941: Add_Invalid_Argument_Msg(l_api_name,TO_CHAR(pv_cost_rec.estimate_detail_id),'cost_id');
2942: RAISE FND_API.G_EXC_ERROR;
2943: ELSE -- validate the cost id passed
2944: IF IS_COST_ID_VALID(p_cost_id => pv_cost_rec.cost_id,
2945: x_msg_data => l_msg_data,
2946: x_msg_count => l_msg_count,
2944: IF IS_COST_ID_VALID(p_cost_id => pv_cost_rec.cost_id,
2945: x_msg_data => l_msg_data,
2946: x_msg_count => l_msg_count,
2947: x_return_status => l_return_status) = 'U' THEN
2948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2949:
2950: ELSIF IS_COST_ID_VALID( p_cost_id => pv_cost_rec.cost_id,
2951: x_msg_data => l_msg_data,
2952: x_msg_count => l_msg_count,
2951: x_msg_data => l_msg_data,
2952: x_msg_count => l_msg_count,
2953: x_return_status => l_return_status) = 'N' THEN
2954: Add_Invalid_Argument_Msg(l_api_name,TO_CHAR(pv_cost_rec.cost_id),'cost_id');
2955: RAISE FND_API.G_EXC_ERROR;
2956: ELSE
2957: --cost id is valid
2958: --assign to out record
2959: x_cost_Rec.cost_id := pv_cost_rec.cost_id;
2965: x_MSG_COUNT => l_msg_count,
2966: x_RETURN_STATUS => l_return_status);
2967:
2968:
2969: if (l_return_status = fnd_api.g_ret_sts_error) then
2970: RAISE FND_API.G_EXC_ERROR;
2971: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2973: end if;
2966: x_RETURN_STATUS => l_return_status);
2967:
2968:
2969: if (l_return_status = fnd_api.g_ret_sts_error) then
2970: RAISE FND_API.G_EXC_ERROR;
2971: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2973: end if;
2974: END IF;
2967:
2968:
2969: if (l_return_status = fnd_api.g_ret_sts_error) then
2970: RAISE FND_API.G_EXC_ERROR;
2971: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2973: end if;
2974: END IF;
2975: END IF;
2968:
2969: if (l_return_status = fnd_api.g_ret_sts_error) then
2970: RAISE FND_API.G_EXC_ERROR;
2971: elsif (l_return_status = fnd_api.g_ret_sts_unexp_error) then
2972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2973: end if;
2974: END IF;
2975: END IF;
2976: END IF;
2983: 'After Cost_Id Validation'
2984: );
2985: END IF;
2986:
2987: IF pv_cost_rec.quantity <> l_db_det_rec.quantity and pv_cost_rec.quantity <> fnd_api.g_miss_num THEN
2988: -- cost will be recalculated if quantity changes during updation
2989: l_recalc_cost := 'Y';
2990: END IF;
2991: x_cost_rec:=pv_cost_rec;
3004: x_msg_count => l_msg_count,
3005: x_return_status => l_return_status
3006: );
3007: if l_return_status = g_ret_sts_unexp_error then
3008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3009: ELSIF l_return_status = G_RET_STS_ERROR THEN
3010: RAISE FND_API.G_EXC_ERROR;
3011: END IF;
3012:
3006: );
3007: if l_return_status = g_ret_sts_unexp_error then
3008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3009: ELSIF l_return_status = G_RET_STS_ERROR THEN
3010: RAISE FND_API.G_EXC_ERROR;
3011: END IF;
3012:
3013: if l_valid_check ='Y' then
3014: x_cost_rec.incident_id := pv_cost_rec.incident_id;
3016: Add_Invalid_Argument_Msg(l_api_name,
3017: pv_cost_rec.incident_id,
3018: 'incident_id');
3019:
3020: RAISE FND_API.G_EXC_ERROR;
3021: end if;
3022:
3023: else
3024: Add_Null_Parameter_Msg(l_api_name,'p_incident_id') ;
3021: end if;
3022:
3023: else
3024: Add_Null_Parameter_Msg(l_api_name,'p_incident_id') ;
3025: RAISE FND_API.G_EXC_ERROR;
3026: end if;
3027:
3028: elsif p_validation_mode ='U' then
3029: -- Incident Id will not change, hence assign from the database
3047:
3048: IF p_validation_mode = 'U' THEN
3049:
3050:
3051: if pv_cost_rec.transaction_type_id = FND_API.G_MISS_NUM OR
3052: pv_cost_rec.transaction_type_id IS NULL THEN
3053:
3054: --Default attributes using db record
3055: x_cost_rec.transaction_type_id := l_db_det_rec.transaction_type_id;
3066: x_msg_count => l_msg_count,
3067: x_return_status => l_return_status
3068: ) ;
3069:
3070: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3071: RAISE FND_API.G_EXC_ERROR ;
3072: end if;
3073:
3074: --assign the values source_code, source_id to out record
3067: x_return_status => l_return_status
3068: ) ;
3069:
3070: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3071: RAISE FND_API.G_EXC_ERROR ;
3072: end if;
3073:
3074: --assign the values source_code, source_id to out record
3075: x_cost_rec.transaction_type_id := pv_cost_rec.transaction_type_id;
3075: x_cost_rec.transaction_type_id := pv_cost_rec.transaction_type_id;
3076: l_transaction_type_changed := 'Y';
3077: lx_quantity :=pv_cost_rec.quantity ;
3078:
3079: if pv_cost_rec.quantity = FND_API.G_MISS_NUM OR
3080: pv_cost_rec.quantity = null
3081: then
3082: lx_quantity :=l_db_det_rec.quantity;
3083: end if ;
3162:
3163:
3164: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_INSERT');
3165: FND_MSG_PUB.ADD;
3166: RAISE FND_API.G_EXC_ERROR;
3167: end if;
3168:
3169: Else
3170: if l_disallow_new_charge = 'Y' OR l_disallow_request_update='Y' THEN
3171:
3172:
3173: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_INSERT');
3174: FND_MSG_PUB.ADD;
3175: RAISE FND_API.G_EXC_ERROR;
3176: end if;
3177:
3178: end if;
3179:
3183: If l_create_charge_flag ='N' and l_create_cost_flag = 'Y' then
3184: if l_disallow_request_update='Y' THEN
3185: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_UPDATE');
3186: FND_MSG_PUB.ADD;
3187: RAISE FND_API.G_EXC_ERROR;
3188: end if;
3189:
3190: Else
3191: if l_disallow_charge_update = 'Y' OR l_disallow_request_update='Y' THEN
3191: if l_disallow_charge_update = 'Y' OR l_disallow_request_update='Y' THEN
3192:
3193: FND_MESSAGE.SET_NAME('CS', 'CS_COST_CANNOT_UPDATE');
3194: FND_MSG_PUB.ADD;
3195: RAISE FND_API.G_EXC_ERROR;
3196: end if;
3197:
3198: end if;
3199:
3215: x_msg_count => l_msg_count,
3216: x_return_status => l_return_status
3217: );
3218: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
3219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3220: ELSIF l_return_status = G_RET_STS_ERROR THEN
3221: RAISE FND_API.G_EXC_ERROR;
3222: END IF;
3223:
3217: );
3218: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
3219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3220: ELSIF l_return_status = G_RET_STS_ERROR THEN
3221: RAISE FND_API.G_EXC_ERROR;
3222: END IF;
3223:
3224: if l_valid_check ='Y' then
3225: x_cost_rec.estimate_detail_id := pv_cost_rec.estimate_detail_id ;
3226: else --throw the error message and stop processing
3227: Add_Invalid_Argument_Msg(l_api_name,
3228: pv_cost_rec.estimate_Detail_id,
3229: 'estimate_detail_id');
3230: RAISE FND_API.G_EXC_ERROR;
3231: end if;
3232:
3233: else -- if null , then just assign
3234: x_cost_rec.estimate_Detail_id := pv_cost_rec.estimate_detail_id;
3273: x_msg_count => l_msg_count,
3274: x_return_status => l_return_status
3275: ) ;
3276: If l_return_status = G_RET_STS_UNEXP_ERROR then
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: elsif l_return_status = G_RET_STS_ERROR then
3279: RAISE FND_API.G_EXC_ERROR;
3280: end if;
3281:
3275: ) ;
3276: If l_return_status = G_RET_STS_UNEXP_ERROR then
3277: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3278: elsif l_return_status = G_RET_STS_ERROR then
3279: RAISE FND_API.G_EXC_ERROR;
3280: end if;
3281:
3282: x_cost_Rec.source_id := l_source_id;
3283: x_cost_rec.source_code := pv_cost_rec.source_code;
3290: /*
3291: Add_Invalid_Argument_Msg(l_api_name,
3292: to_char(pv_cost_rec.incident_id),
3293: 'source_id');*/
3294: RAISE FND_API.G_EXC_ERROR;
3295: end if;
3296:
3297: ELSIF p_validation_mode = 'U' THEN
3298:
3295: end if;
3296:
3297: ELSIF p_validation_mode = 'U' THEN
3298:
3299: if pv_cost_rec.source_code = FND_API.G_MISS_CHAR OR
3300: pv_cost_rec.source_code IS NULL AND
3301: pv_cost_rec.source_id = FND_API.G_MISS_NUM OR
3302: pv_cost_rec.source_id IS NULL THEN
3303:
3297: ELSIF p_validation_mode = 'U' THEN
3298:
3299: if pv_cost_rec.source_code = FND_API.G_MISS_CHAR OR
3300: pv_cost_rec.source_code IS NULL AND
3301: pv_cost_rec.source_id = FND_API.G_MISS_NUM OR
3302: pv_cost_rec.source_id IS NULL THEN
3303:
3304: --Default attributes using db record
3305: x_cost_rec.source_code := l_db_det_rec.source_code;
3317: x_msg_count => l_msg_count,
3318: x_return_status => l_return_status
3319: ) ;
3320:
3321: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3322: RAISE FND_API.G_EXC_ERROR ;
3323: end if;
3324:
3325: --assign the values source_code, source_id to out record
3318: x_return_status => l_return_status
3319: ) ;
3320:
3321: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
3322: RAISE FND_API.G_EXC_ERROR ;
3323: end if;
3324:
3325: --assign the values source_code, source_id to out record
3326: x_cost_rec.source_code := x_cost_rec.source_code;
3367:
3368: CS_Multiorg_PUB.Get_OrgId
3369: (
3370: P_API_VERSION => 1.0,
3371: P_INIT_MSG_LIST => FND_API.G_FALSE,
3372: -- Fix bug 3236597 P_COMMIT => 'T',
3373: P_COMMIT => 'F', -- Fix bug 3236597
3374: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3375: X_RETURN_STATUS => l_return_status,
3370: P_API_VERSION => 1.0,
3371: P_INIT_MSG_LIST => FND_API.G_FALSE,
3372: -- Fix bug 3236597 P_COMMIT => 'T',
3373: P_COMMIT => 'F', -- Fix bug 3236597
3374: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
3375: X_RETURN_STATUS => l_return_status,
3376: X_MSG_COUNT => l_msg_count,
3377: X_MSG_DATA => l_msg_data,
3378: P_INCIDENT_ID => pv_cost_rec.incident_id,
3383:
3384:
3385:
3386:
3387: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3388: RAISE FND_API.G_EXC_ERROR ;
3389: END IF;
3390:
3391: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
3384:
3385:
3386:
3387: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3388: RAISE FND_API.G_EXC_ERROR ;
3389: END IF;
3390:
3391: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
3392: THEN
3413: X_MSG_DATA => l_msg_data
3414: );
3415:
3416:
3417: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3418: RAISE FND_API.G_EXC_ERROR ;
3419: end if;
3420: x_cost_rec.org_id := pv_cost_rec.org_id;
3421: else
3414: );
3415:
3416:
3417: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3418: RAISE FND_API.G_EXC_ERROR ;
3419: end if;
3420: x_cost_rec.org_id := pv_cost_rec.org_id;
3421: else
3422:
3433: --Need to define error here
3434: FND_MESSAGE.SET_NAME('CS', 'CS_CHG_CANNOT_CHANGE_OU');
3435: FND_MESSAGE.SET_TOKEN('API_NAME', p_api_name);
3436: FND_MSG_PUB.ADD;
3437: RAISE FND_API.G_EXC_ERROR;
3438: else
3439: x_cost_rec.org_id := pv_cost_rec.org_id;
3440: end if;
3441: else
3456: X_MSG_COUNT => l_msg_count,
3457: X_MSG_DATA => l_msg_data
3458: );
3459:
3460: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3461: RAISE FND_API.G_EXC_ERROR ;
3462: end if;
3463: x_cost_rec.org_id := pv_cost_rec.org_id;
3464: else
3457: X_MSG_DATA => l_msg_data
3458: );
3459:
3460: if l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3461: RAISE FND_API.G_EXC_ERROR ;
3462: end if;
3463: x_cost_rec.org_id := pv_cost_rec.org_id;
3464: else
3465: --use the default
3478: -- or org_id is null then assign the value from the database
3479: -- else if passed then validate the org_id and if valid then
3480: -- assign the value to the out parameter
3481:
3482: if pv_cost_rec.org_id = FND_API.G_MISS_NUM or
3483: pv_cost_rec.org_id IS NULL THEN
3484: --use the value from the database
3485: x_cost_rec.org_id := l_db_det_rec.org_id;
3486:
3492: X_RETURN_STATUS => l_return_status,
3493: X_MSG_COUNT => l_msg_count,
3494: X_MSG_DATA => l_msg_data);
3495:
3496: if l_return_status <> fnd_api.g_ret_sts_success then
3497: raise fnd_api.g_exc_error ;
3498: end if;
3499: x_cost_rec.org_id := pv_cost_rec.org_id;
3500:
3493: X_MSG_COUNT => l_msg_count,
3494: X_MSG_DATA => l_msg_data);
3495:
3496: if l_return_status <> fnd_api.g_ret_sts_success then
3497: raise fnd_api.g_exc_error ;
3498: end if;
3499: x_cost_rec.org_id := pv_cost_rec.org_id;
3500:
3501: end if;
3506: -- or org_id is null then assign the value from the database
3507: -- else if passed then validate the org_id and if valid then
3508: -- assign the value to the out parameter
3509:
3510: IF pv_cost_rec.org_id = FND_API.G_MISS_NUM OR
3511: pv_cost_rec.org_id IS NULL THEN
3512: --use the value from the database
3513: x_cost_rec.org_id := l_db_det_rec.org_id;
3514:
3517: --raise error
3518: FND_MESSAGE.SET_NAME('CS', 'CS_CHG_CANNOT_CHANGE_OU');
3519: FND_MESSAGE.SET_TOKEN('API_NAME', p_api_name);
3520: FND_MSG_PUB.ADD;
3521: RAISE FND_API.G_EXC_ERROR;
3522: ELSE
3523: x_cost_rec.org_id := pv_cost_rec.org_id;
3524: END IF;
3525: END IF;
3526: END IF;-- profile
3527: END IF;
3528: else--if create_charge_flag='N'
3529:
3530: if pv_cost_rec.org_id = FND_API.G_MISS_NUM or
3531: pv_cost_rec.org_id IS NULL THEN
3532: --use the value from the database
3533: x_cost_rec.org_id := l_db_det_rec.org_id;
3534:
3539: X_RETURN_STATUS => l_return_status,
3540: X_MSG_COUNT => l_msg_count,
3541: X_MSG_DATA => l_msg_data);
3542:
3543: if l_return_status <> fnd_api.g_ret_sts_success then
3544: raise fnd_api.g_exc_error ;
3545: end if;
3546: x_cost_rec.org_id := pv_cost_rec.org_id;
3547:
3540: X_MSG_COUNT => l_msg_count,
3541: X_MSG_DATA => l_msg_data);
3542:
3543: if l_return_status <> fnd_api.g_ret_sts_success then
3544: raise fnd_api.g_exc_error ;
3545: end if;
3546: x_cost_rec.org_id := pv_cost_rec.org_id;
3547:
3548: end if;
3589: if l_no_charge = 'Y' then
3590: if l_inv_item_id is null then
3591: Add_Null_Parameter_Msg(l_api_name,
3592: 'p_inventory_item_id') ;
3593: RAISE FND_API.G_EXC_ERROR;
3594: else
3595: x_cost_rec.inventory_item_id:=l_inv_item_id;
3596: end if;
3597: end if;
3617: Add_Invalid_Argument_Msg(l_api_name,
3618: to_char(pv_cost_rec.inventory_item_id),
3619: 'inventory_item_id');
3620:
3621: RAISE FND_API.G_EXC_ERROR;
3622: end if;
3623:
3624: else
3625:
3627: 'p_inventory_item_id') ;
3628: /* Add_Invalid_Argument_Msg(l_api_name,
3629: to_char(pv_cost_rec.inventory_item_id),
3630: 'inventory_item_id');*/
3631: RAISE FND_API.G_EXC_ERROR;
3632:
3633: end if;
3634: end if;
3635: ELSIF p_validation_mode = 'U' THEN
3633: end if;
3634: end if;
3635: ELSIF p_validation_mode = 'U' THEN
3636:
3637: if pv_cost_rec.inventory_item_id = FND_API.G_MISS_NUM OR
3638: pv_cost_rec.inventory_item_id IS NULL
3639: then
3640:
3641: --Default attributes using db record
3659: Add_Invalid_Argument_Msg(l_api_name,
3660: to_char(pv_cost_rec.inventory_item_id),
3661: 'inventory_item_id');
3662:
3663: RAISE FND_API.G_EXC_ERROR;
3664: end if;
3665: end if;
3666:
3667:
3709: Add_Invalid_Argument_Msg(l_api_name,
3710: to_char(pv_cost_rec.inventory_org_id),
3711: 'inventory_org_id');
3712:
3713: RAISE FND_API.G_EXC_ERROR;
3714: end if;
3715:
3716:
3717:
3719: end if;
3720:
3721: ELSIF p_validation_mode = 'U' THEN
3722:
3723: if pv_cost_rec.inventory_org_id = FND_API.G_MISS_NUM OR
3724: pv_cost_rec.inventory_org_id IS NULL
3725: then
3726:
3727: --Default attributes using db record
3744: Add_Invalid_Argument_Msg(l_api_name,
3745: to_char(pv_cost_rec.inventory_org_id),
3746: 'inventory_org_id');
3747:
3748: RAISE FND_API.G_EXC_ERROR;
3749: end if;
3750: end if;
3751:
3752:
3779: x_msg_count => l_msg_count,
3780: x_return_status => l_return_status);
3781:
3782:
3783: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3784: RAISE FND_API.G_EXC_ERROR ;
3785: ELSE
3786: IF pv_cost_rec.txn_billing_type_id IS NOT NULL THEN
3787: IF pv_cost_rec.txn_billing_type_id <> l_txn_billing_type_id THEN
3780: x_return_status => l_return_status);
3781:
3782:
3783: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3784: RAISE FND_API.G_EXC_ERROR ;
3785: ELSE
3786: IF pv_cost_rec.txn_billing_type_id IS NOT NULL THEN
3787: IF pv_cost_rec.txn_billing_type_id <> l_txn_billing_type_id THEN
3788: --RAISE ERROR
3788: --RAISE ERROR
3789: FND_MESSAGE.SET_NAME('CS', 'CS_CHG_INVALID_TXN_BILLING_TYP');
3790: FND_MESSAGE.SET_TOKEN('TXN_BILLING_TYPE_ID', pv_cost_rec.txn_billing_type_id);
3791: FND_MSG_PUB.ADD;
3792: RAISE FND_API.G_EXC_ERROR;
3793: ELSE --
3794: --the ids match
3795: --assign to the out record
3796: x_cost_rec.txn_billing_type_id := pv_cost_rec.txn_billing_type_id ;
3808: x_return_status => l_return_status,
3809: x_msg_count => l_msg_count,
3810: x_msg_data => l_msg_data);
3811:
3812: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3813: FND_MESSAGE.SET_NAME('CS', 'CS_COST_INVALID_OU_BILLING_TYP');
3814: FND_MESSAGE.SET_TOKEN('TXN_BILLING_TYPE_ID', pv_cost_rec.txn_billing_type_id);
3815: FND_MSG_PUB.ADD;
3816: RAISE FND_API.G_EXC_ERROR;
3812: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3813: FND_MESSAGE.SET_NAME('CS', 'CS_COST_INVALID_OU_BILLING_TYP');
3814: FND_MESSAGE.SET_TOKEN('TXN_BILLING_TYPE_ID', pv_cost_rec.txn_billing_type_id);
3815: FND_MSG_PUB.ADD;
3816: RAISE FND_API.G_EXC_ERROR;
3817: End if;
3818:
3819: END IF;
3820: ELSIF p_validation_mode = 'U' THEN
3831: X_MSG_DATA => l_msg_data,
3832: X_MSG_COUNT => l_msg_count,
3833: X_RETURN_STATUS => l_return_status);
3834:
3835: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3836: RAISE FND_API.G_EXC_ERROR ;
3837: ELSE
3838: VALIDATE_OPERATING_UNIT(p_api_name => p_api_name,
3839: p_txn_billing_type_id => l_txn_billing_type_id,
3832: X_MSG_COUNT => l_msg_count,
3833: X_RETURN_STATUS => l_return_status);
3834:
3835: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3836: RAISE FND_API.G_EXC_ERROR ;
3837: ELSE
3838: VALIDATE_OPERATING_UNIT(p_api_name => p_api_name,
3839: p_txn_billing_type_id => l_txn_billing_type_id,
3840: x_return_status => l_return_status,
3840: x_return_status => l_return_status,
3841: x_msg_count => l_msg_count,
3842: x_msg_data => l_msg_data);
3843:
3844: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3845: RAISE FND_API.G_EXC_ERROR ;
3846: ELSE
3847: IF pv_cost_rec.txn_billing_type_id <> FND_API.G_MISS_NUM AND
3848: pv_cost_rec.txn_billing_type_id IS NOT NULL THEN
3841: x_msg_count => l_msg_count,
3842: x_msg_data => l_msg_data);
3843:
3844: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3845: RAISE FND_API.G_EXC_ERROR ;
3846: ELSE
3847: IF pv_cost_rec.txn_billing_type_id <> FND_API.G_MISS_NUM AND
3848: pv_cost_rec.txn_billing_type_id IS NOT NULL THEN
3849: IF pv_cost_rec.txn_billing_type_id <> l_txn_billing_type_id THEN
3843:
3844: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3845: RAISE FND_API.G_EXC_ERROR ;
3846: ELSE
3847: IF pv_cost_rec.txn_billing_type_id <> FND_API.G_MISS_NUM AND
3848: pv_cost_rec.txn_billing_type_id IS NOT NULL THEN
3849: IF pv_cost_rec.txn_billing_type_id <> l_txn_billing_type_id THEN
3850:
3851: --RAISE ERROR
3851: --RAISE ERROR
3852: FND_MESSAGE.SET_NAME('CS', 'CS_CHG_INVALID_TXN_BILLING_TYP');
3853: FND_MESSAGE.SET_TOKEN('TXN_BILLING_TYPE_ID', pv_cost_rec.txn_billing_type_id);
3854: FND_MSG_PUB.ADD;
3855: RAISE FND_API.G_EXC_ERROR;
3856: ELSE --
3857: --the ids match
3858: --assign to the out record
3859: x_cost_rec.txn_billing_type_id := pv_cost_rec.txn_billing_type_id ;
3912: x_return_status => l_return_status
3913: );
3914:
3915: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
3916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3917: ELSIF l_return_status = G_RET_STS_ERROR THEN
3918: RAISE FND_API.G_EXC_ERROR;
3919: END IF;
3920:
3914:
3915: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
3916: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3917: ELSIF l_return_status = G_RET_STS_ERROR THEN
3918: RAISE FND_API.G_EXC_ERROR;
3919: END IF;
3920:
3921: IF l_valid_check <> 'Y' THEN
3922: Add_Invalid_Argument_Msg(l_api_name,
3921: IF l_valid_check <> 'Y' THEN
3922: Add_Invalid_Argument_Msg(l_api_name,
3923: pv_cost_rec.unit_of_measure_code,
3924: 'Unit_of_Measure_Code');
3925: RAISE FND_API.G_EXC_ERROR;
3926:
3927: ELSE
3928: --assign to out record
3929: x_cost_rec.unit_of_measure_code := pv_cost_rec.unit_of_measure_code;
3941:
3942: --DBMS_OUTPUT.PUT_LINE('Back from GET_PRIMARY_UOM status='||l_return_status || ' l_primary_uom '||l_primary_uom);
3943:
3944: --IF l_return_status <> 'S' THEN
3945: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3946: --raise error
3947: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
3948: FND_MESSAGE.SET_TOKEN('INV_ID', x_cost_rec.inventory_item_id);
3949: FND_MSG_PUB.ADD;
3946: --raise error
3947: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
3948: FND_MESSAGE.SET_TOKEN('INV_ID', x_cost_rec.inventory_item_id);
3949: FND_MSG_PUB.ADD;
3950: RAISE FND_API.G_EXC_ERROR;
3951: END IF;
3952:
3953: --assign to out record
3954: x_cost_rec.unit_of_measure_code := l_primary_uom;
3955:
3956: END IF;
3957: ELSIF p_validation_mode = 'U' THEN
3958:
3959: IF pv_cost_rec.unit_of_measure_code <> FND_API.G_MISS_CHAR AND
3960: pv_cost_rec.unit_of_measure_code IS NOT NULL
3961:
3962: then
3963:
3971: x_return_status => l_return_status
3972: );
3973:
3974: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
3975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3976: ELSIF l_return_status = G_RET_STS_ERROR THEN
3977: RAISE FND_API.G_EXC_ERROR;
3978: END IF;
3979:
3973:
3974: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
3975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3976: ELSIF l_return_status = G_RET_STS_ERROR THEN
3977: RAISE FND_API.G_EXC_ERROR;
3978: END IF;
3979:
3980: IF l_valid_check <> 'Y' THEN
3981: Add_Invalid_Argument_Msg(l_api_name,
3980: IF l_valid_check <> 'Y' THEN
3981: Add_Invalid_Argument_Msg(l_api_name,
3982: pv_cost_rec.unit_of_measure_code,
3983: 'Unit_of_Measure_Code');
3984: RAISE FND_API.G_EXC_ERROR;
3985:
3986: ELSE
3987: --assign to out record
3988: x_cost_rec.unit_of_measure_code := pv_cost_rec.unit_of_measure_code;
4000:
4001:
4002:
4003: --IF l_return_status <> 'S' THEN
4004: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
4005: --raise error
4006: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
4007: FND_MESSAGE.SET_TOKEN('INV_ID', x_cost_rec.inventory_item_id);
4008: FND_MSG_PUB.ADD;
4005: --raise error
4006: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
4007: FND_MESSAGE.SET_TOKEN('INV_ID', x_cost_rec.inventory_item_id);
4008: FND_MSG_PUB.ADD;
4009: RAISE FND_API.G_EXC_ERROR;
4010: end if;
4011:
4012: --assign to out record
4013: x_cost_rec.unit_of_measure_code := l_primary_uom;
4044: x_return_status => l_return_status
4045: );
4046:
4047: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
4048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4049: ELSIF l_return_status = G_RET_STS_ERROR THEN
4050: RAISE FND_API.G_EXC_ERROR;
4051: END IF;
4052:
4046:
4047: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
4048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4049: ELSIF l_return_status = G_RET_STS_ERROR THEN
4050: RAISE FND_API.G_EXC_ERROR;
4051: END IF;
4052:
4053: IF l_valid_check <> 'Y' THEN
4054: Add_Invalid_Argument_Msg(l_api_name,
4053: IF l_valid_check <> 'Y' THEN
4054: Add_Invalid_Argument_Msg(l_api_name,
4055: pv_cost_rec.currency_code,
4056: 'Currency Code');
4057: RAISE FND_API.G_EXC_ERROR;
4058:
4059: ELSE
4060: --assign to out record
4061: x_cost_rec.currency_code := pv_cost_rec.currency_code;
4074:
4075: --DBMS_OUTPUT.PUT_LINE('Back from GET_PRIMARY_UOM status='||l_return_status || ' l_primary_uom '||l_primary_uom);
4076:
4077: --IF l_return_status <> 'S' THEN
4078: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4079: --raise error
4080: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
4081: FND_MESSAGE.SET_TOKEN('INV_ID', pv_cost_rec.unit_of_measure_code);
4082: FND_MSG_PUB.ADD;
4079: --raise error
4080: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
4081: FND_MESSAGE.SET_TOKEN('INV_ID', pv_cost_rec.unit_of_measure_code);
4082: FND_MSG_PUB.ADD;
4083: RAISE FND_API.G_EXC_ERROR;
4084: END IF;
4085:
4086: --assign to out record
4087: x_cost_rec.currency_code := l_currency_code;
4088:
4089: END IF;
4090: ELSIF p_validation_mode = 'U' THEN
4091:
4092: IF pv_cost_rec.currency_code<> FND_API.G_MISS_CHAR AND
4093: pv_cost_rec.currency_code IS NOT NULL
4094:
4095: then
4096:
4103: x_return_status => l_return_status
4104: );
4105:
4106: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: ELSIF l_return_status = G_RET_STS_ERROR THEN
4109: RAISE FND_API.G_EXC_ERROR;
4110: END IF;
4111:
4105:
4106: IF l_return_status = G_RET_STS_UNEXP_ERROR THEN
4107: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4108: ELSIF l_return_status = G_RET_STS_ERROR THEN
4109: RAISE FND_API.G_EXC_ERROR;
4110: END IF;
4111:
4112: IF l_valid_check <> 'Y' THEN
4113: Add_Invalid_Argument_Msg(l_api_name,
4112: IF l_valid_check <> 'Y' THEN
4113: Add_Invalid_Argument_Msg(l_api_name,
4114: pv_cost_rec.currency_code,
4115: 'Currency Code');
4116: RAISE FND_API.G_EXC_ERROR;
4117:
4118: ELSE
4119: --assign to out record
4120: x_cost_rec.currency_code := pv_cost_rec.currency_code;
4133:
4134:
4135:
4136:
4137: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4138: --raise error
4139: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
4140: FND_MESSAGE.SET_TOKEN('INV_ID', pv_cost_rec.unit_of_measure_code);
4141: FND_MSG_PUB.ADD;
4138: --raise error
4139: FND_MESSAGE.SET_NAME('CS', 'CS_COST_GET_PRIMARY_UOM_ERROR');
4140: FND_MESSAGE.SET_TOKEN('INV_ID', pv_cost_rec.unit_of_measure_code);
4141: FND_MSG_PUB.ADD;
4142: RAISE FND_API.G_EXC_ERROR;
4143: END IF;
4144:
4145: --assign to out record
4146: x_cost_rec.currency_code := l_currency_code;
4161:
4162: EXCEPTION
4163:
4164:
4165: WHEN FND_API.G_EXC_ERROR THEN
4166: x_return_status := FND_API.G_RET_STS_ERROR;
4167:
4168: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4169: p_data => x_msg_data,
4162: EXCEPTION
4163:
4164:
4165: WHEN FND_API.G_EXC_ERROR THEN
4166: x_return_status := FND_API.G_RET_STS_ERROR;
4167:
4168: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4169: p_data => x_msg_data,
4170: p_encoded => FND_API.G_FALSE) ;
4166: x_return_status := FND_API.G_RET_STS_ERROR;
4167:
4168: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4169: p_data => x_msg_data,
4170: p_encoded => FND_API.G_FALSE) ;
4171: WHEN OTHERS THEN
4172: x_return_status := FND_API.G_RET_STS_ERROR;
4173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4174: p_data => x_msg_data,
4168: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4169: p_data => x_msg_data,
4170: p_encoded => FND_API.G_FALSE) ;
4171: WHEN OTHERS THEN
4172: x_return_status := FND_API.G_RET_STS_ERROR;
4173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4174: p_data => x_msg_data,
4175: p_encoded => FND_API.G_FALSE) ;
4176:
4171: WHEN OTHERS THEN
4172: x_return_status := FND_API.G_RET_STS_ERROR;
4173: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count,
4174: p_data => x_msg_data,
4175: p_encoded => FND_API.G_FALSE) ;
4176:
4177:
4178:
4179:
4219: l_dummy VARCHAR2(1);
4220:
4221: BEGIN
4222:
4223: x_return_status := FND_API.G_RET_STS_SUCCESS;
4224:
4225: BEGIN
4226: IF p_user_id = -1 then
4227: SELECT 'x' into l_dummy
4236: END IF;
4237:
4238: EXCEPTION
4239: WHEN NO_DATA_FOUND THEN
4240: x_return_status := FND_API.G_RET_STS_ERROR;
4241: Add_Invalid_Argument_Msg(p_token_an => p_api_name,
4242: p_token_v => TO_CHAR(p_user_id),
4243: p_token_p => 'p_user_id');
4244: return;
4252: AND user_id = p_user_id;
4253:
4254: EXCEPTION
4255: WHEN NO_DATA_FOUND THEN
4256: x_return_status := FND_API.G_RET_STS_ERROR;
4257: Add_Invalid_Argument_Msg(p_token_an => p_api_name,
4258: p_token_v => TO_CHAR(p_login_id),
4259: p_token_p => 'p_user_login');
4260: END;
4308: **************************************************/
4309: FUNCTION Check_For_Miss ( p_param IN NUMBER ) RETURN NUMBER IS
4310: BEGIN
4311:
4312: IF p_param = FND_API.G_MISS_NUM THEN
4313: RETURN NULL ;
4314: ELSE
4315: RETURN p_param ;
4316: END IF ;
4318:
4319:
4320: FUNCTION Check_For_Miss ( p_param IN VARCHAR2 ) RETURN VARCHAR2 IS
4321: BEGIN
4322: IF p_param = FND_API.G_MISS_CHAR THEN
4323: RETURN NULL ;
4324: ELSE
4325: RETURN p_param ;
4326: END IF ;
4328:
4329:
4330: FUNCTION Check_For_Miss ( p_param IN DATE ) RETURN DATE IS
4331: BEGIN
4332: IF p_param = FND_API.G_MISS_DATE THEN
4333: RETURN NULL ;
4334: ELSE
4335: RETURN p_param ;
4336: END IF ;
4364: ----------------+------------+--------------------------------------------------
4365: PROCEDURE Purge_Cost
4366: (
4367: p_api_version_number IN NUMBER := 1.0
4368: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4369: , p_commit IN VARCHAR2 := FND_API.G_FALSE
4370: , p_object_type IN VARCHAR2
4371: , p_processing_set_id IN NUMBER
4372: , x_return_status OUT NOCOPY VARCHAR2
4365: PROCEDURE Purge_Cost
4366: (
4367: p_api_version_number IN NUMBER := 1.0
4368: , p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4369: , p_commit IN VARCHAR2 := FND_API.G_FALSE
4370: , p_object_type IN VARCHAR2
4371: , p_processing_set_id IN NUMBER
4372: , x_return_status OUT NOCOPY VARCHAR2
4373: , x_msg_count OUT NOCOPY NUMBER
4383:
4384: l_row_count NUMBER := 0;
4385:
4386: BEGIN
4387: x_return_status := FND_API.G_RET_STS_SUCCESS;
4388:
4389: IF FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level
4390: THEN
4391: FND_LOG.String
4425: , 'p_processing_set_id:' || p_processing_set_id
4426: );
4427: END IF ;
4428:
4429: IF NOT FND_API.Compatible_API_Call
4430: (
4431: L_API_VERSION
4432: , p_api_version_number
4433: , L_API_NAME
4438: (
4439: p_count => x_msg_count
4440: , p_data => x_msg_data
4441: );
4442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4443: END IF ;
4444:
4445: IF FND_API.to_Boolean(p_init_msg_list)
4446: THEN
4441: );
4442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4443: END IF ;
4444:
4445: IF FND_API.to_Boolean(p_init_msg_list)
4446: THEN
4447: FND_MSG_PUB.initialize;
4448: END IF ;
4449:
4468: FND_MESSAGE.Set_Token('PARAM', 'p_object_type');
4469: FND_MESSAGE.Set_Token('CURRVAL', p_object_type);
4470: FND_MSG_PUB.ADD;
4471:
4472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4473: END IF;
4474:
4475: ---
4476:
4491: FND_MESSAGE.Set_Token('PARAM', 'p_processing_set_id');
4492: FND_MESSAGE.Set_Token('CURRVAL', NVL(to_char(p_processing_set_id),'NULL'));
4493: FND_MSG_PUB.ADD;
4494:
4495: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4496: END IF;
4497:
4498: ------------------------------------------------------------------------------
4499: -- Actual Logic starts below:
4551: );
4552: END IF ;
4553:
4554: EXCEPTION
4555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4557:
4558: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
4559: THEN
4552: END IF ;
4553:
4554: EXCEPTION
4555: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4557:
4558: IF FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level
4559: THEN
4560: FND_LOG.String
4560: FND_LOG.String
4561: (
4562: FND_LOG.level_unexpected
4563: , L_LOG_MODULE || 'unexpected_error'
4564: , 'Inside WHEN FND_API.G_EXC_UNEXPECTED_ERROR of ' || L_API_NAME_FULL
4565: );
4566: END IF ;
4567:
4568: WHEN OTHERS THEN
4565: );
4566: END IF ;
4567:
4568: WHEN OTHERS THEN
4569: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4570: FND_MESSAGE.Set_Name('CS', 'CS_COST_LINE_DEL_FAIL');
4571: FND_MESSAGE.Set_Token('API_NAME', L_API_NAME_FULL);
4572: FND_MESSAGE.Set_Token('ERROR', SQLERRM);
4573: FND_MSG_PUB.ADD;