1971: ) RETURN tilv_rec_type IS
1972: l_tilv_rec tilv_rec_type := p_tilv_rec;
1973: BEGIN
1974: l_tilv_rec.CREATION_DATE := SYSDATE;
1975: l_tilv_rec.CREATED_BY := Fnd_Global.USER_ID;
1976: l_tilv_rec.LAST_UPDATE_DATE := l_tilv_rec.CREATION_DATE;
1977: l_tilv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
1978: l_tilv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
1979: RETURN(l_tilv_rec);
1973: BEGIN
1974: l_tilv_rec.CREATION_DATE := SYSDATE;
1975: l_tilv_rec.CREATED_BY := Fnd_Global.USER_ID;
1976: l_tilv_rec.LAST_UPDATE_DATE := l_tilv_rec.CREATION_DATE;
1977: l_tilv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
1978: l_tilv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
1979: RETURN(l_tilv_rec);
1980: END fill_who_columns;
1981: ---------------------------------------------
1974: l_tilv_rec.CREATION_DATE := SYSDATE;
1975: l_tilv_rec.CREATED_BY := Fnd_Global.USER_ID;
1976: l_tilv_rec.LAST_UPDATE_DATE := l_tilv_rec.CREATION_DATE;
1977: l_tilv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
1978: l_tilv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
1979: RETURN(l_tilv_rec);
1980: END fill_who_columns;
1981: ---------------------------------------------
1982: -- Set_Attributes for:OKL_TXL_AR_INV_LNS_V --
1992: x_tilv_rec.SFWT_FLAG := 'N';
1993:
1994: IF (x_tilv_rec.request_id IS NULL OR x_tilv_rec.request_id = Okl_Api.G_MISS_NUM) THEN
1995: SELECT
1996: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1997: DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1998: DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
1999: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE)
2000: INTO
1993:
1994: IF (x_tilv_rec.request_id IS NULL OR x_tilv_rec.request_id = Okl_Api.G_MISS_NUM) THEN
1995: SELECT
1996: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1997: DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1998: DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
1999: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE)
2000: INTO
2001: x_tilv_rec.request_id,
1994: IF (x_tilv_rec.request_id IS NULL OR x_tilv_rec.request_id = Okl_Api.G_MISS_NUM) THEN
1995: SELECT
1996: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1997: DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1998: DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
1999: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE)
2000: INTO
2001: x_tilv_rec.request_id,
2002: x_tilv_rec.program_application_id,
1995: SELECT
1996: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1997: DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
1998: DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
1999: DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE)
2000: INTO
2001: x_tilv_rec.request_id,
2002: x_tilv_rec.program_application_id,
2003: x_tilv_rec.program_id,
2910: l_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
2911: BEGIN
2912: x_til_rec := p_til_rec;
2913:
2914: /* x_til_rec.request_id := DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID);
2915: x_til_rec.program_application_id :=DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.PROG_APPL_ID);
2916: x_til_rec.program_id :=DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID);
2917: x_til_rec.program_update_date :=DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE);
2918: */
2911: BEGIN
2912: x_til_rec := p_til_rec;
2913:
2914: /* x_til_rec.request_id := DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID);
2915: x_til_rec.program_application_id :=DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.PROG_APPL_ID);
2916: x_til_rec.program_id :=DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID);
2917: x_til_rec.program_update_date :=DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE);
2918: */
2919:
2912: x_til_rec := p_til_rec;
2913:
2914: /* x_til_rec.request_id := DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID);
2915: x_til_rec.program_application_id :=DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.PROG_APPL_ID);
2916: x_til_rec.program_id :=DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID);
2917: x_til_rec.program_update_date :=DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE);
2918: */
2919:
2920: RETURN(l_return_status);
2913:
2914: /* x_til_rec.request_id := DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID);
2915: x_til_rec.program_application_id :=DECODE(Fnd_Global.PROG_APPL_ID,-1,NULL,Fnd_Global.PROG_APPL_ID);
2916: x_til_rec.program_id :=DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID);
2917: x_til_rec.program_update_date :=DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE);
2918: */
2919:
2920: RETURN(l_return_status);
2921: END Set_Attributes;
3265: ) RETURN tilv_rec_type IS
3266: l_tilv_rec tilv_rec_type := p_tilv_rec;
3267: BEGIN
3268: l_tilv_rec.LAST_UPDATE_DATE := l_tilv_rec.CREATION_DATE;
3269: l_tilv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
3270: l_tilv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
3271: RETURN(l_tilv_rec);
3272: END fill_who_columns;
3273: ----------------------------------
3266: l_tilv_rec tilv_rec_type := p_tilv_rec;
3267: BEGIN
3268: l_tilv_rec.LAST_UPDATE_DATE := l_tilv_rec.CREATION_DATE;
3269: l_tilv_rec.LAST_UPDATED_BY := Fnd_Global.USER_ID;
3270: l_tilv_rec.LAST_UPDATE_LOGIN := Fnd_Global.LOGIN_ID;
3271: RETURN(l_tilv_rec);
3272: END fill_who_columns;
3273: ----------------------------------
3274: -- FUNCTION populate_new_record --
3542:
3543: IF (x_tilv_rec.request_id IS NULL OR x_tilv_rec.request_id = Okl_Api.G_MISS_NUM) THEN
3544: -- Begin Post-Generation Change
3545: SELECT
3546: NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
3547: x_tilv_rec.request_id),
3548: NVL(DECODE(Fnd_Global.PROG_APPL_ID, -1,NULL,Fnd_Global.PROG_APPL_ID),
3549: x_tilv_rec.program_application_id),
3550: NVL(DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
3544: -- Begin Post-Generation Change
3545: SELECT
3546: NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
3547: x_tilv_rec.request_id),
3548: NVL(DECODE(Fnd_Global.PROG_APPL_ID, -1,NULL,Fnd_Global.PROG_APPL_ID),
3549: x_tilv_rec.program_application_id),
3550: NVL(DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
3551: x_tilv_rec.program_id),
3552: DECODE(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE),
3546: NVL(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,Fnd_Global.CONC_REQUEST_ID),
3547: x_tilv_rec.request_id),
3548: NVL(DECODE(Fnd_Global.PROG_APPL_ID, -1,NULL,Fnd_Global.PROG_APPL_ID),
3549: x_tilv_rec.program_application_id),
3550: NVL(DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
3551: x_tilv_rec.program_id),
3552: DECODE(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE),
3553: NULL,x_tilv_rec.program_update_date,SYSDATE)
3554: INTO
3548: NVL(DECODE(Fnd_Global.PROG_APPL_ID, -1,NULL,Fnd_Global.PROG_APPL_ID),
3549: x_tilv_rec.program_application_id),
3550: NVL(DECODE(Fnd_Global.CONC_PROGRAM_ID,-1,NULL,Fnd_Global.CONC_PROGRAM_ID),
3551: x_tilv_rec.program_id),
3552: DECODE(DECODE(Fnd_Global.CONC_REQUEST_ID,-1,NULL,SYSDATE),
3553: NULL,x_tilv_rec.program_update_date,SYSDATE)
3554: INTO
3555: x_tilv_rec.request_id,
3556: x_tilv_rec.program_application_id,