50:
51: -- Initialize API message list if necessary.
52: -- Initialize message list if p_init_msg_list is set to TRUE.
53: IF FND_API.to_Boolean( p_init_msg_list) THEN
54: FND_MSG_PUB.initialize;
55: END IF;
56:
57: UPDATE mrp_sr_source_org mrp1
58: SET mrp1.vendor_id = p_vendor_id,
114: -- Prepare message name
115: FND_MESSAGE.SET_NAME('MRP','MRP_SR_SOURCE_ORG_DELETED');
116: FND_MESSAGE.SET_TOKEN('ROWS_DELETED',l_row_count);
117: -- Add message to API message list.
118: FND_MSG_PUB.Add;
119:
120: IF (l_row_count > 0) THEN
121: FOR j IN l_sr_receipt_id.FIRST..l_sr_receipt_id.LAST LOOP
122: FOR c1rec in c1(l_sr_receipt_id(j)) LOOP
131:
132: IF (SQL%ROWCOUNT > 0) THEN
133: FND_MESSAGE.SET_NAME('MRP','MRP_INVALID_STATUS');
134: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',l_sourcing_rule_name);
135: FND_MSG_PUB.Add;
136: END IF;
137: END IF;
138: END LOOP;
139: END LOOP;
140: END IF;
141:
142:
143: -- Get message count and if 1, return message data.
144: FND_MSG_PUB.Count_And_Get
145: ( p_count => x_msg_count,
146: p_data => x_msg_data
147: );
148:
151: WHEN OTHERS THEN
152: dbms_output.put_line(sqlerrm);
153: ROLLBACK ;
154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
155: FND_MSG_PUB.Count_And_Get
156: ( p_count => x_msg_count,
157: p_data => x_msg_data
158: );
159: