1925: ) RETURN asev_rec_type IS
1926: l_asev_rec asev_rec_type := p_asev_rec;
1927: BEGIN
1928: l_asev_rec.CREATION_DATE := SYSDATE;
1929: l_asev_rec.CREATED_BY := Fnd_Global.USER_ID;
1930: l_asev_rec.LAST_UPDATE_DATE := l_asev_rec.CREATION_DATE;
1931: l_asev_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
1932: l_asev_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
1933: RETURN(l_asev_rec);
1927: BEGIN
1928: l_asev_rec.CREATION_DATE := SYSDATE;
1929: l_asev_rec.CREATED_BY := Fnd_Global.USER_ID;
1930: l_asev_rec.LAST_UPDATE_DATE := l_asev_rec.CREATION_DATE;
1931: l_asev_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
1932: l_asev_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
1933: RETURN(l_asev_rec);
1934: END fill_who_columns;
1935: -------------------------------------------
1928: l_asev_rec.CREATION_DATE := SYSDATE;
1929: l_asev_rec.CREATED_BY := Fnd_Global.USER_ID;
1930: l_asev_rec.LAST_UPDATE_DATE := l_asev_rec.CREATION_DATE;
1931: l_asev_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
1932: l_asev_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
1933: RETURN(l_asev_rec);
1934: END fill_who_columns;
1935: -------------------------------------------
1936: -- Set_Attributes for:OKL_ACCT_SOURCES_V --
1940: x_asev_rec OUT NOCOPY asev_rec_type
1941: ) RETURN VARCHAR2 IS
1942: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1943:
1944: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
1945: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
1946: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
1947:
1948:
1941: ) RETURN VARCHAR2 IS
1942: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1943:
1944: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
1945: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
1946: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
1947:
1948:
1949: BEGIN
1942: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
1943:
1944: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
1945: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
1946: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
1947:
1948:
1949: BEGIN
1950: x_asev_rec := p_asev_rec;
1950: x_asev_rec := p_asev_rec;
1951:
1952: SELECT DECODE(l_request_id, -1, NULL, l_request_id),
1953: DECODE(l_prog_app_id, -1, NULL, l_prog_app_id),
1954: DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL, Fnd_Global.CONC_PROGRAM_ID),
1955: DECODE(l_request_id, -1, NULL, SYSDATE)
1956: INTO x_asev_rec.REQUEST_ID
1957: ,x_asev_rec.PROGRAM_APPLICATION_ID
1958: ,x_asev_rec.PROGRAM_ID
2134: l_last_update_login NUMBER;
2135: i INTEGER;
2136: j INTEGER;
2137: l_org_id NUMBER;
2138: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
2139: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
2140: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
2141: l_prog_update_date DATE;
2142:
2135: i INTEGER;
2136: j INTEGER;
2137: l_org_id NUMBER;
2138: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
2139: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
2140: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
2141: l_prog_update_date DATE;
2142:
2143: BEGIN
2136: j INTEGER;
2137: l_org_id NUMBER;
2138: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
2139: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
2140: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
2141: l_prog_update_date DATE;
2142:
2143: BEGIN
2144: x_return_Status := OKC_API.G_RET_STS_SUCCESS;
2144: x_return_Status := OKC_API.G_RET_STS_SUCCESS;
2145: i := p_asev_tbl.FIRST;
2146: j:=0;
2147: --Assigning the values for the who columns
2148: l_created_by := FND_GLOBAL.USER_ID;
2149: l_last_updated_by := FND_GLOBAL.USER_ID;
2150: l_creation_date := SYSDATE;
2151: l_last_update_date := SYSDATE;
2152: l_last_update_login := FND_GLOBAL.LOGIN_ID;
2145: i := p_asev_tbl.FIRST;
2146: j:=0;
2147: --Assigning the values for the who columns
2148: l_created_by := FND_GLOBAL.USER_ID;
2149: l_last_updated_by := FND_GLOBAL.USER_ID;
2150: l_creation_date := SYSDATE;
2151: l_last_update_date := SYSDATE;
2152: l_last_update_login := FND_GLOBAL.LOGIN_ID;
2153: --Deriving the org_id to be used
2148: l_created_by := FND_GLOBAL.USER_ID;
2149: l_last_updated_by := FND_GLOBAL.USER_ID;
2150: l_creation_date := SYSDATE;
2151: l_last_update_date := SYSDATE;
2152: l_last_update_login := FND_GLOBAL.LOGIN_ID;
2153: --Deriving the org_id to be used
2154: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2155:
2156: SELECT DECODE(l_request_id, -1, NULL, l_request_id),
2154: l_org_id := MO_GLOBAL.GET_CURRENT_ORG_ID();
2155:
2156: SELECT DECODE(l_request_id, -1, NULL, l_request_id),
2157: DECODE(l_prog_app_id, -1, NULL, l_prog_app_id),
2158: DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL, Fnd_Global.CONC_PROGRAM_ID),
2159: DECODE(l_request_id, -1, NULL, SYSDATE)
2160: INTO l_request_id
2161: ,l_prog_app_id
2162: ,l_program_id
3214: ) RETURN asev_rec_type IS
3215: l_asev_rec asev_rec_type := p_asev_rec;
3216: BEGIN
3217: l_asev_rec.LAST_UPDATE_DATE := SYSDATE;
3218: l_asev_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
3219: l_asev_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
3220: RETURN(l_asev_rec);
3221: END fill_who_columns;
3222: ----------------------------------
3215: l_asev_rec asev_rec_type := p_asev_rec;
3216: BEGIN
3217: l_asev_rec.LAST_UPDATE_DATE := SYSDATE;
3218: l_asev_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
3219: l_asev_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
3220: RETURN(l_asev_rec);
3221: END fill_who_columns;
3222: ----------------------------------
3223: -- FUNCTION populate_new_record --
3426: p_asev_rec IN asev_rec_type,
3427: x_asev_rec OUT NOCOPY asev_rec_type
3428: ) RETURN VARCHAR2 IS
3429: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3430: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
3431: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
3432: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
3433:
3434: BEGIN
3427: x_asev_rec OUT NOCOPY asev_rec_type
3428: ) RETURN VARCHAR2 IS
3429: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3430: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
3431: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
3432: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
3433:
3434: BEGIN
3435: x_asev_rec := p_asev_rec;
3428: ) RETURN VARCHAR2 IS
3429: l_return_status VARCHAR2(1) := Okc_Api.G_RET_STS_SUCCESS;
3430: l_request_id NUMBER := Fnd_Global.CONC_REQUEST_ID;
3431: l_prog_app_id NUMBER := Fnd_Global.PROG_APPL_ID;
3432: l_program_id NUMBER := Fnd_Global.CONC_PROGRAM_ID;
3433:
3434: BEGIN
3435: x_asev_rec := p_asev_rec;
3436: