1: PACKAGE BODY GMP_APS_WRITER AS
2: /* $Header: GMPAPSWB.pls 120.21.12020000.4 2013/03/22 22:22:28 rpatangy ship $ */
3:
4: /*
5: REM+==========================================================================+
238: AND process_id = p_group_id
239: AND header_id = p_header_id ;
240: EXCEPTION
241: WHEN OTHERS THEN
242: gmp_debug_message(' gmp_aps_writer failed at firm_flag selection ');
243: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
244: e_msg := e_msg || ' Main Porgam Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
245: return_status := -131 ;
246: return_msg := e_msg ;
239: AND header_id = p_header_id ;
240: EXCEPTION
241: WHEN OTHERS THEN
242: gmp_debug_message(' gmp_aps_writer failed at firm_flag selection ');
243: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
244: e_msg := e_msg || ' Main Porgam Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
245: return_status := -131 ;
246: return_msg := e_msg ;
247: END;
456: AND group_id = p_group_id
457: AND parent_header_id = p_header_id ;
458: EXCEPTION
459: WHEN OTHERS THEN
460: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
461: e_msg := e_msg || ' WIP/completed step: '||TO_CHAR(SQLCODE)||': '||SQLERRM ;
462: sreturn_status := -1 ;
463: EXIT;
464: END;
534: EXCEPTION
535: WHEN NO_DATA_FOUND THEN
536: null;
537: WHEN OTHERS THEN
538: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
539: e_msg := e_msg || ' Attribute9: '||TO_CHAR(SQLCODE)||': '||SQLERRM ;
540: sreturn_status := -1 ;
541: END ;
542:
1120: END IF; /* action type */
1121:
1122: EXCEPTION
1123: WHEN OTHERS THEN
1124: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
1125: e_msg := e_msg || ' Transactions: '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1126: rreturn_status := -13 ;
1127: EXIT;
1128: END;
1190: EXCEPTION
1191: WHEN NO_DATA_FOUND THEN
1192: NULL ;
1193: WHEN OTHERS THEN
1194: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
1195: e_msg := e_msg || ' WIP/completed step: '||TO_CHAR(SQLCODE)||': '||SQLERRM ;
1196: areturn_status := -1 ;
1197: END;
1198:
1388: return_msg := e_msg ;
1389:
1390: EXCEPTION
1391: WHEN OTHERS THEN
1392: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
1393: e_msg := e_msg || ' Main Porgam Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1394: return_status := -99 ;
1395: return_msg := e_msg ;
1396: END main_process ;
1646:
1647: EXCEPTION
1648: WHEN OTHERS THEN
1649: return_status := -96;
1650: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_step_resources');
1651: e_msg := e_msg || ' Update Step Resources Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1652: END update_step_resources;
1653:
1654: /*
1729:
1730: EXCEPTION
1731: WHEN OTHERS THEN
1732: return_status := -97;
1733: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_resource_transactions');
1734: e_msg := e_msg || ' Update SResource Transaction Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1735: END update_resource_transactions;
1736:
1737: /*
1944: END IF; /* Not found */
1945: EXCEPTION
1946: WHEN OTHERS THEN
1947: return_status := -98;
1948: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_activities');
1949: e_msg := e_msg || ' Update Step Activities Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1950: END update_batch_activities;
1951:
1952: /*
2021: CLOSE get_step_material;
2022: EXCEPTION
2023: WHEN OTHERS THEN
2024: return_status := -89;
2025: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_materails');
2026: e_msg := e_msg || ' Update Materails Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2027: END update_materails;
2028:
2029: /*
2072: WHEN NO_DATA_FOUND THEN
2073: v_plan_charges := 0;
2074: WHEN OTHERS THEN
2075: return_status := -995;
2076: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_steps');
2077: e_msg := e_msg || ' CHARGE in Step Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2078: END;
2079:
2080: IF pdue_date IS NOT NULL THEN
2145:
2146: EXCEPTION
2147: WHEN OTHERS THEN
2148: return_status := -95;
2149: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_steps');
2150: e_msg := e_msg || ' Update Batch Step Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2151: END update_batch_steps;
2152:
2153: /*
2219:
2220: EXCEPTION
2221: WHEN OTHERS THEN
2222: return_status := -94;
2223: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_header');
2224: e_msg := e_msg || ' Update Batch Header Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2225: END update_batch_header;
2226:
2227: /*
2351:
2352: EXCEPTION
2353: WHEN OTHERS THEN
2354: return_status := -92;
2355: fnd_msg_pub.add_exc_msg('gmp_aps_writer','lock_batch_details');
2356: e_msg := e_msg || ' Loocking Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2357: END lock_batch_details;
2358:
2359: /*
2677: struc_size := structure_size ; /*B3583620 */
2678: EXCEPTION
2679: WHEN OTHERS THEN
2680: return_status := -91;
2681: fnd_msg_pub.add_exc_msg('gmp_aps_writer','valildate_structure');
2682: e_msg := e_msg || ' Validation Failure '||TO_CHAR(SQLCODE) || ': '||SQLERRM;
2683: END validate_structure ;
2684:
2685: /*
2720:
2721: log_message(cur_time);
2722: EXCEPTION
2723: WHEN OTHERS THEN
2724: fnd_msg_pub.add_exc_msg('gmp_aps_writer','time_stamp');
2725: e_msg := e_msg || ' time_stamp Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2726: END time_stamp ;
2727:
2728: /*
2849: COMMIT;
2850:
2851: EXCEPTION
2852: WHEN OTHERS THEN
2853: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_activity_offsets');
2854: e_msg := e_msg || ' update_activity_offsets Failure '|| TO_CHAR(SQLCODE)
2855: ||': '||SQLERRM;
2856:
2857: END update_activity_offsets;
2928: WHEN NO_DATA_FOUND THEN
2929: NULL ;
2930: WHEN OTHERS THEN
2931: return_status := -90;
2932: fnd_msg_pub.add_exc_msg('gmp_aps_writer','Insert_charges');
2933: e_msg := e_msg || ' Delete Charge Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2934: END ;
2935:
2936: -- WIP steps needs to be populated with activity_seq Number
3007: WHEN NO_DATA_FOUND THEN
3008: return_status := 1 ;
3009: WHEN OTHERS THEN
3010: return_status := -90;
3011: fnd_msg_pub.add_exc_msg('gmp_aps_writer','Insert_charges');
3012: e_msg := e_msg || ' Insert_charges Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
3013: END Insert_charges ;
3014:
3015: /*
3028: LOG_MESSAGE(pBUFF);
3029: END IF;
3030: END gmp_debug_message;
3031:
3032: END gmp_aps_writer;