1178: --| Validates purch_class |
1179: --| |
1180: --| DESCRIPTION |
1181: --| This function validates that the Purchase Class exists |
1182: --| on ic_prch_cls |
1183: --| |
1184: --| PARAMETERS |
1185: --| p_purch_class IN VARCHAR2(8) - Purchase Class |
1186: --| |
1198: )
1199: RETURN BOOLEAN
1200: IS
1201: l_purch_class ic_item_mst.purch_class%TYPE;
1202: CURSOR ic_prch_cls_c1 IS
1203: SELECT
1204: icpurch_class
1205: FROM
1206: ic_prch_cls
1202: CURSOR ic_prch_cls_c1 IS
1203: SELECT
1204: icpurch_class
1205: FROM
1206: ic_prch_cls
1207: WHERE
1208: ic_prch_cls.icpurch_class = p_purch_class
1209: AND ic_prch_cls.delete_mark = 0;
1210:
1204: icpurch_class
1205: FROM
1206: ic_prch_cls
1207: WHERE
1208: ic_prch_cls.icpurch_class = p_purch_class
1209: AND ic_prch_cls.delete_mark = 0;
1210:
1211: BEGIN
1212:
1205: FROM
1206: ic_prch_cls
1207: WHERE
1208: ic_prch_cls.icpurch_class = p_purch_class
1209: AND ic_prch_cls.delete_mark = 0;
1210:
1211: BEGIN
1212:
1213: OPEN ic_prch_cls_c1;
1209: AND ic_prch_cls.delete_mark = 0;
1210:
1211: BEGIN
1212:
1213: OPEN ic_prch_cls_c1;
1214: FETCH ic_prch_cls_c1 INTO l_purch_class;
1215: IF (ic_prch_cls_c1%NOTFOUND)
1216: THEN
1217: CLOSE ic_prch_cls_c1;
1210:
1211: BEGIN
1212:
1213: OPEN ic_prch_cls_c1;
1214: FETCH ic_prch_cls_c1 INTO l_purch_class;
1215: IF (ic_prch_cls_c1%NOTFOUND)
1216: THEN
1217: CLOSE ic_prch_cls_c1;
1218: RETURN FALSE;
1211: BEGIN
1212:
1213: OPEN ic_prch_cls_c1;
1214: FETCH ic_prch_cls_c1 INTO l_purch_class;
1215: IF (ic_prch_cls_c1%NOTFOUND)
1216: THEN
1217: CLOSE ic_prch_cls_c1;
1218: RETURN FALSE;
1219: ELSE
1213: OPEN ic_prch_cls_c1;
1214: FETCH ic_prch_cls_c1 INTO l_purch_class;
1215: IF (ic_prch_cls_c1%NOTFOUND)
1216: THEN
1217: CLOSE ic_prch_cls_c1;
1218: RETURN FALSE;
1219: ELSE
1220: CLOSE ic_prch_cls_c1;
1221: RETURN TRUE;
1216: THEN
1217: CLOSE ic_prch_cls_c1;
1218: RETURN FALSE;
1219: ELSE
1220: CLOSE ic_prch_cls_c1;
1221: RETURN TRUE;
1222: END IF;
1223:
1224: EXCEPTION