83: dbms_xmlgen.setRowSetTag(qryCtx1, 'G_REPORT_INFO');
84: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
85: dbms_xmlgen.closecontext(qryctx1);
86: l_xml := xmlresult1;
87: dbms_lob.write(l_xml, length(' '), 1, ' ');
88: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
89: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(' '), l_resultOffset +1);
90: RETURN l_xml;
91: EXCEPTION
84: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
85: dbms_xmlgen.closecontext(qryctx1);
86: l_xml := xmlresult1;
87: dbms_lob.write(l_xml, length(' '), 1, ' ');
88: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
89: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(' '), l_resultOffset +1);
90: RETURN l_xml;
91: EXCEPTION
92: WHEN OTHERS THEN
85: dbms_xmlgen.closecontext(qryctx1);
86: l_xml := xmlresult1;
87: dbms_lob.write(l_xml, length(' '), 1, ' ');
88: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
89: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(' '), l_resultOffset +1);
90: RETURN l_xml;
91: EXCEPTION
92: WHEN OTHERS THEN
93: fnd_file.put_line(fnd_file.log,DBMS_UTILITY.FORMAT_ERROR_BACKTRACE);
359: dbms_xmlgen.setRowSetTag(qryCtx1, 'G_REPORT_INFO');
360: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
361: dbms_xmlgen.closecontext(qryctx1);
362: l_xml := xmlresult1;
363: dbms_lob.write(l_xml, length(l_report_info), 1, l_report_info);
364: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
365: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(l_report_info), l_resultOffset +1);
366:
367: IF (l_layout_type = 'EMP') THEN
360: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
361: dbms_xmlgen.closecontext(qryctx1);
362: l_xml := xmlresult1;
363: dbms_lob.write(l_xml, length(l_report_info), 1, l_report_info);
364: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
365: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(l_report_info), l_resultOffset +1);
366:
367: IF (l_layout_type = 'EMP') THEN
368:
361: dbms_xmlgen.closecontext(qryctx1);
362: l_xml := xmlresult1;
363: dbms_lob.write(l_xml, length(l_report_info), 1, l_report_info);
364: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
365: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(l_report_info), l_resultOffset +1);
366:
367: IF (l_layout_type = 'EMP') THEN
368:
369: dbms_lob.writeappend(l_xml, length('
365: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(l_report_info), l_resultOffset +1);
366:
367: IF (l_layout_type = 'EMP') THEN
368:
369: dbms_lob.writeappend(l_xml, length('
371: IF (p_request_id IS NULL) THEN
372:
373: query1 := 'SELECT person_xml FROM psp_eff_reports per WHERE per.status_code IN (''A'', ''N'') '
384: LOOP
385: FETCH person_xml_cur INTO l_person_xml;
386: EXIT WHEN person_xml_cur%NOTFOUND;
387:
388: dbms_lob.copy(l_xml, l_person_xml, dbms_lob.getlength(l_person_xml), dbms_lob.getlength(l_xml), 1);
389: END LOOP;
390: CLOSE person_xml_cur;
391:
392: dbms_lob.writeappend(l_xml, length(''), '');
388: dbms_lob.copy(l_xml, l_person_xml, dbms_lob.getlength(l_person_xml), dbms_lob.getlength(l_xml), 1);
389: END LOOP;
390: CLOSE person_xml_cur;
391:
392: dbms_lob.writeappend(l_xml, length(''), '');
393: ELSE
394:
395: OPEN sort_option2_cur(l_request_id);
396: l_sort_option1 := NULL;
412: END IF;
413: END LOOP;
414: CLOSE sort_option2_cur;
415:
416: dbms_lob.writeappend(l_xml, length('
418: query1 := 'SELECT investigator_person_id, investigator_name, investigator_org_name, investigator_primary_org_id, '
419: || 'TRIM(TO_CHAR(SUM(proposed_salary_amt), ''' || l_num30_fmask || ''')) total_pi_proposed_salary, '
420: || 'TRIM(TO_CHAR(SUM(actual_salary_amt), ''' || l_num30_fmask || ''')) total_pi_actual_salary FROM '
452: ---- 4429787
453: l_investigator_name := convert_xml_controls(l_investigator_name);
454: l_investigator_org_name := convert_xml_controls(l_investigator_org_name);
455:
456: dbms_lob.writeappend(l_xml, length('
458:
459:
460:
470:
471:
472: ');
473:
474: -- dbms_lob.writeappend(l_xml, length('
476: query2 := 'SELECT person_xml FROM psp_eff_reports per WHERE per.effort_report_id IN (SELECT perd.effort_report_id '
477: || 'FROM psp_eff_report_details perd WHERE perd.investigator_person_id = ' || TO_CHAR(l_investigator_id) || ')'
478: || ' AND request_id = ' || TO_CHAR(l_request_id) || ' AND status_code <> ''R''' || l_emp_sort_option;
479: OPEN person_xml_cur FOR query2;
480: LOOP
481: FETCH person_xml_cur INTO l_person_xml;
482: EXIT WHEN person_xml_cur%NOTFOUND;
483: l_resultOffset := DBMS_LOB.INSTR(l_person_xml,'>');
484: dbms_lob.copy(l_xml, l_person_xml, dbms_lob.getlength(l_person_xml), dbms_lob.getlength(l_xml), 1);
485: END LOOP;
486: CLOSE person_xml_cur;
487:
480: LOOP
481: FETCH person_xml_cur INTO l_person_xml;
482: EXIT WHEN person_xml_cur%NOTFOUND;
483: l_resultOffset := DBMS_LOB.INSTR(l_person_xml,'>');
484: dbms_lob.copy(l_xml, l_person_xml, dbms_lob.getlength(l_person_xml), dbms_lob.getlength(l_xml), 1);
485: END LOOP;
486: CLOSE person_xml_cur;
487:
488: -- dbms_lob.writeappend(l_xml, length(' '), ' ');
484: dbms_lob.copy(l_xml, l_person_xml, dbms_lob.getlength(l_person_xml), dbms_lob.getlength(l_xml), 1);
485: END LOOP;
486: CLOSE person_xml_cur;
487:
488: -- dbms_lob.writeappend(l_xml, length(' '), ' ');
489:
490: --Bug 4334816: START
491: -- Including the WorkFlow Note in Pdf
492:
513: dbms_xmlgen.setRowTag(qryCtx1, 'G_APPROVER');
514: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_APPROVER');
515: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
516: dbms_xmlgen.closecontext(qryctx1);
517: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
518: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
519: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
520: END IF;
521: dbms_lob.writeappend(l_xml, length(' '), ' ');
514: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_APPROVER');
515: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
516: dbms_xmlgen.closecontext(qryctx1);
517: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
518: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
519: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
520: END IF;
521: dbms_lob.writeappend(l_xml, length(' '), ' ');
522:
515: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
516: dbms_xmlgen.closecontext(qryctx1);
517: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
518: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
519: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
520: END IF;
521: dbms_lob.writeappend(l_xml, length(' '), ' ');
522:
523: END LOOP;
517: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
518: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
519: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
520: END IF;
521: dbms_lob.writeappend(l_xml, length(' '), ' ');
522:
523: END LOOP;
524: CLOSE investigator_cur;
525:
522:
523: END LOOP;
524: CLOSE investigator_cur;
525:
526: dbms_lob.writeappend(l_xml, length(' '), ' ');
527: END IF;
528:
529: dbms_lob.writeappend(l_xml, length(''), '');
530:
525:
526: dbms_lob.writeappend(l_xml, length(' '), ' ');
527: END IF;
528:
529: dbms_lob.writeappend(l_xml, length(''), '');
530:
531: RETURN l_xml;
532: EXCEPTION
533: WHEN OTHERS THEN
737: dbms_xmlquery.setRowSetTag(qryCtx2, 'EMP_DFF');
738: xmlresult1 := dbms_xmlquery.getXML(qryCtx2, dbms_xmlgen.NONE);
739: dbms_xmlquery.closecontext(qryctx2);
740: l_xml := xmlresult1;
741: dbms_lob.write(l_xml, length(l_employee_info), 1, l_employee_info);
742: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
743: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(l_employee_info), l_resultOffset +1);
744:
745:
738: xmlresult1 := dbms_xmlquery.getXML(qryCtx2, dbms_xmlgen.NONE);
739: dbms_xmlquery.closecontext(qryctx2);
740: l_xml := xmlresult1;
741: dbms_lob.write(l_xml, length(l_employee_info), 1, l_employee_info);
742: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
743: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(l_employee_info), l_resultOffset +1);
744:
745:
746:
739: dbms_xmlquery.closecontext(qryctx2);
740: l_xml := xmlresult1;
741: dbms_lob.write(l_xml, length(l_employee_info), 1, l_employee_info);
742: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
743: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, length(l_employee_info), l_resultOffset +1);
744:
745:
746:
747: query1 := 'select TRIM(TO_CHAR(SUM(NVL(proposed_salary_amt, 0)), ''' || l_num25_fmask || ''')) total_emp_proposed_salary, '
758: dbms_xmlgen.setRowTag(qryCtx1, NULL);
759: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_EMP');
760: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
761: dbms_xmlgen.closecontext(qryctx1);
762: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
763: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
764: dbms_lob.writeappend(l_xml, length('
765:
766: OPEN assign_cur(p_effort_report_id);
759: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_EMP');
760: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
761: dbms_xmlgen.closecontext(qryctx1);
762: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
763: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
764: dbms_lob.writeappend(l_xml, length('
765:
766: OPEN assign_cur(p_effort_report_id);
767: LOOP
760: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
761: dbms_xmlgen.closecontext(qryctx1);
762: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
763: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
764: dbms_lob.writeappend(l_xml, length('
766: OPEN assign_cur(p_effort_report_id);
767: LOOP
768: FETCH assign_cur INTO l_assignment_id, l_assignment_number;
772: IF (l_assignment_id IS NOT NULL) THEN
773: l_assignment_check := l_assignment_check || ' AND assignment_id = ' || TO_CHAR(l_assignment_id);
774: END IF;
775: --- applied strip controls for 4429787
776: dbms_lob.writeappend(l_xml, length('
778: '
779: convert_xml_controls(l_assignment_number) || '
780:
792: dbms_xmlgen.setRowTag(qryCtx1, NULL);
793: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_ASG');
794: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
795: dbms_xmlgen.closecontext(qryctx1);
796: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
797: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
798:
799:
800: /* Changes for Hospital effort report :START */
793: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_ASG');
794: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
795: dbms_xmlgen.closecontext(qryctx1);
796: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
797: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
798:
799:
800: /* Changes for Hospital effort report :START */
801: dbms_lob.writeappend(l_xml, length('
797: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
798:
799:
800: /* Changes for Hospital effort report :START */
801: dbms_lob.writeappend(l_xml, length('
803: OPEN grouping_category_csr(l_assignment_id);
804: LOOP
805: FETCH grouping_category_csr INTO l_grouping_category, l_layout_option_order;
803: OPEN grouping_category_csr(l_assignment_id);
804: LOOP
805: FETCH grouping_category_csr INTO l_grouping_category, l_layout_option_order;
806: EXIT WHEN grouping_category_csr%NOTFOUND;
807: --dbms_lob.writeappend(l_xml, length('
809: query1 := 'select TRIM(TO_CHAR(SUM(NVL(proposed_salary_amt, 0)), ''' || l_num25_fmask || ''')) total_proposed_salary, '
810: || 'TRIM(TO_CHAR(SUM(NVL(proposed_effort_percent, 0)), ''999G990D00'')) total_proposed_effort, '
811: || 'TRIM(TO_CHAR(SUM(NVL(committed_cost_share, 0)), ''999G990D00'')) total_cost_share, '
835: dbms_xmlgen.setRowSetTag(qryCtx1, NULL);
836: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
837: dbms_xmlgen.closecontext(qryctx1);
838: xmlresult1 := SUBSTR(xmlresult1, 1, LENGTH(xmlresult1) - 15);
839: -- l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
840: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
841:
842:
843: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
836: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
837: dbms_xmlgen.closecontext(qryctx1);
838: xmlresult1 := SUBSTR(xmlresult1, 1, LENGTH(xmlresult1) - 15);
839: -- l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
840: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
841:
842:
843: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
844: || 'TRIM(TO_CHAR(perd.PAYROLL_PERCENT, ''999G990D00'')) payroll_percent, '
862: dbms_xmlgen.setRowTag(qryCtx1, 'G_CATEGORYDETAILS');
863: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_CATEGORYDETAILS');
864: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
865: dbms_xmlgen.closecontext(qryctx1);
866: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
867: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
868: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
869: END IF;
870:
863: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_CATEGORYDETAILS');
864: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
865: dbms_xmlgen.closecontext(qryctx1);
866: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
867: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
868: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
869: END IF;
870:
871:
864: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
865: dbms_xmlgen.closecontext(qryctx1);
866: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
867: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
868: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
869: END IF;
870:
871:
872: dbms_lob.writeappend(l_xml, length(' '), ' ');
868: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
869: END IF;
870:
871:
872: dbms_lob.writeappend(l_xml, length(' '), ' ');
873:
874: END LOOP;
875: CLOSE grouping_category_csr;
876: dbms_lob.writeappend(l_xml, length(' '), ' ');
872: dbms_lob.writeappend(l_xml, length(' '), ' ');
873:
874: END LOOP;
875: CLOSE grouping_category_csr;
876: dbms_lob.writeappend(l_xml, length(' '), ' ');
877:
878: /*
879:
880: query1 := 'select TRIM(TO_CHAR(SUM(NVL(proposed_salary_amt, 0)), ''' || l_num25_fmask || ''')) total_spon_proposed_salary, '
895: dbms_xmlgen.setRowTag(qryCtx1, NULL);
896: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_SPONSORED');
897: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
898: dbms_xmlgen.closecontext(qryctx1);
899: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
900: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
901:
902: query1 := 'select TRIM(TO_CHAR(SUM(NVL(proposed_salary_amt, 0)), ''' || l_num25_fmask || ''')) total_nspon_proposed_salary, '
903: || 'TRIM(TO_CHAR(SUM(NVL(proposed_effort_percent, 0)), ''999G990D00'')) total_nspon_proposed_effort, '
896: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_SPONSORED');
897: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
898: dbms_xmlgen.closecontext(qryctx1);
899: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
900: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
901:
902: query1 := 'select TRIM(TO_CHAR(SUM(NVL(proposed_salary_amt, 0)), ''' || l_num25_fmask || ''')) total_nspon_proposed_salary, '
903: || 'TRIM(TO_CHAR(SUM(NVL(proposed_effort_percent, 0)), ''999G990D00'')) total_nspon_proposed_effort, '
904: || 'TRIM(TO_CHAR(SUM(NVL(committed_cost_share, 0)), ''999G990D00'')) total_nspon_cost_share, '
917: dbms_xmlgen.setRowTag(qryCtx1, NULL);
918: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_NON_SPONSORED');
919: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
920: dbms_xmlgen.closecontext(qryctx1);
921: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
922: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
923:
924: query1 := 'select TRIM(TO_CHAR(SUM(NVL(proposed_salary_amt, 0)), ''' || l_num25_fmask || ''')) total_gl_proposed_salary, '
925: || 'TRIM(TO_CHAR(SUM(NVL(proposed_effort_percent, 0)), ''999G990D00'')) total_gl_proposed_effort, '
918: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_NON_SPONSORED');
919: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
920: dbms_xmlgen.closecontext(qryctx1);
921: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
922: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
923:
924: query1 := 'select TRIM(TO_CHAR(SUM(NVL(proposed_salary_amt, 0)), ''' || l_num25_fmask || ''')) total_gl_proposed_salary, '
925: || 'TRIM(TO_CHAR(SUM(NVL(proposed_effort_percent, 0)), ''999G990D00'')) total_gl_proposed_effort, '
926: || 'TRIM(TO_CHAR(SUM(NVL(committed_cost_share, 0)), ''999G990D00'')) total_gl_cost_share, '
945: dbms_xmlgen.setRowTag(qryCtx1, NULL);
946: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_GL');
947: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
948: dbms_xmlgen.closecontext(qryctx1);
949: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
950: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
951:
952: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
953: || 'TRIM(TO_CHAR(perd.PAYROLL_PERCENT, ''999G990D00'')) payroll_percent, '
946: dbms_xmlgen.setRowSetTag(qryCtx1, 'TOTAL_GL');
947: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
948: dbms_xmlgen.closecontext(qryctx1);
949: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
950: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
951:
952: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
953: || 'TRIM(TO_CHAR(perd.PAYROLL_PERCENT, ''999G990D00'')) payroll_percent, '
954: || 'TRIM(TO_CHAR(perd.PROPOSED_SALARY_AMT, ''' || l_num25_fmask || ''')) proposed_salary_amt, '
968: dbms_xmlgen.setRowTag(qryCtx1, 'G_SPONSORED');
969: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_SPONSORED');
970: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
971: dbms_xmlgen.closecontext(qryctx1);
972: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
973: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
974: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
975: END IF;
976:
969: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_SPONSORED');
970: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
971: dbms_xmlgen.closecontext(qryctx1);
972: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
973: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
974: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
975: END IF;
976:
977: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
970: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
971: dbms_xmlgen.closecontext(qryctx1);
972: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
973: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
974: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
975: END IF;
976:
977: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
978: || 'TRIM(TO_CHAR(perd.PAYROLL_PERCENT, ''999G990D00'')) payroll_percent, '
993: dbms_xmlgen.setRowTag(qryCtx1, 'G_NON_SPONSORED');
994: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_NON_SPONSORED');
995: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
996: dbms_xmlgen.closecontext(qryctx1);
997: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
998: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
999: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1000: END IF;
1001:
994: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_NON_SPONSORED');
995: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
996: dbms_xmlgen.closecontext(qryctx1);
997: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
998: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
999: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1000: END IF;
1001:
1002: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
995: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
996: dbms_xmlgen.closecontext(qryctx1);
997: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
998: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
999: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1000: END IF;
1001:
1002: query1 := 'SELECT TRIM(TO_CHAR(perd.ACTUAL_SALARY_AMT, ''' || l_num25_fmask || ''')) actual_salary_amt, '
1003: || 'TRIM(TO_CHAR(perd.PAYROLL_PERCENT, ''999G990D00'')) payroll_percent, '
1025: dbms_xmlgen.setRowTag(qryCtx1, 'G_GL');
1026: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_GL');
1027: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1028: dbms_xmlgen.closecontext(qryctx1);
1029: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
1030: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
1031: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1032: END IF;
1033: */
1026: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_GL');
1027: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1028: dbms_xmlgen.closecontext(qryctx1);
1029: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
1030: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
1031: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1032: END IF;
1033: */
1034: /* Changes for Hospital effort report : END */
1027: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1028: dbms_xmlgen.closecontext(qryctx1);
1029: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
1030: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
1031: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1032: END IF;
1033: */
1034: /* Changes for Hospital effort report : END */
1035:
1032: END IF;
1033: */
1034: /* Changes for Hospital effort report : END */
1035:
1036: dbms_lob.writeappend(l_xml, length(' '), ' ');
1037: END LOOP;
1038: CLOSE assign_cur;
1039: dbms_lob.writeappend(l_xml, length(' '), ' ');
1040:
1035:
1036: dbms_lob.writeappend(l_xml, length(' '), ' ');
1037: END LOOP;
1038: CLOSE assign_cur;
1039: dbms_lob.writeappend(l_xml, length(' '), ' ');
1040:
1041: --Bug 4334816: START
1042: -- Including the WorkFlow Note in Pdf
1043: /*
1078: dbms_xmlgen.setRowTag(qryCtx1, 'G_APPROVER');
1079: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_APPROVER');
1080: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1081: dbms_xmlgen.closecontext(qryctx1);
1082: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
1083: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
1084: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1085: END IF;
1086:
1079: dbms_xmlgen.setRowSetTag(qryCtx1, 'LIST_G_APPROVER');
1080: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1081: dbms_xmlgen.closecontext(qryctx1);
1082: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
1083: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
1084: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1085: END IF;
1086:
1087: dbms_lob.writeappend(l_xml, length(' '), ' ');
1080: xmlresult1 := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1081: dbms_xmlgen.closecontext(qryctx1);
1082: IF (dbms_lob.getlength(xmlresult1) > 0) THEN
1083: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
1084: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1085: END IF;
1086:
1087: dbms_lob.writeappend(l_xml, length(' '), ' ');
1088: ELSE
1083: l_resultOffset := DBMS_LOB.INSTR(xmlresult1,'>');
1084: dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, dbms_lob.getlength(l_xml), l_resultOffset +1);
1085: END IF;
1086:
1087: dbms_lob.writeappend(l_xml, length(' '), ' ');
1088: ELSE
1089: ---- 4429787 : replaced variables with col names
1090: query1 := 'SELECT ' || TO_CHAR(p_person_id) || ' person_id, er.full_name employee_name, employee_number '
1091: || ' employee_number, '|| to_char(p_emp_primary_org_id) || ' organization_id, emp_primary_org_name '
1112: dbms_xmlgen.setRowsetTag(qryCtx1, 'LIST_G_PERSON');
1113: dbms_xmlgen.setRowTag(qryCtx1, 'G_PERSON');
1114: --dbms_xmlgen.setRowsetTag(qryCtx1, 'LIST_G_PERSON');
1115: l_xml := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1116: l_resultOffset := DBMS_LOB.INSTR(l_xml,'>');
1117: dbms_lob.write(l_xml, LENGTH(RPAD(' ', l_resultOffset, ' ')), 1, RPAD(' ', l_resultOffset, ' '));
1118: -- dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, 1, l_resultOffset +1);
1119: dbms_xmlgen.closecontext(qryctx1);
1120: END IF;
1113: dbms_xmlgen.setRowTag(qryCtx1, 'G_PERSON');
1114: --dbms_xmlgen.setRowsetTag(qryCtx1, 'LIST_G_PERSON');
1115: l_xml := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1116: l_resultOffset := DBMS_LOB.INSTR(l_xml,'>');
1117: dbms_lob.write(l_xml, LENGTH(RPAD(' ', l_resultOffset, ' ')), 1, RPAD(' ', l_resultOffset, ' '));
1118: -- dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, 1, l_resultOffset +1);
1119: dbms_xmlgen.closecontext(qryctx1);
1120: END IF;
1121:
1114: --dbms_xmlgen.setRowsetTag(qryCtx1, 'LIST_G_PERSON');
1115: l_xml := dbms_xmlgen.getXML(qryCtx1, dbms_xmlgen.NONE);
1116: l_resultOffset := DBMS_LOB.INSTR(l_xml,'>');
1117: dbms_lob.write(l_xml, LENGTH(RPAD(' ', l_resultOffset, ' ')), 1, RPAD(' ', l_resultOffset, ' '));
1118: -- dbms_lob.copy(l_xml, xmlresult1, dbms_lob.getlength(xmlresult1) - l_resultOffset, 1, l_resultOffset +1);
1119: dbms_xmlgen.closecontext(qryctx1);
1120: END IF;
1121:
1122: RETURN l_xml;
1376:
1377: l_file_name := 'PSP_ER_' || l_item_key || '.pdf' ; -- Bug 7229792
1378:
1379: hr_utility.trace('LD Debug l_pdf_file_id = '||l_pdf_file_id);
1380: l_document_length := DBMS_LOB.getlength(l_document);
1381: DBMS_LOB.copy(p_document, l_document, l_document_length, 1, 1);
1382: p_document_type:='application/pdf; name='|| l_file_name; -- Bug 7229792
1383:
1384: EXCEPTION
1377: l_file_name := 'PSP_ER_' || l_item_key || '.pdf' ; -- Bug 7229792
1378:
1379: hr_utility.trace('LD Debug l_pdf_file_id = '||l_pdf_file_id);
1380: l_document_length := DBMS_LOB.getlength(l_document);
1381: DBMS_LOB.copy(p_document, l_document, l_document_length, 1, 1);
1382: p_document_type:='application/pdf; name='|| l_file_name; -- Bug 7229792
1383:
1384: EXCEPTION
1385: WHEN OTHERS THEN