1 package BOMPINRV AUTHID CURRENT_USER as
2 /* $Header: BOMINRVS.pls 120.1 2005/06/21 12:14:20 rfarook noship $ */
3
4 Type ProgramInfoStruct is record
5 (userid number := -1, /* user id */
6 reqstid number := 0, /* concurrent request id */
7 appid number := null, /* application_id */
8 progid number := null, /* program id */
9 loginid number := null); /* login id */
10
11 /*--------------------------- Procedure ---------------------------------*/
12 /*
13 NAME
14 Increment_Revision
15 DESCRIPTION
16 Increments an item revision where possible. It does not implement the
17 revision.
18 REQUIRES
19 Item id - Inventory item id of the item whose revision is
20 being incremented.
21 Org id - Organization that the item
22 belongs to.
23 Date Time - Effective date of the new revision.
24 MODIFIES
25
26 RETURNS
27 Out code - The new item revision.
28 Error Message - PL/SQL error.
29 NOTES
30 Intended to be modifiable by the customer. Encapsulation is
31 enforced so that the customer can chose ones own algorithm for
32 incrementing revisions without effecting calling programs.
33 However, if the parameters are changed, than one must inspect
34 calling programs such as BOMPKMUD.
35 EXAMPLE
36
37 */
38
39 Procedure increment_revision(
40 i_item_id in mtl_item_revisions.inventory_item_id%type,
41 i_org_id in mtl_item_revisions.organization_id%type,
42 i_date_time in mtl_item_revisions.effectivity_date%type,
43 who in ProgramInfoStruct,
44 o_out_code in out nocopy mtl_item_revisions.revision%type,
45 error_message in out nocopy varchar);
46
47 end BOMPINRV;