User bio
404 bio not found
Titusville FL
Member since Dec 12, 2025
Posts:
Dmitry has not published any posts yet.
Replies:

Happy New Year, Robert!

since my IRIS does not allow the 'public' word, I had to refactor the code this way:

Method jsn(jsn As %String = "")
{
    if $e(jsn)="{" {
        do ..ZPretty(jsn)
    } else {
        write "<UNDEFINED>"
    }
    quit
}

Method ZPretty(input As %String = "") As %String
{
    if $e(input)="{" {
        do ##class(%JSON.Formatter).%New().Format(input)
    } else {
        write "<UNDEFINED>"
    }
    quit ""
}

/// list of prepared tests	
Method Menu(ByRef go As %Boolean = 1)
{
	read !,"Populate Person by:",pop,!
	if pop write ?5,..iris.ClassMethodValue("ONAPI.Person","Populate",pop)
	read !,"Populate Company by:",pop,!
	if pop write ?5,..iris.ClassMethodValue("ONAPI.Company","Populate",pop)
	read !,"Populate Employee by:",pop,!
	if pop write ?5,..iris.ClassMethodValue("ONAPI.Employee","Populate",pop),!
	read !,"Show Person by ID:",pop,!
    if pop do ..jsn(..iris.ClassMethodValue("ONAPI.Person","JSON",pop)) 
	read !,"Show Company by ID:",pop,!
    if pop do ..jsn(..iris.ClassMethodValue("ONAPI.Company","JSON",pop))
	read !,"Show Employee by ID:",pop,!    
    if pop do ..jsn(..iris.ClassMethodValue("ONAPI.Employee","JSON",pop))
    read !,"Show Global PersonD by ID:",pop,!
    if $l(pop) {
	    set d=..iris.IsDefined("ONAPI.PersonD",$s(pop:pop,1:""))
	    write ?5,"$Data()=",d,!
	    if d#10 {
		    set Value=..iris.Get("ONAPI.PersonD",pop)
		    write ?5 zwrite Value  
    		}
		}
	read "Index list for Person & Employee (n,y):",pop,! 		
	if $l(pop),"Yy"[$e(pop) {
		set idx=""
		for  { 
			set idx=..iris.GetNext(1,,,"ONAPI.PersonI",idx)
			if $l(idx) write ?5,idx,!
			else  quit	
			} 
		}
	read "Exit Demo (n,y,*):",pop,!		
	if $l(pop),"*Yy"[$e(pop) set go=0
	quit
}
Certifications & Credly badges:
Dmitry has no Certifications & Credly badges yet.
Global Masters badges:
Dmitry has no Global Masters badges yet.
Followers:
Dmitry has no followers yet.
Following: