1 PACKAGE INV_PROCESS_TEMP AUTHID CURRENT_USER AS
2 /* $Header: INVMMTTS.pls 120.0 2005/05/25 05:48:36 appldev noship $ */
3
4 -- transaction status codes
5 /* same as the initial transactions functionality, i.e., no
6 saving mode. So, if TRANSACTION_STATUS field is NULL or 1
7 then it is treated as the default. */
8 TS_DEFAULT CONSTANT NUMBER := 1; -- process immediately
9
10 /* this will just save the transaction and will not be picked
11 up for processing. The TRANSACTION_STATUS should be changed
12 to 3 in order to process it.
13 So, the state diagram for this transaction_status is
14
15 S-->2--->3--E
16 /|\ |
17 |____| in case of error we will set it bace to 2
18 and when the user corrects the mistake and
19 submits it it will be processed.
20 */
21 TS_SAVE_ONLY CONSTANT NUMBER := 2; -- save only
22
23 /* this will do some of the validation that is done for interface
24 records and then proceed as normal with the inltpu processing.
25 So, some of the validation in inltev is done for this mode. */
26 TS_PROCESS CONSTANT NUMBER := 3; -- ready for processing
27
28 TS_CANCEL CONSTANT NUMBER := 0; -- is this really needed?
29
30 -- validation level constants
31 -- validate only those fields/entities that have time dependency
32 -- for example a sub might have a disable date set
33 TIMEBASED CONSTANT NUMBER := 1;
34 -- validate completely
35 FULL CONSTANT NUMBER := 2;
36
37 -- error tolerance constants
38 IGNORE_NONE CONSTANT NUMBER := 1; -- return as soon as a error is found
39 IGNORE_GROUP CONSTANT NUMBER := 2; -- complete group validation
40 -- but strict for individual validation
41 IGNORE_ALL CONSTANT NUMBER := 3; -- ignore individual errors as well
42
43
44 CURSOR TXNRECS_CURSOR IS
45 SELECT MMTT.*,MMTT.rowid
46 FROM MTL_MATERIAL_TRANSACTIONS_TEMP MMTT;
47
48 TYPE TXNRECS IS REF CURSOR RETURN TXNRECS_CURSOR%ROWTYPE;
49
50 SUBTYPE TXNREC IS TXNRECS_CURSOR%ROWTYPE;
51
52 --SUBTYPE TXNREC IS MTL_MATERIAL_TRANSACTIONS_TEMP%ROWTYPE;
53
54 FUNCTION processTransaction(headerID IN NUMBER,
55 validationLevel IN NUMBER := TIMEBASED,
56 errorTolerance IN NUMBER := IGNORE_NONE
57 ) RETURN NUMBER;
58
59 -- group validations
60 FUNCTION validateSupportedTxns(validationLevel IN NUMBER) RETURN NUMBER;
61 FUNCTION validateFromOrganization RETURN NUMBER;
62 FUNCTION validateToOrganization RETURN NUMBER;
63 FUNCTION validateItem RETURN NUMBER;
64 FUNCTION validateItemRevision RETURN NUMBER;
65 FUNCTION validateToOrgItem RETURN NUMBER;
66 FUNCTION validateToOrgItemRevision RETURN NUMBER;
67 FUNCTION validateFromSubinventory RETURN NUMBER;
68 FUNCTION validateFromLocator RETURN NUMBER;
69 FUNCTION validateToSubinventory RETURN NUMBER;
70 FUNCTION validateToLocator RETURN NUMBER;
71 FUNCTION validateTransactionSource RETURN NUMBER;
72 FUNCTION validateSourceProject RETURN NUMBER;
73 FUNCTION validateSourceTask RETURN NUMBER;
74 FUNCTION validateCostGroups RETURN NUMBER;
75 FUNCTION validateExpenditureType RETURN NUMBER;
76 FUNCTION validateExpenditureOrg RETURN NUMBER;
77 FUNCTION validateTxnUOM RETURN NUMBER;
78 FUNCTION validateInterOrgItemControls RETURN NUMBER;
79 FUNCTION validateTransactionReason RETURN NUMBER;
80 FUNCTION validateFreightInfo RETURN NUMBER;
81
82
83 -- single record validations
84 FUNCTION validateLOT(txnrec IN TXNREC,
85 org IN INV_Validate.ORG,
86 item IN INV_Validate.ITEM) RETURN NUMBER;
87 FUNCTION validateUnitNumber(txnrec IN TXNREC) RETURN NUMBER;
88
89 FUNCTION getAccountPeriodId(orgID IN NUMBER,txndate IN DATE) RETURN NUMBER;
90
91 -- utility functions
92 PROCEDURE loadmsg(errorCode IN VARCHAR2,errorExplanation IN VARCHAR2);
93 PROCEDURE errupdate(err_row_id IN ROWID);
94
95 loginid NUMBER;
96 userid NUMBER;
97 applid NUMBER;
98 progid NUMBER;
99 reqstid NUMBER;
100 validationLevel NUMBER;
101 -- changed to err_code other wise DB column and parameter can not be distinguished.
102 err_code VARCHAR2(240);
103 error_exp VARCHAR2(2000); -- Incresed the length to 2000
104 header_id NUMBER;
105
106 END INV_PROCESS_TEMP;
[Home] [Help]