624: l_tapv_rec.DATE_INVOICED := p_invoice_date;
625: l_tapv_rec.DATE_GL := p_invoice_date;
626: l_tapv_rec.DATE_ENTERED := SYSDATE;
627: l_tapv_rec.object_version_number := 1;
628: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
629: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
630: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
631: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
632: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
625: l_tapv_rec.DATE_GL := p_invoice_date;
626: l_tapv_rec.DATE_ENTERED := SYSDATE;
627: l_tapv_rec.object_version_number := 1;
628: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
629: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
630: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
631: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
632: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
633: l_tapv_rec.PROGRAM_APPLICATION_ID,
626: l_tapv_rec.DATE_ENTERED := SYSDATE;
627: l_tapv_rec.object_version_number := 1;
628: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
629: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
630: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
631: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
632: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
633: l_tapv_rec.PROGRAM_APPLICATION_ID,
634: l_tapv_rec.PROGRAM_ID,
627: l_tapv_rec.object_version_number := 1;
628: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
629: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
630: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
631: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
632: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
633: l_tapv_rec.PROGRAM_APPLICATION_ID,
634: l_tapv_rec.PROGRAM_ID,
635: l_tapv_rec.PROGRAM_UPDATE_DATE,
653: l_tplv_rec.KHR_ID := p_khr_id ;
654: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End Changes */
655:
656:
657: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
658: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
659: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
660: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
661: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
654: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End Changes */
655:
656:
657: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
658: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
659: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
660: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
661: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
662: l_tplv_rec.PROGRAM_APPLICATION_ID,
655:
656:
657: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
658: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
659: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
660: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
661: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
662: l_tplv_rec.PROGRAM_APPLICATION_ID,
663: l_tplv_rec.PROGRAM_ID,
656:
657: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
658: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
659: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
660: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
661: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
662: l_tplv_rec.PROGRAM_APPLICATION_ID,
663: l_tplv_rec.PROGRAM_ID,
664: l_tplv_rec.PROGRAM_UPDATE_DATE,
971: l_tapv_rec.DATE_INVOICED := p_invoice_date;
972: l_tapv_rec.DATE_GL := p_invoice_date;
973: l_tapv_rec.DATE_ENTERED := SYSDATE;
974: l_tapv_rec.object_version_number := 1;
975: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
976: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
977: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
978: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
979: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
972: l_tapv_rec.DATE_GL := p_invoice_date;
973: l_tapv_rec.DATE_ENTERED := SYSDATE;
974: l_tapv_rec.object_version_number := 1;
975: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
976: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
977: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
978: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
979: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
980: l_tapv_rec.PROGRAM_APPLICATION_ID,
973: l_tapv_rec.DATE_ENTERED := SYSDATE;
974: l_tapv_rec.object_version_number := 1;
975: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
976: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
977: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
978: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
979: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
980: l_tapv_rec.PROGRAM_APPLICATION_ID,
981: l_tapv_rec.PROGRAM_ID,
974: l_tapv_rec.object_version_number := 1;
975: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
976: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
977: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
978: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
979: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
980: l_tapv_rec.PROGRAM_APPLICATION_ID,
981: l_tapv_rec.PROGRAM_ID,
982: l_tapv_rec.PROGRAM_UPDATE_DATE,
997: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT Start change*/
998: l_tplv_rec.KHR_ID := p_khr_id ;
999: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes*/
1000:
1001: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
1002: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
1003: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
1004: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
1005: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
998: l_tplv_rec.KHR_ID := p_khr_id ;
999: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes*/
1000:
1001: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
1002: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
1003: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
1004: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
1005: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
1006: l_tplv_rec.PROGRAM_APPLICATION_ID,
999: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes*/
1000:
1001: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
1002: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
1003: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
1004: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
1005: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
1006: l_tplv_rec.PROGRAM_APPLICATION_ID,
1007: l_tplv_rec.PROGRAM_ID,
1000:
1001: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
1002: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
1003: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
1004: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
1005: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
1006: l_tplv_rec.PROGRAM_APPLICATION_ID,
1007: l_tplv_rec.PROGRAM_ID,
1008: l_tplv_rec.PROGRAM_UPDATE_DATE,