DECLARE @m_IdPlantilla NUMERIC 

SELECT @m_IdPlantilla = max(NumIdPlantilla) FROM Merlin_Plantillas

IF (@m_IdPlantilla IS NULL) 
	SET @m_IdPlantilla = 1
ELSE 
	SET @m_IdPlantilla  = @m_IdPlantilla + 1  

	
INSERT INTO dbo.Merlin_Plantillas (NumIdPlantilla, StrDescripcionPlantilla, DatFechaCreacion, StrUsuario, NumIdCss, BitRequiereIdentificarTerceros, BitRequiereFirma, IntModoEncriptar, StrArchivo, StrArchivoImpresion)
VALUES (@m_IdPlantilla, 'HISTORIA CLINICA.', '2015-10-21 11:02:38.267', 'Primordial', 0, 1, 1, 0, 'Cl-7570', 'Cl-6919')


INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@m_IdPlantilla, 1, 'Datos del Usuario', '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_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@m_IdPlantilla, 2, 'ANTECEDENTES.', '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_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@m_IdPlantilla, 4, 'EXAMEN OFTALMOL�GICO Y OPTOM�TRICO', '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="*++**++*"', 4)


INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@m_IdPlantilla, 6, 'DIAGN�STICO', '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="*++**++*"', 6)


INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@m_IdPlantilla, 7, 'PLAN DE MANEJO Y TRATAMIENTO', '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="*++**++*"', 7)


INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@m_IdPlantilla, 8, 'MOTIVO DE CONSULTA Y ENFERMEDAD ACTUAL', '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="*++**++*"', 3)


INSERT INTO dbo.Merlin_Plantillas_Secciones (NumIdplantilla, IntIdSeccion, StrSeccion, StrListaPropiedades, IntOrden)
VALUES (@m_IdPlantilla, 9, 'Fecha de Atenci�n', '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_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 26, 'Primer Nombre', 12, 'Primer Nombre', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 25, CAPTION="Primer Nombre"', '', 1, 1)


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


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 28, 'Primer Apellido', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 25, CAPTION="Primer Apellido"', '', 1, 3)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 29, 'Segundo Apellido', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 25, CAPTION="Segundo Apellido"', '', 1, 4)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 30, 'Tipo de Documento', 12, 'Tipo de documento', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 15, CAPTION="Tipo de Documento"', '', 1, 5)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 31, 'N�mero de Documento', 12, 'N�mero de Documento', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 18, CAPTION="N�mero de Documento"', '', 1, 6)


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


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 33, 'Fecha de Nacimiento', 12, 'Fecha de Nacimiento', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 18, CAPTION="Fecha de Nacimiento"', '', 1, 8)


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


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


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 36, 'Ocupaci�n del Usuario', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 19, CAPTION="Ocupaci�n del Usuario"', '', 1, 11)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 37, 'Direcci�n Usuario', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 20, CAPTION="Direcci�n Usuario"', '', 1, 12)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 38, 'Municipio', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 15, CAPTION="Municipio"', '', 1, 13)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 39, 'Departamento', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 15, CAPTION="Departamento"', '', 1, 14)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 40, 'Tel�fono Fijo', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 15, CAPTION="Tel�fono Fijo"', '', 1, 15)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 41, 'Tel�fono Celular', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 15, CAPTION="Tel�fono Celular"', '', 1, 16)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 42, 'Correo electr�nico', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 20, CAPTION="Correo electr�nico"', '', 1, 17)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 43, 'Nombre del Contacto en caso de emergencia', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 34, CAPTION="Nombre del Contacto en caso de emergencia"', '', 1, 18)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 44, 'Parentesco', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 11,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 34, CAPTION="Parentesco"', '', 1, 19)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 45, 'Tel�fono', 12, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 12,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 32, CAPTION="Tel�fono"', '', 1, 20)


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 46, 'ANTECEDENTES OFTALMOL�GICOS Y OPTOM�TRICOS', 1, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 100, CAPTION="ANTECEDENTES OFTALMOL�GICOS Y OPTOM�TRICOS"', '', 2, 1)


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


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


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 52, 'ANTECEDENTES  PERSONALES Y FAMILIARES', 1, '', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 100, CAPTION="ANTECEDENTES  PERSONALES Y FAMILIARES"', '', 2, 2)


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


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


