1: PACKAGE BODY cn_classification AS
2: -- $Header: cnclclsb.pls 115.0 99/07/16 07:03:39 porting ship $
3:
4: --
5: -- Package Name
2: -- $Header: cnclclsb.pls 115.0 99/07/16 07:03:39 porting ship $
3:
4: --
5: -- Package Name
6: -- cn_classification
7: -- Purpose
8: -- Package body for classifying transactions, works as a router,
9: -- calls the actual cn_classification_
10: -- History
5: -- Package Name
6: -- cn_classification
7: -- Purpose
8: -- Package body for classifying transactions, works as a router,
9: -- calls the actual cn_classification_
11: -- 12-DEC-96 Xinyang Fan Created
12: -- 11-Feb-98 Achung reference CLIENT_INFO need to use SUBSTRB
13: --
28:
29: BEGIN
30: c := dbms_sql.open_cursor;
31:
32: statement := 'begin cn_classification'||cached_org_append||
33: '.classify_batch(:physical_batch_id,:process_audit_id);'||
34: 'end;';
35:
36: dbms_sql.parse(c, statement, dbms_sql.native);
63: else
64: cached_org_append := '_' || cached_org_id;
65: end if;
66:
67: END cn_classification;