40: );
41:
42: PROCEDURE fill_tbl
43: ( p_num_records IN NUMBER,
44: x_tbl IN OUT NOCOPY PO_TBL_VARCHAR2000
45: );
46:
47: --------------------------------------------------------------------------
48: ---------------------- PUBLIC PROCEDURES ---------------------------------
1188: --End of Comments
1189: ------------------------------------------------------------------------
1190: PROCEDURE fill_tbl
1191: ( p_num_records IN NUMBER,
1192: x_tbl IN OUT NOCOPY PO_TBL_VARCHAR2000
1193: ) IS
1194: BEGIN
1195: IF (x_tbl IS NOT NULL AND x_tbl.COUNT > 0) THEN
1196: RETURN;
1195: IF (x_tbl IS NOT NULL AND x_tbl.COUNT > 0) THEN
1196: RETURN;
1197: END IF;
1198:
1199: x_tbl := PO_TBL_VARCHAR2000();
1200: x_tbl.EXTEND(p_num_records);
1201:
1202: END fill_tbl;
1203: