1 PACKAGE BODY INV_EXTATP_CALL AS
2 /* $Header: INVEATPB.pls 120.1 2005/06/11 07:58:06 appldev $ */
3
4 --
5 -- Package
6 -- INV_EXTATP_CALL
7 -- Purpose
8 -- Real Call to External ATP systems
9 -- v_error_code : INV_EXTATP_GRP.G_ALL_SUCCESS for success,
10 -- INV_EXTATP_GRP.G_RETURN_ERROR for failure.
11 -- v_error_translate : TRUE if Oracle is to translate the message
12 -- FALSE if Oracle is to simply display message
13 -- v_error_message : the name of the message in Oracle
14 -- message dictionary if it is to be translated
15 -- by calling code. Message text to be displayed
16 -- to user if v_error_translate flag is FALSE.
17 --
18 -- History
19 -- 09/04/96 nsriniva Created
20 --
21 PROCEDURE EXTERNAL_ATP(V_Atp_Table IN OUT NOCOPY /* file.sql.39 change */ INV_EXTATP_GRP.Atp_Group_Tab_Typ,
22 V_Bom_Table IN OUT NOCOPY /* file.sql.39 change */ INV_EXTATP_GRP.Bom_Tab_Typ,
23 V_Rtg_Table IN OUT NOCOPY /* file.sql.39 change */ INV_EXTATP_GRP.Routing_Tab_Typ,
24 V_Error_Code OUT NOCOPY /* file.sql.39 change */ number,
25 V_Error_Message OUT NOCOPY /* file.sql.39 change */ varchar2,
26 V_Error_Translate OUT NOCOPY /* file.sql.39 change */ boolean) IS
27 BEGIN
28
29 -- External systems should put their call in here
30 v_error_message := '';
31 v_error_code := INV_EXTATP_GRP.G_ALL_SUCCESS;
32 v_error_translate := TRUE;
33
34 return;
35 EXCEPTION
36 WHEN OTHERS THEN
37 v_error_code := INV_EXTATP_GRP.G_RETURN_ERROR;
38 v_error_message := 'INV_EXTATP_CALL.Atp'|| substr(sqlerrm,1,100);
39 return;
40 END EXTERNAL_ATP;
41
42 END INV_EXTATP_CALL;