[Home] [Help]
Skip to content
PACKAGE: APPS.OKL_VENDOR_AGREEMENT_PUB
Source
1 PACKAGE OKL_VENDOR_AGREEMENT_PUB AUTHID CURRENT_USER AS
2 /*$Header: OKLPVAGS.pls 120.4 2008/02/29 10:17:25 veramach ship $*/
3 /*#
4 * Vendor Agreement API allows users to perform actions on
5 * vendor agreements in Lease Management.
6 * @rep:scope public
7 * @rep:product OKL
8 * @rep:displayname Vendor Agreement API
9 * @rep:category BUSINESS_ENTITY OKL_VENDOR_RELATIONSHIP
10 * @rep:lifecycle active
11 * @rep:compatibility S
12 */
13
14 /* Header Variables */
15
16 SUBTYPE chrv_rec_type IS OKL_VENDOR_PROGRAM_PUB.chrv_rec_type;
17 SUBTYPE khrv_rec_type IS OKL_VENDOR_PROGRAM_PUB.khrv_rec_type;
18 SUBTYPE program_header_rec IS OKL_VENDOR_PROGRAM_PUB.program_header_rec_type;
19
20 /* Party Role/Contact Variables */
21 SUBTYPE ctcv_rec_type is OKL_CONTRACT_PARTY_PUB.ctcv_rec_type;
22 SUBTYPE ctcv_tbl_type is OKL_CONTRACT_PARTY_PUB.ctcv_tbl_type;
23 SUBTYPE cplv_rec_type is OKL_CONTRACT_PARTY_PUB.cplv_rec_type;
24 SUBTYPE cplv_tbl_type is OKL_CONTRACT_PARTY_PUB.cplv_tbl_type;
25
26 /* Rule Group */
27 SUBTYPE rgpv_rec_type IS OKL_VP_RULE_PUB.rgpv_rec_type;
28 SUBTYPE rgpv_tbl_type IS OKL_VP_RULE_PUB.rgpv_tbl_type;
29
30 /* Terms and Conditions */
31 subtype rgr_rec_type is OKL_RGRP_RULES_PROCESS_PUB.rgr_rec_type;
32 subtype rgr_tbl_type is OKL_RGRP_RULES_PROCESS_PUB.rgr_tbl_type;
33 subtype rgr_out_rec_type is OKL_RGRP_RULES_PROCESS_PUB.rgr_out_rec_type;
34 subtype rgr_out_tbl_type is OKL_RGRP_RULES_PROCESS_PUB.rgr_out_tbl_type;
35
36 /* Articles */
37 SUBTYPE catv_rec_type is OKL_VP_K_ARTICLE_PUB.catv_rec_type;
38 SUBTYPE catv_tbl_type is OKL_VP_K_ARTICLE_PUB.catv_tbl_type;
39
40 ---------------------------------------------------------------------------
41 -- GLOBAL VARIABLES
42 ---------------------------------------------------------------------------
43 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_VENDOR_AGREEMENT_PUB';
44 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
45 G_API_TYPE CONSTANT VARCHAR2(4) := '_PVT';
46 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
47 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
48 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLerrm';
49 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'OKL_SQLcode';
50 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKL_VENDOR_AGREEMENT_UNEXPECTED_ERROR';
51 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
52
53 /* Party Role and Contact Record */
54 TYPE PARTY_ROLE_CONTACT_REC IS RECORD (
55 party_role_code OKC_K_PARTY_ROLES_V.RLE_CODE%TYPE := OKC_API.G_MISS_CHAR,
56 party_role_id NUMBER := OKC_API.G_MISS_NUM,
57 contact_role_code OKC_CONTACTS_V.CRO_CODE%TYPE := OKC_API.G_MISS_CHAR,
58 contact_role_id NUMBER := OKC_API.G_MISS_NUM);
59
60 TYPE PARTY_ROLE_CONTACT_TBL IS TABLE OF PARTY_ROLE_CONTACT_REC INDEX BY BINARY_INTEGER;
61
62 /* Terms and Conditions Record */
63 TYPE TERMS_AND_CONDITIONS_REC IS RECORD (
64 RULE_GROUP_CODE OKC_RULE_GROUPS_V.RGD_CODE%TYPE := OKC_API.G_MISS_CHAR,
65 RULE_CODE OKC_RULES_V.RULE_INFORMATION_CATEGORY%TYPE := OKC_API.G_MISS_CHAR,
66 object1_id1 OKC_RULES_V.OBJECT1_ID1%TYPE := OKC_API.G_MISS_CHAR,
67 object2_id1 OKC_RULES_V.OBJECT2_ID1%TYPE := OKC_API.G_MISS_CHAR,
68 object3_id1 OKC_RULES_V.OBJECT3_ID1%TYPE := OKC_API.G_MISS_CHAR,
69 object1_id2 OKC_RULES_V.OBJECT1_ID2%TYPE := OKC_API.G_MISS_CHAR,
70 object2_id2 OKC_RULES_V.OBJECT2_ID2%TYPE := OKC_API.G_MISS_CHAR,
71 object3_id2 OKC_RULES_V.OBJECT3_ID2%TYPE := OKC_API.G_MISS_CHAR,
72 jtot_object1_code OKC_RULES_V.JTOT_OBJECT1_CODE%TYPE := OKC_API.G_MISS_CHAR,
73 jtot_object2_code OKC_RULES_V.JTOT_OBJECT2_CODE%TYPE := OKC_API.G_MISS_CHAR,
74 jtot_object3_code OKC_RULES_V.JTOT_OBJECT3_CODE%TYPE := OKC_API.G_MISS_CHAR,
75 rule_information1 OKC_RULES_V.RULE_INFORMATION1%TYPE := OKC_API.G_MISS_CHAR,
76 rule_information2 OKC_RULES_V.RULE_INFORMATION2%TYPE := OKC_API.G_MISS_CHAR,
77 rule_information3 OKC_RULES_V.RULE_INFORMATION3%TYPE := OKC_API.G_MISS_CHAR,
78 rule_information4 OKC_RULES_V.RULE_INFORMATION4%TYPE := OKC_API.G_MISS_CHAR,
79 rule_information5 OKC_RULES_V.RULE_INFORMATION5%TYPE := OKC_API.G_MISS_CHAR,
80 rule_information6 OKC_RULES_V.RULE_INFORMATION6%TYPE := OKC_API.G_MISS_CHAR,
81 rule_information7 OKC_RULES_V.RULE_INFORMATION7%TYPE := OKC_API.G_MISS_CHAR,
82 rule_information8 OKC_RULES_V.RULE_INFORMATION8%TYPE := OKC_API.G_MISS_CHAR,
83 rule_information9 OKC_RULES_V.RULE_INFORMATION9%TYPE := OKC_API.G_MISS_CHAR,
84 rule_information10 OKC_RULES_V.RULE_INFORMATION10%TYPE := OKC_API.G_MISS_CHAR,
85 rule_information11 OKC_RULES_V.RULE_INFORMATION11%TYPE := OKC_API.G_MISS_CHAR,
86 rule_information12 OKC_RULES_V.RULE_INFORMATION12%TYPE := OKC_API.G_MISS_CHAR,
87 rule_information13 OKC_RULES_V.RULE_INFORMATION13%TYPE := OKC_API.G_MISS_CHAR,
88 rule_information14 OKC_RULES_V.RULE_INFORMATION14%TYPE := OKC_API.G_MISS_CHAR,
89 rule_information15 OKC_RULES_V.RULE_INFORMATION15%TYPE := OKC_API.G_MISS_CHAR
90 );
91
92 TYPE TERMS_AND_CONDITIONS_TBL IS TABLE OF TERMS_AND_CONDITIONS_REC INDEX BY BINARY_INTEGER;
93
94 /* Vendor Billing Record */
95 TYPE VENDOR_BILLING_REC IS RECORD (
96 customer_id NUMBER := OKC_API.G_MISS_NUM,
97 cust_acct_id NUMBER := OKC_API.G_MISS_NUM,
98 bill_to_site_use_id NUMBER := OKC_API.G_MISS_NUM,
99 payment_method NUMBER := OKC_API.G_MISS_NUM,
100 bank_account NUMBER := OKC_API.G_MISS_NUM,
101 invoice_format OKC_RULES_V.RULE_INFORMATION1%TYPE := OKC_API.G_MISS_CHAR,
102 review_invoice OKC_RULES_V.RULE_INFORMATION1%TYPE := OKC_API.G_MISS_CHAR,
103 review_reason OKC_RULES_V.RULE_INFORMATION1%TYPE := OKC_API.G_MISS_CHAR,
104 review_until_date DATE := OKC_API.G_MISS_DATE
105 );
106
107 /* Articles Record */
108 TYPE ARTICLE_REC IS RECORD (
109 article_name OKC_K_ARTICLES_V.NAME%TYPE := OKC_API.G_MISS_CHAR,
110 version OKC_K_ARTICLES_V.SAV_SAV_RELEASE%TYPE := OKC_API.G_MISS_CHAR);
111
112 TYPE ARTICLE_TBL IS TABLE OF ARTICLE_REC INDEX BY BINARY_INTEGER;
113
114 /*
115 * Procedure: CREATE_VENDOR_AGREEMENT
116 */
117 /*#
118 * Create Vendor Agreement API allows creation of a vendor agreement.
119 * This API can also be used to create a party, contact, term set
120 * or a article on a vendor agreement.
121 * @param p_api_version API version
122 * @param p_init_msg_list Initialize message stack
123 * @param x_return_status Return status from the API
124 * @param x_msg_count Message count if error messages are encountered
125 * @param x_msg_data Error message data
126 * @param p_hdr_rec Vendor program header record
127 * @param p_parent_agreement_number Parent agreement number
128 * @param p_party_role_contact_tbl Party role and contact
129 * @param p_vendor_billing_rec Vendor Billing Record
130 * @param p_terms_n_conditions_tbl Terms and Conditions
131 * @param p_article_tbl Articles Record
132 * @rep:displayname Create Vendor Agreement
133 * @rep:scope public
134 * @rep:lifecycle active
135 * @rep:category BUSINESS_ENTITY OKL_VENDOR_RELATIONSHIP
136 */
137 PROCEDURE create_vendor_agreement(
138 p_api_version IN NUMBER,
139 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
140 p_hdr_rec IN program_header_rec,
141 p_parent_agreement_number IN VARCHAR2 DEFAULT NULL,
142 p_party_role_contact_tbl IN party_role_contact_tbl,
143 p_vendor_billing_rec IN VENDOR_BILLING_REC,
144 p_terms_n_conditions_tbl IN TERMS_AND_CONDITIONS_TBL,
145 p_article_tbl IN article_tbl,
146 x_return_status OUT NOCOPY VARCHAR2,
147 x_msg_count OUT NOCOPY NUMBER,
148 x_msg_data OUT NOCOPY VARCHAR2
149 );
150
151
152 END OKL_VENDOR_AGREEMENT_PUB;