declare @plantilla NUMERIC
select @plantilla = max(NumIdplantilla) 
	from Merlin_Plantillas

if(@plantilla is null )
	set @plantilla = 1
else 
	set @plantilla = @plantilla + 1

INSERT INTO dbo.Merlin_Plantillas (NumIdPlantilla, StrDescripcionPlantilla, DatFechaCreacion, StrUsuario, NumIdCss, BitRequiereIdentificarTerceros, BitRequiereFirma, IntModoEncriptar, StrArchivo, StrArchivoImpresion)
VALUES (@plantilla, 'EVOLUCION NEUROVID', '2026-06-15 18:44:00.987', 'sbetancur', 0, 1, 1, 0, 'Cl-18779', '')

INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@plantilla, 1, 'Datos Generales', 'BackColor = 14171687,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 14171687, TitleWidth=100, CAPTION="*++**++*"', 1)

INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@plantilla, 2, 'OBSERVACIONES', 'BackColor = 14171687,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 14171687, TitleWidth=100, CAPTION="*++**++*"', 2)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 767, 'NOMBRE', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="NOMBRE"', '', 1, 1)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 768, 'DOCUMENTO IDENTIDAD', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .T.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="DOCUMENTO IDENTIDAD"', '', 1, 2)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 769, 'FECHA NACIMIENTO', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="FECHA NACIMIENTO"', '', 1, 3)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 770, 'EDAD', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="EDAD"', '', 1, 4)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 771, 'COLEGIO', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="COLEGIO"', '', 1, 5)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 772, 'ESCOLARIDAD', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="ESCOLARIDAD"', '', 1, 6)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 773, 'NOMBRE DEL ACOMPAÑANTE', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="NOMBRE DEL ACOMPAÑANTE"', '', 1, 7)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 774, 'TELEFONO', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="TELEFONO"', '', 1, 8)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 775, 'PROFESIONAL', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="PROFESIONAL"', '', 1, 9)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 776, 'AREA', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 50, CAPTION="AREA"', '', 1, 10)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 777, 'FECHA', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 25, CAPTION="FECHA"', '', 2, 1)

INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@plantilla, 778, 'OBSERVACIONES', 1, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 75, CAPTION="OBSERVACIONES"', '', 2, 2)


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 767, 1024, 'NOMBRE DEL PACIENTE', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrNombreUsuario"),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 768, 1025, 'NUMERO DOCUMENTO', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrNitUsuario"),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 769, 1033, 'FECHA NACIMIENTO', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"DatFechaNacimiento"&4&"Merlin&5&Terceros&5&DatosPaciente"),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 770, 1026, 'AÑOS', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = CALCULAREDAD(GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"DatFechaNacimiento"&4&"Merlin&5&Terceros&5&DatosPaciente")&4& DATE()&4&.T.),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 771, 1027, 'COLEGIO', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 772, 1028, 'ESCOLARIDAD', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 773, 1029, 'NOMBRE DEL ACOMPAÑANTE', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.f.&4&&6&StrNombreContacto &6&&4&&6&merlin&5&vw&5&contratos&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 774, 1030, 'TELEFONO DEL ACOMPAÑANTE', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.f.&4&&6&StrtelefonomovilContacto&6&&4&&6&merlin&5&vw&5&contratos&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 775, 1031, 'NOMBRE DEL PROFESIONAL', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtiende&4&.f.&4&&6&StrNombreUsuario&6&&4&&6&merlin&5&vw&5&contratos&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 776, 1032, 'OCUPACION PROFESIONAL', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = gtp&5&titulos&5&prof(THIS.parent.Hist&5&NumIdterceroAtiende),TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 777, 1034, 'FECHA DE LA OBSERVACION', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')

INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@plantilla, 778, 1035, 'ANOTACIONES', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = []')


