DBA Data[Home] [Help]

APPS.GMF_LAYERS dependencies on FND_API

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

55: --+==========================================================================+
56: */
57: PROCEDURE Create_Incoming_Layers
58: ( p_api_version IN NUMBER,
59: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
60: p_tran_rec IN GMF_LAYERS.trans_rec_type,
61: x_return_status OUT NOCOPY VARCHAR2,
62: x_msg_count OUT NOCOPY NUMBER,
63: x_msg_data OUT NOCOPY VARCHAR2,

Line 75: x_return_status := FND_API.G_RET_STS_SUCCESS ;

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

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

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

Line 95: x_return_status := FND_API.G_RET_STS_SUCCESS ;

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

Line 103: x_return_status := FND_API.G_RET_STS_ERROR ;

99: RETURN;
100: END IF;
101:
102: IF (p_tran_rec.line_type <> 1 ) THEN
103: x_return_status := FND_API.G_RET_STS_ERROR ;
104: --dbms_output.put_line ('Only Products allowed for incoming layers');
105: FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PRODUCT_TRANS');
106: FND_MSG_PUB.Add;
107: RETURN;

Line 129: x_return_status := FND_API.G_RET_STS_ERROR ;

125: l.mmt_transaction_id = mmt.transaction_id ; -- AND
126: -- l.lot_number(+) = mtln.lot_number ;
127: EXCEPTION
128: WHEN NO_DATA_FOUND THEN
129: x_return_status := FND_API.G_RET_STS_ERROR ;
130: --dbms_output.put_line ('Could not find the reversed layer');
131: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_REVERSED_LAYER');
132: FND_MSG_PUB.Add;
133: RETURN;

Line 141: x_return_status := FND_API.G_RET_STS_ERROR ;

137: IF (l_doc_qty IS NULL ) THEN
138: IF g_debug <= gme_debug.g_log_procedure THEN
139: gme_debug.put_line ('No doc quantity specified for the layer');
140: END IF;
141: x_return_status := FND_API.G_RET_STS_ERROR ;
142: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_DOC_QTY_FOR_LAYER');
143: FND_MSG_PUB.Add;
144: RETURN;
145: END IF;

Line 217: FND_API.G_FALSE,

213: END IF;
214: -- Create the requirements
215: GMF_VIB.Create_Batch_Requirements(
216: 1.0,
217: FND_API.G_FALSE,
218: p_tran_rec.transaction_source_id,
219: x_return_status,
220: x_msg_count,
221: x_msg_data);

Line 222: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN

218: p_tran_rec.transaction_source_id,
219: x_return_status,
220: x_msg_count,
221: x_msg_data);
222: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
223: -- requirement creation failed.
224: RETURN;
225: END IF;
226: END IF;

Line 264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

260: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
261: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
262: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
263: FND_MSG_PUB.Add;
264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
265: END;
266:
267:
268: /*

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

290: --+==========================================================================+
291: */
292: PROCEDURE Create_Outgoing_Layers
293: ( p_api_version IN NUMBER,
294: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
295: p_tran_rec IN GMF_LAYERS.TRANS_REC_TYPE,
296: x_return_status OUT NOCOPY VARCHAR2,
297: x_msg_count OUT NOCOPY NUMBER,
298: x_msg_data OUT NOCOPY VARCHAR2) IS

Line 344: x_return_status := FND_API.G_RET_STS_SUCCESS ;

