ORECS01 SAVPATH

 N IX,VAL,NM,HADIT,LST,INST,LAST
 S (IX,HADIT,INST,LAST)=0,(VAL,NM)=""
 D GETLST^XPAR(.LST,DUZ_";VA(200,","ORWT TOOLS MENU")
 S LAST=+$G(LST(LST))
 F  S IX=$O(LST(IX)) Q:('IX)!HADIT  D
 . S NM=$P($P(LST(IX),U,2),"=",1)
 . I $$UP^XLFSTR(NM)="EVENT CAPTURE INTERFACE" S HADIT=$P(LST(IX),U)
 S $P(ECPATH,"=",2)=$C(34)_$P(ECPATH,"=",2)_$C(34)
 S ORY=$P(ECPATH,"=",2)
 D:HADIT CHG^XPAR(DUZ_";VA(200,","ORWT TOOLS MENU",HADIT,ECPATH)
 D:'HADIT ADD^XPAR(DUZ_";VA(200,","ORWT TOOLS MENU",LAST+1,ECPATH)