PACKAGE BODY: APPS.GMP_UTILITY

Source

1 PACKAGE BODY gmp_utility as
2 /* $Header: GMPUTILB.pls 115.1 2003/09/30 20:13:17 rpatangy noship $ */
3 
4 PROCEDURE generate_opm_acct
5 (
6  V_DESTINATION_TYPE    IN      VARCHAR2 ,
7  V_INV_ITEM_TYPE       IN      VARCHAR2 ,
8  V_SUBINV_TYPE         IN      VARCHAR2,
9  V_DEST_ORG_ID         IN      NUMBER ,
10  V_APPS_ITEM_ID        IN      NUMBER,
11  V_VENDOR_SITE_ID      IN      NUMBER,
12  V_CC_ID               IN OUT NOCOPY NUMBER
13 ) IS
14 
15  P_DESTINATION_TYPE    VARCHAR2(20) := NULL ;
16  P_INV_ITEM_TYPE       VARCHAR2(20) := NULL ;
17  P_SUBINV_TYPE         VARCHAR2(20) := NULL ;
18  P_DEST_ORG_ID         NUMBER   := 0 ;
19  P_APPS_ITEM_ID        NUMBER   := 0 ;
20  P_VENDOR_SITE_ID      NUMBER   := 0 ;
21  P_CC_ID               NUMBER   := 0 ;
22 
23 BEGIN
24      P_DESTINATION_TYPE := V_DESTINATION_TYPE ;
25      P_INV_ITEM_TYPE    := V_INV_ITEM_TYPE ;
26      P_SUBINV_TYPE      := V_SUBINV_TYPE ;
27      P_DEST_ORG_ID      := V_DEST_ORG_ID ;
28      P_APPS_ITEM_ID     := V_APPS_ITEM_ID ;
29      P_VENDOR_SITE_ID   := V_VENDOR_SITE_ID ;
30 
31      /* Actual call to routine to return the account Id's */
32 
33      GML_ACCT_GENERATE.generate_opm_acct(P_DESTINATION_TYPE,
34                                          P_INV_ITEM_TYPE,
35                                          P_SUBINV_TYPE,
36                                          P_DEST_ORG_ID,
37                                          P_APPS_ITEM_ID,
38                                          P_VENDOR_SITE_ID,
39                                          P_CC_ID ) ;
40 
41      V_CC_ID := P_CC_ID ;
42 
43 END generate_opm_acct ;
44 
45 end gmp_utility;