340:
341: l_api_name VARCHAR2(30) := 'Create_Outgoing_Layers';
342:
343: BEGIN
344: x_return_status := FND_API.G_RET_STS_SUCCESS ;
345:
346: IF g_debug <= gme_debug.g_log_procedure THEN
347: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);
348: gme_debug.put_line ('processing batch: ' || p_tran_rec.transaction_source_id || ' item/org/lot/txnId/reverseId: ' ||

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

359: -- Validate that it is for doc_type PROD and line_type -1 and 2
360: -- Insert the data into the layers table
361: IF (p_tran_rec.transaction_source_type_id <> 5) THEN
362: -- Bug 5586577. Return with Success.
363: -- x_return_status := FND_API.G_RET_STS_ERROR ;
364: x_return_status := FND_API.G_RET_STS_SUCCESS ;
365: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
366: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
367: -- FND_MSG_PUB.Add;

Line 364: x_return_status := FND_API.G_RET_STS_SUCCESS ;

360: -- Insert the data into the layers table
361: IF (p_tran_rec.transaction_source_type_id <> 5) THEN
362: -- Bug 5586577. Return with Success.
363: -- x_return_status := FND_API.G_RET_STS_ERROR ;
364: x_return_status := FND_API.G_RET_STS_SUCCESS ;
365: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
366: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
367: -- FND_MSG_PUB.Add;
368: RETURN;

Line 371: x_return_status := FND_API.G_RET_STS_ERROR ;

367: -- FND_MSG_PUB.Add;
368: RETURN;
369: END IF;
370: IF (p_tran_rec.line_type <> -1 and p_tran_rec.line_type <> 2) THEN
371: x_return_status := FND_API.G_RET_STS_ERROR ;
372: gme_debug.put_line ('Error-GMF: Only Ingredients and By-Products allowed for outgoing layers');
373: FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_ING_TRANS');
374: FND_MSG_PUB.Add;
375: RETURN;

Line 397: x_return_status := FND_API.G_RET_STS_ERROR ;

393: l.mmt_transaction_id = mmt.transaction_id; -- AND
394: -- l.lot_number(+) = mtln.lot_number ;
395: EXCEPTION
396: WHEN NO_DATA_FOUND THEN
397: x_return_status := FND_API.G_RET_STS_ERROR ;
398: --dbms_output.put_line ('Could not find the reversed layer');
399: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_REVERSED_LAYER');
400: FND_MSG_PUB.Add;
401: RETURN;

Line 406: x_return_status := FND_API.G_RET_STS_ERROR ;

402: END;
403: END IF;
404:
405: IF (l_doc_qty IS NULL ) THEN
406: x_return_status := FND_API.G_RET_STS_ERROR ;
407: IF g_debug <= gme_debug.g_log_procedure THEN
408: gme_debug.put_line ('No doc quantity specified for the layer');
409: END IF;
410: FND_MESSAGE.SET_NAME('GMF', 'GMF_NO_DOC_QTY_FOR_LAYER');

Line 657: x_return_status := FND_API.G_RET_STS_SUCCESS;

653: IF g_debug <= gme_debug.g_log_statement THEN
654: gme_debug.put_line (sql%ROWCOUNT || ' rows inserted');
655: END IF;
656:
657: x_return_status := FND_API.G_RET_STS_SUCCESS;
658:
659:
660: IF g_debug <= gme_debug.g_log_procedure THEN
661: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);

Line 670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

666: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
667: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
668: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
669: FND_MSG_PUB.Add;
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
671: END;
672:
673: /*
674: --+==========================================================================+

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

695: --+==========================================================================+
696: */
697: PROCEDURE Create_Resource_Layers
698: ( p_api_version IN NUMBER,
699: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
700: p_rsrc_rec IN gme_resource_txns%ROWTYPE,
701: p_doc_qty IN NUMBER,
702: p_doc_um IN VARCHAR2,
703: x_return_status OUT NOCOPY VARCHAR2,

Line 743: x_return_status := FND_API.G_RET_STS_SUCCESS ;

739:
740: l_api_name VARCHAR2(40) := 'Create_Resource_Layers';
741:
742: BEGIN
743: x_return_status := FND_API.G_RET_STS_SUCCESS ;
744:
745:
746: IF g_debug <= gme_debug.g_log_procedure THEN
747: gme_debug.put_line ('Entering api ' || g_pkg_name || '.' || l_api_name);

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

758: -- Validate that it is for doc_type PROD and line_type 0
759: -- Insert the data into the layers table
760: IF (p_rsrc_rec.doc_type <> 'PROD') THEN
761: -- Bug 5586577. Return with Success.
762: -- x_return_status := FND_API.G_RET_STS_ERROR ;
763: x_return_status := FND_API.G_RET_STS_SUCCESS ;
764: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
765: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
766: -- FND_MSG_PUB.Add;

Line 763: x_return_status := FND_API.G_RET_STS_SUCCESS ;

759: -- Insert the data into the layers table
760: IF (p_rsrc_rec.doc_type <> 'PROD') THEN
761: -- Bug 5586577. Return with Success.
762: -- x_return_status := FND_API.G_RET_STS_ERROR ;
763: x_return_status := FND_API.G_RET_STS_SUCCESS ;
764: --dbms_output.put_line ('Only PROD document allowed for outgoing layers');
765: -- FND_MESSAGE.SET_NAME('GMF', 'GMF_NON_PROD_TRANS');
766: -- FND_MSG_PUB.Add;
767: RETURN;

Line 959: x_return_status := FND_API.G_RET_STS_SUCCESS;

955: p_rsrc_rec.last_updated_by,
956: sysdate,
957: p_rsrc_rec.last_update_login);
958:
959: x_return_status := FND_API.G_RET_STS_SUCCESS;
960:
961: IF g_debug <= gme_debug.g_log_procedure THEN
962: gme_debug.put_line ('Exiting api ' || g_pkg_name || '.' || l_api_name);
963: END IF;

