62: X_LAST_UPDATED_BY IN NUMBER,
63: X_LAST_UPDATE_LOGIN IN NUMBER
64: ) IS
65: L_TECH_PARM_ID NUMBER;
66: CURSOR C IS SELECT ROWID FROM GMD_TECH_PARAMETERS_B
67: WHERE TECH_PARM_ID = L_TECH_PARM_ID
68: ;
69:
70: BEGIN
75: ELSE
76: L_TECH_PARM_ID := X_TECH_PARM_ID;
77: END IF;
78:
79: INSERT INTO GMD_TECH_PARAMETERS_B (
80: TECH_PARM_ID,
81: QCASSY_TYP_ID,
82: LAB_TYPE,
83: TECH_PARM_NAME,
340: ATTRIBUTE29,
341: ATTRIBUTE_CATEGORY,
342: ATTRIBUTE30,
343: ORGANIZATION_ID
344: FROM GMD_TECH_PARAMETERS_B
345: WHERE TECH_PARM_ID = X_TECH_PARM_ID
346: FOR UPDATE OF TECH_PARM_ID NOWAIT;
347: RECINFO C%ROWTYPE;
348:
540: X_LAST_UPDATED_BY IN NUMBER,
541: X_LAST_UPDATE_LOGIN IN NUMBER
542: ) IS
543: BEGIN
544: UPDATE GMD_TECH_PARAMETERS_B SET
545: QCASSY_TYP_ID = X_QCASSY_TYP_ID,
546: LAB_TYPE = X_LAB_TYPE,
547: TECH_PARM_NAME = X_TECH_PARM_NAME,
548: DATA_TYPE = X_DATA_TYPE,
619: PROCEDURE DELETE_ROW (
620: X_TECH_PARM_ID IN NUMBER
621: ) IS
622: BEGIN
623: UPDATE GMD_TECH_PARAMETERS_B
624: SET DELETE_MARK = 1
625: WHERE TECH_PARM_ID = X_TECH_PARM_ID;
626:
627: IF (SQL%NOTFOUND) THEN
634: BEGIN
635: DELETE FROM GMD_TECH_PARAMETERS_TL T
636: WHERE NOT EXISTS
637: (SELECT NULL
638: FROM GMD_TECH_PARAMETERS_B B
639: WHERE B.TECH_PARM_ID = T.TECH_PARM_ID
640: );
641:
642: UPDATE GMD_TECH_PARAMETERS_TL T SET (