[Home] [Help]
9: --============================================================================
10: PROCEDURE Pay_Payrun_conc
11: ( errbuf OUT NOCOPY VARCHAR2,
12: retcode OUT NOCOPY NUMBER ,
13: p_name cn_payruns.name%TYPE ) IS
14:
15: l_proc_audit_id NUMBER;
16: l_return_status VARCHAR2(1000);
17: l_msg_data VARCHAR2(2000);
89: p_validation_level IN NUMBER,
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER,
92: x_msg_data OUT NOCOPY VARCHAR2,
93: p_payrun_name IN cn_payruns.name%TYPE,
94: p_org_id IN NUMBER,
95: x_status OUT NOCOPY VARCHAR2,
96: x_loading_status OUT NOCOPY VARCHAR2
97: ) IS
100: l_api_version CONSTANT NUMBER := 1.0;
101:
102: l_payrun_id NUMBER;
103: l_org_id NUMBER;
104: l_status CN_PAYRUNS.STATUS%TYPE;
105:
106: l_payrun_name cn_payruns.name%TYPE;
107: l_OAI_array JTF_USR_HKS.oai_data_array_type;
108: l_bind_data_id NUMBER;
102: l_payrun_id NUMBER;
103: l_org_id NUMBER;
104: l_status CN_PAYRUNS.STATUS%TYPE;
105:
106: l_payrun_name cn_payruns.name%TYPE;
107: l_OAI_array JTF_USR_HKS.oai_data_array_type;
108: l_bind_data_id NUMBER;
109: l_ovn Number ;
110:
221: -- Added Exception and for update
222: BEGIN
223: SELECT payrun_id, status, object_version_number
224: INTO l_payrun_id, l_status, l_ovn
225: FROM cn_payruns
226: WHERE name = p_payrun_name
227: AND org_id=l_org_id
228: FOR update of payrun_id;
229:
427:
428:
429: CURSOR get_payrun IS
430: SELECT name
431: FROM cn_payruns
432: WHERE payrun_id = p_payrun_id
433: AND status = 'UNPAID';
434:
435: l_name cn_payruns.name%TYPE;
431: FROM cn_payruns
432: WHERE payrun_id = p_payrun_id
433: AND status = 'UNPAID';
434:
435: l_name cn_payruns.name%TYPE;
436:
437: l_ret_code VArchar2(2000);
438: l_error_buf varchar2(2000);
439: