1 PACKAGE QA_SKIPLOT_RES_ENGINE AUTHID CURRENT_USER AS
2 /* $Header: qaslress.pls 120.0.12010000.2 2009/08/07 09:44:50 skolluku ship $ */
3
4
5 SUBTYPE lot_plan_rec IS QA_SKIPLOT_LOT_PLANS%ROWTYPE;
6 TYPE lotPlanTable IS TABLE OF lot_plan_rec INDEX BY BINARY_INTEGER;
7
8 --
9 -- The procedure checks whether lot is accepted or rejected
10 -- and set the plan states accordingly. It also update
11 -- the lot result table with the inspection result.
12 --
13 --
14 -- Bug 8678609. FP for Bug 4517387.
15 -- Added a new parameter p_shipment_header_id to support skiplot based on ASN's.
16 -- skolluku
17 --
18 PROCEDURE PROCESS_SKIPLOT_RESULT (
19 p_collection_id IN NUMBER,
20 p_insp_lot_id IN NUMBER DEFAULT NULL,
21 p_shipment_line_id IN NUMBER DEFAULT NULL,
22 p_inspected_qty IN NUMBER DEFAULT NULL,
23 p_total_txn_qty IN NUMBER DEFAULT NULL,
24 p_rcv_txn_id IN NUMBER DEFAULT NULL,
25 p_shipment_header_id IN NUMBER DEFAULT NULL, -- Added for bug 8678609.
26 p_lot_result OUT NOCOPY VARCHAR2);
27
28 --
29 -- This is an overloaded procedure, which takes LPN_ID
30 -- as parameter. Internally, it calls process_skiplot_result
31 -- defined above for each shipment line match the LPN_ID.
32 -- The lot result will be the same for all the shipment lines
33 --
34 PROCEDURE PROCESS_SKIPLOT_RESULT (
35 p_collection_id IN NUMBER,
36 p_lpn_id IN NUMBER,
37 p_inspected_qty IN NUMBER,
38 p_total_txn_qty IN NUMBER,
39 p_lot_result OUT NOCOPY VARCHAR2);
40
41 --
42 -- This procedure process MSCA mobile Skiplot inspection result
43 -- Based on po number or receipt number or rma ID or intransit
44 -- shipment ID, shipment_line_id is derived. For each shipment_
45 -- line_id found, procedure PROCESS_SKIPLOT_RESULT is called.
46 --
47 PROCEDURE MSCA_PROCESS_SKIPLOT_RESULT ( p_collection_id IN NUMBER,
48 p_po_num IN VARCHAR2,
49 p_receipt_num IN VARCHAR2,
50 p_rma_id IN NUMBER,
51 p_int_ship_id IN NUMBER,
52 p_item IN VARCHAR2,
53 p_revision IN VARCHAR2,
54 p_org_id IN NUMBER,
55 p_inspected_qty IN NUMBER,
56 p_total_txn_qty IN NUMBER,
57 x_lot_result OUT NOCOPY VARCHAR2) ;
58
59 --
60 -- The procedure update the lot plans table with plan inspection
61 -- results and returns affected rows.
62 --
63 PROCEDURE UPDATE_LOT_PLANS(
64 p_collection_id IN NUMBER,
65 p_insp_lot_id IN NUMBER,
66 p_rcv_txn_id IN NUMBER,
67 p_shipment_line_id IN NUMBER,
68 p_inspected_qty IN NUMBER DEFAULT NULL,
69 p_prev_txn_type IN VARCHAR2 DEFAULT NULL,
70 p_reinsp_flag IN VARCHAR2 DEFAULT NULL);
71
72 --
73 -- The procedure updates the skiplot result table with
74 -- lot inspection result and returns , inspection result
75 -- and criteria_id
76 --
77 --
78 -- Bug 8678609. FP for Bug 4517387.
79 -- Added two new parameters p_shipment_header_id and p_rcv_txn_id to support
80 -- skiplot based on ASN's.
81 -- skolluku
82 --
83 PROCEDURE UPDATE_SKIPLOT_RESULT(
84 p_collection_id IN NUMBER,
85 p_insp_lot_id IN NUMBER DEFAULT NULL,
86 p_shipment_line_id IN NUMBER DEFAULT NULL,
87 p_total_txn_qty IN NUMBER DEFAULT NULL,
88 p_prev_txn_type IN VARCHAR2 DEFAULT NULL,
89 p_reinsp_flag IN VARCHAR2 DEFAULT NULL,
90 p_shipment_header_id IN NUMBER DEFAULT NULL, -- Added for bug 8678609.
91 p_rcv_txn_id IN NUMBER DEFAULT NULL, -- Added for bug 8678609.
92 p_criteria_id OUT NOCOPY NUMBER,
93 p_lot_plans OUT NOCOPY lotPlanTable,
94 p_result OUT NOCOPY VARCHAR2);
95
96 --
97 -- The procedure updates the plan state table with new
98 -- plan state
99 --
100 PROCEDURE UPDATE_PLAN_STATE(
101 p_insp_result IN VARCHAR2,
102 p_criteria_id IN NUMBER,
103 p_process_id IN NUMBER,
104 p_lot_plan IN lot_plan_rec,
105 p_txn IN NUMBER,
106 p_prev_txn_type IN VARCHAR2 DEFAULT NULL,
107 p_reinsp_flag IN VARCHAR2 DEFAULT NULL);
108
109
110 --
111 -- The function returns skiplot flag stored in temporary table qa_insp_collections_temp
112 --
113 FUNCTION GET_SKIPLOT_FLAG (
114 p_collection_id IN NUMBER) RETURN VARCHAR2;
115
116
117 --
118 -- The procedure set skiplot flag to 'T' or 'F'
119 PROCEDURE SET_SKIPLOT_FLAG(
120 p_collection_id IN NUMBER,
121 p_skiplot_flag IN VARCHAR2);
122
123 PROCEDURE LAUNCH_SHIPMENT_ACTION (
124 p_po_txn_processor_mode IN VARCHAR2,
125 p_po_group_id IN NUMBER,
126 p_collection_id IN NUMBER,
127 p_employee_id IN NUMBER,
128 p_transaction_id IN NUMBER,
129 p_uom IN VARCHAR2,
130 p_lotsize IN NUMBER,
131 p_transaction_date IN DATE,
132 p_created_by IN NUMBER,
133 p_last_updated_by IN NUMBER,
134 p_last_update_login IN NUMBER);
135
136 --
137 -- This procedure calculate the rejection quantity and
138 -- acceptance quantity for a lot. The rejection quantity
139 -- is the accumulated rejection quantity for all the
140 -- plans. The acceptance quantity is the rest of the
141 -- lot quantity.
142 -- The procedure also returns the lookup code for ACCEPT
143 -- and REJECT
144 --
145 PROCEDURE CALCULATE_QUANT_RESULT (
146 p_collection_id IN NUMBER,
147 p_lotqty IN NUMBER,
148 p_rej_qty OUT NOCOPY NUMBER,
149 p_acc_qty OUT NOCOPY NUMBER);
150
151 /*
152 anagarwa Wed Apr 10 12:48:10 PDT 2002
153 Qa MSCA: Following method should actually be placed in qltutlfb.pls
154 But due to GSCC error for qltutlfb.pls, I'm putting it here. The related bug
155 is 2312644.
156 Whenever this is moved back to qltutlfb.pls, the java file
157 $QA_TOP/java/util/ContextElementTable.java should be changed
158 */
159
160 FUNCTION get_asl_status(p_org_id NUMBER,
161 p_po_num VARCHAR2,
162 p_item_id NUMBER) RETURN VARCHAR2;
163
164
165 END QA_SKIPLOT_RES_ENGINE;
166