1979:
1980: -- Set Internal columns
1981: l_object_version_number := 1;
1982: l_creation_date := Sysdate;
1983: l_created_by := Fnd_Global.User_Id;
1984: l_last_update_date := l_creation_date;
1985: l_last_updated_by := l_created_by;
1986: l_last_update_login := Fnd_Global.Login_Id;
1987:
1982: l_creation_date := Sysdate;
1983: l_created_by := Fnd_Global.User_Id;
1984: l_last_update_date := l_creation_date;
1985: l_last_updated_by := l_created_by;
1986: l_last_update_login := Fnd_Global.Login_Id;
1987:
1988:
1989: --- Validate all non-missing attributes
1990: x_return_status := Validate_Record(
2764: END IF;
2765:
2766: -- Filling who columns
2767: l_last_update_date := SYSDATE;
2768: l_last_updated_by := FND_GLOBAL.USER_ID;
2769: l_last_update_login := FND_GLOBAL.LOGIN_ID;
2770:
2771: -- Object version increment
2772: IF Nvl(l_object_version_number, 0) >= 0 THEN
2765:
2766: -- Filling who columns
2767: l_last_update_date := SYSDATE;
2768: l_last_updated_by := FND_GLOBAL.USER_ID;
2769: l_last_update_login := FND_GLOBAL.LOGIN_ID;
2770:
2771: -- Object version increment
2772: IF Nvl(l_object_version_number, 0) >= 0 THEN
2773: l_object_version_number := Nvl(p_object_version_number, 0) + 1;
3105: WORKING_COPY_FLAG = 'N',
3106: PARENT_TEMPLATE_ID = NULL,
3107: STATUS_CODE = 'APPROVED',
3108: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER+1,
3109: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
3110: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
3111: LAST_UPDATE_DATE = Sysdate
3112: WHERE template_id= p_old_template_id;
3113: --------------------------------------------
3106: PARENT_TEMPLATE_ID = NULL,
3107: STATUS_CODE = 'APPROVED',
3108: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER+1,
3109: LAST_UPDATED_BY = FND_GLOBAL.USER_ID,
3110: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
3111: LAST_UPDATE_DATE = Sysdate
3112: WHERE template_id= p_old_template_id;
3113: --------------------------------------------
3114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN