cQI30 ;Global Editor ;cQI30 ; [ 01/03/01   6:50 PM ]
 ;COPYRIGHT DATA-M N.V.
 ;
 I $ZV["MSM" G ^%I30
 ;
 W !?10,"Full Screen Global Editor Utility using Caché Studio",!
 S $ZT="ERROR^cQI30" D MASTER^cQ5
 ;
 S D="\",P="Z"_$J K ZUT,^ROUTINE(P) X "ZR  ZS @P"  ; first: clean-up
 ;
 D ^cQI300                                         ; Select Globals
 I ZUT(0)=1 G EXIT
 ;
 S ZUT=$H,ZUT(1)=P_" ;" M ^ROUTINE(P,0)=ZUT        ; Globals to Routine
 K ZUT S $Y=0
 ;
 S K="cn_iptcp://"_boot_"/"_cs_"/"_P_".int"
 D START^cANR0("Cstudio") W K,! D STOP^cANR0 H 10
 L +^ROUTINE(P)                ; Program has been crucified in Cstudio.exe!
 ;
 S (A,B)="",I=1                                    ; Routine to Global
NEXT S I=$O(^ROUTINE(P,0,I)) I $L(I) S A=^(I),A=$E(A,3,$L(A)) G NEXT:"~^"'[$E(A)!'$L(A)
 I $L(I) S I=$O(^(I)) I $L(I) S B=^(I),B=$E(B,3,$L(B)) D  G NEXT
 . I $E(A)'="~" D KILL Q
 . S A=$E(A,2,$L(A)) S K="" F %I=1:1:$L(B) S:$E(B,%I)'?1C K=K_$E(B,%I) I $E(B,%I)?1C S K=K_"["_$E($A(B,%I)+1000,2,4)_"]"
 . W !,A,"=""",K,"""" S @A=B
 K A,B,I W ! L -^ROUTINE(P) G cQI30
 ;
KILL I '($D(@A)\10) K @A W !,A," killed." Q
 E  W !,A," should better NOT be killed.",$C(7) H 1 Q
 ;
EXIT I $D(%R),%R,%R'=$I C %R
 K %GN,%G1,%GPR,%GPRQ,%GSN,%PR,%GUD,%GNV,%GBR,%R,%SC,%RSC,%GX,%I
 K %I30 B 1
 Q
 ;
ERROR ;
 W !,$ZE
 I $F($ZE,"<INTERRUPT>") U 0 W !!,"...Aborted." D EXIT
 Q
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8