1: PACKAGE BODY gmp_aps_writer AS
2: /* $Header: GMPAPSWB.pls 120.15.12010000.1 2008/07/30 06:14:50 appldev ship $ */
3:
4: /*
5: REM+==========================================================================+
234: AND process_id = p_group_id
235: AND header_id = p_header_id ;
236: EXCEPTION
237: WHEN OTHERS THEN
238: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
239: e_msg := e_msg || ' Main Porgam Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
240: return_status := -131 ;
241: return_msg := e_msg ;
242: END;
444: AND group_id = p_group_id
445: AND parent_header_id = p_header_id ;
446: EXCEPTION
447: WHEN OTHERS THEN
448: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
449: e_msg := e_msg || ' WIP/completed step: '||TO_CHAR(SQLCODE)||': '||SQLERRM ;
450: sreturn_status := -1 ;
451: EXIT;
452: END;
521: EXCEPTION
522: WHEN NO_DATA_FOUND THEN
523: null;
524: WHEN OTHERS THEN
525: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
526: e_msg := e_msg || ' Attribute9: '||TO_CHAR(SQLCODE)||': '||SQLERRM ;
527: sreturn_status := -1 ;
528: END ;
529:
1067: END IF; /* action type */
1068:
1069: EXCEPTION
1070: WHEN OTHERS THEN
1071: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
1072: e_msg := e_msg || ' Transactions: '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1073: rreturn_status := -13 ;
1074: EXIT;
1075: END;
1138: EXCEPTION
1139: WHEN NO_DATA_FOUND THEN
1140: NULL ;
1141: WHEN OTHERS THEN
1142: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
1143: e_msg := e_msg || ' WIP/completed step: '||TO_CHAR(SQLCODE)||': '||SQLERRM ;
1144: areturn_status := -1 ;
1145: END;
1146:
1314: return_msg := e_msg ;
1315:
1316: EXCEPTION
1317: WHEN OTHERS THEN
1318: fnd_msg_pub.add_exc_msg('gmp_aps_writer','main_process');
1319: e_msg := e_msg || ' Main Porgam Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1320: return_status := -99 ;
1321: return_msg := e_msg ;
1322: END main_process ;
1541:
1542: EXCEPTION
1543: WHEN OTHERS THEN
1544: return_status := -96;
1545: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_step_resources');
1546: e_msg := e_msg || ' Update Step Resources Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1547: END update_step_resources;
1548:
1549: /*
1624:
1625: EXCEPTION
1626: WHEN OTHERS THEN
1627: return_status := -97;
1628: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_resource_transactions');
1629: e_msg := e_msg || ' Update SResource Transaction Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1630: END update_resource_transactions;
1631:
1632: /*
1852: END IF; /* Not found */
1853: EXCEPTION
1854: WHEN OTHERS THEN
1855: return_status := -98;
1856: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_activities');
1857: e_msg := e_msg || ' Update Step Activities Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1858: END update_batch_activities;
1859:
1860: /*
1929: CLOSE get_step_material;
1930: EXCEPTION
1931: WHEN OTHERS THEN
1932: return_status := -89;
1933: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_materails');
1934: e_msg := e_msg || ' Update Materails Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1935: END update_materails;
1936:
1937: /*
1980: WHEN NO_DATA_FOUND THEN
1981: v_plan_charges := 0;
1982: WHEN OTHERS THEN
1983: return_status := -995;
1984: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_steps');
1985: e_msg := e_msg || ' CHARGE in Step Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
1986: END;
1987:
1988: IF pdue_date IS NOT NULL THEN
2053:
2054: EXCEPTION
2055: WHEN OTHERS THEN
2056: return_status := -95;
2057: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_steps');
2058: e_msg := e_msg || ' Update Batch Step Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2059: END update_batch_steps;
2060:
2061: /*
2125:
2126: EXCEPTION
2127: WHEN OTHERS THEN
2128: return_status := -94;
2129: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_batch_header');
2130: e_msg := e_msg || ' Update Batch Header Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2131: END update_batch_header;
2132:
2133: /*
2257:
2258: EXCEPTION
2259: WHEN OTHERS THEN
2260: return_status := -92;
2261: fnd_msg_pub.add_exc_msg('gmp_aps_writer','lock_batch_details');
2262: e_msg := e_msg || ' Loocking Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2263: END lock_batch_details;
2264:
2265: /*
2574: struc_size := structure_size ; /*B3583620 */
2575: EXCEPTION
2576: WHEN OTHERS THEN
2577: return_status := -91;
2578: fnd_msg_pub.add_exc_msg('gmp_aps_writer','valildate_structure');
2579: e_msg := e_msg || ' Validation Failure '||TO_CHAR(SQLCODE) || ': '||SQLERRM;
2580: END validate_structure ;
2581:
2582: /*
2617:
2618: log_message(cur_time);
2619: EXCEPTION
2620: WHEN OTHERS THEN
2621: fnd_msg_pub.add_exc_msg('gmp_aps_writer','time_stamp');
2622: e_msg := e_msg || ' time_stamp Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2623: END time_stamp ;
2624:
2625: /*
2746: COMMIT;
2747:
2748: EXCEPTION
2749: WHEN OTHERS THEN
2750: fnd_msg_pub.add_exc_msg('gmp_aps_writer','update_activity_offsets');
2751: e_msg := e_msg || ' update_activity_offsets Failure '|| TO_CHAR(SQLCODE)
2752: ||': '||SQLERRM;
2753:
2754: END update_activity_offsets;
2825: WHEN NO_DATA_FOUND THEN
2826: NULL ;
2827: WHEN OTHERS THEN
2828: return_status := -90;
2829: fnd_msg_pub.add_exc_msg('gmp_aps_writer','Insert_charges');
2830: e_msg := e_msg || ' Delete Charge Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2831: END ;
2832:
2833: -- WIP steps needs to be populated with activity_seq Number
2904: WHEN NO_DATA_FOUND THEN
2905: return_status := 1 ;
2906: WHEN OTHERS THEN
2907: return_status := -90;
2908: fnd_msg_pub.add_exc_msg('gmp_aps_writer','Insert_charges');
2909: e_msg := e_msg || ' Insert_charges Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2910: END Insert_charges ;
2911:
2912: END gmp_aps_writer;
2908: fnd_msg_pub.add_exc_msg('gmp_aps_writer','Insert_charges');
2909: e_msg := e_msg || ' Insert_charges Failure '||TO_CHAR(SQLCODE)||': '||SQLERRM;
2910: END Insert_charges ;
2911:
2912: END gmp_aps_writer;