Estamos analisando o que precisamos fazer para migrar do uso atual de relatórios Zen para o InterSystems Reports. Um dos desafios para nós é descobrir maneiras de interagir programaticamente com os relatórios do InterSystems Reports a partir de rotinas ObjectScript. Existe uma API Java para isso, mas também é possível gerar um relatório do InterSystems Reports para um objeto stream em ObjectScript sem recorrer ao Java, utilizando um %Net.HttpRequest.

1. As regras que a linguagem impõe (não são opcionais) 

   Nomes de rotinas, variáveis, classes, propriedades e métodos diferenciam maiúsculas de minúsculas. Mas comandos, funções e variáveis especiais do sistema não diferenciam: WRITE, Write, write e são todas formas válidas do mesmo comando. Isso significa que e são duas classes completamente distintas para o compilador , uma fonte clássica de bugs sutis quando a convenção de capitalização não é seguida com disciplina.

   O símbolo tem significado especial.

Quando alguém abre um código em ObjectScript pela primeira vez, depois de anos trabalhando com Java, C# ou Python, a reação costuma ser de estranhamento. Não há declaração de tipos, não há import de bibliotecas de coleções, e os arrays parecem nascer do nada, sem tamanho definido, sem inicialização. Essa estranheza inicial esconde, na verdade, duas das maiores forças do ObjectScript: sua manipulação de strings extremamente direta e seus arrays multidimensionais, os famosos globals, que funcionam simultaneamente como estrutura de dados em memória e como mecanismo de persistência em disco.

Para desmontar/montar um banco de dados, use os métodos Dismount() e Mount() na classe SYS.Database, disponível no namespace . 

Nota: o ID do banco de dados é o seu diretório (Directory). 

Você encontrará alguns exemplos de como desmontar/montar e verificar se um banco de dados está montado () ou não (), além de visualizar rapidamente todos os atributos de um banco de dados (via zwrite).

%SYS>set db="/opt/irisapp/data" 

%SYS>w ##class(SYS.Database).%OpenId(db).Mounted                     
1
%SYS>w ##class(SYS.Database).%OpenId(db).Dismount()
1
%SYS>w ##class(SYS.Database).%OpenId(db).Mounted   
0
%SYS>w ##class(SYS.Database).%OpenId(db).Mount()   
1
%SYS>w ##class(SYS.Database).%OpenId(db).Mounted
1
%SYS>zw ##class(SYS.Database).%OpenId(db)
+----------------- general information ---------------
|      oref value: 3
|      class name: SYS.Database
|           %%OID: $lb("/opt/irisapp/data","SYS.Database")
| reference count: 2
+----------------- attribute values ------------------
|       %Concurrency = 0  <Set>
|        BlockFormat = 2
|          BlockSize = 8192  <Set>
|             Blocks = 780288
|       BlocksPerMap = 62464
|   ClusterMountMode = 0  <Set>
|     ClusterMounted = 0  <Set>
|        CurrentMaps = 13
|          Directory = "/opt/irisapp/data/"  <Set>
|     DirectoryBlock = 3
|        EncryptedDB = 0  <Set>
|    EncryptionKeyID = ""
|          Expanding = 0
|      ExpansionSize = 0  <Set>
|               Full = 0
| GlobalJournalState = 3  <Get,Set>
|     InActiveMirror = 0
|  LastExpansionTime = "09/06/2023 20:00:01"
|            MaxSize = 0  <Set>
|MirrorActivationRequired = 0
|    MirrorDBCatchup = 0
| MirrorDBCreatedNew = 0
|       MirrorDBName = ""
|     MirrorDBPaused = 0
|   MirrorFailoverDB = 0
|      MirrorNoWrite = 0
|     MirrorObsolete = 0
|      MirrorSetName = ""
|           Mirrored = 0
|            Mounted = 1
| NewGlobalCollation = 5  <Set>
|NewGlobalGrowthBlock = 50  <Set>
|    NewGlobalIsKeep = 0  <Set>
|NewGlobalPointerBlock = 16  <Set>
|   NumberOfConfigDB = 0
|       ROReasonCode = 0
|       ROReasonText = ""
|           ReCreate = 0
|           ReadOnly = 0  <Set>
|    ReadOnlyMounted = 0
|       Reinitialize = 0
|        RequestSize = 0
|       ResourceName = "%DB_IRISAPP-DATA"
|RunCatchupDBOnCreate = 1
|                SFN = 6
|               Size = 6096  <Set>
|           Skeleton = 0
|           SparseDB = 0
+----------------------------------------------------- 
%SYS>

Recentemente, substituí meu laptop antigo por um novo e tive que migrar todos os meus dados. Procurei um guia, mas não consegui encontrar nada que explicasse em detalhes como migrar conexões de servidor do InterSystems Studio e do Visual Studio Code de um PC para outro. Simplesmente reinstalar as ferramentas não é suficiente, e migrar todas as conexões manualmente parecia uma perda de tempo. No final, consegui resolver o problema, e este artigo explica como.

