[Home] [Help]
1: PACKAGE BODY GR_EIN_ASL_CONCS_PKG AS
2: /*$Header: GRHIEICB.pls 115.4 2002/10/29 16:32:06 mgrosser noship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,
79: IF FND_API.To_Boolean(l_key_exists) THEN
80: RAISE Item_Exists_Error;
81: END IF;
82:
83: INSERT INTO gr_ein_asl_concs
84: (sequence_number,
85: european_index_number,
86: concentration_low,
87: concentration_high,
254:
255: IF l_return_status <> 'S' THEN
256: RAISE Foreign_Key_Error;
257: ELSE
258: UPDATE gr_ein_asl_concs
259: SET sequence_number = p_sequence_number,
260: european_index_number = p_european_index_number,
261: concentration_low = p_concentration_low,
262: concentration_high = p_concentration_high,
371:
372: CURSOR c_lock_ein_asl_concs
373: IS
374: SELECT last_update_date
375: FROM gr_ein_asl_concs
376: WHERE rowid = p_rowid
377: FOR UPDATE NOWAIT;
378: LockEinRcd c_lock_ein_asl_concs%ROWTYPE;
379: BEGIN
512: IF l_return_status <> 'S' THEN
513: RAISE Check_Integrity_Error;
514: END IF;
515:
516: DELETE FROM gr_ein_asl_concs
517: WHERE rowid = p_rowid;
518:
519: /* Check the commit flag and if set, then commit the work. */
520:
597: x_oracle_error := 0;
598: x_msg_data := NULL;
599: l_msg_token := p_european_index_number;
600:
601: DELETE FROM gr_ein_asl_concs
602: WHERE european_index_number = p_european_index_number;
603:
604: IF FND_API.To_Boolean(p_commit) THEN
605: COMMIT WORK;
794:
795: CURSOR c_get_eic_rowid
796: IS
797: SELECT eic.rowid
798: FROM gr_ein_asl_concs eic
799: WHERE eic.european_index_number = p_european_index_number
800: AND eic.concentration_low = p_concentration_low
801: AND eic.concentration_high = p_concentration_high
802: AND ( (eic.hazard_classification_code IS NULL
831: END IF;
832:
833: END Check_Primary_Key;
834:
835: END GR_EIN_ASL_CONCS_PKG;