eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.GMI_TRAN_CMP_PVT

Source


1 PACKAGE BODY GMI_TRAN_CMP_PVT AS
2 /* $Header: GMIVCMPB.pls 115.15 2003/09/09 18:04:47 jdiiorio ship $ */
3 /* 24-AUG-01 NC Added line_detail_id in INSERT and FETCH BUG#1675561*/
4 /* 29-OCT-02 Joe DiIorio Bug#2643440 11.5.1J - added nocopy.        */
5 /* 15-AUG-03 Joe DiIorio Bug#3090255 11.5.10L         */
6 /* Added field intorder_posted_ind.                   */
7 /*  Body end of comments */
8 /*  Global variables */
9 G_PKG_NAME  CONSTANT  VARCHAR2(30):='GMI_TRAN_CMP_PVT';
10 /*  Api start of comments */
11 
12 
13 FUNCTION INSERT_IC_TRAN_CMP
14 (
15   p_tran_row         IN   IC_TRAN_CMP%ROWTYPE,
16   x_tran_row         OUT  NOCOPY IC_TRAN_CMP%ROWTYPE
17 )
18 RETURN BOOLEAN
19 IS
20 err_num NUMBER;
21 err_msg VARCHAR2(100);
22 l_trans_id  NUMBER;
23 BEGIN
24 
25   SELECT gem5_trans_id_s.nextval
26   INTO   l_trans_id FROM dual;
27 
28   INSERT INTO IC_TRAN_CMP
29   (
30     trans_id
31   , item_id
32   , line_id
33   , co_code
34   , orgn_code
35   , whse_code
36   , lot_id
37   , location
38   , doc_id
39   , doc_type
40   , doc_line
41   , line_type
42   , reason_code
43   , creation_date
44   , trans_date
45   , trans_qty
46   , trans_qty2
47   , qc_grade
48   , lot_status
49   , trans_stat
50   , trans_um
51   , trans_um2
52   , op_code
53   , gl_posted_ind
54   , event_id
55   , text_code
56   , last_update_date
57   , created_by
58   , last_updated_by
59   , line_detail_id
60   , intorder_posted_ind
61   )
62   VALUES
63   ( l_trans_id
64   , p_tran_row.item_id
65   , p_tran_row.line_id
66   , p_tran_row.co_code
67   , p_tran_row.orgn_code
68   , p_tran_row.whse_code
69   , p_tran_row.lot_id
70   , p_tran_row.location
71   , p_tran_row.doc_id
72   , p_tran_row.doc_type
73   , p_tran_row.doc_line
74   , p_tran_row.line_type
75   , p_tran_row.reason_code
76   , p_tran_row.creation_date
77   , p_tran_row.trans_date
78   , p_tran_row.trans_qty
79   , p_tran_row.trans_qty2
80   , p_tran_row.qc_grade
81   , p_tran_row.lot_status
82   , p_tran_row.trans_stat
83   , p_tran_row.trans_um
84   , p_tran_row.trans_um2
85   , p_tran_row.op_code
86   , p_tran_row.gl_posted_ind
87   , p_tran_row.event_id
88   , p_tran_row.text_code
89   , p_tran_row.last_update_date
90   , p_tran_row.created_by
91   , p_tran_row.last_updated_by
92   , p_tran_row.line_detail_id
93   , p_tran_row.intorder_posted_ind
94  );
95 
96 /*  dbms_output.put_line(' INSERT IC_TRAN_CMP SUCCESSFUL'); */
97 x_tran_row := p_tran_row;
98 x_tran_row.trans_id := l_trans_id;
99   RETURN TRUE;
100 
101   EXCEPTION
102     WHEN OTHERS THEN
103 
104     err_num :=SQLCODE;
105     err_msg :=SUBSTR(SQLERRM,1 ,100);
106 
107     FND_MSG_PUB.Add_Exc_Msg (  G_PKG_NAME
108                              , 'insert_ic_tran_cmp'
109                             );
110     RETURN FALSE;
111 
112 END INSERT_IC_TRAN_CMP;
113 
114 FUNCTION FETCH_IC_TRAN_CMP
115 (
116   p_tran_rec             IN  GMI_TRANS_ENGINE_PUB.ictran_rec
117  ,x_tran_fetch_rec  	 OUT NOCOPY GMI_TRANS_ENGINE_PUB.ictran_rec
118 )
119 RETURN BOOLEAN
120 IS
121 err_num NUMBER;
122 err_msg VARCHAR2(100);
123 
124 BEGIN
125 
126 IF ( ( p_tran_rec.trans_id =FND_API.G_MISS_NUM  ) OR
127      ( p_tran_rec.trans_id is NULL ) ) THEN
128 
129    /*  Select by item_id, doc_type, line_id,lot_id , location */
130 
131 SELECT
132     trans_id
133   , item_id
134   , line_id
135   , co_code
136   , orgn_code
137   , whse_code
138   , lot_id
139   , location
140   , doc_id
141   , doc_type
142   , doc_line
143   , line_type
144   , reason_code
145   , trans_date
146   , trans_qty
147   , trans_qty2
148   , qc_grade
149   , lot_status
150   , trans_stat
151   , trans_um
152   , trans_um2
153   , event_id
154   , text_code
155   , op_code
156   , line_detail_id
157   , intorder_posted_ind
158 INTO
159     x_tran_fetch_rec.trans_id
160   , x_tran_fetch_rec.item_id
161   , x_tran_fetch_rec.line_id
162   , x_tran_fetch_rec.co_code
163   , x_tran_fetch_rec.orgn_code
164   , x_tran_fetch_rec.whse_code
165   , x_tran_fetch_rec.lot_id
166   , x_tran_fetch_rec.location
167   , x_tran_fetch_rec.doc_id
168   , x_tran_fetch_rec.doc_type
169   , x_tran_fetch_rec.doc_line
170   , x_tran_fetch_rec.line_type
171   , x_tran_fetch_rec.reason_code
172   , x_tran_fetch_rec.trans_date
173   , x_tran_fetch_rec.trans_qty
174   , x_tran_fetch_rec.trans_qty2
175   , x_tran_fetch_rec.qc_grade
176   , x_tran_fetch_rec.lot_status
177   , x_tran_fetch_rec.trans_stat
178   , x_tran_fetch_rec.trans_um
179   , x_tran_fetch_rec.trans_um2
180   , x_tran_fetch_rec.event_id
181   , x_tran_fetch_rec.text_code
182   , x_tran_fetch_rec.user_id
183   , x_tran_fetch_rec.line_detail_id
184   , x_tran_fetch_rec.intorder_posted_ind
185 FROM IC_TRAN_CMP
186 WHERE
187     doc_type     = p_tran_rec.doc_type
188 AND doc_id       = p_tran_rec.doc_id
189 AND line_id      = p_tran_rec.line_id
190 AND item_id      = p_tran_rec.item_id
191 AND lot_id       = p_tran_rec.lot_id
192 AND location     = p_tran_rec.location ;
193 
194 ELSE
195 
196 SELECT
197     trans_id
198   , item_id
199   , line_id
200   , co_code
201   , orgn_code
202   , whse_code
203   , lot_id
204   , location
205   , doc_id
206   , doc_type
207   , doc_line
208   , line_type
209   , reason_code
210   , trans_date
211   , trans_qty
212   , trans_qty2
213   , qc_grade
214   , lot_status
215   , trans_stat
216   , trans_um
217   , trans_um2
218   , event_id
219   , text_code
220   , op_code
221   , line_detail_id
222   , intorder_posted_ind
223 INTO
224     x_tran_fetch_rec.trans_id
225   , x_tran_fetch_rec.item_id
226   , x_tran_fetch_rec.line_id
227   , x_tran_fetch_rec.co_code
228   , x_tran_fetch_rec.orgn_code
229   , x_tran_fetch_rec.whse_code
230   , x_tran_fetch_rec.lot_id
231   , x_tran_fetch_rec.location
232   , x_tran_fetch_rec.doc_id
233   , x_tran_fetch_rec.doc_type
234   , x_tran_fetch_rec.doc_line
235   , x_tran_fetch_rec.line_type
236   , x_tran_fetch_rec.reason_code
237   , x_tran_fetch_rec.trans_date
238   , x_tran_fetch_rec.trans_qty
239   , x_tran_fetch_rec.trans_qty2
240   , x_tran_fetch_rec.qc_grade
241   , x_tran_fetch_rec.lot_status
242   , x_tran_fetch_rec.trans_stat
243   , x_tran_fetch_rec.trans_um
244   , x_tran_fetch_rec.trans_um2
245   , x_tran_fetch_rec.event_id
246   , x_tran_fetch_rec.text_code
247   , x_tran_fetch_rec.user_id
248   , x_tran_fetch_rec.line_detail_id
249   , x_tran_fetch_rec.intorder_posted_ind
250 FROM IC_TRAN_CMP
251 WHERE
252     trans_id     = p_tran_rec.trans_id;
253 
254 END IF;
255 
256 /* dbms_output.put_line(' FETCH IC_TRAN_CMP SUCCESSFUL'); */
257   RETURN TRUE;
258 
259   EXCEPTION
260     WHEN OTHERS THEN
261 
262     err_num :=SQLCODE;
263     err_msg :=SUBSTR(SQLERRM,1 ,100);
264 
265     FND_MSG_PUB.Add_Exc_Msg (  G_PKG_NAME
266                              , 'fetch_ic_tran_pnd'
267                             );
268     RETURN FALSE;
269 
270 END FETCH_IC_TRAN_CMP;
271 
272 
273 END GMI_TRAN_CMP_PVT;