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,
952: l_tapv_rec.DATE_INVOICED := p_invoice_date;
953: l_tapv_rec.DATE_GL := p_invoice_date;
954: l_tapv_rec.DATE_ENTERED := SYSDATE;
955: l_tapv_rec.object_version_number := 1;
956: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
957: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
958: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
959: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
960: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
953: l_tapv_rec.DATE_GL := p_invoice_date;
954: l_tapv_rec.DATE_ENTERED := SYSDATE;
955: l_tapv_rec.object_version_number := 1;
956: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
957: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
958: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
959: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
960: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
961: l_tapv_rec.PROGRAM_APPLICATION_ID,
954: l_tapv_rec.DATE_ENTERED := SYSDATE;
955: l_tapv_rec.object_version_number := 1;
956: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
957: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
958: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
959: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
960: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
961: l_tapv_rec.PROGRAM_APPLICATION_ID,
962: l_tapv_rec.PROGRAM_ID,
955: l_tapv_rec.object_version_number := 1;
956: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
957: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
958: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
959: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
960: mo_global.get_current_org_id() INTO l_tapv_rec.REQUEST_ID,
961: l_tapv_rec.PROGRAM_APPLICATION_ID,
962: l_tapv_rec.PROGRAM_ID,
963: l_tapv_rec.PROGRAM_UPDATE_DATE,
978: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT Start change*/
979: l_tplv_rec.KHR_ID := p_khr_id ;
980: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes*/
981:
982: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
983: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
984: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
985: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
986: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
979: l_tplv_rec.KHR_ID := p_khr_id ;
980: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes*/
981:
982: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
983: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
984: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
985: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
986: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
987: l_tplv_rec.PROGRAM_APPLICATION_ID,
980: /* 22-JAN-2007 ANSETHUR BUILD: R12 B DISBURSEMENT End changes*/
981:
982: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
983: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
984: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
985: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
986: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
987: l_tplv_rec.PROGRAM_APPLICATION_ID,
988: l_tplv_rec.PROGRAM_ID,
981:
982: SELECT DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,FND_GLOBAL.CONC_REQUEST_ID),
983: DECODE(FND_GLOBAL.PROG_APPL_ID,-1,NULL,FND_GLOBAL.PROG_APPL_ID),
984: DECODE(FND_GLOBAL.CONC_PROGRAM_ID,-1,NULL,FND_GLOBAL.CONC_PROGRAM_ID),
985: DECODE(FND_GLOBAL.CONC_REQUEST_ID,-1,NULL,SYSDATE),
986: mo_global.get_current_org_id() INTO l_tplv_rec.REQUEST_ID,
987: l_tplv_rec.PROGRAM_APPLICATION_ID,
988: l_tplv_rec.PROGRAM_ID,
989: l_tplv_rec.PROGRAM_UPDATE_DATE,