105: OPEN C;
106: FETCH C INTO Recinfo;
107: if (C%NOTFOUND) then
108: CLOSE C;
109: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
110: APP_EXCEPTION.Raise_Exception;
111: end if;
112: CLOSE C;
113: if (
125: AND (Recinfo.child_txn_header_id = X_Child_Txn_Header_Id)
126: ) then
127: return;
128: else
129: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
130: APP_EXCEPTION.Raise_Exception;
131: end if;
132:
133: END Lock_Row;