Question
· Nov 14, 2019

Basic question: how to edit?

I want to edit this routine to replace "Cache" with "IRIS" how do I do that in Intersystems Google Cloud environment?  The portal  System > Routines  doesn't seem to show much. 

RPMS>ZL %RCR ZP

DIRCR    ;SFISC/GFT-DELETE THIS LINE AND SAVE AS '%RCR'*** ;12:18 PM  20 Apr 1993 [ 04/02/2003   8:23 AM ]

         ;;22.0;VA FileMan;**1001**;APR 1, 2003

         ;;22.0;VA FileMan;;Mar 30, 1999

         ;THIS ROUTINE CONTAINS AN IHS MODIFICATION BY IHS/MFD

         ;Per VHA Directive 10-93-142, this routine should not be modified.

%RCR     ;GFT/SF

         ;

STORLIST ;

         ;----- BEGIN IHS MODIFICATION

         ;4 NEW LINES ARE ADDED.  ORIGINAL MODIFICATION BY IHS/MFD

         I $ZV["Cache" G IHS

         S %D="" F  S %D=$O(%RCR(%D)) Q:%D=""  ZNEW @%D

         S %E=%RCR K %RCR,%X,%Y D @%E Q

IHS      ;

         ;----- END IHS MODIFICATION

         D INIT

O        S %D=$O(%RCR(%D)) G CALL:%D=""

         I $D(@%D)#2 S @(%E_")="_%D) G O:$D(@%D)=1

         S %X=%D_"(" D %XY G O

         ;

CALL     S %E=%RCR K %RCR,%X,%Y D @%E

         S %E="^UTILITY(""%RCR"",$J,"_^UTILITY("%RCR",$J)_",%D",^($J)=^($J)-1,%D=0,%X=%E_","

G        S %D=$O(@(%E_")")) I %D="" K %D,%E,%X,%Y,^($J,^UTILITY("%RCR",$J)+1) Q

         I $D(^(%D))#2 S @%D=^(%D) G G:$D(^(%D))=1

         S %Y=%D_"(" D %XY G G

         ;

         ;

XY(%X,%Y) ;

%XY      ;

         N %A,%B,%Q,%Z

         S %A=$$R(%X),%Q=""""""

         I $P(%A,"(",2)]"",$E(%A,$L(%A))'="," S:$L($P(%A,"(",2),",")>1 %Q=$P(%A,",",$L(%A,",")),$P(%A,",",$L(%A,","

))="" S:%Q="""""" %Q=$P(%A,"(",2),$P(%A,"(",2)=""

         S %Z=%A_%Q_")",%B=$L(%A)+1

         F  S %Z=$Q(@%Z) Q:$P(%Z,%A)]""!(%Z="")  S @(%Y_$E(%Z,%B,255))=@%Z

         Q

R(%R)    ;

         N %C,%F,%G,%I,%R1,%R2

         S %R1=$P(%R,"(")_"(" I $E(%R1)="^" S %R2=$P($Q(@(%R1_""""")")),"(")_"(" S:$P(%R2,"(")]"" %R1=%R2

         S %R2=$P($E(%R,1,($L(%R)-($E(%R,$L(%R))=")"))),"(",2,99)

         S %C=$L(%R2,","),%F=1 F %I=1:1:%C S %G=$P(%R2,",",%F,%I) Q:%G=""  I ($L(%G,"(")=$L(%G,")")&($L(%G,"""")#2)

)!(($L(%G,"""")#2)&($E(%G)="""")&($E(%G,$L(%G))="""")) S %G=$$S(%G),$P(%R2,",",%F,%I)=%G,%F=%F+$L(%G,","),%I=%F-1

         Q %R1_%R2

S(%Z)    ;

         I $G(%Z)']"" Q ""

         I $E(%Z)'="""",$L(%Z,"E")=2,+$P(%Z,"E")=$P(%Z,"E"),+$P(%Z,"E",2)=$P(%Z,"E",2) Q +%Z

         I +%Z=%Z Q %Z

         I %Z="""""" Q ""

         I $E(%Z)'?1A,"%$+@"'[$E(%Z) Q %Z

         I "+$"[$E(%Z) X "S %Z="_%Z Q $$Q(%Z)

         I $D(@%Z) Q $$Q(@%Z)

         Q %Z

Q(%Z)    ;

         S %Z(%Z)="",%Z=$Q(%Z("")) Q $E(%Z,4,$L(%Z)-1)

         ;

INIT     I $D(^UTILITY("%RCR",$J))[0 S ^UTILITY("%RCR",$J)=0

         S ^($J)=^($J)+1,%D="%Z",%E="^UTILITY(""%RCR"",$J,"_^($J)_",%D",%Y=%E_","

         K ^($J,^($J))

         Q

OS       ;

         S $P(^%ZOSF("OS"),"^",2)=DITZS

         K DITZS S ZTREQ="@"

         Q

Discussion (19)2
Log in or sign up to continue

I have eclipse and Atelier installed and running. I have the ip address in and did a netstat -a to see which port is being listened on. It is choking on login credentials.  I did not setup the default id or password. That is done by google cloud when the instance is provisioned. I am using what I think is the correct id and password but it isn't going for it.  I don't know how to proceed. 

If you provisioned IRIS on Google Cloud from marketplace, you should be able to see the same page as on my screenshot. You can press the button Visit the site, which will go you to System Management Portal, where you should be able to login with the default _SYSTEM and SYS, after that it will request you to change the default password. Which you can use in VSCode or Atelier. 

Using VSCode-ObjectScript is very easy to connect to a cloud instance with IRIS.

 Just Use IP address and port from site address, login _SYSTEM and password changed after first connect. 

And write it to file, .vscode/settings.json in your project folder

{
    "objectscript.conn": {
        "active": true,
        "host": "xx.xx.xx.xx",
        "port": 52773,
        "username": "_SYSTEM",
        "password": "123",
        "ns": "USER",
    }    
}