[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION insert_row (
p_supplier_spec_vrs IN GMD_SUPPLIER_SPEC_VRS%ROWTYPE
, x_supplier_spec_vrs OUT NOCOPY GMD_SUPPLIER_SPEC_VRS%ROWTYPE
)
RETURN BOOLEAN IS
BEGIN
x_supplier_spec_vrs := p_supplier_spec_vrs;
INSERT INTO GMD_SUPPLIER_SPEC_VRS
(
SPEC_VR_ID
,SPEC_ID
,ORGANIZATION_ID
,ORG_ID
,SUPPLIER_ID
,SUPPLIER_SITE_ID
,PO_LINE_ID
,SPEC_VR_STATUS
,START_DATE
,END_DATE
,SAMPLING_PLAN_ID
,SAMPLE_INV_TRANS_IND
,LOT_OPTIONAL_ON_SAMPLE
,COA_TYPE
,COA_AT_SHIP_IND
,COA_AT_INVOICE_IND
,COA_REQ_FROM_SUPL_IND
,DELETE_MARK
,TEXT_CODE
,ATTRIBUTE_CATEGORY
,ATTRIBUTE1
,ATTRIBUTE2
,ATTRIBUTE3
,ATTRIBUTE4
,ATTRIBUTE5
,ATTRIBUTE6
,ATTRIBUTE7
,ATTRIBUTE8
,ATTRIBUTE9
,ATTRIBUTE10
,ATTRIBUTE11
,ATTRIBUTE12
,ATTRIBUTE13
,ATTRIBUTE14
,ATTRIBUTE15
,ATTRIBUTE16
,ATTRIBUTE17
,ATTRIBUTE18
,ATTRIBUTE19
,ATTRIBUTE20
,ATTRIBUTE21
,ATTRIBUTE22
,ATTRIBUTE23
,ATTRIBUTE24
,ATTRIBUTE25
,ATTRIBUTE26
,ATTRIBUTE27
,ATTRIBUTE28
,ATTRIBUTE29
,ATTRIBUTE30
,CREATION_DATE
,CREATED_BY
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,PO_HEADER_ID
,AUTO_SAMPLE_IND
,CONTROL_LOT_ATTRIB_IND
,IN_SPEC_LOT_STATUS_ID
,OUT_OF_SPEC_LOT_STATUS_ID
,DELAYED_LOT_ENTRY
,MIGRATED_IND --To differentiate R12 data from previous data during migration
,DELAYED_LPN_ENTRY --RLNAGARA LPN ME 7027149
)
VALUES
(
gmd_qc_spec_vr_id_s.NEXTVAL
,x_supplier_spec_vrs.SPEC_ID
,x_supplier_spec_vrs.ORGANIZATION_ID
,x_supplier_spec_vrs.ORG_ID
,x_supplier_spec_vrs.SUPPLIER_ID
,x_supplier_spec_vrs.SUPPLIER_SITE_ID
,x_supplier_spec_vrs.PO_LINE_ID
,x_supplier_spec_vrs.SPEC_VR_STATUS
,x_supplier_spec_vrs.START_DATE
,x_supplier_spec_vrs.END_DATE
,x_supplier_spec_vrs.SAMPLING_PLAN_ID
,x_supplier_spec_vrs.SAMPLE_INV_TRANS_IND
,x_supplier_spec_vrs.LOT_OPTIONAL_ON_SAMPLE
,x_supplier_spec_vrs.COA_TYPE
,x_supplier_spec_vrs.COA_AT_SHIP_IND
,x_supplier_spec_vrs.COA_AT_INVOICE_IND
,x_supplier_spec_vrs.COA_REQ_FROM_SUPL_IND
,x_supplier_spec_vrs.DELETE_MARK
,x_supplier_spec_vrs.TEXT_CODE
,x_supplier_spec_vrs.ATTRIBUTE_CATEGORY
,x_supplier_spec_vrs.ATTRIBUTE1
,x_supplier_spec_vrs.ATTRIBUTE2
,x_supplier_spec_vrs.ATTRIBUTE3
,x_supplier_spec_vrs.ATTRIBUTE4
,x_supplier_spec_vrs.ATTRIBUTE5
,x_supplier_spec_vrs.ATTRIBUTE6
,x_supplier_spec_vrs.ATTRIBUTE7
,x_supplier_spec_vrs.ATTRIBUTE8
,x_supplier_spec_vrs.ATTRIBUTE9
,x_supplier_spec_vrs.ATTRIBUTE10
,x_supplier_spec_vrs.ATTRIBUTE11
,x_supplier_spec_vrs.ATTRIBUTE12
,x_supplier_spec_vrs.ATTRIBUTE13
,x_supplier_spec_vrs.ATTRIBUTE14
,x_supplier_spec_vrs.ATTRIBUTE15
,x_supplier_spec_vrs.ATTRIBUTE16
,x_supplier_spec_vrs.ATTRIBUTE17
,x_supplier_spec_vrs.ATTRIBUTE18
,x_supplier_spec_vrs.ATTRIBUTE19
,x_supplier_spec_vrs.ATTRIBUTE20
,x_supplier_spec_vrs.ATTRIBUTE21
,x_supplier_spec_vrs.ATTRIBUTE22
,x_supplier_spec_vrs.ATTRIBUTE23
,x_supplier_spec_vrs.ATTRIBUTE24
,x_supplier_spec_vrs.ATTRIBUTE25
,x_supplier_spec_vrs.ATTRIBUTE26
,x_supplier_spec_vrs.ATTRIBUTE27
,x_supplier_spec_vrs.ATTRIBUTE28
,x_supplier_spec_vrs.ATTRIBUTE29
,x_supplier_spec_vrs.ATTRIBUTE30
,x_supplier_spec_vrs.CREATION_DATE
,x_supplier_spec_vrs.CREATED_BY
,x_supplier_spec_vrs.LAST_UPDATED_BY
,x_supplier_spec_vrs.LAST_UPDATE_DATE
,x_supplier_spec_vrs.LAST_UPDATE_LOGIN
,x_supplier_spec_vrs.PO_HEADER_ID
,x_supplier_spec_vrs.AUTO_SAMPLE_IND
,x_supplier_spec_vrs.CONTROL_LOT_ATTRIB_IND
,x_supplier_spec_vrs.IN_SPEC_LOT_STATUS_ID
,x_supplier_spec_vrs.OUT_OF_SPEC_LOT_STATUS_ID
,x_supplier_spec_vrs.DELAYED_LOT_ENTRY
,0
,x_supplier_spec_vrs.DELAYED_LPN_ENTRY --RLNAGARA LPN ME 7027149
)
RETURNING spec_vr_id INTO x_supplier_spec_vrs.spec_vr_id
;
fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'INSERT_ROW');
END insert_row;
FUNCTION delete_row (p_spec_vr_id IN NUMBER,
p_last_update_date IN DATE ,
p_last_updated_by IN NUMBER ,
p_last_update_login IN NUMBER )
RETURN BOOLEAN IS
dummy PLS_INTEGER;
SELECT 1
INTO dummy
FROM gmd_supplier_spec_vrs
WHERE spec_vr_id = p_spec_vr_id
FOR UPDATE NOWAIT;
UPDATE gmd_supplier_spec_vrs
SET delete_mark = 1,
last_update_date = NVL(p_last_update_date,SYSDATE),
last_updated_by = NVL(p_last_updated_by,FND_GLOBAL.USER_ID),
last_update_login = NVL(p_last_update_login,FND_GLOBAL.LOGIN_ID)
WHERE spec_vr_id = p_spec_vr_id
;
fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'DELETE_ROW');
END delete_row;
SELECT 1
INTO dummy
FROM gmd_supplier_spec_vrs
WHERE spec_vr_id = p_spec_vr_id
FOR UPDATE NOWAIT;
fnd_msg_pub.add_exc_msg ('GMD_SUPPLIER_SPEC_VRS_PVT', 'DELETE_ROW');
SELECT *
INTO x_supplier_spec_vrs
FROM gmd_supplier_spec_vrs
WHERE spec_vr_id = p_supplier_spec_vrs.spec_vr_id
;