APPS.PA_PROJ_RETN_RULES_PKG SQL Statements

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

Line: 9

  PROCEDURE Insert_Row(
	X_Rowid                  IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
	P_Project_ID			NUMBER,
        P_Task_Number	 		VARCHAR2,
        P_Task_Name			VARCHAR2,
	P_Customer_ID			NUMBER,
	P_Retention_Level_Code	 IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Expenditure_Category   IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Expenditure_Type       IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Non_Labor_Resource     IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Revenue_Category       IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Event_Type             IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Retention_Percentage          NUMBER,
	P_Retention_Amount              NUMBER,
	P_Threshold_Amount              NUMBER,
	P_Effective_Start_Date          DATE,
	P_Effective_End_Date            DATE,
	P_Task_Flag			VARCHAR2,
	X_Return_Status_code	IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
	X_Error_Message_Code	IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
  ) IS

l_Revenue_Category_Code VARCHAR2(100);

Line: 87

       SELECT PA_PROJ_RETN_RULES_S.NextVal
       INTO   l_Retention_Rule_ID
       FROM   dual ;

Line: 93

    INSERT INTO PA_PROJ_RETN_RULES (
      Project_ID,
      Task_ID,
      Customer_ID,
      Retention_Rule_ID,
      Retention_Level_Code,
      Effective_Start_Date,
      Effective_End_Date,
      Retention_Percentage,
      Retention_Amount,
      Threshold_Amount,
      Expenditure_Category,
      Expenditure_Type,
      Non_Labor_Resource,
      Revenue_Category_Code,
      Event_Type,
      Creation_Date,
      Created_By,
      Last_Update_Date,
      Last_Updated_By
    )
    VALUES (
      P_Project_ID,
      l_Task_ID,
      P_Customer_ID,
      l_Retention_Rule_ID, -- PA_PROJ_RETN_RULES_S.NextVal, -- Fix for Bug 2671135
      P_Retention_Level_Code,
      P_Effective_Start_Date,
      P_Effective_End_Date,
      l_Retention_Percentage,
      P_Retention_Amount,
      P_Threshold_Amount,
      P_Expenditure_Category,
      P_Expenditure_Type,
      P_Non_Labor_Resource,
      l_Revenue_Category_Code,
      P_Event_Type,
      SYSDATE,
      FND_GLOBAL.user_id,
      SYSDATE,
      FND_GLOBAL.user_id
    );

Line: 137

      UPDATE PA_Project_Customers
      SET    Retention_Level_Code = DECODE(l_Task_ID, NULL, 'PROJECT', 'TOP_TASK')
      WHERE  Project_ID  = P_Project_ID
      AND    Customer_ID = P_Customer_ID;

Line: 144

      SELECT
	RowIDtoChar(ROWID)
      INTO
	X_RowID
      FROM
	PA_PROJ_RETN_RULES
      WHERE
	  Project_ID                    = P_Project_ID
      AND Customer_ID			= P_Customer_ID
      AND Effective_Start_Date 		= P_Effective_Start_Date
      AND Retention_Rule_ID		= l_Retention_Rule_ID  -- Fix for Bug 2671135
      AND NVL(Task_ID, -1)		= NVL(l_Task_ID, -1)
      AND decode(Effective_End_Date, NULL, sysdate, Effective_End_Date ) =
	    decode(p_Effective_End_Date, NULL, sysdate, p_Effective_End_Date )
      AND NVL(Retention_Percentage, -1) = NVL(l_Retention_Percentage, -1)
      AND NVL(Retention_Amount, -1)     = NVL(P_Retention_Amount, -1)
      AND NVL(Threshold_Amount, -1)     = NVL(P_Threshold_Amount, -1)
      AND Retention_Level_Code          = P_Retention_Level_Code
      AND NVL(Expenditure_Category, 'z')= NVL(Expenditure_Category, 'z')
      AND NVL(Expenditure_Type, 'z')    = NVL(Expenditure_Type, 'z')
      AND NVL(Non_Labor_Resource, 'z')  = NVL(Non_Labor_Resource, 'z')
      AND NVL(Revenue_Category_Code, 'z')= NVL(Revenue_Category_Code, 'z')
      AND NVL(Event_Type, 'z')          = NVL(Event_Type, 'z');

Line: 188

  END Insert_Row; -- Insert_Row;

Line: 194

  PROCEDURE Update_Row (
	P_RowID                         VARCHAR2,
	P_Project_ID			NUMBER,
	P_Customer_ID			NUMBER,
        P_Expenditure_Category  IN OUT  NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Expenditure_Type      IN OUT  NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Non_Labor_Resource    IN OUT  NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Revenue_Category      IN OUT  NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
        P_Event_Type            IN OUT  NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
	P_Retention_Percentage          NUMBER,
	P_Retention_Amount              NUMBER,
	P_Threshold_Amount              NUMBER,
	P_Effective_Start_Date          DATE,
	P_Effective_End_Date            DATE,
	X_Return_Status_code	IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
	X_Error_Message_Code	IN OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
  ) IS

l_Retention_Level_Code		VARCHAR2(30);

Line: 226

    SELECT
      Retention_Level_Code,
      Task_ID,
      NVL(Total_Retained, 0)
    INTO
      l_Retention_Level_Code,
      l_Task_ID,
      l_Retained_Amount
    FROM
      PA_PROJ_RETN_RULES
    WHERE
      RowIDToChar(RowID) = P_RowID;

Line: 286

  UPDATE
      PA_PROJ_RETN_RULES
  SET
      Retention_Level_Code   = l_Retention_Level_Code,
      Expenditure_Category   = P_Expenditure_Category,
      Expenditure_Type	     = P_Expenditure_Type,
      Non_Labor_Resource     = P_Non_Labor_Resource,
      Revenue_Category_Code  = l_Revenue_Category_Code,
      Event_Type             = P_Event_Type,
      Retention_Percentage   = l_Retention_Percentage,
      Retention_Amount       = P_Retention_Amount,
      Threshold_Amount       = P_Threshold_Amount,
      Effective_Start_Date   = P_Effective_Start_Date,
      Effective_End_Date     = P_Effective_End_Date,
      Last_Update_Date       = SYSDATE,
      Last_Updated_By        = FND_GLOBAL.user_id
  WHERE
      RowIDToChar(RowID) = P_RowID;

Line: 320

END Update_Row; -- Update_Row;

Line: 327

  PROCEDURE Delete_Row (
	P_Rowid                         VARCHAR2,
	X_Return_Status_code	IN OUT 	NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
	X_Error_Message_Code	IN OUT 	NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
  ) IS

  BEGIN

    X_Return_Status_Code := FND_API.G_RET_STS_SUCCESS;

Line: 337

    DELETE FROM PA_PROJ_RETN_RULES
    WHERE  ROWID = P_RowID;

Line: 344

  END Delete_Row; -- Delete Row