cwrcmp ; ;[ 10/05/94  8:44 AM ]
 ;
 ; Routine compare
 New QUIT,RComp,GloRef,Routine
 Write !?10,"Routine compare"
SELECT 
 Set GloRef=" ("
 Do INT^cR2
 If $D(QUIT) Write !,"No routines selected" Quit
COMP 
 Write !!,"Compare with    : ",*27,7
 For  Write *27,8,*27,"[0K",*27,8 Read RComp Quit:"^"[RComp  Quit:$D(^ (RComp))
 Goto SELECT:"^"[RComp
 Write !!,"Routine label   : ",*27,7
 For  Write *27,8,*27,"[0K",*27,8 Read Label Quit:"^"[Label  Quit:$$LEXIST(RComp,Label)
 Goto COMP:"^"[Label
 Set Routine=""
 Xecute "ZL @RComp ""For I=1:1 Set R=$T(+I) Quit:$P($P(R,"""" """"),""""("""")=Label""  ""For I=I:1 Set R=$T(+I)"""
 For  Set Routine=$O(^UTILITY($J,Routine)) Quit:Routine=""  Do
 .Write !,"Routine: ",Routine
 .If '$$LEXIST(Routine,Label) Write ?19,"--Compared   -- not found" Quit
 Kill ^UTILITY($J)
 Quit
 ;
LEXIST(Routine,Label) 
 New L
 Xecute "ZL @Routine Set L=$T(@Label)"
 Quit $L(L)
 ;