1: PACKAGE BODY GR_MAIN_HEADINGS_TL_PKG AS
2: /*$Header: GRHIMHTB.pls 115.7 2002/10/28 16:47:11 methomas ship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,
1078: BEGIN
1079: OPEN Cur_rowid;
1080: FETCH Cur_rowid INTO l_row_id;
1081: IF Cur_rowid%FOUND THEN
1082: GR_MAIN_HEADINGS_TL_PKG.UPDATE_ROW(
1083: P_COMMIT => 'T'
1084: ,P_CALLED_BY_FORM => 'F'
1085: ,P_ROWID => l_row_id
1086: ,P_MAIN_HEADING_CODE => X_MAIN_HEADING_CODE
1095: ,X_RETURN_STATUS => l_return_status
1096: ,X_ORACLE_ERROR => l_oracle_error
1097: ,X_MSG_DATA => l_msg_data);
1098: ELSE
1099: GR_MAIN_HEADINGS_TL_PKG.INSERT_ROW(
1100: P_COMMIT => 'T'
1101: ,P_CALLED_BY_FORM => 'F'
1102: ,P_MAIN_HEADING_CODE => X_MAIN_HEADING_CODE
1103: ,P_LANGUAGE => X_LANGUAGE
1183: and T.LANGUAGE = L.LANGUAGE_CODE);
1184:
1185: end NEW_LANGUAGE;
1186:
1187: END GR_MAIN_HEADINGS_TL_PKG;