1292: ) RETURN sirv_rec_type IS
1293: l_sirv_rec sirv_rec_type := p_sirv_rec;
1294: BEGIN
1295: l_sirv_rec.CREATION_DATE := SYSDATE;
1296: l_sirv_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1297: l_sirv_rec.LAST_UPDATE_DATE := SYSDATE;
1298: l_sirv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1299: l_sirv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1300: RETURN(l_sirv_rec);
1294: BEGIN
1295: l_sirv_rec.CREATION_DATE := SYSDATE;
1296: l_sirv_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1297: l_sirv_rec.LAST_UPDATE_DATE := SYSDATE;
1298: l_sirv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1299: l_sirv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1300: RETURN(l_sirv_rec);
1301: END fill_who_columns;
1302: ---------------------------------------
1295: l_sirv_rec.CREATION_DATE := SYSDATE;
1296: l_sirv_rec.CREATED_BY := FND_GLOBAL.USER_ID;
1297: l_sirv_rec.LAST_UPDATE_DATE := SYSDATE;
1298: l_sirv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
1299: l_sirv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
1300: RETURN(l_sirv_rec);
1301: END fill_who_columns;
1302: ---------------------------------------
1303: -- Set_Attributes for:OKL_SIF_RETS_V --
1311: x_sirv_rec := p_sirv_rec;
1312: x_sirv_rec.OBJECT_VERSION_NUMBER := 1;
1313:
1314: -- concurrent program columns
1315: SELECT DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL,Fnd_Global.CONC_REQUEST_ID),
1316: DECODE(Fnd_Global.PROG_APPL_ID, -1, NULL,Fnd_Global.PROG_APPL_ID),
1317: DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL,Fnd_Global.CONC_PROGRAM_ID),
1318: DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL, SYSDATE)
1319: INTO x_sirv_rec.REQUEST_ID
1312: x_sirv_rec.OBJECT_VERSION_NUMBER := 1;
1313:
1314: -- concurrent program columns
1315: SELECT DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL,Fnd_Global.CONC_REQUEST_ID),
1316: DECODE(Fnd_Global.PROG_APPL_ID, -1, NULL,Fnd_Global.PROG_APPL_ID),
1317: DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL,Fnd_Global.CONC_PROGRAM_ID),
1318: DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL, SYSDATE)
1319: INTO x_sirv_rec.REQUEST_ID
1320: ,x_sirv_rec.PROGRAM_APPLICATION_ID
1313:
1314: -- concurrent program columns
1315: SELECT DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL,Fnd_Global.CONC_REQUEST_ID),
1316: DECODE(Fnd_Global.PROG_APPL_ID, -1, NULL,Fnd_Global.PROG_APPL_ID),
1317: DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL,Fnd_Global.CONC_PROGRAM_ID),
1318: DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL, SYSDATE)
1319: INTO x_sirv_rec.REQUEST_ID
1320: ,x_sirv_rec.PROGRAM_APPLICATION_ID
1321: ,x_sirv_rec.PROGRAM_ID
1314: -- concurrent program columns
1315: SELECT DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL,Fnd_Global.CONC_REQUEST_ID),
1316: DECODE(Fnd_Global.PROG_APPL_ID, -1, NULL,Fnd_Global.PROG_APPL_ID),
1317: DECODE(Fnd_Global.CONC_PROGRAM_ID, -1, NULL,Fnd_Global.CONC_PROGRAM_ID),
1318: DECODE(Fnd_Global.CONC_REQUEST_ID, -1, NULL, SYSDATE)
1319: INTO x_sirv_rec.REQUEST_ID
1320: ,x_sirv_rec.PROGRAM_APPLICATION_ID
1321: ,x_sirv_rec.PROGRAM_ID
1322: ,x_sirv_rec.PROGRAM_UPDATE_DATE
2105: ) RETURN sirv_rec_type IS
2106: l_sirv_rec sirv_rec_type := p_sirv_rec;
2107: BEGIN
2108: l_sirv_rec.LAST_UPDATE_DATE := SYSDATE;
2109: l_sirv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2110: l_sirv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
2111: RETURN(l_sirv_rec);
2112: END fill_who_columns;
2113: ----------------------------------
2106: l_sirv_rec sirv_rec_type := p_sirv_rec;
2107: BEGIN
2108: l_sirv_rec.LAST_UPDATE_DATE := SYSDATE;
2109: l_sirv_rec.LAST_UPDATED_BY := FND_GLOBAL.USER_ID;
2110: l_sirv_rec.LAST_UPDATE_LOGIN := FND_GLOBAL.LOGIN_ID;
2111: RETURN(l_sirv_rec);
2112: END fill_who_columns;
2113: ----------------------------------
2114: -- FUNCTION populate_new_record --