[Home] [Help]
1: PACKAGE BODY PA_TOP_TASK_CUST_INVOICE_PVT AS
2: /* $Header: PATOPCIB.pls 120.3 2007/02/06 10:05:38 dthakker ship $ */
3:
4: g_module_name VARCHAR2(100) := 'PA_TOP_TASK_CUST_INVOICE_PVT';
5: Invalid_Arg_Exc EXCEPTION;
1: PACKAGE BODY PA_TOP_TASK_CUST_INVOICE_PVT AS
2: /* $Header: PATOPCIB.pls 120.3 2007/02/06 10:05:38 dthakker ship $ */
3:
4: g_module_name VARCHAR2(100) := 'PA_TOP_TASK_CUST_INVOICE_PVT';
5: Invalid_Arg_Exc EXCEPTION;
6:
7: -- Procedure : enbl_disbl_cust_at_top_task
8: -- Type : PRIVATE
108: ( p_contr_update_cust IS NULL OR p_contr_update_cust = FND_API.G_MISS_NUM )
109: )
110: THEN
111: IF l_debug_mode = 'Y' THEN
112: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : enbl_disbl_cust_at_top_task :
113: p_mode, p_project_id, p_def_top_task_cust, p_contr_update_cust are NULL';
114: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
115: l_debug_level3);
116: END IF;
166: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
167: l_debug_level3);
168: END IF;
169:
170: PA_TOP_TASK_CUST_INVOICE_PVT.set_top_task_funding_level(
171: p_api_version => p_api_version
172: , p_init_msg_list => FND_API.G_FALSE
173: , p_commit => p_commit
174: , p_validate_only => p_validate_only
186:
187: END IF;
188: ELSE
189: IF l_debug_mode = 'Y' THEN
190: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : enbl_disbl_cust_at_top_task :
191: Mandatory parameters p_mode or p_project_id are NULL';
192: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
193: l_debug_level3);
194: END IF;
231:
232: WHEN Invalid_Arg_Exc THEN
233: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
234: x_msg_count := 1;
235: x_msg_data := ' PA_TOP_TASK_CUST_INVOICE_PVT : enbl_disbl_cust_at_top_task : NULL parameters passed';
236:
237: IF p_commit = FND_API.G_TRUE THEN
238: ROLLBACK TO en_db_cust_at_top_task_pub;
239: END IF;
238: ROLLBACK TO en_db_cust_at_top_task_pub;
239: END IF;
240:
241: Fnd_Msg_Pub.add_exc_msg
242: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
243: , p_procedure_name => 'enbl_disbl_cust_at_top_task'
244: , p_error_text => x_msg_data);
245:
246: IF l_debug_mode = 'Y' THEN
260: ROLLBACK TO en_db_cust_at_top_task_pub;
261: END IF;
262:
263: Fnd_Msg_Pub.add_exc_msg
264: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
265: , p_procedure_name => 'enbl_disbl_cust_at_top_task'
266: , p_error_text => x_msg_data);
267:
268: IF l_debug_mode = 'Y' THEN
387: IF ( p_project_id IS NULL OR p_project_id = FND_API.G_MISS_NUM
388: )
389: THEN
390: IF l_debug_mode = 'Y' THEN
391: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : Get_Highest_Contr_Cust :
392: p_project_id is NULL';
393: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
394: l_debug_level3);
395: END IF;
462:
463: WHEN Invalid_Arg_Exc THEN
464: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
465: x_msg_count := 1;
466: x_msg_data := ' PA_TOP_TASK_CUST_INVOICE_PVT : Get_Highest_Contr_Cust : NULL parameters passed';
467:
468: -- 4537865 RESET OUT PARAMS
469: x_highst_contr_cust_id := null;
470: x_highst_contr_cust_name := null;
474: ROLLBACK TO get_highest_cont_cust_svpt;
475: END IF;
476:
477: Fnd_Msg_Pub.add_exc_msg
478: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
479: , p_procedure_name => 'Get_Highest_Contr_Cust'
480: , p_error_text => x_msg_data);
481:
482: IF l_debug_mode = 'Y' THEN
501: ROLLBACK TO get_highest_cont_cust_svpt;
502: END IF;
503:
504: Fnd_Msg_Pub.add_exc_msg
505: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
506: , p_procedure_name => 'Get_Highest_Contr_Cust'
507: , p_error_text => x_msg_data);
508:
509: IF l_debug_mode = 'Y' THEN
594: (p_rev_acc IS NULL OR p_rev_acc = FND_API.G_MISS_CHAR)
595: )
596: THEN
597: IF l_debug_mode = 'Y' THEN
598: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : Set_Rev_Acc_At_Top_Task :
599: p_project_id and p_rev_acc are NULL';
600: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
601: l_debug_level3);
602: END IF;
611: WHERE project_id = p_project_id;
612:
613: ELSE
614: IF l_debug_mode = 'Y' THEN
615: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : Set_Rev_Acc_At_Top_Task :
616: Mandatory parameters p_project_id or p_rev_acc are NULL';
617: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
618: l_debug_level3);
619: END IF;
656:
657: WHEN Invalid_Arg_Exc THEN
658: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
659: x_msg_count := 1;
660: x_msg_data := ' PA_TOP_TASK_CUST_INVOICE_PVT : Set_Rev_Acc_At_Top_Task : NULL parameters passed';
661:
662: IF p_commit = FND_API.G_TRUE THEN
663: ROLLBACK TO Set_Rev_Acc_At_Top_Task_svpt;
664: END IF;
663: ROLLBACK TO Set_Rev_Acc_At_Top_Task_svpt;
664: END IF;
665:
666: Fnd_Msg_Pub.add_exc_msg
667: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
668: , p_procedure_name => 'Set_Rev_Acc_At_Top_Task'
669: , p_error_text => x_msg_data);
670:
671: IF l_debug_mode = 'Y' THEN
685: ROLLBACK TO Set_Rev_Acc_At_Top_Task_svpt;
686: END IF;
687:
688: Fnd_Msg_Pub.add_exc_msg
689: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
690: , p_procedure_name => 'Set_Rev_Acc_At_Top_Task'
691: , p_error_text => x_msg_data);
692:
693: IF l_debug_mode = 'Y' THEN
778: (p_inv_mth IS NULL OR p_inv_mth = FND_API.G_MISS_CHAR)
779: )
780: THEN
781: IF l_debug_mode = 'Y' THEN
782: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : Set_Inv_Mth_At_Top_Task :
783: p_project_id and p_inv_mth are NULL';
784: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
785: l_debug_level3);
786: END IF;
794: UPDATE pa_tasks SET invoice_method = p_inv_mth
795: WHERE project_id = p_project_id;
796: ELSE
797: IF l_debug_mode = 'Y' THEN
798: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : Set_Inv_Mth_At_Top_Task :
799: Mandatory parameters p_project_id or p_inv_mth are NULL';
800: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
801: l_debug_level3);
802: END IF;
839:
840: WHEN Invalid_Arg_Exc THEN
841: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
842: x_msg_count := 1;
843: x_msg_data := ' PA_TOP_TASK_CUST_INVOICE_PVT : Set_Inv_Mth_At_Top_Task : NULL parameters passed';
844:
845: IF p_commit = FND_API.G_TRUE THEN
846: ROLLBACK TO Set_Inv_Mth_At_Top_Task_svpt;
847: END IF;
846: ROLLBACK TO Set_Inv_Mth_At_Top_Task_svpt;
847: END IF;
848:
849: Fnd_Msg_Pub.add_exc_msg
850: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
851: , p_procedure_name => 'Set_Inv_Mth_At_Top_Task'
852: , p_error_text => x_msg_data);
853:
854: IF l_debug_mode = 'Y' THEN
868: ROLLBACK TO Set_Inv_Mth_At_Top_Task_svpt;
869: END IF;
870:
871: Fnd_Msg_Pub.add_exc_msg
872: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
873: , p_procedure_name => 'Set_Inv_Mth_At_Top_Task'
874: , p_error_text => x_msg_data);
875:
876: IF l_debug_mode = 'Y' THEN
960: IF ( (p_project_id IS NULL OR p_project_id = FND_API.G_MISS_NUM)
961: )
962: THEN
963: IF l_debug_mode = 'Y' THEN
964: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : set_top_task_funding_level :
965: p_project_id is NULL';
966: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
967: l_debug_level3);
968: END IF;
1022:
1023: WHEN Invalid_Arg_Exc THEN
1024: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1025: x_msg_count := 1;
1026: x_msg_data := ' PA_TOP_TASK_CUST_INVOICE_PVT : set_top_task_funding_level : NULL parameters passed';
1027:
1028: IF p_commit = FND_API.G_TRUE THEN
1029: ROLLBACK TO set_top_tsk_funding_lvl_svpt;
1030: END IF;
1029: ROLLBACK TO set_top_tsk_funding_lvl_svpt;
1030: END IF;
1031:
1032: Fnd_Msg_Pub.add_exc_msg
1033: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
1034: , p_procedure_name => 'set_top_task_funding_level'
1035: , p_error_text => x_msg_data);
1036:
1037: IF l_debug_mode = 'Y' THEN
1051: ROLLBACK TO set_top_tsk_funding_lvl_svpt;
1052: END IF;
1053:
1054: Fnd_Msg_Pub.add_exc_msg
1055: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
1056: , p_procedure_name => 'set_top_task_funding_level'
1057: , p_error_text => x_msg_data);
1058:
1059: IF l_debug_mode = 'Y' THEN
1184: (p_customer_id IS NULL OR p_customer_id = FND_API.G_MISS_NUM)
1185: )
1186: THEN
1187: IF l_debug_mode = 'Y' THEN
1188: Pa_Debug.g_err_stage:= 'PA_TOP_TASK_CUST_INVOICE_PVT : check_delete_customer :
1189: p_project_id AND p_customer_id are NULL';
1190: Pa_Debug.WRITE(g_module_name,Pa_Debug.g_err_stage,
1191: l_debug_level3);
1192: END IF;
1218: UPDATE pa_tasks SET customer_id = l_def_top_task_cust_id
1219: WHERE project_id = p_project_id
1220: AND customer_id = p_customer_id ;
1221: ELSIF 'Y' = l_task_assoc_exists AND l_def_top_task_cust_id = p_customer_id THEN
1222: pa_top_task_cust_invoice_pvt.Get_Highest_Contr_Cust( P_API_VERSION => 1.0
1223: , P_INIT_MSG_LIST => 'T'
1224: , P_COMMIT => 'F'
1225: , P_VALIDATE_ONLY => 'F'
1226: , P_VALIDATION_LEVEL => 100
1247: END IF;
1248:
1249: END IF;
1250: ELSIF 'Y' <> l_task_assoc_exists AND l_def_top_task_cust_id = p_customer_id THEN
1251: pa_top_task_cust_invoice_pvt.Get_Highest_Contr_Cust( P_API_VERSION => 1.0
1252: , P_INIT_MSG_LIST => 'T'
1253: , P_COMMIT => 'F'
1254: , P_VALIDATE_ONLY => 'F'
1255: , P_VALIDATION_LEVEL => 100
1310:
1311: WHEN Invalid_Arg_Exc THEN
1312: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1313: x_msg_count := 1;
1314: x_msg_data := ' PA_TOP_TASK_CUST_INVOICE_PVT : check_delete_customer : NULL parameters passed';
1315:
1316: -- 4537865 : RESET OUT PARAMS
1317: x_cust_assoc := NULL ;
1318: x_cust_id := NULL ;
1323: ROLLBACK TO check_delete_customer;
1324: END IF;
1325:
1326: Fnd_Msg_Pub.add_exc_msg
1327: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
1328: , p_procedure_name => 'check_delete_customer'
1329: , p_error_text => x_msg_data);
1330:
1331: IF l_debug_mode = 'Y' THEN
1351: ROLLBACK TO check_delete_customer;
1352: END IF;
1353:
1354: Fnd_Msg_Pub.add_exc_msg
1355: ( p_pkg_name => 'PA_TOP_TASK_CUST_INVOICE_PVT'
1356: , p_procedure_name => 'check_delete_customer'
1357: , p_error_text => x_msg_data);
1358:
1359: IF l_debug_mode = 'Y' THEN
1364: END IF;
1365: RAISE;
1366: END check_delete_customer;
1367:
1368: END PA_TOP_TASK_CUST_INVOICE_PVT;