[Home] [Help]
78: FROM AHL_VISIT_TYPE_STAGES_B AVTSB
79: WHERE VISIT_TYPE_ID = p_visit_type_id);
80:
81: -- Delete Stage Links
82: DELETE FROM AHL_VST_TYP_STAGE_LINKS
83: WHERE OBJECT_ID IN (SELECT VISIT_TYPE_STAGE_ID
84: FROM AHL_VISIT_TYPE_STAGES_B AVTSB
85: WHERE VISIT_TYPE_ID = p_visit_type_id)
86: OR SUBJECT_ID IN(SELECT VISIT_TYPE_STAGE_ID
779: END LOOP;
780:
781: -- All the stage links of all the stages of the Visit type are copied into new records
782: INSERT INTO
783: AHL_VST_TYP_STAGE_LINKS
784: (VISIT_TYPE_STAGE_LINK_ID ,
785: OBJECT_ID ,
786: SUBJECT_ID ,
787: RELATION_TYPE ,
809: ATTRIBUTE14 ,
810: ATTRIBUTE15
811: )
812: SELECT
813: AHL_VST_TYP_STAGE_LINKS_S.nextVal ,
814: STAGES2.VISIT_TYPE_STAGE_ID ,
815: STAGES3.VISIT_TYPE_STAGE_ID ,
816: LINKS.RELATION_TYPE ,
817: LINKS.SECURITY_GROUP_ID ,
836: LINKS.ATTRIBUTE12 ,
837: LINKS.ATTRIBUTE13 ,
838: LINKS.ATTRIBUTE14 ,
839: LINKS.ATTRIBUTE15
840: FROM AHL_VST_TYP_STAGE_LINKS LINKS,
841: AHL_VISIT_TYPE_STAGES_B Stages1,
842: AHL_VISIT_TYPE_STAGES_B Stages2,
843: AHL_VISIT_TYPE_STAGES_B Stages3
844: WHERE LINKS.OBJECT_ID = Stages1.VISIT_TYPE_STAGE_ID
932:
933: UNION ALL
934:
935: SELECT MAX(LINKS.LAST_UPDATE_DATE) LAST_UPDATE_DATE
936: FROM AHL_VST_TYP_STAGE_LINKS LINKS, AHL_VISIT_TYPE_STAGES_B STAGES, AHL_VISIT_TYPES_B VST_TYP
937: WHERE VST_TYP.VISIT_TYPE_ID = STAGES.VISIT_TYPE_ID
938: AND STAGES.VISIT_TYPE_STAGE_ID = LINKS.OBJECT_ID
939: AND VST_TYP.VISIT_TYPE_ID = C_VISIT_TYPE_ID
940: