[Home] [Help]
27: --Locks:
28: -- None.
29: --Function:
30: -- This function would check whether the req lines inserted in the
31: -- PO_SESSION_GT are comapatible with all other in terms of style.
32: --Parameters:
33: --IN:
34: -- p_session_gt_key
35: -- key to identify the records inserted for a given session
67:
68: l_api_name CONSTANT VARCHAR2(30) := 'style_validate_req_lines';
69: l_api_version CONSTANT NUMBER := 1.0;
70:
71: /*MAPPING FOR PO_SESSION_GT for STYLES */
72: /*
73: * PO_SESSION_GT:
74: * key = key into table
75: * num1 = Requisition line ID
69: l_api_version CONSTANT NUMBER := 1.0;
70:
71: /*MAPPING FOR PO_SESSION_GT for STYLES */
72: /*
73: * PO_SESSION_GT:
74: * key = key into table
75: * num1 = Requisition line ID
76: * num2 = Source Document ID
77: * num3 = Line Type ID
85: PGT.NUM3 line_type_id,
86: PGT.CHAR1 destination_type,
87: PGT.CHAR2 purchase_basis,
88: PH.style_id source_doc_style_id
89: FROM PO_SESSION_GT PGT,
90: PO_HEADERS_ALL PH
91: WHERE PGT.KEY = p_session_gt_key
92: AND PGT.NUM2 = PH.PO_HEADER_ID
93: AND PGT.NUM2 IS NOT NULL;
96: CURSOR REQ_LINES_NOSOURCE_CSR IS
97: SELECT PGT.NUM3 line_type_id,
98: PGT.CHAR1 destination_type,
99: PGT.CHAR2 purchase_basis
100: FROM PO_SESSION_GT PGT
101: WHERE PGT.KEY = p_session_gt_key
102: AND PGT.NUM2 IS NULL;
103:
104: l_style_id_tbl po_tbl_number;
197: --Determine how many styles exist in the requisition lines
198: --Get the source doc styles and group by style id.
199: select poh.style_id BULK COLLECT
200: into l_style_id_tbl
201: from po_session_gt pgt,
202: po_headers_all poh
203: where pgt.key = p_session_gt_key
204: and pgt.num2 = poh.po_header_id
205: group by poh.style_id;
1168: -- None.
1169: --Locks:
1170: -- None.
1171: --Function:
1172: -- Populates the Po session gt with requistion lines to be style validated
1173: --End of Comments
1174: -------------------------------------------------------------------------------
1175: PROCEDURE populate_gt_and_validate(p_api_version IN NUMBER DEFAULT 1.0,
1176: p_init_msg_list IN VARCHAR2,
1187: x_style_id OUT NOCOPY NUMBER) IS
1188: d_progress NUMBER;
1189: d_module VARCHAR2(60) := 'po.plsql.PO_DOC_STYLE_PVT.populate_gt_and_validate';
1190:
1191: l_session_gt_key PO_SESSION_GT.KEY%TYPE;
1192: l_return_status VARCHAR2(2);
1193: l_msg_count NUMBER;
1194: l_msg_data VARCHAR2(2000);
1195:
1201: PO_LOG.proc_begin(d_module);
1202: PO_LOG.proc_begin(d_module, 'p_po_header_id', p_po_header_id);
1203: END IF;
1204:
1205: SELECT PO_SESSION_GT_S.nextval INTO l_session_gt_key FROM dual;
1206:
1207: /*
1208: * PO_SESSION_GT:
1209: * key = key into table
1204:
1205: SELECT PO_SESSION_GT_S.nextval INTO l_session_gt_key FROM dual;
1206:
1207: /*
1208: * PO_SESSION_GT:
1209: * key = key into table
1210: * num1 = Requisition line ID
1211: * num2 = Source Document ID
1212: * num3 = Line Type ID
1214: * char2 = Purchase Basis
1215: */
1216: d_progress := 10;
1217: IF (PO_LOG.d_stmt) THEN
1218: PO_LOG.stmt(d_module, d_progress, 'inserting into po_session_gt');
1219: END IF;
1220:
1221: FORALL i IN p_req_line_id_table.first .. p_req_line_id_table.last
1222: insert into po_session_gt
1218: PO_LOG.stmt(d_module, d_progress, 'inserting into po_session_gt');
1219: END IF;
1220:
1221: FORALL i IN p_req_line_id_table.first .. p_req_line_id_table.last
1222: insert into po_session_gt
1223: (key,
1224: num1,
1225: num2,
1226: num3,
1249: p_po_header_id => p_po_header_id,
1250: p_po_style_id => p_po_style_id,
1251: x_style_id => x_style_id);
1252:
1253: delete po_session_gt where key = l_session_gt_key;
1254:
1255: IF (PO_LOG.d_proc) THEN
1256: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1257: PO_LOG.proc_end(d_module);