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;
686:
687:
688:
689: ----Checking for API compatibility
690: IF NOT FND_API.Compatible_API_Call (l_cr_api_version,
691: p_api_version,
692: l_cr_api_name,
693: g_pkg_name
694: )
698: l_progress := '001';
699: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,l_progress||' Incompatible call to API : '||l_cr_api_version);
700: PO_DEBUG.put_line(l_progress||' Incompatible call to API : '||l_cr_api_version);
701: END IF;
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704:
705: ----This Procedure Should Work Only If Archival Is Set To Archive On Approve
706: IF p_purchasing_org_id is NULL THEN
737: PO_DEBUG.put_line(l_progress||' : Archival Option '||l_archive_on_approve||' is incompatible with this concurrent request :');
738: END IF;
739: l_error_message:=PO_CORE_S.get_translated_text('PO_SR_ASL_ARCHIVAL_OPTION');
740: FND_FILE.put_line(FND_FILE.OUTPUT,l_error_message);
741: RAISE FND_API.G_EXC_ERROR;--RAISE ERROR
742: END IF;
743:
744: --ECO#4713869 We would now remove this because the behaviour of sourcing
745: --rule name is being defined differently. It would merely be used to update
753: --
754: -- IF l_sr_name_count >0 THEN
755: -- l_error_message :=PO_CORE_S.get_translated_text('PO_SR_ASL_UNIQUE_RULE_NAME');
756: -- FND_FILE.put_line(FND_FILE.OUTPUT,l_error_message);
757: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
758: -- END IF;
759:
760: --The minimum line number that has an archival revision same as the header revision
761: --and has not been archived before would signify the last created line on the
1032:
1033: PROCEDURE CREATE_SOURCING_RULES_ASL
1034: (
1035: p_api_version IN NUMBER,
1036: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1037: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1038: x_return_status OUT NOCOPY VARCHAR2,
1039: x_msg_count OUT NOCOPY NUMBER,
1040: x_msg_data OUT NOCOPY VARCHAR2,
1033: PROCEDURE CREATE_SOURCING_RULES_ASL
1034: (
1035: p_api_version IN NUMBER,
1036: p_init_msg_list IN VARCHAR2 :=FND_API.G_FALSE,
1037: p_commit IN VARCHAR2 :=FND_API.G_FALSE,
1038: x_return_status OUT NOCOPY VARCHAR2,
1039: x_msg_count OUT NOCOPY NUMBER,
1040: x_msg_data OUT NOCOPY VARCHAR2,
1041: p_interface_header_id IN PO_HEADERS_INTERFACE.interface_header_id%type,
1119: -- the header processable flag to 'Y'
1120: x_header_processable_flag := 'Y';
1121:
1122: IF (g_po_pdoi_write_to_file = 'Y') THEN
1123: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1124: PO_DEBUG.put_line('Sourcing Rules creation API returned successfully');
1125: ELSE
1126: PO_DEBUG.put_line('Sourcing Rules creation API returned failure');
1127: END IF;
1239: l_vendor_site_id PO_HEADERS_ALL.vendor_site_id%type;
1240: l_document_id PO_HEADERS_ALL.po_header_id%type;
1241: l_release_generation_method PO_ASL_ATTRIBUTES.release_generation_method%type;
1242: l_api_version NUMBER :=1.0;
1243: l_init_msg_list VARCHAR2(5) :=FND_API.G_FALSE;
1244: l_commit VARCHAR2(5) :=FND_API.G_FALSE;
1245: l_validation_level NUMBER :=FND_API.G_VALID_LEVEL_FULL;
1246: l_return_status VARCHAR2(5);
1247: l_msg_count NUMBER;
1240: l_document_id PO_HEADERS_ALL.po_header_id%type;
1241: l_release_generation_method PO_ASL_ATTRIBUTES.release_generation_method%type;
1242: l_api_version NUMBER :=1.0;
1243: l_init_msg_list VARCHAR2(5) :=FND_API.G_FALSE;
1244: l_commit VARCHAR2(5) :=FND_API.G_FALSE;
1245: l_validation_level NUMBER :=FND_API.G_VALID_LEVEL_FULL;
1246: l_return_status VARCHAR2(5);
1247: l_msg_count NUMBER;
1248: l_msg_data VARCHAR2(2000);
1241: l_release_generation_method PO_ASL_ATTRIBUTES.release_generation_method%type;
1242: l_api_version NUMBER :=1.0;
1243: l_init_msg_list VARCHAR2(5) :=FND_API.G_FALSE;
1244: l_commit VARCHAR2(5) :=FND_API.G_FALSE;
1245: l_validation_level NUMBER :=FND_API.G_VALID_LEVEL_FULL;
1246: l_return_status VARCHAR2(5);
1247: l_msg_count NUMBER;
1248: l_msg_data VARCHAR2(2000);
1249: l_progress VARCHAR2(3) :='000';