APPS.FPA_SCENARIO_PVT SQL Statements

The following lines contain the word 'select', 'insert', 'update' or 'delete':

Line: 26

SELECT
  fpa_scenario_s.nextval AS scenario_id
FROM
  dual;

Line: 34

SELECT language_code
  FROM   fnd_languages
 WHERE  installed_flag IN ('I','B');

Line: 120

                   INSERT INTO FPA_OBJECTS_TL( object
                          ,id
                          ,name
                          ,description
                          ,LANGUAGE
                          ,SOURCE_LANG
                          ,created_by
                          ,creation_date
                          ,last_updated_by
                          ,last_update_date
                          ,last_update_login)
                    VALUES( 'SCENARIO'
                          ,x_scenario_id
                          ,p_scenario_name
                          ,p_scenario_desc
                          ,l_language
                          ,USERENV('LANG')
                          ,0
                          ,sysdate()
                          ,0
                          ,sysdate()
                          ,0);

Line: 297

	-- Set the last update date
	dbms_aw.execute('last_update_date_scenario_r = '''
		|| to_char(SYSDATE, 'MM-DD-YYYY') || '''');

Line: 302

		-- Update and commit our changes
		IF (p_commit = FND_API.G_TRUE) THEN
			dbms_aw.execute('UPDATE');

Line: 364

  select count(a.scenario)
   into l_sce_count
   from fpa_sces_vl a,
        fpa_aw_sces_v b
  where a.scenario = b.scenario
    and b.planning_cycle = p_pc_id
    and upper(a.name) = upper(p_scenario_name);

Line: 399

PROCEDURE update_scen_approved_flag
(
        p_scenario_id                   IN              NUMBER,
        p_approved_flag		        IN 		VARCHAR2,
	x_return_status                 OUT NOCOPY      VARCHAR2,
        x_msg_count                     OUT NOCOPY      NUMBER,
        x_msg_data                      OUT NOCOPY      VARCHAR2
) IS

begin


        IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
                fnd_log.string
                (
                        FND_LOG.LEVEL_PROCEDURE,
                        'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.begin',
                        'Entering fpa_scenario_pvt.update_scen_approved_flag'
                );

Line: 433

		  	-- Set the last update date
	     	-- need to wite code for this

	       IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
                        fnd_log.string
                        (
                                FND_LOG.LEVEL_PROCEDURE,
                                'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag.end',
                                'Exiting fpa_scenario_pvt.update_scen_approved_flag'
                        );

Line: 454

                        'fpa.sql.fpa_scenario_pvt.update_scen_approved_flag',
                        SQLERRM
                );

Line: 466

end update_scen_approved_flag;

Line: 472

procedure update_scenario_disc_rate
(
  p_api_version                 IN              NUMBER,
  p_scenario_id                 IN              NUMBER,
  p_discount_rate               IN              NUMBER,
  x_return_status               OUT NOCOPY      VARCHAR2,
  x_msg_count                   OUT NOCOPY      NUMBER,
  x_msg_data                    OUT NOCOPY      VARCHAR2
) is

l_api_version			CONSTANT NUMBER := 1.0;

Line: 492

      'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.begin',
      'Entering fpa_scenario_pvt.update_scenario_disc_rate'
     );

Line: 501

      'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate',
      'Setting the discount rate.'
     );

Line: 509

  SELECT SUBSTR(VALUE,1,1)
    INTO l_decimal_marker
  FROM NLS_SESSION_PARAMETERS
  WHERE PARAMETER = 'NLS_NUMERIC_CHARACTERS';

Line: 526

      'fpa.sql.fpa_scenario_pvt.update_scenario_disc_rate.end',
      'Entering fpa_scenario_pvt.update_scenario_disc_rate'
     );

Line: 550

end update_scenario_disc_rate;

Line: 555

procedure update_scenario_funds_avail
(
  p_api_version                 IN              NUMBER,
  p_scenario_id                 IN              NUMBER,
  p_scenario_funds              IN              NUMBER,
  x_return_status               OUT NOCOPY      VARCHAR2,
  x_msg_count                   OUT NOCOPY      NUMBER,
  x_msg_data                    OUT NOCOPY      VARCHAR2
) is

l_api_version                   CONSTANT NUMBER := 1.0;

Line: 576

      'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.begin',
      'Entering fpa_scenario_pvt.update_scenario_funds_avail'
     );

Line: 585

      'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
      'Setting the discount rate.'
     );

Line: 592

  SELECT b.PC_DISPLAY_FACTOR
  INTO l_pc_disply_factor
  FROM fpa_aw_sces_v a,  fpa_aw_pc_disc_funds_v b
  WHERE a.planning_cycle = b.planning_cycle
  AND  a.scenario = p_scenario_id ;

Line: 602

  SELECT SUBSTR(VALUE,1,1)
    INTO l_decimal_marker
    FROM NLS_SESSION_PARAMETERS
   WHERE PARAMETER = 'NLS_NUMERIC_CHARACTERS';

Line: 616

      'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail.end',
      'Entering fpa_scenario_pvt.update_scenario_funds_avail'
     );

Line: 629

        'fpa.sql.fpa_scenario_pvt.update_scenario_funds_avail',
        SQLERRM
      );

Line: 640

end update_scenario_funds_avail;

Line: 646

procedure update_scenario_initial_flag
(
  p_api_version                 IN              NUMBER,
  p_scenario_id                 IN              NUMBER,
  x_return_status               OUT NOCOPY      VARCHAR2,
  x_msg_count                   OUT NOCOPY      NUMBER,
  x_msg_data                    OUT NOCOPY      VARCHAR2
) is

l_api_version                   CONSTANT NUMBER := 1.0;

Line: 663

      'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
      'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
     );

Line: 672

      'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.begin',
      'Unsetting any previous flags and setting new flag.'
     );

Line: 696

      'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag.end',
      'Entering fpa_scenario_pvt.update_scenario_initial_flag.'
     );

Line: 709

        'fpa.sql.fpa_scenario_pvt.update_scenario_initial_flag',
        SQLERRM
      );

Line: 720

end update_scenario_initial_flag;

Line: 726

procedure update_scenario_working_flag
(
  p_api_version                 IN              NUMBER,
  p_scenario_id                 IN              NUMBER,
  x_return_status               OUT NOCOPY      VARCHAR2,
  x_msg_count                   OUT NOCOPY      NUMBER,
  x_msg_data                    OUT NOCOPY      VARCHAR2
) is

l_api_version                   CONSTANT NUMBER := 1.0;

Line: 743

      'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.begin',
      'Entering fpa_scenario_pvt.update_scenario_working_flag.'
     );

Line: 752

      'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
      'Unsetting any previous flags and setting new flag.'
     );

Line: 774

      'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag.end',
      'Entering fpa_scenario_pvt.update_scenario_working_flag.'
     );

Line: 788

        'fpa.sql.fpa_scenario_pvt.update_scenario_working_flag',
        SQLERRM
      );

Line: 799

end update_scenario_working_flag;

Line: 807

procedure update_scenario_reccom_flag
(
  p_api_version                 IN              NUMBER,
  p_scenario_id                 IN              NUMBER,
  p_scenario_reccom_status      IN              VARCHAR2,
  x_return_status               OUT NOCOPY      VARCHAR2,
  x_msg_count                   OUT NOCOPY      NUMBER,
  x_msg_data                    OUT NOCOPY      VARCHAR2
) is

l_api_version			CONSTANT NUMBER := 1.0;

Line: 825

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag.begin',
      'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
     );

Line: 834

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
      'Unsetting any previous flags and setting new flag.'
     );

Line: 848

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag.end',
      'Entering fpa_scenario_pvt.update_scenario_reccom_flag.'
     );

Line: 862

        'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_flag',
        SQLERRM
      );

Line: 873

end update_scenario_reccom_flag;

Line: 882

procedure update_scenario_reccom_status
(
  p_api_version                 IN              NUMBER,
  p_scenario_id                 IN              NUMBER,
  p_project_id                  IN              VARCHAR2,
  p_scenario_reccom_value       IN              VARCHAR2,
  x_return_status               OUT NOCOPY      VARCHAR2,
  x_msg_count                   OUT NOCOPY      NUMBER,
  x_msg_data                    OUT NOCOPY      VARCHAR2
) is

l_api_version			CONSTANT NUMBER := 1.0;

Line: 905

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
      'Entering fpa_scenario_pvt.update_scenario_reccom_status'
     );

Line: 914

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
      'Limiting to scenario id passed.'
     );

Line: 926

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
      'Assing project id string passed to local string variable.'
     );

Line: 937

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
      'Loop over project id string and update recommended funding status relation.'
     );

Line: 948

        'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.begin',
        'Current project string: ' || l_project_id_string || ' and project id: ' || l_project_id
       );

Line: 977

      'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status.end',
      'Exiting fpa_scenario_pvt.update_scenario_reccom_status.'
     );

Line: 990

        'fpa.sql.fpa_scenario_pvt.update_scenario_reccom_status',
        SQLERRM
      );

Line: 1001

end update_scenario_reccom_status;

Line: 1038

  select scenario
	into source_scen_id
    from fpa_aw_sce_info_v
	where planning_cycle =
  		(select planning_cycle from fpa_aw_sce_info_v where scenario = p_target_scen_id)
   	and is_initial_scenario = 1 ;

Line: 1137

PROCEDURE Update_Proj_User_Ranks
     ( p_api_version        IN NUMBER,
       p_proj_metrics       IN fpa_scen_proj_userrank_tbl,
       x_return_status      OUT NOCOPY VARCHAR2,
       x_msg_data           OUT NOCOPY VARCHAR2,
       x_msg_count          OUT NOCOPY NUMBER )
IS
BEGIN

	IF FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
		FND_LOG.String
		(
			FND_LOG.LEVEL_PROCEDURE,
			'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.begin',
			'Entering FPA_Scenario_Pvt.Update_Proj_User_Ranks'
		);

Line: 1157

	-- Update user ranking against project ID for the given scenario ID
	-- Limit Scenario ID
    IF(  p_proj_metrics.Count > 0 ) THEN
      IF( p_proj_metrics.Count > 1 ) THEN
	  dbms_aw.execute('LMT scenario_d TO ' || p_proj_metrics(1).scenarioID );

Line: 1172

			'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
			'FPA_Scenario_Pvt.Update_Proj_User_Ranks: Inside for loop:projectID='||p_proj_metrics(i).projectID
			                                                                     ||'  user_rank='||p_proj_metrics(i).user_rank
		   );

Line: 1181

			'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
			'FPA_Scenario_Pvt.Update_Proj_User_Ranks: Inside for loop:projectID='||p_proj_metrics(i).projectID);

Line: 1193

			'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
			'FPA_Scenario_Pvt.Update_Proj_User_Ranks: Inside for loop:User Rank = na');

Line: 1202

			'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
			'FPA_Scenario_Pvt.Update_Proj_User_Ranks: Inside for loop:User Rank ='||p_proj_metrics(i).user_rank);

Line: 1216

			'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks.end',
			'Exiting FPA_Scenario_Pvt.Update_Proj_User_Ranks'
		);

Line: 1232

			'fpa.sql.FPA_Scenario_Pvt.Update_Proj_User_Ranks',
			SQLERRM
		);

Line: 1244

END Update_Proj_User_Ranks;