The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE insert_row(
P_ORG_UNIT_ID IN JAI_CMN_RG_BALANCES.org_unit_id%TYPE,
P_ORGANIZATION_ID IN JAI_CMN_RG_BALANCES.organization_id%TYPE,
P_LOCATION_ID IN JAI_CMN_RG_BALANCES.location_id%TYPE,
P_PLA_BALANCE IN JAI_CMN_RG_BALANCES.pla_balance%TYPE,
P_RG23A_BALANCE IN JAI_CMN_RG_BALANCES.rg23a_balance%TYPE,
P_RG23C_BALANCE IN JAI_CMN_RG_BALANCES.rg23c_balance%TYPE,
P_CREATION_DATE IN JAI_CMN_RG_BALANCES.creation_date%TYPE,
P_CREATED_BY IN JAI_CMN_RG_BALANCES.created_by%TYPE,
P_LAST_UPDATE_DATE IN JAI_CMN_RG_BALANCES.last_update_date%TYPE,
P_LAST_UPDATED_BY IN JAI_CMN_RG_BALANCES.last_updated_by%TYPE,
P_LAST_UPDATE_LOGIN IN JAI_CMN_RG_BALANCES.last_update_login%TYPE,
P_BASIC_PLA_BALANCE IN JAI_CMN_RG_BALANCES.basic_pla_balance%TYPE,
P_ADDITIONAL_PLA_BALANCE IN JAI_CMN_RG_BALANCES.additional_pla_balance%TYPE,
P_OTHER_PLA_BALANCE IN JAI_CMN_RG_BALANCES.other_pla_balance%TYPE,
P_SIMULATE_FLAG IN VARCHAR2, -- DEFAULT 'N' File.Sql.35 by Brathod
P_PROCESS_STATUS OUT NOCOPY VARCHAR2,
P_PROCESS_MESSAGE OUT NOCOPY VARCHAR2
) IS
/* Added by Ramananda for bug#4407165 */
lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_rg_balances_pkg.insert_row';
INSERT INTO JAI_CMN_RG_BALANCES(
ORG_UNIT_ID,
ORGANIZATION_ID,
LOCATION_ID,
PLA_BALANCE,
RG23A_BALANCE,
RG23C_BALANCE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
BASIC_PLA_BALANCE,
ADDITIONAL_PLA_BALANCE,
OTHER_PLA_BALANCE
) VALUES (
P_ORG_UNIT_ID,
P_ORGANIZATION_ID,
P_LOCATION_ID,
P_PLA_BALANCE,
P_RG23A_BALANCE,
P_RG23C_BALANCE,
P_CREATION_DATE,
P_CREATED_BY,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN,
P_BASIC_PLA_BALANCE,
P_ADDITIONAL_PLA_BALANCE,
P_OTHER_PLA_BALANCE
);
END insert_row;
PROCEDURE update_row(
P_ORGANIZATION_ID IN JAI_CMN_RG_BALANCES.organization_id%TYPE,
P_LOCATION_ID IN JAI_CMN_RG_BALANCES.location_id%TYPE,
p_register_type IN VARCHAR2,
p_amount_to_be_added IN NUMBER,
P_SIMULATE_FLAG IN VARCHAR2, -- DEFAULT 'N' File.Sql.35 by Brathod
P_PROCESS_STATUS OUT NOCOPY VARCHAR2,
P_PROCESS_MESSAGE OUT NOCOPY VARCHAR2
) IS
ln_rg23a_amount NUMBER := 0;
lv_object_name CONSTANT VARCHAR2(61) := 'jai_cmn_rg_balances_pkg.update_row';
P_PROCESS_MESSAGE := 'jai_cmn_rg_balances_pkg.update_row: Not able to find Register Type';
UPDATE JAI_CMN_RG_BALANCES SET
PLA_BALANCE = nvl(PLA_BALANCE, 0) + ln_pla_amount,
RG23A_BALANCE = nvl(RG23A_BALANCE, 0) + ln_rg23a_amount,
RG23C_BALANCE = nvl(RG23C_BALANCE, 0) + ln_rg23c_amount,
LAST_UPDATE_DATE = SYSDATE,
LAST_UPDATED_BY = FND_GLOBAL.user_id,
LAST_UPDATE_LOGIN = FND_GLOBAL.login_id
WHERE organization_id = p_organization_id
AND location_id = p_location_id;
END update_row;
SELECT organization_id, rg23a_balance, rg23c_balance, pla_balance
FROM JAI_CMN_RG_BALANCES
WHERE organization_id = cp_organization_id
AND location_id = cp_location_id;