[Home] [Help]
372:
373: --
374: -- Return if WF Not Running
375: --
376: IF (funcmode <> wf_engine.eng_run) THEN
377: --
378: resultout := wf_engine.eng_null;
379: RETURN;
380: --
374: -- Return if WF Not Running
375: --
376: IF (funcmode <> wf_engine.eng_run) THEN
377: --
378: resultout := wf_engine.eng_null;
379: RETURN;
380: --
381: END IF;
382: --
383:
384: -- GET BUDGET ITEM ATTRIBUTES for Subsequent Processing -----------------------
385:
386:
387: l_draft_version_id := wf_engine.GetItemAttrNumber(
388: itemtype => itemtype,
389: itemkey => itemkey,
390: aname => 'DRAFT_VERSION_ID'
391: );
391: );
392:
393: -- R12 MOAC, 19-JUL-05, jwhite
394: -- Project_id Needed for subsequent procedure call
395: l_project_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
396: itemkey => itemkey,
397: aname => 'PROJECT_ID' );
398:
399: /*Commented for bug 5233870
442: WHERE budget_version_id = l_draft_version_id;
443:
444:
445: --
446: resultout := wf_engine.eng_completed;
447: --
448:
449: EXCEPTION
450:
554: BEGIN
555: --
556: -- Return if WF Not Running
557: --
558: IF (funcmode <> wf_engine.eng_run) THEN
559: --
560: resultout := wf_engine.eng_null;
561: RETURN;
562: --
556: -- Return if WF Not Running
557: --
558: IF (funcmode <> wf_engine.eng_run) THEN
559: --
560: resultout := wf_engine.eng_null;
561: RETURN;
562: --
563: END IF;
564: --
564: --
565:
566: -- GET BUDGET ITEM ATTRIBUTES for Subsequent Processing -----------------------
567:
568: l_project_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
569: itemkey => itemkey,
570: aname => 'PROJECT_ID' );
571:
572: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
568: l_project_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
569: itemkey => itemkey,
570: aname => 'PROJECT_ID' );
571:
572: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
573: itemkey => itemkey,
574: aname => 'WORKFLOW_STARTED_BY_ID' );
575:
576: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
572: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
573: itemkey => itemkey,
574: aname => 'WORKFLOW_STARTED_BY_ID' );
575:
576: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
577: itemkey => itemkey,
578: aname => 'BUDGET_TYPE_CODE' );
579:
580:
577: itemkey => itemkey,
578: aname => 'BUDGET_TYPE_CODE' );
579:
580:
581: l_draft_version_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
582: itemkey => itemkey,
583: aname => 'DRAFT_VERSION_ID' );
584:
585: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
581: l_draft_version_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
582: itemkey => itemkey,
583: aname => 'DRAFT_VERSION_ID' );
584:
585: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
586: itemkey => itemkey,
587: aname => 'FIN_PLAN_TYPE_ID' );
588:
589: l_version_type := wf_engine.GetItemAttrText(itemtype => itemtype,
585: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
586: itemkey => itemkey,
587: aname => 'FIN_PLAN_TYPE_ID' );
588:
589: l_version_type := wf_engine.GetItemAttrText(itemtype => itemtype,
590: itemkey => itemkey,
591: aname => 'VERSION_TYPE' );
592:
593:
654: IF (l_baseliner_user_csr%FOUND)
655: THEN
656: CLOSE l_baseliner_user_csr;
657:
658: wf_engine.SetItemAttrNumber
659: (itemtype => itemtype,
660: itemkey => itemkey,
661: aname => 'BUDGET_BASELINER_ID',
662: avalue => l_baseliner_user_id );
660: itemkey => itemkey,
661: aname => 'BUDGET_BASELINER_ID',
662: avalue => l_baseliner_user_id );
663:
664: wf_engine.SetItemAttrText
665: (itemtype => itemtype,
666: itemkey => itemkey,
667: aname => 'BUDGET_BASELINER_NAME',
668: avalue => l_baseliner_user_name);
666: itemkey => itemkey,
667: aname => 'BUDGET_BASELINER_NAME',
668: avalue => l_baseliner_user_name);
669:
670: wf_engine.SetItemAttrText
671: (itemtype => itemtype,
672: itemkey => itemkey,
673: aname => 'BUDGET_BASELINER_FULL_NAME',
674: avalue => l_baseliner_full_name);
682: , role_display_name => l_baseliner_full_name
683: , expiration_date => sysdate+1
684: );
685:
686: wf_engine.SetItemAttrText
687: (itemtype => itemtype,
688: itemkey => itemkey,
689: aname => '#FROM_ROLE',
690: avalue => l_approver_role );
690: avalue => l_approver_role );
691:
692: --Bug 6994708
693:
694: resultout := wf_engine.eng_completed||':'||'T';
695: ELSE
696:
697: CLOSE l_baseliner_user_csr;
698: resultout := wf_engine.eng_completed||':'||'F';
694: resultout := wf_engine.eng_completed||':'||'T';
695: ELSE
696:
697: CLOSE l_baseliner_user_csr;
698: resultout := wf_engine.eng_completed||':'||'F';
699: END IF;
700: ELSE
701:
702: resultout := wf_engine.eng_completed||':'||'F';
698: resultout := wf_engine.eng_completed||':'||'F';
699: END IF;
700: ELSE
701:
702: resultout := wf_engine.eng_completed||':'||'F';
703: END IF;
704:
705:
706: EXCEPTION
818: BEGIN
819: --
820: -- Return if WF Not Running
821: --
822: IF (funcmode <> wf_engine.eng_run) THEN
823: --
824: resultout := wf_engine.eng_null;
825: RETURN;
826: --
820: -- Return if WF Not Running
821: --
822: IF (funcmode <> wf_engine.eng_run) THEN
823: --
824: resultout := wf_engine.eng_null;
825: RETURN;
826: --
827: END IF;
828: --
828: --
829:
830: -- GET BUDGET ITEM ATTRIBUTES for Subsequent Processing -----------------------
831:
832: l_project_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
833: itemkey => itemkey,
834: aname => 'PROJECT_ID' );
835:
836: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
832: l_project_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
833: itemkey => itemkey,
834: aname => 'PROJECT_ID' );
835:
836: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
837: itemkey => itemkey,
838: aname => 'WORKFLOW_STARTED_BY_ID' );
839:
840: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
836: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
837: itemkey => itemkey,
838: aname => 'WORKFLOW_STARTED_BY_ID' );
839:
840: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
841: itemkey => itemkey,
842: aname => 'BUDGET_TYPE_CODE' );
843:
844: l_mark_as_original := wf_engine.GetItemAttrText(itemtype => itemtype,
840: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
841: itemkey => itemkey,
842: aname => 'BUDGET_TYPE_CODE' );
843:
844: l_mark_as_original := wf_engine.GetItemAttrText(itemtype => itemtype,
845: itemkey => itemkey,
846: aname => 'MARK_AS_ORIGINAL' );
847:
848: l_resource_list_id := wf_engine.GetItemAttrText(itemtype => itemtype,
844: l_mark_as_original := wf_engine.GetItemAttrText(itemtype => itemtype,
845: itemkey => itemkey,
846: aname => 'MARK_AS_ORIGINAL' );
847:
848: l_resource_list_id := wf_engine.GetItemAttrText(itemtype => itemtype,
849: itemkey => itemkey,
850: aname =>'RESOURCE_LIST_ID');
851:
852: l_project_type_class_code := wf_engine.GetItemAttrText(itemtype => itemtype,
848: l_resource_list_id := wf_engine.GetItemAttrText(itemtype => itemtype,
849: itemkey => itemkey,
850: aname =>'RESOURCE_LIST_ID');
851:
852: l_project_type_class_code := wf_engine.GetItemAttrText(itemtype => itemtype,
853: itemkey => itemkey,
854: aname =>'PROJECT_TYPE_CLASS_CODE');
855:
856: l_bgt_intg_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
852: l_project_type_class_code := wf_engine.GetItemAttrText(itemtype => itemtype,
853: itemkey => itemkey,
854: aname =>'PROJECT_TYPE_CLASS_CODE');
855:
856: l_bgt_intg_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
857: itemkey => itemkey,
858: aname =>'BGT_INTG_FLAG');
859:
860:
857: itemkey => itemkey,
858: aname =>'BGT_INTG_FLAG');
859:
860:
861: l_draft_version_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
862: itemkey => itemkey,
863: aname => 'DRAFT_VERSION_ID' );
864:
865: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
861: l_draft_version_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
862: itemkey => itemkey,
863: aname => 'DRAFT_VERSION_ID' );
864:
865: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
866: itemkey => itemkey,
867: aname => 'FIN_PLAN_TYPE_ID' );
868:
869: l_version_type := wf_engine.GetItemAttrText(itemtype => itemtype,
865: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
866: itemkey => itemkey,
867: aname => 'FIN_PLAN_TYPE_ID' );
868:
869: l_version_type := wf_engine.GetItemAttrText(itemtype => itemtype,
870: itemkey => itemkey,
871: aname => 'VERSION_TYPE' );
872:
873:
1042:
1043:
1044: IF (l_warnings_only = 'Y')
1045: THEN
1046: resultout := wf_engine.eng_completed||':'||'T';
1047: ELSE
1048: resultout := wf_engine.eng_completed||':'||'F';
1049: END IF;
1050:
1044: IF (l_warnings_only = 'Y')
1045: THEN
1046: resultout := wf_engine.eng_completed||':'||'T';
1047: ELSE
1048: resultout := wf_engine.eng_completed||':'||'F';
1049: END IF;
1050:
1051: --
1052:
1222:
1223: --
1224: -- Return if WF Not Running
1225: --
1226: IF (funcmode <> wf_engine.eng_run) THEN
1227: --
1228: resultout := wf_engine.eng_null;
1229: RETURN;
1230: --
1224: -- Return if WF Not Running
1225: --
1226: IF (funcmode <> wf_engine.eng_run) THEN
1227: --
1228: resultout := wf_engine.eng_null;
1229: RETURN;
1230: --
1231: END IF;
1232: --
1233:
1234:
1235: -- GET BUDGET ITEM ATTRIBUTES for Subsequent Processing -----------------------
1236:
1237: l_project_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1238: itemkey => itemkey,
1239: aname => 'PROJECT_ID' );
1240:
1241:
1238: itemkey => itemkey,
1239: aname => 'PROJECT_ID' );
1240:
1241:
1242: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1243: itemkey => itemkey,
1244: aname => 'BUDGET_TYPE_CODE' );
1245:
1246: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
1242: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1243: itemkey => itemkey,
1244: aname => 'BUDGET_TYPE_CODE' );
1245:
1246: l_workflow_started_by_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
1247: itemkey => itemkey,
1248: aname => 'WORKFLOW_STARTED_BY_ID' );
1249:
1250:
1247: itemkey => itemkey,
1248: aname => 'WORKFLOW_STARTED_BY_ID' );
1249:
1250:
1251: l_baseliner_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1252: itemkey => itemkey,
1253: aname => 'BUDGET_BASELINER_ID' );
1254:
1255: l_mark_as_original := wf_engine.GetItemAttrText(itemtype => itemtype,
1251: l_baseliner_id := wf_engine.GetItemAttrNumber( itemtype => itemtype,
1252: itemkey => itemkey,
1253: aname => 'BUDGET_BASELINER_ID' );
1254:
1255: l_mark_as_original := wf_engine.GetItemAttrText(itemtype => itemtype,
1256: itemkey => itemkey,
1257: aname => 'MARK_AS_ORIGINAL' );
1258:
1259: l_resource_list_id := wf_engine.GetItemAttrText(itemtype => itemtype,
1255: l_mark_as_original := wf_engine.GetItemAttrText(itemtype => itemtype,
1256: itemkey => itemkey,
1257: aname => 'MARK_AS_ORIGINAL' );
1258:
1259: l_resource_list_id := wf_engine.GetItemAttrText(itemtype => itemtype,
1260: itemkey => itemkey,
1261: aname =>'RESOURCE_LIST_ID');
1262:
1263: l_project_type_class_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1259: l_resource_list_id := wf_engine.GetItemAttrText(itemtype => itemtype,
1260: itemkey => itemkey,
1261: aname =>'RESOURCE_LIST_ID');
1262:
1263: l_project_type_class_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1264: itemkey => itemkey,
1265: aname => 'PROJECT_TYPE_CLASS_CODE');
1266:
1267: l_bgt_intg_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
1263: l_project_type_class_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1264: itemkey => itemkey,
1265: aname => 'PROJECT_TYPE_CLASS_CODE');
1266:
1267: l_bgt_intg_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
1268: itemkey => itemkey,
1269: aname =>'BGT_INTG_FLAG');
1270:
1271: l_fck_req_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
1267: l_bgt_intg_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
1268: itemkey => itemkey,
1269: aname =>'BGT_INTG_FLAG');
1270:
1271: l_fck_req_flag := wf_engine.GetItemAttrText(itemtype => itemtype,
1272: itemkey => itemkey,
1273: aname =>'FCK_REQ_FLAG');
1274:
1275:
1273: aname =>'FCK_REQ_FLAG');
1274:
1275:
1276:
1277: l_draft_version_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
1278: itemkey => itemkey,
1279: aname => 'DRAFT_VERSION_ID' );
1280:
1281: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
1277: l_draft_version_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
1278: itemkey => itemkey,
1279: aname => 'DRAFT_VERSION_ID' );
1280:
1281: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
1282: itemkey => itemkey,
1283: aname => 'FIN_PLAN_TYPE_ID' );
1284:
1285: l_version_type := wf_engine.GetItemAttrText(itemtype => itemtype,
1281: l_fin_plan_type_id := wf_engine.GetItemAttrNumber(itemtype => itemtype,
1282: itemkey => itemkey,
1283: aname => 'FIN_PLAN_TYPE_ID' );
1284:
1285: l_version_type := wf_engine.GetItemAttrText(itemtype => itemtype,
1286: itemkey => itemkey,
1287: aname => 'VERSION_TYPE' );
1288:
1289:
1456: (p_item_type => itemtype
1457: , p_item_key => itemkey
1458: );
1459:
1460: resultout := wf_engine.eng_completed||':'||'F';
1461:
1462: /* 4995380: Added code to set the WF status to 'REJECTED'
1463: so that the changes can be done and the Baseline can be submitted
1464: once again, if Baseline fails. */
1533: WHERE budget_version_id = l_draft_version_id;
1534: -- -------------------------------------------------------------
1535:
1536: -- FAIL Workflow and Exit
1537: resultout := wf_engine.eng_completed||':'||'F';
1538: RETURN ;
1539:
1540: END IF; -- l_return_status <> FND_API.G_RET_STS_SUCCESS
1541:
1606:
1607:
1608: IF (l_warnings_only = 'Y')
1609: THEN
1610: resultout := wf_engine.eng_completed||':'||'T';
1611: ELSE
1612: /* 4995380: Added code to set the WF status to 'REJECTED'
1613: so that the changes can be done and the Baseline can be submitted
1614: once again, if there are any errors and l_warnings_only = 'N'. */
1615: UPDATE pa_budget_versions
1616: SET budget_status_code = 'W'
1617: , wf_status_code = 'REJECTED'
1618: WHERE budget_version_id = l_draft_version_id;
1619: resultout := wf_engine.eng_completed||':'||'F';
1620: END IF;
1621:
1622: EXCEPTION
1623:
1660: l_budget_type_code pa_budget_types.budget_type_code%TYPE;
1661:
1662: Begin
1663:
1664: l_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1665: itemkey => itemkey,
1666: aname => 'BUDGET_TYPE_CODE' );
1667:
1668:
1669: l_federal_enabled := NVL(FND_PROFILE.value('FV_ENABLED'), 'N');
1670:
1671:
1672: If l_federal_enabled = 'Y' and l_budget_type_code is NOT NULL then
1673: resultout := wf_engine.eng_completed||':'||'T';
1674: Else
1675: resultout := wf_engine.eng_completed||':'||'F';
1676: End if;
1677:
1671:
1672: If l_federal_enabled = 'Y' and l_budget_type_code is NOT NULL then
1673: resultout := wf_engine.eng_completed||':'||'T';
1674: Else
1675: resultout := wf_engine.eng_completed||':'||'F';
1676: End if;
1677:
1678: Return;
1679: End IS_FEDERAL_ENABLED;