Datos personalizados con %Populate

Estimados

Todos ya conocerán las propiedad y facilidades que entrega %Populate para las clases registradas, es una herramienta muy útil a la hora de realizar alguna demostración o presentación. Sin embargo, también habrán notado que por defecto tiene un set de datos localizado y creado para Estados Unidos lo que en algunas situaciones puede ser una dificultad.

Es por esta razón que les dejo este pequeño ejemplo de cómo usar POPSPEC para poder localizar y crear nuestro propio conjunto de datos de prueba.

En primer lugar creemos nuestra clase persistente:

 Class Demo.Paciente Extends (%Persistent, %Populate)
{ 
   Property Nombre As %String(POPSPEC = "##class(Demo.Data).Nombres()"); 
   Property ApellidoPaterno As %String(POPSPEC = "##class(Demo.Data).Apellidos()"); 
   Property ApellidoMaterno As %String(POPSPEC = "##class(Demo.Data).Apellidos()"); 
   Property Genero As %String(VALUELIST = "-M-F-D-O"); 
}

Notemos el uso de la opción POPSPEC, la cual determina cual será la fuente de datos al utilizar %Populate()

 POPSPEC = "##class(Demo.Data).Nombres()"

A continuación definamos este origen de datos con un pequeño ejemplo que entregará Nombres y Apellidos al azar

 Class Demo.Data Extends %RegisteredObject
{ 
 ClassMethod Nombres() As %String
 {
  set a = []
  do a.%Push("José")
  do a.%Push("Juan")
  do a.%Push("Pedro")
  do a.%Push("Raúl")
  do a.%Push("Marcelo")
  do a.%Push("Rodrigo")
  do a.%Push("Joel")
  do a.%Push("Bernardo")
  do a.%Push("Miguel") Return a.%Get($Random(a.%Size()))
 } 
 ClassMethod Apellidos() As %String
 {
  set a = []
  do a.%Push("Martínez")
  do a.%Push("González")
  do a.%Push("Perez")
  do a.%Push("Espinoza")
  do a.%Push("Arias")
  do a.%Push("Prieto")
  do a.%Push("Oyanedel")
  do a.%Push("Castro")
  do a.%Push("San Martín") Return a.%Get($Random(a.%Size()))
 }
}

Luego compilamos y probemos el resultado desde el terminal

NAMESPACE>do ##class(Demo.Paciente).Populate(100)

Y finalmente veamos el resultado en la tabla asociada a nuestra clase.

Espero que esta información les sea de utilidad.