DBA Data[Home] [Help]

PACKAGE BODY: APPS.CN_PAYMENT_API_PKG

Source


1 PACKAGE BODY CN_PAYMENT_API_PKG as
2 -- $Header: cntpmtab.pls 115.2 2001/10/29 17:15:38 pkm ship    $
3 
4 
5   -------------------------------------------------------------------------+
6   -- Procedure Name : Insert_Record
7   -- Purpose        : Main insert procedure
8   -------------------------------------------------------------------------+
9 
10   PROCEDURE Insert_Record(
11 			x_period_id               cn_payment_api.period_id%TYPE
12 			,x_salesrep_id             cn_payment_api.salesrep_id%TYPE
13 			,x_pay_date       	   cn_payment_api.pay_date%TYPE
14 			,x_payment_type            cn_payment_api.payment_type%TYPE
15 			,x_amount                  cn_payment_api.amount%TYPE
16 			,x_cost_center_id          cn_payment_api.cost_center_id%TYPE
17 			,x_payment_api_id          cn_payment_api.payment_api_id%TYPE
18 			,x_payrun_id               cn_payment_api.payrun_id%TYPE
19 			,x_from_credit_type_id	  cn_payment_api.from_credit_type_id%TYPE
20 			,x_to_credit_type_id       cn_payment_api.to_credit_type_id%TYPE
21 			,x_role_id                 cn_payment_api.role_id%TYPE
22 			,x_created_by              cn_payment_api.created_by%TYPE
23 			,x_creation_date           cn_payment_api.creation_date%TYPE
24    )
25     IS
26 
27   BEGIN
28 
29      INSERT INTO cn_payment_api(
30 			period_id
31 			,salesrep_id
32 			,pay_date
33 			,payment_type
34 			,amount
35 			,cost_center_id
36 			,payment_api_id
37 			,payrun_id
38 			,from_credit_type_id
39 			,to_credit_type_id
40 		        ,role_id
41 		        ,created_by
42 			,creation_date	)
43        VALUES (
44 			x_period_id
45 			,x_salesrep_id
46 			,x_pay_date
47 			,x_payment_type
48 			,x_amount
49 			,x_cost_center_id
50 			,Nvl(x_payment_api_id, cn_payment_api_s.NEXTVAL)
51 			,x_payrun_id
52 			,x_from_credit_type_id
53 			,x_to_credit_type_id
54 	                ,x_role_id
55 	                ,x_created_by
56 	                ,x_creation_date
57 	       );
58 
59   END Insert_Record;
60 
61 END CN_PAYMENT_API_PKG;