Mumpster
https://mumpster.org/

$ZN in MumpsV1 ?
https://mumpster.org/viewtopic.php?f=13&t=1749
Page 1 of 1

Author:  cais28 [ Sun Jul 07, 2013 5:20 am ]
Post subject:  $ZN in MumpsV1 ?

Hi

Some MUMPS implementation use the $ZN formula for actual routine name string .
In MUMPSV1 actual routine name string is = $G(^$J($J,"ROUTINE_NAME"))

BUT , if use in routine EXECUTE and in the executed commands string including this $G(^$J($J,"ROUTINE_NAME")) , return a empty string !!

My alternate solution , the STACK trace , something like :

Code:
%ZN()   ;Return Main routine name from STACK [ 07/07/2013 14:09 PM ]
        N 
        S %mref="",%st=0 F  Q:$F(%mref,"^")!(%st>99)  S %st=%st+1,%mref=^$J($J,"$STACK",^$J($J,"$STACK")-%st,"PLACE")
        Q $P(%mref,"^",2)


Usage : W $$^%ZN

Another idea ??

Author:  Eugene Karataev [ Mon Jul 08, 2013 3:43 am ]
Post subject:  Re: $ZN in MumpsV1 ?

Try to use function $TEXT inside routine context
$t(+0) is a special case of the $text argument to return current routine executed.

Author:  cais28 [ Mon Jul 08, 2013 1:36 pm ]
Post subject:  Re: $ZN in MumpsV1 ?

This $t(+0) working inside routine , but in EXECUTE return empty string

Code:
;Test EXECUTED $ZN in MumpsV1
     W !,"ROUTINE="_$T(+0)
     S XS="ROUTINE=",XX="W !,XS_$T(+0)"
     X XX
     Q



[TMP]MCL> D ^BB

ROUTINE=BB
ROUTINE=
[TMP]MCL>

Author:  sahilbhandari [ Thu Nov 21, 2019 2:00 am ]
Post subject:  Re: $ZN in MumpsV1 ?

Great Information.Thank You :)

Author:  sanavigupta [ Mon Nov 25, 2019 11:49 pm ]
Post subject:  Re: $ZN in MumpsV1 ?

Great Post :)

Page 1 of 1 All times are UTC - 8 hours [ DST ]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/