DBA Data[Home] [Help]

APPS.GMF_LAYERS dependencies on FND_API

Line 55: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

51: --+==========================================================================+
52: */
53: PROCEDURE Create_Incoming_Layers
54: ( p_api_version IN NUMBER,
55: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
56: p_tran_rec IN GMF_LAYERS.trans_rec_type,
57: x_return_status OUT NOCOPY VARCHAR2,
58: x_msg_count OUT NOCOPY NUMBER,
59: x_msg_data OUT NOCOPY VARCHAR2) IS

Line 70: x_return_status := FND_API.G_RET_STS_SUCCESS ;

66:
67: l_api_name VARCHAR2(30) := 'Create_Incoming_Layers';
68:
69: BEGIN
70: x_return_status := FND_API.G_RET_STS_SUCCESS ;
71:
72: IF g_debug <= gme_debug.g_log_procedure THEN
73: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
74: gme_debug.put_line ('processing batch: ' || p_tran_rec.transaction_source_id || ' item/org/lot/txnId/reverseId: ' ||

Line 89: -- x_return_status := FND_API.G_RET_STS_ERROR ;

85: -- Validate that it is for doc_type PROD and line_type -1 and 2
86: -- Insert the data into the layers table
87: IF (p_tran_rec.transaction_source_type_id <> 5) THEN
88: -- Bug 5586577. Return with Success.
89: -- x_return_status := FND_API.G_RET_STS_ERROR ;
90: x_return_status := FND_API.G_RET_STS_SUCCESS ;
91: --dbms_output.put_line ('Only PROD document allowed for incoming layers');
92: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
93: -- FND_MSG_PUB.Add;

Line 90: x_return_status := FND_API.G_RET_STS_SUCCESS ;

86: -- Insert the data into the layers table
87: IF (p_tran_rec.transaction_source_type_id <> 5) THEN
88: -- Bug 5586577. Return with Success.
89: -- x_return_status := FND_API.G_RET_STS_ERROR ;
90: x_return_status := FND_API.G_RET_STS_SUCCESS ;
91: --dbms_output.put_line ('Only PROD document allowed for incoming layers');
92: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
93: -- FND_MSG_PUB.Add;
94: RETURN;

Line 98: x_return_status := FND_API.G_RET_STS_ERROR ;

94: RETURN;
95: END IF;
96:
97: IF (p_tran_rec.line_type <> 1 ) THEN
98: x_return_status := FND_API.G_RET_STS_ERROR ;
99: --dbms_output.put_line ('Only Products allowed for incoming layers');
100: FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PRODUCT_TRANS');
101: FND_MSG_PUB.Add;
102: RETURN;

Line 123: x_return_status := FND_API.G_RET_STS_ERROR ;

119: l.mmt_transaction_id = mmt.transaction_id AND
120: l.lot_number(+) = mtln.lot_number ;
121: EXCEPTION
122: WHEN NO_DATA_FOUND THEN
123: x_return_status := FND_API.G_RET_STS_ERROR ;
124: --dbms_output.put_line ('Could not find the reversed layer');
125: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_REVERSED_LAYER');
126: FND_MSG_PUB.Add;
127: RETURN;

Line 135: x_return_status := FND_API.G_RET_STS_ERROR ;

131: IF (l_doc_qty IS NULL ) THEN
132: IF g_debug <= gme_debug.g_log_procedure THEN
133: gme_debug.put_line ('No doc quantity specified for the layer');
134: END IF;
135: x_return_status := FND_API.G_RET_STS_ERROR ;
136: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_DOC_QTY_FOR_LAYER');
137: FND_MSG_PUB.Add;
138: RETURN;
139: END IF;

Line 211: FND_API.G_FALSE,

207: END IF;
208: -- Create the requirements
209: GMF_VIB.Create_Batch_Requirements(
210: 1.0,
211: FND_API.G_FALSE,
212: p_tran_rec.transaction_source_id,
213: x_return_status,
214: x_msg_count,
215: x_msg_data);

Line 216: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

212: p_tran_rec.transaction_source_id,
213: x_return_status,
214: x_msg_count,
215: x_msg_data);
216: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
217: -- requirement creation failed.
218: RETURN;
219: END IF;
220: END IF;

Line 251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

247: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
248: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
249: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
250: FND_MSG_PUB.Add;
251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252: END;
253:
254:
255: /*

Line 279: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

275: --+==========================================================================+
276: */
277: PROCEDURE Create_Outgoing_Layers
278: ( p_api_version IN NUMBER,
279: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
280: p_tran_rec IN GMF_LAYERS.TRANS_REC_TYPE,
281: x_return_status OUT NOCOPY VARCHAR2,
282: x_msg_count OUT NOCOPY NUMBER,
283: x_msg_data OUT NOCOPY VARCHAR2) IS

Line 327: x_return_status := FND_API.G_RET_STS_SUCCESS ;

