706: and status <> 'N';
707:
708: IF ( l_igc_exists > 0 ) then
709:
710: V_CursorID := DBMS_SQL.OPEN_CURSOR;
711:
712: V_Stmt := ' begin
713: IGC_CC_PROJECTS_PKG.delete_project (:project_id, :delete_allowed);
714: end; ';
712: V_Stmt := ' begin
713: IGC_CC_PROJECTS_PKG.delete_project (:project_id, :delete_allowed);
714: end; ';
715:
716: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
717:
718: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':project_id', p_project_id, 20);
719: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':delete_allowed', V_Delete_Allowed, 1);
720:
714: end; ';
715:
716: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
717:
718: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':project_id', p_project_id, 20);
719: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':delete_allowed', V_Delete_Allowed, 1);
720:
721: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
722:
715:
716: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
717:
718: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':project_id', p_project_id, 20);
719: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':delete_allowed', V_Delete_Allowed, 1);
720:
721: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
722:
723: DBMS_SQL.VARIABLE_VALUE(V_CursorID, ':delete_allowed', V_Delete_Allowed);
717:
718: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':project_id', p_project_id, 20);
719: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':delete_allowed', V_Delete_Allowed, 1);
720:
721: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
722:
723: DBMS_SQL.VARIABLE_VALUE(V_CursorID, ':delete_allowed', V_Delete_Allowed);
724:
725: DBMS_SQL.CLOSE_CURSOR(V_CursorID);
719: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':delete_allowed', V_Delete_Allowed, 1);
720:
721: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
722:
723: DBMS_SQL.VARIABLE_VALUE(V_CursorID, ':delete_allowed', V_Delete_Allowed);
724:
725: DBMS_SQL.CLOSE_CURSOR(V_CursorID);
726:
727: IF ( V_Delete_Allowed = 'N' ) then
721: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
722:
723: DBMS_SQL.VARIABLE_VALUE(V_CursorID, ':delete_allowed', V_Delete_Allowed);
724:
725: DBMS_SQL.CLOSE_CURSOR(V_CursorID);
726:
727: IF ( V_Delete_Allowed = 'N' ) then
728: fnd_message.set_name('PA', 'PA_ARPR_PROJ_INUSE_CNTR_CMTS');
729: fnd_msg_pub.add;
823: ' or (trunc(l.expenditure_item_date ) <= trunc(:p_txn_date ) )) '||
824: ' and nvl(l.pa_interfaced_flag,'||'''N'''||') <> '||'''Y'''||')';
825:
826:
827: V_CursorID := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
829: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_act_flag',p_active_flag);
830: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_proj_id',p_project_id);
831: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_txn_date',p_txn_to_date);
824: ' and nvl(l.pa_interfaced_flag,'||'''N'''||') <> '||'''Y'''||')';
825:
826:
827: V_CursorID := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
829: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_act_flag',p_active_flag);
830: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_proj_id',p_project_id);
831: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_txn_date',p_txn_to_date);
832: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
825:
826:
827: V_CursorID := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
829: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_act_flag',p_active_flag);
830: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_proj_id',p_project_id);
831: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_txn_date',p_txn_to_date);
832: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
833:
826:
827: V_CursorID := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
829: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_act_flag',p_active_flag);
830: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_proj_id',p_project_id);
831: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_txn_date',p_txn_to_date);
832: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
833:
834: IF (DBMS_SQL.FETCH_ROWS(V_CursorID) > 0 ) THEN
827: V_CursorID := DBMS_SQL.OPEN_CURSOR;
828: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
829: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_act_flag',p_active_flag);
830: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_proj_id',p_project_id);
831: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_txn_date',p_txn_to_date);
832: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
833:
834: IF (DBMS_SQL.FETCH_ROWS(V_CursorID) > 0 ) THEN
835: fnd_message.set_name('PA','PA_ARPR_IEXP_TXNS_IMP_PEND');
828: DBMS_SQL.PARSE(V_CursorID, V_Stmt, DBMS_SQL.v7);
829: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_act_flag',p_active_flag);
830: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_proj_id',p_project_id);
831: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_txn_date',p_txn_to_date);
832: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
833:
834: IF (DBMS_SQL.FETCH_ROWS(V_CursorID) > 0 ) THEN
835: fnd_message.set_name('PA','PA_ARPR_IEXP_TXNS_IMP_PEND');
836: fnd_msg_pub.add;
830: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_proj_id',p_project_id);
831: DBMS_SQL.BIND_VARIABLE(V_CursorID, ':p_txn_date',p_txn_to_date);
832: V_Dummy := DBMS_SQL.EXECUTE(V_CursorID);
833:
834: IF (DBMS_SQL.FETCH_ROWS(V_CursorID) > 0 ) THEN
835: fnd_message.set_name('PA','PA_ARPR_IEXP_TXNS_IMP_PEND');
836: fnd_msg_pub.add;
837: l_err_code := 10 ;
838: l_err_stage := 'After Iexpense transactions transfer check' ;
839: l_err_stack := l_err_stack || ' ->After Iexpense transactions transfer check' ;
840: pa_debug.debug(' * Project related Iexpense transactions are yet to be imported to projects');
841: END IF;
842:
843: DBMS_SQL.CLOSE_CURSOR(V_CursorID);
844: END IF;
845: */
846:
847: Open IsIexpenseTxnsPending;