DBA Data[Home] [Help]

APPS.ECE_PO_ARCHIVE_PKG dependencies on ECE_PO_ARCHIVE_PKG

Line 1: PACKAGE BODY ECE_PO_ARCHIVE_PKG AS

1: PACKAGE BODY ECE_PO_ARCHIVE_PKG AS
2: -- $Header: ECEPOARB.pls 120.2 2005/09/28 11:53:06 arsriniv ship $
3:
4: -- Private Procedure declarations
5: PROCEDURE PORARDOCUMENT (

Line 117: ECE_PO_ARCHIVE_PKG.PORARDOCUMENT(p_document_type,

113: x_return_status => l_return_status,
114: x_msg_count => l_msg_count,
115: x_msg_data => l_msg_data);
116: ELSE
117: ECE_PO_ARCHIVE_PKG.PORARDOCUMENT(p_document_type,
118: p_document_subtype,
119: p_document_id);
120: END IF;
121: END IF;

Line 187: ECE_PO_ARCHIVE_PKG.PORARPOCHECK(p_document_id,

183: -- Get the revision number and check if it is different from the
184: -- latest archived version.
185: -- l_revision_num and l_archive_ok are OUT variables and are
186: -- populated by this procedure call
187: ECE_PO_ARCHIVE_PKG.PORARPOCHECK(p_document_id,
188: l_revision_num,
189: l_archive_ok);
190: -- Check if porarcpcheckpo said we need to archive.
191: IF l_archive_ok = 'N' THEN

Line 196: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);

192: -- Assert: No need to archive.
193: NULL;
194: ELSE
195: -- Archive the Header.
196: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);
197: -- Archive the Lines.
198: ECE_PO_ARCHIVE_PKG.PORARLINES(p_document_id, l_revision_num);
199: -- Archive the Shipments and Distributions.
200: ECE_PO_ARCHIVE_PKG.PORARSHIPDIST(p_document_id, l_revision_num);

Line 198: ECE_PO_ARCHIVE_PKG.PORARLINES(p_document_id, l_revision_num);

194: ELSE
195: -- Archive the Header.
196: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);
197: -- Archive the Lines.
198: ECE_PO_ARCHIVE_PKG.PORARLINES(p_document_id, l_revision_num);
199: -- Archive the Shipments and Distributions.
200: ECE_PO_ARCHIVE_PKG.PORARSHIPDIST(p_document_id, l_revision_num);
201: END IF;
202: ELSE

Line 200: ECE_PO_ARCHIVE_PKG.PORARSHIPDIST(p_document_id, l_revision_num);

196: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);
197: -- Archive the Lines.
198: ECE_PO_ARCHIVE_PKG.PORARLINES(p_document_id, l_revision_num);
199: -- Archive the Shipments and Distributions.
200: ECE_PO_ARCHIVE_PKG.PORARSHIPDIST(p_document_id, l_revision_num);
201: END IF;
202: ELSE
203: global_stack := '40'; -- Unknown document subtype
204: raise NO_DATA_FOUND;

Line 214: ECE_PO_ARCHIVE_PKG.PORARPOCHECK(p_document_id,

210: -- Get the revision number and check if it is different
211: -- from the latest archived version.
212: -- l_revision_num and l_archive_ok are OUT variables and are
213: -- populated by this procedure call
214: ECE_PO_ARCHIVE_PKG.PORARPOCHECK(p_document_id,
215: l_revision_num,
216: l_archive_ok);
217: -- Check if porarpocheck said we need to archive.
218: IF l_archive_ok = 'N' then

Line 223: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);

219: -- Assert: No need to archive.
220: NULL;
221: ELSE
222: -- Archive the Header.
223: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);
224: -- Archive the Lines.
225: ECE_PO_ARCHIVE_PKG.PORARLINES(p_document_id, l_revision_num);
226: END IF;
227:

Line 225: ECE_PO_ARCHIVE_PKG.PORARLINES(p_document_id, l_revision_num);

221: ELSE
222: -- Archive the Header.
223: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);
224: -- Archive the Lines.
225: ECE_PO_ARCHIVE_PKG.PORARLINES(p_document_id, l_revision_num);
226: END IF;
227:
228: ELSIF p_document_subtype = 'CONTRACT' THEN
229: -- Assert: It is a Contract Purchase Agreement.

Line 230: ECE_PO_ARCHIVE_PKG.PORARPOCHECK(p_document_id,

226: END IF;
227:
228: ELSIF p_document_subtype = 'CONTRACT' THEN
229: -- Assert: It is a Contract Purchase Agreement.
230: ECE_PO_ARCHIVE_PKG.PORARPOCHECK(p_document_id,
231: l_revision_num,
232: l_archive_ok);
233: -- Check if porarpocheck said we need to archive.
234: IF l_archive_ok = 'N' THEN

Line 239: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);

235: -- Assert: No need to archive.
236: NULL;
237: ELSE
238: -- Archive the Header.
239: ECE_PO_ARCHIVE_PKG.PORARHEADER(p_document_id);
240: END IF;
241: ELSE
242: global_stack := '30'; -- Unknown document subtype
243: RAISE NO_DATA_FOUND;

Line 254: ECE_PO_ARCHIVE_PKG.PORARERELEASECHECK(p_document_id,

250: -- Get the revision number and check if it is
251: -- different from the latest archived version.
252: -- l_revision_num and l_archive_ok are OUT variables and are
253: -- populated by this procedure call
254: ECE_PO_ARCHIVE_PKG.PORARERELEASECHECK(p_document_id,
255: l_revision_num,
256: l_archive_ok);
257: -- Check if porarereleasecheck said we need to archive.
258: IF l_archive_ok = 'N' THEN

Line 262: ECE_PO_ARCHIVE_PKG.PORARRELEASE(p_document_id, l_revision_num);

258: IF l_archive_ok = 'N' THEN
259: -- Assert: No need to archive.
260: NULL;
261: ELSE
262: ECE_PO_ARCHIVE_PKG.PORARRELEASE(p_document_id, l_revision_num);
263: END IF;
264: ELSE
265: global_stack := '20'; -- Unknown document subtype
266: raise NO_DATA_FOUND;

Line 2055: END ECE_PO_ARCHIVE_PKG;

2051:
2052: END PORARRELEASE;
2053:
2054:
2055: END ECE_PO_ARCHIVE_PKG;
2056:
2057: