139: x_doc_revision_num := x_doc_revision_num + 1;
140: x_message:= 'PO_REV_POXCH_NEW_REV';
141: --
142: if ((p_doc_type = 'PO') OR (p_doc_type = 'PA')) THEN
143: update po_headers
144: set submit_date = NULL
145: where po_header_id = p_doc_id;
146:
147: elsif ((p_doc_type = 'RELEASE')) THEN
173: SELECT 'N'
174: INTO l_keep_summary
175: FROM dual
176: WHERE exists (SELECT 'approved document'
177: FROM po_headers
178: WHERE po_header_id = p_doc_id
179: AND NVL(approved_flag, 'N') IN ('R', 'Y'));
180: EXCEPTION
181: WHEN NO_DATA_FOUND THEN
569: *******************************************************************/
570:
571: FUNCTION PO_Archive_Check(p_doc_id IN NUMBER)
572: RETURN BOOLEAN IS
573: l_revision_num po_headers_all.revision_num%type;
574: l_archived_number po_headers_archive.revision_num%type;
575: l_need_to_check boolean;
576: l_progress varchar2(3);
577: begin
570:
571: FUNCTION PO_Archive_Check(p_doc_id IN NUMBER)
572: RETURN BOOLEAN IS
573: l_revision_num po_headers_all.revision_num%type;
574: l_archived_number po_headers_archive.revision_num%type;
575: l_need_to_check boolean;
576: l_progress varchar2(3);
577: begin
578: l_progress := '000';
577: begin
578: l_progress := '000';
579: SELECT POH.revision_num, nvl(POHA.revision_num, -1)
580: into l_revision_num, l_archived_number
581: FROM PO_HEADERS POH,
582: PO_HEADERS_ARCHIVE POHA
583: WHERE POH.po_header_id = p_doc_id
584: AND POH.po_header_id = POHA.po_header_id (+)
585: AND POHA.latest_external_flag (+) = 'Y';
578: l_progress := '000';
579: SELECT POH.revision_num, nvl(POHA.revision_num, -1)
580: into l_revision_num, l_archived_number
581: FROM PO_HEADERS POH,
582: PO_HEADERS_ARCHIVE POHA
583: WHERE POH.po_header_id = p_doc_id
584: AND POH.po_header_id = POHA.po_header_id (+)
585: AND POHA.latest_external_flag (+) = 'Y';
586:
620: *******************************************************************/
621:
622: FUNCTION Release_Archive_Check(p_doc_id IN NUMBER)
623: RETURN BOOLEAN IS
624: l_revision_num po_headers_all.revision_num%type;
625: l_archived_number po_headers_archive.revision_num%type;
626: l_need_to_check boolean;
627: l_progress varchar2(3);
628: begin
621:
622: FUNCTION Release_Archive_Check(p_doc_id IN NUMBER)
623: RETURN BOOLEAN IS
624: l_revision_num po_headers_all.revision_num%type;
625: l_archived_number po_headers_archive.revision_num%type;
626: l_need_to_check boolean;
627: l_progress varchar2(3);
628: begin
629:
699: Begin
700: Select 'Y'
701: into l_accepted_flag
702: from po_acceptances_v pav,
703: po_headers poh
704: where poh.po_header_id=p_doc_id
705: and poh.po_header_id=pav.po_header_id
706: and pav.revision_num= poh.revision_num
707: and pav.accepted_flag='Y';
718: INTO x_different
719: from sys.dual
720: where exists(
721: select null
722: FROM PO_HEADERS POH,
723: PO_HEADERS_ARCHIVE POHA
724: WHERE POH.po_header_id = p_doc_id
725: AND POH.po_header_id = POHA.po_header_id (+)
726: AND POHA.latest_external_flag (+) = 'Y'
719: from sys.dual
720: where exists(
721: select null
722: FROM PO_HEADERS POH,
723: PO_HEADERS_ARCHIVE POHA
724: WHERE POH.po_header_id = p_doc_id
725: AND POH.po_header_id = POHA.po_header_id (+)
726: AND POHA.latest_external_flag (+) = 'Y'
727: AND (
1727: l_progress := '015';
1728: BEGIN
1729: select 'Y'
1730: into l_Archive_Record_Exists
1731: from po_headers_archive
1732: where po_header_id = p_doc_id and rownum = 1;
1733: EXCEPTION
1734: WHEN NO_DATA_FOUND THEN
1735: l_Archive_Record_Exists := 'N';