[Home] [Help]
1: PACKAGE BODY PA_UTILS4 AS
2: /* $Header: PAXGUT4B.pls 120.10.12010000.2 2008/08/28 09:22:52 byeturi ship $ */
3:
4: PROCEDURE print_msg(p_msg varchar2) IS
5: BEGIN
2: /* $Header: PAXGUT4B.pls 120.10.12010000.2 2008/08/28 09:22:52 byeturi ship $ */
3:
4: PROCEDURE print_msg(p_msg varchar2) IS
5: BEGIN
6: --dbms_output.put_line('Log:PA_UTILS4:'||p_msg);
7: --r_debug.r_msg('Log:PA_UTILS4:'||p_msg);
8: null;
9: END print_msg;
10:
3:
4: PROCEDURE print_msg(p_msg varchar2) IS
5: BEGIN
6: --dbms_output.put_line('Log:PA_UTILS4:'||p_msg);
7: --r_debug.r_msg('Log:PA_UTILS4:'||p_msg);
8: null;
9: END print_msg;
10:
11: /* This API returns true if thera are any transactions exists in contract commitment
178: END IF;
179: End if;
180:
181: /** call the api which derives work type id **/
182: If x_work_type_id is null and nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y' Then
183:
184: x_work_type_id := Get_work_type_id
185: ( p_project_id =>p_project_id
186: ,p_task_id =>p_task_id
192: * project , task in both cases the transaction import program should
193: * reject the transaction
194: **/
195:
196: If x_work_type_id is Null and pa_utils4.is_exp_work_type_enabled = 'Y' then
197: x_error_message_code := 'INVALID_WORK_TYPE';
198: x_return_status := 'E';
199: Return;
200: End if;
262: --l_plsql_index Number;
263:
264: BEGIN
265:
266: /* If nvl(pa_utils4.is_exp_work_type_enabled,'N') = 'Y' Then commented for bug 3661894*/
267:
268: If (G_PrevWkPrjId = p_project_id and
269: G_PrevWkTskId = p_task_id and
270: Nvl(G_PrevWkAsgnId,0) = Nvl(p_assignment_id,0)) Then
318: BEGIN
319: l_workTypeId := nvl(p_work_type_id,99999999);
320:
321: -- Check if there are any records in the pl/sql table
322: If pa_utils4.G_WorkTypeNameRecTab.count > 0 then
323: Begin
324:
325: -- Get the Project Number from the pl/sql table.
326: -- If there is no index with the value of the project_id passed
324:
325: -- Get the Project Number from the pl/sql table.
326: -- If there is no index with the value of the project_id passed
327: -- in then an ora-1403: no_data_found is generated.
328: l_work_type_name := pa_utils4.G_WorkTypeNameRecTab(l_workTypeId).work_type_name;
329: l_Found := TRUE;
330: print_msg('Retreiving workTypeName from cache['||l_work_type_name||']' );
331:
332: Exception
340: End If;
341:
342: -- Since the project has not been cached yet, will need to add it.
343: -- So check to see if there are already 200 records in the pl/sql table.
344: If pa_utils4.G_WorkTypeNameRecTab.COUNT > 199 Then
345:
346: pa_utils4.G_WorkTypeNameRecTab.Delete;
347: l_Found := FALSE;
348:
342: -- Since the project has not been cached yet, will need to add it.
343: -- So check to see if there are already 200 records in the pl/sql table.
344: If pa_utils4.G_WorkTypeNameRecTab.COUNT > 199 Then
345:
346: pa_utils4.G_WorkTypeNameRecTab.Delete;
347: l_Found := FALSE;
348:
349: End If;
350:
355: FROM pa_work_types_tl
356: WHERE work_type_id = p_work_type_id
357: and language = userenv('LANG');
358: End if;
359: pa_utils4.G_WorkTypeNameRecTab(l_workTypeId).work_type_name := l_work_type_name;
360: End If;
361:
362: Return l_work_type_name;
363:
379: BEGIN
380:
381: l_assignmentId := nvl(p_assignment_id,0);
382:
383: If pa_utils4.G_AssignNameRecTab.COUNT > 0 then
384: Begin
385:
386: l_assignment_name := pa_utils4.G_AssignNameRecTab(l_assignmentId).assignment_name;
387: l_found := TRUE;
382:
383: If pa_utils4.G_AssignNameRecTab.COUNT > 0 then
384: Begin
385:
386: l_assignment_name := pa_utils4.G_AssignNameRecTab(l_assignmentId).assignment_name;
387: l_found := TRUE;
388: Exception
389: when no_data_found then
390: l_found := FALSE;
394: End;
395:
396: End If;
397:
398: If pa_utils4.G_AssignNameRecTab.COUNT > 199 then
399:
400: pa_utils4.G_AssignNameRecTab.delete;
401: l_found := FALSE;
402:
396: End If;
397:
398: If pa_utils4.G_AssignNameRecTab.COUNT > 199 then
399:
400: pa_utils4.G_AssignNameRecTab.delete;
401: l_found := FALSE;
402:
403: End If;
404:
419: FROM pa_project_assignments
420: WHERE assignment_id = p_assignment_id;
421:
422: End If;
423: pa_utils4.G_AssignNameRecTab(l_assignmentId).assignment_name := l_assignment_name;
424:
425: End if;
426: End If;
427: Return l_assignment_name;
456: nvl(to_char(trunc(p_ei_date),'DDMMYYYY'),99999999);
457:
458: print_msg('l_plsql_index in get_assignment_id api['||l_plsql_index||']' );
459:
460: If pa_utils4.G_AssignIdRecTab.COUNT > 0 then
461: Begin
462: x_assignment_id := pa_utils4.G_AssignIdRecTab(l_plsql_index).assignment_id;
463: print_msg('Retreiving assignment_id from Cache['||x_assignment_id||']' );
464: l_found := true;
458: print_msg('l_plsql_index in get_assignment_id api['||l_plsql_index||']' );
459:
460: If pa_utils4.G_AssignIdRecTab.COUNT > 0 then
461: Begin
462: x_assignment_id := pa_utils4.G_AssignIdRecTab(l_plsql_index).assignment_id;
463: print_msg('Retreiving assignment_id from Cache['||x_assignment_id||']' );
464: l_found := true;
465:
466: Exception
471: End;
472:
473: End If;
474:
475: If pa_utils4.G_AssignIdRecTab.COUNT > 199 then
476: pa_utils4.G_AssignIdRecTab.delete;
477: l_found := FALSE;
478: End if;
479:
472:
473: End If;
474:
475: If pa_utils4.G_AssignIdRecTab.COUNT > 199 then
476: pa_utils4.G_AssignIdRecTab.delete;
477: l_found := FALSE;
478: End if;
479:
480: If Not l_found Then
478: End if;
479:
480: If Not l_found Then
481:
482: print_msg('global profile G_PRM_INSTALLED_FLAG:['||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
483:
484: If PA_UTILS4.G_PRM_INSTALLED_FLAG is NULL then
485: PA_UTILS4.G_PRM_INSTALLED_FLAG := nvl(PA_INSTALL.is_prm_licensed,'N');
486: print_msg('Executing query to get profile value G_PRM_INSTALLED_FLAG:['
480: If Not l_found Then
481:
482: print_msg('global profile G_PRM_INSTALLED_FLAG:['||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
483:
484: If PA_UTILS4.G_PRM_INSTALLED_FLAG is NULL then
485: PA_UTILS4.G_PRM_INSTALLED_FLAG := nvl(PA_INSTALL.is_prm_licensed,'N');
486: print_msg('Executing query to get profile value G_PRM_INSTALLED_FLAG:['
487: ||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
488: End If;
481:
482: print_msg('global profile G_PRM_INSTALLED_FLAG:['||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
483:
484: If PA_UTILS4.G_PRM_INSTALLED_FLAG is NULL then
485: PA_UTILS4.G_PRM_INSTALLED_FLAG := nvl(PA_INSTALL.is_prm_licensed,'N');
486: print_msg('Executing query to get profile value G_PRM_INSTALLED_FLAG:['
487: ||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
488: End If;
489:
483:
484: If PA_UTILS4.G_PRM_INSTALLED_FLAG is NULL then
485: PA_UTILS4.G_PRM_INSTALLED_FLAG := nvl(PA_INSTALL.is_prm_licensed,'N');
486: print_msg('Executing query to get profile value G_PRM_INSTALLED_FLAG:['
487: ||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
488: End If;
489:
490: --If nvl(PA_INSTALL.is_prm_licensed,'N') = 'Y' Then commented out for performance
491:
488: End If;
489:
490: --If nvl(PA_INSTALL.is_prm_licensed,'N') = 'Y' Then commented out for performance
491:
492: IF PA_UTILS4.G_PRM_INSTALLED_FLAG = 'Y' then
493: -- call the api which derives assignment_id and assignment_name
494: PA_ASSIGNMENT_UTILS.Get_Person_Asgmt
495: ( p_person_id => p_person_id
496: ,p_project_id => p_project_id
504: x_assignment_id := 0;
505: End If;
506: End if;
507: print_msg('Retreiving assignment_id from query['||x_assignment_id||']' );
508: pa_utils4.G_AssignIdRecTab(l_plsql_index).assignment_id := x_assignment_id ;
509:
510: End If;
511:
512: */
513:
514: /* Bug 4092732 : Regardless of PJR license, matching assignment should be stamped against
515: an expenditure item. (assignment_id should be populated on
516: pa_expenditure_items_all based on project assignment)
517: If PA_UTILS4.G_PRM_INSTALLED_FLAG is NULL then
518:
519: PA_UTILS4.G_PRM_INSTALLED_FLAG := nvl(PA_INSTALL.is_prm_licensed,'N');
520:
521: print_msg('Executing query to get profile value G_PRM_INSTALLED_FLAG:['
515: an expenditure item. (assignment_id should be populated on
516: pa_expenditure_items_all based on project assignment)
517: If PA_UTILS4.G_PRM_INSTALLED_FLAG is NULL then
518:
519: PA_UTILS4.G_PRM_INSTALLED_FLAG := nvl(PA_INSTALL.is_prm_licensed,'N');
520:
521: print_msg('Executing query to get profile value G_PRM_INSTALLED_FLAG:['
522: ||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
523: End If;
518:
519: PA_UTILS4.G_PRM_INSTALLED_FLAG := nvl(PA_INSTALL.is_prm_licensed,'N');
520:
521: print_msg('Executing query to get profile value G_PRM_INSTALLED_FLAG:['
522: ||PA_UTILS4.G_PRM_INSTALLED_FLAG||']' );
523: End If;
524:
525: */
526:
523: End If;
524:
525: */
526:
527: ---- Bug 4092732 IF PA_UTILS4.G_PRM_INSTALLED_FLAG = 'Y' then
528:
529:
530: If (G_PrevAsgPerId = p_person_id and
531: G_PrevAsgPrjId = p_project_id and
583: BEGIN
584: l_workTypeId := nvl(p_work_type_id,99999999);
585:
586: -- Check if there are any records in the pl/sql table
587: If pa_utils4.G_TpAmtTypeRecTab.count > 0 then
588: Begin
589:
590: -- Get the Project Number from the pl/sql table.
591: -- If there is no index with the value of the project_id passed
589:
590: -- Get the Project Number from the pl/sql table.
591: -- If there is no index with the value of the project_id passed
592: -- in then an ora-1403: no_data_found is generated.
593: l_tp_amt_code := pa_utils4.G_TpAmtTypeRecTab(l_workTypeId).tp_amt_type_code;
594: l_Found := TRUE;
595: print_msg('Retreiving l_tp_amt_code from cache['||l_tp_amt_code||']' );
596:
597: Exception
605: End If;
606:
607: -- Since the project has not been cached yet, will need to add it.
608: -- So check to see if there are already 200 records in the pl/sql table.
609: If pa_utils4.G_TpAmtTypeRecTab.COUNT > 199 Then
610:
611: pa_utils4.G_TpAmtTypeRecTab.Delete;
612: l_Found := FALSE;
613:
607: -- Since the project has not been cached yet, will need to add it.
608: -- So check to see if there are already 200 records in the pl/sql table.
609: If pa_utils4.G_TpAmtTypeRecTab.COUNT > 199 Then
610:
611: pa_utils4.G_TpAmtTypeRecTab.Delete;
612: l_Found := FALSE;
613:
614: End If;
615:
623: WHERE work_type_id = p_work_type_id
624: AND trunc(sysdate) between start_date_active
625: and nvl(end_date_active,sysdate);
626: End if;
627: pa_utils4.G_TpAmtTypeRecTab(l_workTypeId).tp_amt_type_code := l_tp_amt_code;
628: End If;
629:
630: Return l_tp_amt_code;
631:
644: FUNCTION is_exp_work_type_enabled RETURN VARCHAR2 IS
645:
646: l_enabled_flag varchar2(1);
647: BEGIN
648: print_msg('global value G_WORKTYPE_ENABLED['||PA_UTILS4.G_WORKTYPE_ENABLED||']' );
649: /* cache the profile value in global variable and return it */
650:
651: IF PA_UTILS4.G_WORKTYPE_ENABLED is NULL then
652:
647: BEGIN
648: print_msg('global value G_WORKTYPE_ENABLED['||PA_UTILS4.G_WORKTYPE_ENABLED||']' );
649: /* cache the profile value in global variable and return it */
650:
651: IF PA_UTILS4.G_WORKTYPE_ENABLED is NULL then
652:
653: SELECT nvl(fnd_profile.value_specific('PA_EN_NEW_WORK_TYPE_PROCESS'),'N')
654: INTO l_enabled_flag
655: FROM dual;
652:
653: SELECT nvl(fnd_profile.value_specific('PA_EN_NEW_WORK_TYPE_PROCESS'),'N')
654: INTO l_enabled_flag
655: FROM dual;
656: PA_UTILS4.G_WORKTYPE_ENABLED := l_enabled_flag;
657: print_msg('Executing query to get profile G_WORKTYPE_ENABLED['||PA_UTILS4.G_WORKTYPE_ENABLED||']' );
658:
659: End If;
660:
653: SELECT nvl(fnd_profile.value_specific('PA_EN_NEW_WORK_TYPE_PROCESS'),'N')
654: INTO l_enabled_flag
655: FROM dual;
656: PA_UTILS4.G_WORKTYPE_ENABLED := l_enabled_flag;
657: print_msg('Executing query to get profile G_WORKTYPE_ENABLED['||PA_UTILS4.G_WORKTYPE_ENABLED||']' );
658:
659: End If;
660:
661: /* In Grants Implemented in OU , work type is not supported */
658:
659: End If;
660:
661: /* In Grants Implemented in OU , work type is not supported */
662: IF PA_UTILS4.G_WORKTYPE_ENABLED = 'Y' then
663: IF (GMS_INSTALL.enabled) THEN
664: PA_UTILS4.G_WORKTYPE_ENABLED := 'N';
665: END IF;
666: END IF;
660:
661: /* In Grants Implemented in OU , work type is not supported */
662: IF PA_UTILS4.G_WORKTYPE_ENABLED = 'Y' then
663: IF (GMS_INSTALL.enabled) THEN
664: PA_UTILS4.G_WORKTYPE_ENABLED := 'N';
665: END IF;
666: END IF;
667:
668: return PA_UTILS4.G_WORKTYPE_ENABLED;
664: PA_UTILS4.G_WORKTYPE_ENABLED := 'N';
665: END IF;
666: END IF;
667:
668: return PA_UTILS4.G_WORKTYPE_ENABLED;
669: EXCEPTION
670: WHEN NO_DATA_FOUND then
671: PA_UTILS4.G_WORKTYPE_ENABLED := 'N';
672: return PA_UTILS4.G_WORKTYPE_ENABLED;
667:
668: return PA_UTILS4.G_WORKTYPE_ENABLED;
669: EXCEPTION
670: WHEN NO_DATA_FOUND then
671: PA_UTILS4.G_WORKTYPE_ENABLED := 'N';
672: return PA_UTILS4.G_WORKTYPE_ENABLED;
673:
674: WHEN OTHERS THEN
675: RAISE;
668: return PA_UTILS4.G_WORKTYPE_ENABLED;
669: EXCEPTION
670: WHEN NO_DATA_FOUND then
671: PA_UTILS4.G_WORKTYPE_ENABLED := 'N';
672: return PA_UTILS4.G_WORKTYPE_ENABLED;
673:
674: WHEN OTHERS THEN
675: RAISE;
676:
681: FUNCTION is_worktype_billable_enabled RETURN VARCHAR2 IS
682:
683: l_enabled_flag varchar2(1);
684: BEGIN
685: print_msg('global profile G_WORKTYPE_BILLABILITY value: ['||PA_UTILS4.G_WORKTYPE_BILLABILITY||']' );
686: --Added this check as if the work type profile is not enabled then
687: --work type billablity cannot be enabled
688: IF is_exp_work_type_enabled = 'Y' then
689:
686: --Added this check as if the work type profile is not enabled then
687: --work type billablity cannot be enabled
688: IF is_exp_work_type_enabled = 'Y' then
689:
690: IF PA_UTILS4.G_WORKTYPE_BILLABILITY is NULL then
691:
692: SELECT nvl(fnd_profile.value_specific('PA_TRXN_BILLABLE_WORK_TYPE'),'N')
693: INTO l_enabled_flag
694: FROM dual;
691:
692: SELECT nvl(fnd_profile.value_specific('PA_TRXN_BILLABLE_WORK_TYPE'),'N')
693: INTO l_enabled_flag
694: FROM dual;
695: PA_UTILS4.G_WORKTYPE_BILLABILITY := l_enabled_flag;
696: print_msg('Executing query to get profile G_WORKTYPE_BILLABILITY: ['
697: ||PA_UTILS4.G_WORKTYPE_BILLABILITY||']' );
698: End If;
699:
693: INTO l_enabled_flag
694: FROM dual;
695: PA_UTILS4.G_WORKTYPE_BILLABILITY := l_enabled_flag;
696: print_msg('Executing query to get profile G_WORKTYPE_BILLABILITY: ['
697: ||PA_UTILS4.G_WORKTYPE_BILLABILITY||']' );
698: End If;
699:
700:
701: ELse
699:
700:
701: ELse
702: /* l_enabled_flag := 'N'; commented out for performance issue */
703: PA_UTILS4.G_WORKTYPE_BILLABILITY := 'N';
704: End if;
705:
706: /* return l_enabled_flag; */
707: return PA_UTILS4.G_WORKTYPE_BILLABILITY;
703: PA_UTILS4.G_WORKTYPE_BILLABILITY := 'N';
704: End if;
705:
706: /* return l_enabled_flag; */
707: return PA_UTILS4.G_WORKTYPE_BILLABILITY;
708: EXCEPTION
709:
710: WHEN OTHERS THEN
711: RAISE;
1048: FUNCTION get_org_id RETURN NUMBER IS
1049:
1050: BEGIN
1051:
1052: IF PA_UTILS4.G_imp_org_id IS NOT NULL Then
1053: Return G_imp_org_id;
1054: End IF;
1055:
1056: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1052: IF PA_UTILS4.G_imp_org_id IS NOT NULL Then
1053: Return G_imp_org_id;
1054: End IF;
1055:
1056: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1057: ,x_org_id =>PA_UTILS4.G_imp_org_id
1058: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1059: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1060: );
1053: Return G_imp_org_id;
1054: End IF;
1055:
1056: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1057: ,x_org_id =>PA_UTILS4.G_imp_org_id
1058: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1059: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1060: );
1061:
1054: End IF;
1055:
1056: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1057: ,x_org_id =>PA_UTILS4.G_imp_org_id
1058: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1059: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1060: );
1061:
1062: Return PA_UTILS4.G_imp_org_id;
1055:
1056: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1057: ,x_org_id =>PA_UTILS4.G_imp_org_id
1058: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1059: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1060: );
1061:
1062: Return PA_UTILS4.G_imp_org_id;
1063:
1058: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1059: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1060: );
1061:
1062: Return PA_UTILS4.G_imp_org_id;
1063:
1064: EXCEPTION
1065: WHEN OTHERS THEN
1066: Return PA_UTILS4.G_imp_org_id;
1062: Return PA_UTILS4.G_imp_org_id;
1063:
1064: EXCEPTION
1065: WHEN OTHERS THEN
1066: Return PA_UTILS4.G_imp_org_id;
1067:
1068: END get_org_id;
1069:
1070: /** This API returns set_of_books_id from the implementations
1071: **/
1072: FUNCTION get_primary_sob RETURN NUMBER IS
1073:
1074: BEGIN
1075: IF PA_UTILS4.G_imp_sob_id IS NOT NULL Then
1076: Return PA_UTILS4.G_imp_sob_id;
1077: End IF;
1078:
1079: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1072: FUNCTION get_primary_sob RETURN NUMBER IS
1073:
1074: BEGIN
1075: IF PA_UTILS4.G_imp_sob_id IS NOT NULL Then
1076: Return PA_UTILS4.G_imp_sob_id;
1077: End IF;
1078:
1079: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1080: ,x_org_id =>PA_UTILS4.G_imp_org_id
1075: IF PA_UTILS4.G_imp_sob_id IS NOT NULL Then
1076: Return PA_UTILS4.G_imp_sob_id;
1077: End IF;
1078:
1079: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1080: ,x_org_id =>PA_UTILS4.G_imp_org_id
1081: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1082: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1083: );
1076: Return PA_UTILS4.G_imp_sob_id;
1077: End IF;
1078:
1079: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1080: ,x_org_id =>PA_UTILS4.G_imp_org_id
1081: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1082: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1083: );
1084:
1077: End IF;
1078:
1079: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1080: ,x_org_id =>PA_UTILS4.G_imp_org_id
1081: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1082: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1083: );
1084:
1085: Return PA_UTILS4.G_imp_sob_id;
1078:
1079: get_imp_values(x_prim_sob =>PA_UTILS4.G_imp_sob_id
1080: ,x_org_id =>PA_UTILS4.G_imp_org_id
1081: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1082: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1083: );
1084:
1085: Return PA_UTILS4.G_imp_sob_id;
1086:
1081: ,x_book_type_code =>PA_UTILS4.G_imp_book_type_code
1082: ,x_business_group =>PA_UTILS4.G_imp_bus_group
1083: );
1084:
1085: Return PA_UTILS4.G_imp_sob_id;
1086:
1087: EXCEPTION
1088: WHEN OTHERS THEN
1089: Return PA_UTILS4.G_imp_sob_id;
1085: Return PA_UTILS4.G_imp_sob_id;
1086:
1087: EXCEPTION
1088: WHEN OTHERS THEN
1089: Return PA_UTILS4.G_imp_sob_id;
1090: END get_primary_sob;
1091:
1092: /** This API returns the Implementation values **/
1093: PROCEDURE get_imp_values(x_prim_sob OUT NOCOPY Number
1097: ) IS
1098:
1099: BEGIN
1100:
1101: IF (PA_UTILS4.G_imp_sob_id is NULL OR PA_UTILS4.G_imp_org_id IS NULL or
1102: PA_UTILS4.G_imp_book_type_code <> 'X' or PA_UTILS4.G_imp_bus_group is NULL) Then
1103:
1104: SELECT SET_OF_BOOKS_ID
1105: ,ORG_ID
1098:
1099: BEGIN
1100:
1101: IF (PA_UTILS4.G_imp_sob_id is NULL OR PA_UTILS4.G_imp_org_id IS NULL or
1102: PA_UTILS4.G_imp_book_type_code <> 'X' or PA_UTILS4.G_imp_bus_group is NULL) Then
1103:
1104: SELECT SET_OF_BOOKS_ID
1105: ,ORG_ID
1106: ,nvl(BOOK_TYPE_CODE,'X')
1104: SELECT SET_OF_BOOKS_ID
1105: ,ORG_ID
1106: ,nvl(BOOK_TYPE_CODE,'X')
1107: ,BUSINESS_GROUP_ID
1108: INTO PA_UTILS4.G_imp_sob_id
1109: ,PA_UTILS4.G_imp_org_id
1110: ,PA_UTILS4.G_imp_book_type_code
1111: ,PA_UTILS4.G_imp_bus_group
1112: FROM pa_implementations;
1105: ,ORG_ID
1106: ,nvl(BOOK_TYPE_CODE,'X')
1107: ,BUSINESS_GROUP_ID
1108: INTO PA_UTILS4.G_imp_sob_id
1109: ,PA_UTILS4.G_imp_org_id
1110: ,PA_UTILS4.G_imp_book_type_code
1111: ,PA_UTILS4.G_imp_bus_group
1112: FROM pa_implementations;
1113:
1106: ,nvl(BOOK_TYPE_CODE,'X')
1107: ,BUSINESS_GROUP_ID
1108: INTO PA_UTILS4.G_imp_sob_id
1109: ,PA_UTILS4.G_imp_org_id
1110: ,PA_UTILS4.G_imp_book_type_code
1111: ,PA_UTILS4.G_imp_bus_group
1112: FROM pa_implementations;
1113:
1114: End IF;
1107: ,BUSINESS_GROUP_ID
1108: INTO PA_UTILS4.G_imp_sob_id
1109: ,PA_UTILS4.G_imp_org_id
1110: ,PA_UTILS4.G_imp_book_type_code
1111: ,PA_UTILS4.G_imp_bus_group
1112: FROM pa_implementations;
1113:
1114: End IF;
1115:
1112: FROM pa_implementations;
1113:
1114: End IF;
1115:
1116: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1117: x_org_id := PA_UTILS4.G_imp_org_id;
1118: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1119: x_business_group := PA_UTILS4.G_imp_bus_group;
1120:
1113:
1114: End IF;
1115:
1116: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1117: x_org_id := PA_UTILS4.G_imp_org_id;
1118: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1119: x_business_group := PA_UTILS4.G_imp_bus_group;
1120:
1121: EXCEPTION
1114: End IF;
1115:
1116: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1117: x_org_id := PA_UTILS4.G_imp_org_id;
1118: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1119: x_business_group := PA_UTILS4.G_imp_bus_group;
1120:
1121: EXCEPTION
1122: when no_data_found then
1115:
1116: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1117: x_org_id := PA_UTILS4.G_imp_org_id;
1118: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1119: x_business_group := PA_UTILS4.G_imp_bus_group;
1120:
1121: EXCEPTION
1122: when no_data_found then
1123: PA_UTILS4.G_imp_sob_id := Null;
1119: x_business_group := PA_UTILS4.G_imp_bus_group;
1120:
1121: EXCEPTION
1122: when no_data_found then
1123: PA_UTILS4.G_imp_sob_id := Null;
1124: PA_UTILS4.G_imp_org_id := Null;
1125: PA_UTILS4.G_imp_book_type_code := Null;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1120:
1121: EXCEPTION
1122: when no_data_found then
1123: PA_UTILS4.G_imp_sob_id := Null;
1124: PA_UTILS4.G_imp_org_id := Null;
1125: PA_UTILS4.G_imp_book_type_code := Null;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1128: x_org_id := PA_UTILS4.G_imp_org_id;
1121: EXCEPTION
1122: when no_data_found then
1123: PA_UTILS4.G_imp_sob_id := Null;
1124: PA_UTILS4.G_imp_org_id := Null;
1125: PA_UTILS4.G_imp_book_type_code := Null;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1128: x_org_id := PA_UTILS4.G_imp_org_id;
1129: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1122: when no_data_found then
1123: PA_UTILS4.G_imp_sob_id := Null;
1124: PA_UTILS4.G_imp_org_id := Null;
1125: PA_UTILS4.G_imp_book_type_code := Null;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1128: x_org_id := PA_UTILS4.G_imp_org_id;
1129: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1130: x_business_group := PA_UTILS4.G_imp_bus_group;
1123: PA_UTILS4.G_imp_sob_id := Null;
1124: PA_UTILS4.G_imp_org_id := Null;
1125: PA_UTILS4.G_imp_book_type_code := Null;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1128: x_org_id := PA_UTILS4.G_imp_org_id;
1129: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1130: x_business_group := PA_UTILS4.G_imp_bus_group;
1131: RETURN;
1124: PA_UTILS4.G_imp_org_id := Null;
1125: PA_UTILS4.G_imp_book_type_code := Null;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1128: x_org_id := PA_UTILS4.G_imp_org_id;
1129: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1130: x_business_group := PA_UTILS4.G_imp_bus_group;
1131: RETURN;
1132: when others then
1125: PA_UTILS4.G_imp_book_type_code := Null;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1128: x_org_id := PA_UTILS4.G_imp_org_id;
1129: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1130: x_business_group := PA_UTILS4.G_imp_bus_group;
1131: RETURN;
1132: when others then
1133: Raise;
1126: PA_UTILS4.G_imp_bus_group := Null;
1127: x_prim_sob := PA_UTILS4.G_imp_sob_id;
1128: x_org_id := PA_UTILS4.G_imp_org_id;
1129: x_book_type_code := PA_UTILS4.G_imp_book_type_code;
1130: x_business_group := PA_UTILS4.G_imp_bus_group;
1131: RETURN;
1132: when others then
1133: Raise;
1134:
1189: x_msg_data := 'PA_TASK_CC_TXN_EXIST';
1190: x_return_status := 'E';
1191: x_msg_count := 1;
1192:
1193: PA_UTILS.ADD_MESSAGE( p_app_short_name => 'PA'
1194: ,p_msg_name =>x_msg_data
1195: );
1196:
1197: End if;
1416: FUNCTION get_invoice_payment_num(p_transaction_source IN VARCHAR2,p_inv_payment_id IN VARCHAR2) Return NUMBER IS
1417: l_inv_payment_id NUMBER:= NULL ;
1418: Begin
1419:
1420: If (PA_UTILS4.get_ledger_cash_basis_flag = 'Y' or p_transaction_source = 'AP DISCOUNTS') Then -- Accounting Method is Cash.
1421:
1422: select chk.check_number
1423: into l_inv_payment_id
1424: from ap_checks chk,
1486: RETURN l_pa_implemented;
1487:
1488: END IsProjectsImplemented;
1489:
1490: END pa_utils4;