PACKAGE BODY: APPS.PO_VAL_GA_ORG_ASSIGNMENTS

Source

1 PACKAGE BODY PO_VAL_GA_ORG_ASSIGNMENTS AS
2 -- $Header: PO_VAL_GA_ORG_ASSIGNMENTS.plb 120.0 2005/08/12 17:44:47 sbull noship $
3 
4 c_ENTITY_TYPE_GA_ORG_ASSIGN CONSTANT VARCHAR2(30) := PO_VALIDATIONS.C_ENTITY_TYPE_GA_ORG_ASSIGN;
5 
6 -- Constants for column names
7 c_PURCHASING_ORG_ID CONSTANT VARCHAR2(30) := 'PURCHASING_ORG_ID';
8 c_VENDOR_SITE_ID CONSTANT VARCHAR2(30) := 'VENDOR_SITE_ID';
9 
10 -- The module base for this package.
11 D_PACKAGE_BASE CONSTANT VARCHAR2(50) :=
12   PO_LOG.get_package_base('PO_VAL_GA_ORG_ASSIGNMENTS');
13 
14 -- The module base for the subprogram.
15 D_purchasing_org_id_not_null CONSTANT VARCHAR2(100) :=
16   PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'purchasing_org_id_not_null');
17 D_vendor_site_id_not_null CONSTANT VARCHAR2(100) :=
18   PO_LOG.get_subprogram_base(D_PACKAGE_BASE,'vendor_site_id_not_null');
19 
20 
21 -------------------------------------------------------------------------------
22 -- Ensures that the Purchasing Org is not null.
23 -------------------------------------------------------------------------------
24 PROCEDURE purchasing_org_id_not_null(
25   p_org_assignment_id_tbl       IN PO_TBL_NUMBER
26 , p_purchasing_org_id_tbl       IN PO_TBL_NUMBER
27 , x_results       IN OUT NOCOPY PO_VALIDATION_RESULTS_TYPE
28 , x_result_type   OUT NOCOPY    VARCHAR2
29 )
30 IS
31 BEGIN
32 
33 PO_VALIDATION_HELPER.not_null(
34   p_calling_module => D_purchasing_org_id_not_null
35 , p_value_tbl => PO_TYPE_CONVERTER.to_po_tbl_varchar4000(p_purchasing_org_id_tbl)
36 , p_entity_id_tbl => p_org_assignment_id_tbl
37 , p_entity_type => c_entity_type_GA_ORG_ASSIGN
38 , p_column_name => c_PURCHASING_ORG_ID
39 , p_message_name => PO_MESSAGE_S.PO_ALL_NOT_NULL
40 , x_results => x_results
41 , x_result_type => x_result_type
42 );
43 
44 END purchasing_org_id_not_null;
45 
46 
47 -------------------------------------------------------------------------------
48 -- Ensures that the Supplier Site is not null.
49 -------------------------------------------------------------------------------
50 PROCEDURE vendor_site_id_not_null(
51   p_org_assignment_id_tbl   IN PO_TBL_NUMBER
52 , p_vendor_site_id_tbl      IN PO_TBL_NUMBER
53 , x_results       IN OUT NOCOPY PO_VALIDATION_RESULTS_TYPE
54 , x_result_type   OUT NOCOPY    VARCHAR2
55 )
56 IS
57 BEGIN
58 
59 PO_VALIDATION_HELPER.not_null(
60   p_calling_module => D_vendor_site_id_not_null
61 , p_value_tbl => PO_TYPE_CONVERTER.to_po_tbl_varchar4000(p_vendor_site_id_tbl)
62 , p_entity_id_tbl => p_org_assignment_id_tbl
63 , p_entity_type => c_entity_type_GA_ORG_ASSIGN
64 , p_column_name => c_VENDOR_SITE_ID
65 , p_message_name => PO_MESSAGE_S.PO_ALL_NOT_NULL
66 , x_results => x_results
67 , x_result_type => x_result_type
68 );
69 
70 END vendor_site_id_not_null;
71 
72 
73 END PO_VAL_GA_ORG_ASSIGNMENTS;