#InterSystems Package Manager (IPM)

Inspirado pela postagem de @Ashok Kumar Thangavel no portal de ideias aqui, bem como pelos meus próprios desejos de uma solução para este problema, criei uma maneira simples de permitir consultas JSON mais completas e consistentes sem ter que especificar cada campo desejado. Desenvolvi uma classe que estende a classe integrada %JSON.Adaptor e torna seus métodos %JSONExportToString e %JSONExportToStream acessíveis através de SQL com apenas alguns métodos SqlProc simples.

Class DH.JSONAdaptor Extends %JSON.Adaptor [ Abstract ]
{
ClassMethod jsonstring(id, map = "") [ SqlProc ]
{
	try{
		set myobj = ..%OpenId(id)
		set sc = myobj.%JSONExportToString(.json,map)
		if $$$ISERR(sc) $$$ThrowStatus(sc)
		return json
	}
		catch ex{
		throw ex
	}
}

ClassMethod jsonstream(id, map = "") [ SqlProc ]
{
	try{
		set myobj = ..%OpenId(id)
		set sc = myobj.%JSONExportToStream(.json,map)
		if $$$ISERR(sc) $$$ThrowStatus(sc)
		return json
	}
	catch ex{
		throw ex
	}
}
}

Olá, Comunidade!

O @Joan Pérez publicou uma análise mencionando que não está muito claro quais aplicativos estão disponíveis para o InterSystems Package Manager. Obrigado, Joan! De fato, isso merece uma postagem.

Existem pelo menos duas formas que conheço para visualizá-los:

1. Executar o comando find no zpm:

IRISAPP>zpm

=============================================================================
|| Welcome to the Package Manager Shell (ZPM).                             ||
|| Enter q/quit to exit the shell. Enter ?/help to view available commands ||
=============================================================================
zpm:IRISAPP>find
registry https://pm.community.intersystems.com:
analytics-okr                         1.0.0
analyzethis                           1.2.4
aoc-2021-uvg                          0.0.2
aoc2021-rcc                           0.0.2
appmsw-dbdeploy                       1.0.3
appmsw-docbook                        1.0.5
appmsw-forbid-old-passwd              1.0.4

....