The format for the $ORDER function is:
$O[RDER](glvn[,expr])
![]() | Note |
---|---|
Name-level $ORDER() always returns an empty string when used with extended references. |
GTM>zwrite lcl(1)=3 lcl("x")=4 GTM>write $order(lcl("")) 1
GTM>write $order(lcl(1)) x
This example returns the first node after lcl(1) that is x because lcl has no null subscript.
GTM>write $order(lcl(""),-1) x
GTM>set lcl("")=2 GTM>zwrite lcl("")=2 lcl(1)=3 lcl("x")=4 GTM>write $order(lcl("")) 1
GTM>write $order(lcl(""),-1) x GTM>write $order(lcl("x"),-1) 1
GTM>kill set (a(1),a(2000),a("CAT"),a("cat"),a("ALF"),a(12))=1 GTM>set x="" for set x=$order(a(x)) quit:x="" write !,x 1 12 2000 ALF CAT cat GTM>kill a("CAT") set a(5,10)="woolworths",a("cat")="last" GTM>set x="" for set x=$order(a(x),-1) quit:x="" write !,x cat ALF 2000 12 5 1 GTM>
GTM>kill set (%(1),tiva(2),A(3),tiv(4),Q(5),%a(6))="" GTM>set x="%" GTM>write:$data(@x) !,x for set x=$order(@x) quit:x="" write !,x % %a A Q tiv tiva x GTM>set $piece(x,"z",32)="" GTM>write:$data(@x) !,x for set x=$order(@x,-1) quit:x="" write !,x x tiva tiv Q A %a % GTM>
set acct="",cntt="" for fet acct=$order(^acct(acct)) quit:acct="" do . for set cntt=$order(^acct(acct,cntt)) do WORK quit