Cerner CCL (Cerner Command Language) es el lenguaje de programación de cuarta generación de Cerner Corporation , que se expresa en Cerner Discern Explorer . [1] CCL sigue el modelo del lenguaje de consulta estructurado (SQL). Todo el software de tecnología de la información sanitaria de Cerner Millennium utiliza CCL/Discern Explorer para seleccionar, insertar, actualizar y eliminar de una base de datos de Cerner Millennium y permite a un programador obtener datos de una base de datos Oracle y mostrarlos como el usuario desea verlos. Con características como la estructura de registros y subrutinas, permite a un usuario obtener datos de una base de datos y manipularlos almacenándolos en una estructura temporal; ejecutar una sección particular del código, si es necesario, utilizando una subrutina.
Cerner Corporation proporciona la versión completa para CCL (Cerner Command Language) .
Discern Explorer ofrece varias aplicaciones que se pueden utilizar para crear, ejecutar y analizar consultas, informes y programas ad hoc. Estas aplicaciones proporcionan flexibilidad en el conjunto de habilidades necesarias para crear programas y diseñar informes. Los programas de Discern Explorer se pueden escribir utilizando VisualExplorer.exe (VE), DiscernVisualDeveloper.exe (DVDev), un editor de línea de comandos del sistema operativo o cualquier otro editor de texto. ExplorerMenu.exe (EM) se utiliza para ejecutar programas de Discern Explorer a pedido. ExplorerAnalyzer.exe (EA) permite a sus usuarios analizar los recursos del sistema utilizados por las consultas RDBMS .
Ejemplos de CCL Hola Mundo:
llamar echo("¡Hola mundo!") irsoltar programa helloworld2 ircrear programa helloworld2 llamar a echo("¡Hola mundo!")fin irsoltar programa helloworld3 ircrear programa helloworld3 PINTAR llamar TEXTO(1,1, "¡Hola mundo!")fin ir
PROGRAMA DE DESCARGA JCMCLASS1A IR CREAR PROGRAMA JCMCLASS1A CREAR CLASE c_pat ;La clase c_pat es un tipo de clase de ejemplo que encapsula los miembros demográficos así como los ;métodos necesarios para operar en esta clase. ;La clase consta de secciones opcionales con miembros y métodos indicados con un espacio de nombres. init ;constructor de clase llamar a echo("init c_pat class section") DECLARE _::pvar1 = vc WITH CONSTANT("pvar1 test") ;miembro de instancia de clase (predeterminado si se omite el espacio de nombres) DECLARE class::pvar2 = vc WITH NOCONSTANT("pvar2 test");miembro de clase compartido entre instancias DECLARAR _::pvar3 = vc CON CONSTANTE("prueba pvar3") DECLARE private::pvar4 = i4 ;miembro de instancia de clase privada DECLARAR _::nombre_instancia = vc REGISTRO _::rec1( 1 calificación 2 fecha_de_nacimiento_tm = dq8 2 carreras = c2 2 religión = c2 2 años = i4 2 meses = i4 2 días = i4 ) DECLARAR _::set_month(año=i4,mes=i4,día=i4) = null llamar a echo(build("class::pvar2=",class::pvar2)) SUBRUTINA _::set_month(año,mes,día) SET _::rec1->año = año SET _::rec1->mes = mes ESTABLECER _::rec1->día = día FIN;subrutina FIN;constructor de clase FINAL ;destructor de clase llamar a echo(build("sección de instancia de clase c_pat final:",nombre_instancia)) FIN; destructor de clase CON copia=1 FIN IR PROGRAMA DE DESCARGA JCMCLASS1 IR CREAR PROGRAMA JCMCLASS1 ejecutar jcmclass1a ;cargar definición de clase declara c1::i_patient1 = null con clase(c_pat) ;declara la primera instancia de la clase c_pat declara c1::i_patient2 = null con clase(c_pat) ;declara segunda instancia de la clase c_pat llamar a echo(">>>variable de clase") establecer c1::i_patient1.nombre_instancia = "c1::i_patient1" establecer c1::i_patient2.nombre_instancia = "c1::i_patient2" llamar a echo(">>>miembro del registro de clase") establecer c1::i_patient1.rec1->birth_dt_tm = cnvtdatetime("01-ENE-2012 08:30.00") establecer c1::i_patient2.rec1->birth_dt_tm = cnvtdatetime("01-FEB-2013 10:30.00") llamar a echo(">>>función de clase") llamar a c1::i_patient1.set_month(2012,10,16) llamar a c1::i_patient2.set_month(2012,06,10) llamar a echo(build("nombre_instancia=",c1::i_patient1.nombre_instancia)) llamar a echo(build("nombre_instancia=",c1::i_patient2.nombre_instancia)) llamar a echorecord(c1::i_patient1.rec1) llamar a echorecord(c1::i_patient2.rec1) si ($1=1) llamar a trace(38) fin si ;muestra información de la clase usando class(<class_instance>,<class_info_id>[,<mode>]) declarar class_info=vc declarar cid = i4 establecer cid = 1 mientras (cid > 0) establecer info_de_clase = clase(c1::i_paciente1,cid,1) si (class_info=" ") establecer cid = 0 de lo contrario llamar a echo(class_info) establecer cid=cid+1 fin si mientras tanto establecer cid = 1 mientras (cid > 0) establecer info_clase = clase(c1::i_paciente1,cid,3) si (class_info=" ") establecer cid = 0 de lo contrario llamar a echo(class_info) establecer cid=cid+1 fin si mientras tanto establecer curalias r1 c1::i_patient1.rec1->qual Establezca r1->race="AB" seleccionar en nl desde dummyt detalle llamar a echo(build("report=",c1::i_patient1.instance_name)) llamar a echo(r1->race) Sin contador llamar a echo(build(">>>>>>>>>>>c1::i_patient1=",c1::i_patient1)) conjunto libre c1::i_patient1 conjunto libre c1::i_patient2 si ($1=2) llamar a trace(38) fin si FIN IR