Line 971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

967: FND_MESSAGE.SET_NAME('GMI','GMI_DXFR_SQL_ERROR');
968: FND_MESSAGE.SET_TOKEN('ERRCODE',SQLCODE);
969: FND_MESSAGE.SET_TOKEN('ERRM',SQLERRM);
970: FND_MSG_PUB.Add;
971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
972: RAISE;
973: END;
974:
975: -- Begin Additions for relayering concurrent request.

Line 1582: p_init_msg_list => FND_API.G_FALSE,

1578: END IF;
1579:
1580: gmf_layers.Create_outgoing_Layers
1581: ( p_api_version => 1.0,
1582: p_init_msg_list => FND_API.G_FALSE,
1583: p_tran_rec => l_trans_rec,
1584: x_return_status => x_return_status,
1585: x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);

Line 1588: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1584: x_return_status => x_return_status,
1585: x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data);
1587:
1588: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1589: --
1590: -- fnd_file.put_line ('Error creating outgoing layer : '||to_char (mt.trans_id));
1591: GMF_LAYERS.log_message (
1592: p_table_name => 'GMF_BATCH_VIB_DETAILS',

Line 1758: FND_API.G_FALSE,

1754:
1755: IF l_count = 0 THEN
1756: GMF_LAYERS.Create_Resource_Layers(
1757: 1.0,
1758: FND_API.G_FALSE,
1759: rt,
1760: rt.resource_usage,
1761: rt.trans_qty_um,
1762: x_return_status,

Line 1766: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

1762: x_return_status,
1763: x_msg_count,
1764: x_msg_data);
1765:
1766: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
1767: -- fnd_file.put_line ('Error creating resource layer : '||to_char (rt.poc_trans_id));
1768: GMF_LAYERS.log_message (
1769: p_table_name => 'GMF_BATCH_VIB_DETAILS',
1770: p_procedure_name => 'None',

Line 2040: p_init_msg_list => FND_API.G_FALSE,

2036: IF (l_prev_mat_det_id = t.mat_det_id AND NVL(l_use_vib, 'N') = 'N' AND NVL(l_use_vib, 'N') = 'N') THEN
2037:
2038: gmf_layers.Create_Incoming_Layers
2039: ( p_api_version => 1.0,
2040: p_init_msg_list => FND_API.G_FALSE,
2041: p_tran_rec => l_trans_rec,
2042: x_return_status => x_return_status,
2043: x_msg_count => x_msg_count,
2044: x_msg_data => x_msg_data,

Line 2051: p_init_msg_list => FND_API.G_FALSE,

2047: ELSE
2048:
2049: gmf_layers.Create_Incoming_Layers
2050: ( p_api_version => 1.0,
2051: p_init_msg_list => FND_API.G_FALSE,
2052: p_tran_rec => l_trans_rec,
2053: x_return_status => x_return_status,
2054: x_msg_count => x_msg_count,
2055: x_msg_data => x_msg_data,

Line 2061: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2057: );
2058:
2059: END IF;
2060:
2061: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2062: -- fnd_file.put_line ('Error creating incoming layer : '||to_char (mt.trans_id));
2063: GMF_LAYERS.log_message (
2064: p_table_name => 'GMF_BATCH_VIB_DETAILS',
2065: p_procedure_name => 'None',

Line 2153: FND_API.G_FALSE,

2149: x_return_status := 0;
2150:
2151: GMF_VIB.Finalize_VIB_Details(
2152: 1.0,
2153: FND_API.G_FALSE,
2154: cls.batch_id,
2155: x_return_status,
2156: x_msg_count,
2157: x_msg_data);

Line 2159: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN

2155: x_return_status,
2156: x_msg_count,
2157: x_msg_data);
2158:
2159: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2160: GMF_LAYERS.log_message (
2161: p_table_name => 'GMF_BATCH_VIB_DETAILS',
2162: p_procedure_name => 'None',
2163: p_parameters => 'Batch ID = '||to_char(cls.batch_id),