InterSystems Studio

Exportando conexões de servidor

Migrar as conexões do Studio foi a parte mais desafiadora.

Motivação

Por que precisamos disso?

1. Falta de Contexto Compilado: As ferramentas de IA veem apenas o código-fonte; elas não sabem como a rotina compilada final realmente é.

2. Alucinação de Macros: Como a IA não vê nossos arquivos#includeou macros do sistema, ela frequentemente os “inventa”, desperdiçando tempo durante a depuração.

3. Lacuna na Documentação: A otimização de lógica mais profunda frequentemente exige compreender macros internas que não estão totalmente documentadas publicamente.

Trabalhar com arquivos geralmente começa de forma simples: abrir o arquivo, ler e processar. Essa abordagem funciona perfeitamente, até que o arquivo seja um Excel.

Uma Suposição Comum

À primeira vista, um arquivo Excel (.xlsx) parece apenas mais um arquivo de dados, linhas, colunas e valores. Nada incomum. Portanto, é natural assumir que ele pode ser lido da mesma forma que um arquivo .txt ou .csv. Mas é aí que as coisas começam a dar errado.

Por que arquivos Excel se comportam de forma diferente

A principal diferença está em como os dados são armazenados:

-> .txt / .

Trabalhando em TI na área da saúde como um desenvolvedor iniciante, especialmente com o InterSystems TrakCare, você rapidamente percebe uma coisa: não se trata apenas de mensagens HL7 ou integrações de backend. Uma grande parte de fazer o TrakCare funcionar bem nos hospitais depende de como ele é configurado, customizado e suportado no lado da aplicação.

É aí que entram pessoas como eu — desenvolvedores tecno-funcionais que entendem tanto a parte técnica quanto o impacto nos fluxos reais de trabalho hospitalares.

Não somos apenas técnicos (ou consultores funcionais)

Rubrica de FAQ da InterSystems

Se você quiser gerar um erro personalizado arbitrário dentro de um bloco TRY, pode passar uma exceção com um throw, da seguinte forma. No exemplo abaixo, um erro personalizado é gerado se Stcount for menor que 1.

ClassClassMethodtry

No exemplo acima, se for menor que 1, um erro como o seguinte será exibido:

USER>

Para mais informações, consulte a seguinte documentação:
ObjectScript command _THROW

Se você quiser criar um código de status arbitrário, faça o seguinte:

O problema

Quantas vezes migramos uma instância do IRIS para outra máquina, talvez até para outra versão, e depois de alguns dias percebemos que esquecemos aquela configuração de SSL essencial para que um Business Operation funcione? Ou talvez uma credencial, ou até uma classe solitária em um pacote isolado?

A solução

A solução simples é fazer um checklist¹. Um checklist das entidades que precisamos mover. Porém, checklists simples em documentos do Word muitas vezes são esquecidos ou simplesmente ignorados.

Alguém a fim de uma rodada de golfe?

Você está cansado de fazer uma máquina escrever código para você? Sente falta de resolver problemas por conta própria? Então você está com sorte: nesta rodada, proponho adicionar a regra de não usar IA. Obviamente, é um jogo de honra sem prêmios, então não poderei fiscalizar, mas você saberá... 

Desafio:

Crie uma função que receba uma string como parâmetro e retorne o comprimento da maior sequência de vogais e consoantes alternadas

Olá a todos,

Criei um método para calcular a idade de uma pessoa, ou a idade de um processo, contrato ou qualquer outra coisa que você quiser.

/// Calculate the age from date of birth and other date (by default shoud be today).
/// <b>dateOfBird</b> Date of birth in cache format. ie. $ZDH("1972-01-01",3)
/// <b>day</b> Date to calculate to. ie: $H
ClassMethod AgeAt(dateOfBirth, day) As %Integer{
    quit:dateOfBirth=""
    quit:day=""
    
    set yeardob=$SYSTEM.SQL.DATEPART("year",dateOfBirth)
    set yearday=$SYSTEM.SQL.DATEPART("year",day)
    
    set years=yearday-yeardob
    kill yeardob, yearday
    
    set monthdob=$SYSTEM.SQL.DATEPART("month",dateOfBirth)
    set monthday=$SYSTEM.SQL.DATEPART("month",day)
    if (monthday-monthdob)<0 set years=years-1
    if (monthdob-monthday)=0
    {
        if ($SYSTEM.SQL.DATEPART("day",day) - $SYSTEM.SQL.DATEPART("day",dateOfBirth)) < 0
        {
            set years=years-1
        }
    }
    
    kill monthdob, monthday
    quit years
}

Rubrica de FAQ da InterSystems 

Ao se conectar ao banco de dados usando uma arquitetura cliente-servidor, por exemplo, usando language binding, o nome da máquina do cliente pode ser obtido usando o seguinte código:

set client=##CLASS(%SYS.ProcessQuery).Open("P"_$j).ClientNodeName