INSERT INTO dbo.Merlin_PlantillasEncabezado (NumIdPlantilla, NumIdEncPlantilla, StrEncabezado, IntIdTipoPresentacion, StrDescripcionEncabezado, StrListaPropiedadesEncabezado, StrNombreObjeto, IntIdSeccion, IntOrden)
VALUES (@m_IdPlantilla, 87, 'Fecha de Atenci�n', 12, '1', 'BackColor = 16697265,BorderStyle = 0,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,AutoSize = .F.,BackStyle = 1,LineColor = 16625811,TitleWidth = 100, CAPTION="Fecha de Atenci�n"', '', 9, 1)


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


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


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


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 26, 64, 'Primer Nombre', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"PrimerNombre"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 27, 65, 'Segundo Nombre', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"SegundoNombre"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 28, 66, 'Primer Apellido', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"PrimerApellido"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 29, 67, 'Segundo Apellido', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"SegundoApellido"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 30, 68, 'Tipo Documento', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrDescripcionTipoIdentificacion"&4&"merlin&5&vw&5&contratos"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 31, 69, 'N�mero de Documento', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,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 (@m_IdPlantilla, 32, 70, 'Sexo', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = IIF(gtp(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"IntIdSexo"&4&"Merlin&5&vw&5&Terceros&5&DatosPaciente")&1&2&4&"Mujer"&4&"Hombre"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 33, 71, 'Fecha Nacimiento', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = DTOC(TTOD(gtp(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"DatFechaNacimiento"&4&"Merlin&5&vw&5&Terceros&5&DatosPaciente"))),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 34, 72, 'Edad', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,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 (@m_IdPlantilla, 35, 73, 'Estado civil', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = gtp(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrDescripcionEstadoCivil"&4&"Merlin&5&vw&5&Terceros&5&DatosPaciente"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 36, 74, 'Ocupaci�n del Usuario', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrDescripcionProfesionOcupacion"&4&"Merlin&5&vw&5&Terceros&5&DatosPaciente"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 37, 75, 'Direcci�n Usuario', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrNombregeograficoDomicilio"&4&"Merlin&5&vw&5&Terceros&5&DatosPaciente"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 38, 76, 'Municipio', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrNombregeograficoDomicilio"&4&"Merlin&5&vw&5&Terceros&5&DatosPaciente"),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 39, 77, 'Departamento', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 40, 78, 'Tel�fono Fijo', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = gep(&6&StrTelefono&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 41, 79, 'Tel�fono  Celular', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = GTP(THIS.parent.Hist&5&NumIdterceroAtendido&4&.F.&4&"StrTelefono"&4&"merlin&5&vw&5&contratos,TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 42, 80, 'Correo electr�nico', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 43, 81, 'En caso de urgencia avisar', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 44, 82, 'Parentesco', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 45, 83, 'Telefono', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = [],TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 46, 84, 'ANTECEDENTES  OFTALMOL�GICOS', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = []')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 49, 88, 'DIAGNOSTICO', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = []')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 50, 89, 'PLAN DE MANEJO Y TRATAMIENTO', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = []')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 52, 90, 'PERSONALES Y  FAMILIARES', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = []')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 54, 92, 'MOTIVO DE CONSULTA Y ENFERMEDAD ACTUAL', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 10,FontUnderline = .F.,ForeColor = 0,DataSource = []')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 86, 125, '.', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = [AV &3& OD&3& 20/]+CHR(13)+CHR(13)+[AV &3& OI&3& 20/]+CHR (13)+CHR(13)+[PUPILAS&3& Normales]+CHR(13)+CHR(13)+[HIRSCHBERG&3&Centrado]+CHR(13)+CHR(13)+[BALANCE&3&Normal AO]+CHR(13)+CHR(13)+[BIO&3&AO]+CHR(13)+CHR(13)+[TA&3&AO]+CHR(13)+CHR(13)+[FO&3&]')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 87, 126, 'Fecha de Atencion', 'BorderStyle = 1,FontBold = .F.,FontItalic = .F.,FontName = "Tahoma",FontSize = 9,FontUnderline = .F.,ForeColor = 0,DataSource = SRVDATE(&6&FH&6&),TitleToLeft = .F.,TitleToLeftWidth = 50')


INSERT INTO dbo.Merlin_PlantillasSubEncabezado (NumIdPlantilla, NumIdEncPlantilla, NumIdSubEncPlantilla, StrSubEncabezado, StrListaPropiedadesDetalle)
VALUES (@m_IdPlantilla, 91, 127, 'niosCopia', 'BorderColor = 0, CAPTION="niosCopia"')