323:
324: l_api_name VARCHAR2(30) := 'Create_Outgoing_Layers';
325:
326: BEGIN
327: x_return_status := FND_API.G_RET_STS_SUCCESS ;
328:
329: IF g_debug <= gme_debug.g_log_procedure THEN
330: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
331: gme_debug.put_line ('processing batch: ' || p_tran_rec.transaction_source_id || ' item/org/lot/txnId/reverseId: ' ||

Line 346: -- x_return_status := FND_API.G_RET_STS_ERROR ;

342: -- Validate that it is for doc_type PROD and line_type -1 and 2
343: -- Insert the data into the layers table
344: IF (p_tran_rec.transaction_source_type_id <> 5) THEN
345: -- Bug 5586577. Return with Success.
346: -- x_return_status := FND_API.G_RET_STS_ERROR ;
347: x_return_status := FND_API.G_RET_STS_SUCCESS ;
348: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
349: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
350: -- FND_MSG_PUB.Add;

Line 347: x_return_status := FND_API.G_RET_STS_SUCCESS ;

343: -- Insert the data into the layers table
344: IF (p_tran_rec.transaction_source_type_id <> 5) THEN
345: -- Bug 5586577. Return with Success.
346: -- x_return_status := FND_API.G_RET_STS_ERROR ;
347: x_return_status := FND_API.G_RET_STS_SUCCESS ;
348: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
349: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
350: -- FND_MSG_PUB.Add;
351: RETURN;

Line 354: x_return_status := FND_API.G_RET_STS_ERROR ;

350: -- FND_MSG_PUB.Add;
351: RETURN;
352: END IF;
353: IF (p_tran_rec.line_type <> -1 and p_tran_rec.line_type <> 2) THEN
354: x_return_status := FND_API.G_RET_STS_ERROR ;
355: gme_debug.put_line ('Error-GMF: Only Ingredients and By-Products allowed for outgoing layers');
356: FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_ING_TRANS');
357: FND_MSG_PUB.Add;
358: RETURN;

Line 379: x_return_status := FND_API.G_RET_STS_ERROR ;

375: l.mmt_transaction_id = mmt.transaction_id AND
376: l.lot_number(+) = mtln.lot_number ;
377: EXCEPTION
378: WHEN NO_DATA_FOUND THEN
379: x_return_status := FND_API.G_RET_STS_ERROR ;
380: --dbms_output.put_line ('Could not find the reversed layer');
381: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_REVERSED_LAYER');
382: FND_MSG_PUB.Add;
383: RETURN;

Line 388: x_return_status := FND_API.G_RET_STS_ERROR ;

384: END;
385: END IF;
386:
387: IF (l_doc_qty IS NULL ) THEN
388: x_return_status := FND_API.G_RET_STS_ERROR ;
389: IF g_debug <= gme_debug.g_log_procedure THEN
390: gme_debug.put_line ('No doc quantity specified for the layer');
391: END IF;
392: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_DOC_QTY_FOR_LAYER');

Line 636: x_return_status := FND_API.G_RET_STS_SUCCESS;

632: IF g_debug <= gme_debug.g_log_statement THEN
633: gme_debug.put_line (sql%ROWCOUNT || ' rows inserted');
634: END IF;
635:
636: x_return_status := FND_API.G_RET_STS_SUCCESS;
637:
638:
639: IF g_debug <= gme_debug.g_log_procedure THEN
640: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);

Line 649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

645: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
646: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
647: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
648: FND_MSG_PUB.Add;
649: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
650: END;
651:
652: /*
653: --+==========================================================================+

Line 676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

672: --+==========================================================================+
673: */
674: PROCEDURE Create_Resource_Layers
675: ( p_api_version IN NUMBER,
676: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
677: p_rsrc_rec IN gme_resource_txns%ROWTYPE,
678: p_doc_qty IN NUMBER,
679: p_doc_um IN VARCHAR2,
680: x_return_status OUT NOCOPY VARCHAR2,

Line 718: x_return_status := FND_API.G_RET_STS_SUCCESS ;

714:
715: l_api_name VARCHAR2(40) := 'Create_Resource_Layers';
716:
717: BEGIN
718: x_return_status := FND_API.G_RET_STS_SUCCESS ;
719:
720:
721: IF g_debug <= gme_debug.g_log_procedure THEN
722: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);

Line 737: -- x_return_status := FND_API.G_RET_STS_ERROR ;

733: -- Validate that it is for doc_type PROD and line_type 0
734: -- Insert the data into the layers table
735: IF (p_rsrc_rec.doc_type <> 'PROD') THEN
736: -- Bug 5586577. Return with Success.
737: -- x_return_status := FND_API.G_RET_STS_ERROR ;
738: x_return_status := FND_API.G_RET_STS_SUCCESS ;
739: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
740: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
741: -- FND_MSG_PUB.Add;

Line 738: x_return_status := FND_API.G_RET_STS_SUCCESS ;

734: -- Insert the data into the layers table
735: IF (p_rsrc_rec.doc_type <> 'PROD') THEN
736: -- Bug 5586577. Return with Success.
737: -- x_return_status := FND_API.G_RET_STS_ERROR ;
738: x_return_status := FND_API.G_RET_STS_SUCCESS ;
739: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
740: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
741: -- FND_MSG_PUB.Add;
742: RETURN;

Line 929: x_return_status := FND_API.G_RET_STS_SUCCESS;

925: p_rsrc_rec.last_updated_by,
926: sysdate,
927: p_rsrc_rec.last_update_login);
928:
929: x_return_status := FND_API.G_RET_STS_SUCCESS;
930:
931: IF g_debug <= gme_debug.g_log_procedure THEN
932: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
933: END IF;

Line 941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

937: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
938: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
939: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
940: FND_MSG_PUB.Add;
941: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
942: RAISE;
943: END;
944:
945: END GMF_LAYERS;