[Home] [Help]
489: FROM dual;
490:
491: -- To find whether id already exists
492: CURSOR c_id_exists (x_id IN NUMBER) IS
493: SELECT 1 FROM Ahl_Visits_VL
494: WHERE Visit_id = x_id;
495:
496: L_API_NAME CONSTANT VARCHAR2(30) := 'Get_Visit_Id';
497: L_FULL_NAME CONSTANT VARCHAR2(60) := G_PKG_NAME || '.' || L_API_NAME;
1003: AVTS.PRIORITY_CODE,
1004: FLVT3.MEANING PRIORITY_MEAN, AVTS.PROJECT_TEMPLATE_ID,
1005: PA.NAME PROJECT_TEMPLATE_NAME ,
1006: AVTS.UNIT_SCHEDULE_ID, AVTS.ASSO_PRIMARY_VISIT_ID
1007: FROM AHL_VISITS_VL AVTS, AHL_SIMULATION_PLANS_VL ASPV,
1008: CSI_ITEM_INSTANCES CSIS, HR_ALL_ORGANIZATION_UNITS HROU,
1009: BOM_DEPARTMENTS BDPT, MTL_SYSTEM_ITEMS_B_KFV MTSB,
1010: FND_LOOKUP_VALUES_VL FLVT, FND_LOOKUP_VALUES_VL FLVT1,
1011: FND_LOOKUP_VALUES_VL FLVT2, FND_LOOKUP_VALUES_VL FLVT3,
1093: c_visit_rec c_visit%ROWTYPE;
1094:
1095: -- To find out all visit/template details
1096: CURSOR c_visit_details (x_id IN NUMBER) IS
1097: SELECT * FROM AHL_VISITS_VL
1098: WHERE VISIT_ID = x_id;
1099:
1100: visit_rec c_visit_details%ROWTYPE;
1101:
1421: FROM dual;
1422:
1423: -- To find whether id already exists
1424: CURSOR c_id_exists (x_id IN NUMBER) IS
1425: SELECT 1 FROM Ahl_Visits_VL
1426: WHERE Visit_id = x_id;
1427:
1428: -- To find the maximum visit number among all visits
1429: CURSOR c_visit_number IS
2320:
2321: -- Define local Cursors
2322: -- To find visit related information
2323: CURSOR c_visit (x_visit_id IN NUMBER) IS
2324: SELECT * FROM AHL_VISITS_VL
2325: WHERE VISIT_ID = x_visit_id;
2326: c_visit_rec c_visit%ROWTYPE;
2327:
2328: -- To find task related information for a visit
2835:
2836: -- Define local Cursors
2837: -- To find visit related information
2838: CURSOR c_Visit(x_id IN NUMBER) IS
2839: SELECT * FROM Ahl_Visits_VL
2840: WHERE VISIT_ID = x_id;
2841:
2842: c_Visit_rec c_Visit%ROWTYPE;
2843:
3994:
3995: -- Define local Cursors
3996: -- To find visit related information
3997: CURSOR c_Visit(x_id IN NUMBER) IS
3998: SELECT * FROM Ahl_Visits_VL
3999: WHERE VISIT_ID = x_id;
4000:
4001: l_visit_rec c_Visit%ROWTYPE;
4002:
4625: IF p_validation_mode = Jtf_Plsql_Api.g_create AND p_Visit_rec.VISIT_ID IS NOT NULL
4626: THEN
4627:
4628: IF Ahl_Utility_Pvt.check_uniqueness(
4629: 'Ahl_Visits_VL',
4630: 'VISIT_ID = ' || p_Visit_rec.VISIT_ID
4631: ) = Fnd_Api.g_false THEN
4632:
4633: IF Fnd_Msg_Pub.check_msg_level (Fnd_Msg_Pub.g_msg_lvl_error) THEN
4644: -- check if VISIT NUMBER is UNIQUE
4645: IF p_validation_mode = Jtf_Plsql_Api.g_create THEN
4646: IF (p_Visit_rec.VISIT_NUMBER IS NOT NULL) THEN
4647: l_valid_flag := Ahl_Utility_Pvt.Check_Uniqueness (
4648: 'Ahl_Visits_VL',
4649: 'VISIT_NUMBER = ''' || p_Visit_rec.VISIT_NUMBER || ''''
4650: );
4651: END IF;
4652: ELSE
4651: END IF;
4652: ELSE
4653: IF (p_Visit_rec.VISIT_NUMBER IS NOT NULL) THEN
4654: l_valid_flag := Ahl_Utility_Pvt.Check_Uniqueness (
4655: 'Ahl_Visits_VL',
4656: 'VISIT_NUMBER = ''' || p_Visit_rec.VISIT_NUMBER ||
4657: ''' AND VISIT_ID <> ' || p_Visit_rec.VISIT_ID
4658: );
4659: END IF;
4717: l_cost_price_rec AHL_VWP_VISIT_CST_PR_PVT.Cost_price_rec_type;
4718: -- Define local Cursors
4719: -- To find visit related information
4720: CURSOR c_visit (x_id IN NUMBER) IS
4721: SELECT * FROM AHL_VISITS_VL
4722: WHERE VISIT_ID = x_id;
4723: c_visit_rec c_visit%ROWTYPE;
4724:
4725: -- To find task related information
5176:
5177: -- Define local Cursors
5178: -- To find visit related information
5179: CURSOR c_visit (x_visit_id IN NUMBER) IS
5180: SELECT * FROM AHL_VISITS_VL
5181: WHERE VISIT_ID = x_visit_id;
5182: c_visit_rec c_visit%ROWTYPE;
5183:
5184: -- To find task related information for a visit
5542: -- Define local Cursors
5543:
5544: -- To find visit related information
5545: CURSOR c_Visit(x_visit_id IN NUMBER) IS
5546: SELECT * FROM Ahl_Visits_VL
5547: WHERE VISIT_ID = x_visit_id;
5548:
5549: c_Visit_rec c_Visit%ROWTYPE;
5550: l_org_id NUMBER;