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,"_^
G S %D=$O(@(%E_")")) I %D="" K %D,%E,%X,%Y,^($J,^UTILITY("%
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:%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 %R2=$P($E(%R,1,($L(%R)-($E(%R,
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,
)!(($L(%G,"""")#2)&($E(%G)="""
Q %R1_%R2
S(%Z) ;
I $G(%Z)']"" Q ""
I $E(%Z)'="""",$L(%Z,"E")=2,+$P(
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="^
K ^($J,^($J))
Q
OS ;
S $P(^%ZOSF("OS"),"^",2)=DITZS
K DITZS S ZTREQ="@"
Q