EditGlobal ; Editeren van bestanden
 ;
 ; Ophalen van de data uit een global
Fetch(GRef)
 New X,QRef,Routine
 Do:$G(GRef)=""
 . Read !,"Global? ",GRef
 . Set:$E(GRef)'="^" GRef="^"_GRef
 Do:$L(GRef)
 . Quit:$E(GRef)'="^"
 . Set Routine="EditGlobal"_QU,QRef=GRef
 . Set X="Xecute X(1)"
 . Set X(1)="ZR  Xecute X(2)"
 . Set X(2)="ZI """_Routine_" ; Editeren van bestanden - "_$P(QU(0,1),"\",2)_""" ZI "" "" Xecute X(3),X(5)"
 . Set X(3)="For  Set QRef=$Q(@QRef) Quit:QRef=""""  Quit:$E(QRef,1,$L(GRef)-1)'=$E(GRef,1,$L(GRef)-1)  Xecute:$D(@QRef)#10 X(4)"
 . Set X(4)="ZI "" ;""_QRef_""=""_@QRef"
 . Set X(5)="ZS @Routine"
 . Xecute X
 Quit
 
Save
 New I,R,X,QRef,Data,Routine,FL
 Set Routine="EditGlobal"_QU
 Do:$D(^ROUTINE(Routine))
 . Set X="Xecute X(1),X(6)"
 . Set X(1)="ZL @Routine Xecute X(2)"
 . Set X(2)="For I=1:1 Set R=$T(+I) Set:I=1 FL=R Quit:R=""""  Xecute X(3),X(4)"
 . Set X(3)="Set $E(R,1,2)="""""
 . Set X(4)="Set QRef=$P(R,""=""),Data=$P(R,""="",2,9999) If $E(QRef)=""^"" Set @QRef=Data Xecute X(5)"
 . Set X(5)="Write !,R"
 . Set X(6)="ZR  ZI FL ZS @Routine"
 . Xecute X
 Quit
 
EditGlobalCW Goto ^EditGlobalCW