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