Hi,

You can do a routine for to do it, for example:

set rou=""for {  set rou=$o(^rMAC(rou)) quit:rou=""  write !,rou  set lines=^rMAC(rou,0,0)  for x=lines:-1:2 {    set ^rMAC(rou,0,x+1)=^rMAC(rou,0,x)  }  set ^rMAC(rou,0,2)=$c(9)_"#include %occInclude"  set ^rMAC(rou,0,0)=lines+1  set ^rMAC(rou,0)=$now()  do COMPILE^%RCOMPIL(rou,"MAC",.success)}

Regards

Manel

Hi John,

My sample was using PCL but I don't know what printer are you using.

First thing should be to know what escape sequence do you need to send to the printer for to get bold.

Escape sequences are different if printer is HP, Epson, etc...

My suggestion is to check first doing an open printer, use printer, write escape sequence text, close printer if printer is doing bold.

After to get the correct escape sequence, you can write a mnemonic routine for to get bold in terminal, printer1, etc.. without change your code.

You will need different mnemonic routines for different printer types.

Hope this helps

Manel

Another option is to use the open command where first argument is the OS command. Then you can get the answer from OS. For example:

 set old=$zu(68,40,1) ; Enable $zeof kill ^TMP($zn,$j) set cmd="find /logs/* -printf '%Td/%Tm/%TY %f\n'" open cmd:"Q" use cmd for x=1:1 read line quit:$zeof=-1 set ^TMP($zn,$j,"FILE",x)=line close cmd if $zu(68,40,old) // Restore previous mode

Regards

Manel

Hi Sagun,

I would check after Execute, the Vism property Error or ErrorName. If there is any error, you should see there.

Regards

Manel

Another solution:

quine  for x=1:1:^ROUTINE($zn,0,0) write !,$g(^ROUTINE($zn,0,x))

USER>d ^quine
 
quine
        for x=1:1:^ROUTINE($zn,0,0) write !,$g(^ROUTINE($zn,0,x))
USER>

Hi Edoeard,

Try adding parameter CHARSET:

/// Main TDF REST service entry pointClass TDF.Main Extends%CSP.REST
{

Parameter CHARSET = "UTF-8";

Regards

Manel

Similar to Robert solution but using for:

setx="1,4,6,8,9,12"forwrite !,+xsetx=$p(x,",",2,*) quit:x=""1468912

Hi James, I'm sending same exercise with asteroids 😂

novice
    do {
        for  {
            read !,"Enter time HH:MM:SS :",hr#2if hr=""quitread":",min#2,":",sec#2if hr '?2n!(hr >23) write !,"hr  must be a number between 0 and 23"continueif min'?2n!(min>59) write !,"min must be a number between 0 and 59"continueif sec'?2n!(sec>59) write !,"sec must be a number between 0 and 59"continuequit
        }
        if$l(hr) {
            write !,"Equivalent M time: ",$$ConvertToMTime(hr,min,sec)
            write" ",$zth(hr_":"_min_":"_sec)
        }
    } while$l(hr)
    quit

ConvertToMTime(h,m,s)
    quit (h*3600)+(m*60)+s

Hi Richard,

Parameter 1 is namespace where routine1 is.

Parameter 2 is routine1 name

Parameter 3 is namespace where routine2 is.

Parameter 4 is routine2 name

Parameter 5 is global where differences are saved.

If you want to compare same routine in different servers, you should use ECP for to see the other namespace.

Syntax for to call it:

USER>do##class(%Library.Routine).RoutineCompare("USER","routine","TEST","routine","^x")
 
USER>d^%GFor help on global specifications DO HELP^%G
Global ^x^x(1)=$lb("","","+372",$c(9)_"; New comment")

I think it would be better to have a small front-end that connects to a server1 and export routine1, connets to server 2 for to get routine2 and then compare both text file using any compare program like Beyond Compare 4

Regards

Manel