546: -------------------------------------------------------------------------------
547:
548: PROCEDURE create_autosource_rules(
549: p_api_version IN NUMBER,
550: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE ,
551: p_commit IN VARCHAR2 :=FND_API.G_FALSE ,
552: x_return_status OUT NOCOPY VARCHAR2,
553: x_msg_count OUT NOCOPY NUMBER,
554: x_msg_data OUT NOCOPY VARCHAR2,
547:
548: PROCEDURE create_autosource_rules(
549: p_api_version IN NUMBER,
550: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE ,
551: p_commit IN VARCHAR2 :=FND_API.G_FALSE ,
552: x_return_status OUT NOCOPY VARCHAR2,
553: x_msg_count OUT NOCOPY NUMBER,
554: x_msg_data OUT NOCOPY VARCHAR2,
555: p_document_id IN PO_HEADERS_ALL.po_header_id%type,
592: l_sourcing_level VARCHAR2(20);
593:
594: /* Local variables for API Standard Parameters */
595: l_api_version NUMBER :=1.0;
596: l_init_msg_list VARCHAR2(5):=FND_API.G_FALSE;
597: l_commit VARCHAR2(5):=FND_API.G_FALSE;
598: l_return_status VARCHAR2(5);
599: l_msg_count NUMBER;
600: l_msg_data VARCHAR2(2000);
593:
594: /* Local variables for API Standard Parameters */
595: l_api_version NUMBER :=1.0;
596: l_init_msg_list VARCHAR2(5):=FND_API.G_FALSE;
597: l_commit VARCHAR2(5):=FND_API.G_FALSE;
598: l_return_status VARCHAR2(5);
599: l_msg_count NUMBER;
600: l_msg_data VARCHAR2(2000);
601: l_cr_api_version NUMBER :=1.0;
684:
685:
686:
687: ----Checking for API compatibility
688: IF NOT FND_API.Compatible_API_Call (l_cr_api_version,
689: p_api_version,
690: l_cr_api_name,
691: g_pkg_name
692: )
696: l_progress := '001';
697: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_progress||' Incompatible call to API : '||l_cr_api_version);
698: PO_DEBUG.put_line(l_progress||' Incompatible call to API : '||l_cr_api_version);
699: END IF;
700: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
701: END IF;
702:
703: ----This Procedure Should Work Only If Archival Is Set To Archive On Approve
704: IF p_purchasing_org_id is NULL THEN
735: PO_DEBUG.put_line(l_progress||' : Archival Option '||l_archive_on_approve||' is incompatible with this concurrent request :');
736: END IF;
737: l_error_message:=PO_CORE_S.get_translated_text('PO_SR_ASL_ARCHIVAL_OPTION');
738: FND_FILE.put_line(FND_FILE.OUTPUT,l_error_message);
739: RAISE FND_API.G_EXC_ERROR;--RAISE ERROR
740: END IF;
741:
742: --ECO#4713869 We would now remove this because the behaviour of sourcing
743: --rule name is being defined differently. It would merely be used to update
751: --
752: -- IF l_sr_name_count >0 THEN
753: -- l_error_message :=PO_CORE_S.get_translated_text('PO_SR_ASL_UNIQUE_RULE_NAME');
754: -- FND_FILE.put_line(FND_FILE.OUTPUT,l_error_message);
755: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
756: -- END IF;
757:
758: --The minimum line number that has an archival revision same as the header revision
759: --and has not been archived before would signify the last created line on the
1030:
1031: PROCEDURE CREATE_SOURCING_RULES_ASL
1032: (
1033: p_api_version IN NUMBER,
1034: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1035: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1036: x_return_status OUT NOCOPY VARCHAR2,
1037: x_msg_count OUT NOCOPY NUMBER,
1038: x_msg_data OUT NOCOPY VARCHAR2,
1031: PROCEDURE CREATE_SOURCING_RULES_ASL
1032: (
1033: p_api_version IN NUMBER,
1034: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1035: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1036: x_return_status OUT NOCOPY VARCHAR2,
1037: x_msg_count OUT NOCOPY NUMBER,
1038: x_msg_data OUT NOCOPY VARCHAR2,
1039: p_interface_header_id IN PO_HEADERS_INTERFACE.interface_header_id%type,
1117: -- the header processable flag to 'Y'
1118: x_header_processable_flag := 'Y';
1119:
1120: IF (g_po_pdoi_write_to_file = 'Y') THEN
1121: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1122: PO_DEBUG.put_line('Sourcing Rules creation API returned successfully');
1123: ELSE
1124: PO_DEBUG.put_line('Sourcing Rules creation API returned failure');
1125: END IF;