Merge pull request #4 from ChristopherEdwards/remove-VistA-dependency

Add new of U and add code from ZOSF("LOAD") to remove VistA dependency

Routines/%ut1.m

@@ -236,7 +236,7 @@ CACHECOV(GLOBSAV,GLOB)	;
 	. I $D(^TMP("%utt4val",$J))!'$$ISUTEST() S ROUNAME=##class(%Monitor.System.LineByLine).GetRoutineName(I)
 	. ; get routine loaded into location
 	. S DIF=$NA(@GLOBSAV@(ROUNAME)),DIF=$E(DIF,1,$L(DIF)-1)_",",XCNP=0,X=ROUNAME
-	. X ^%ZOSF("LOAD")
+	. X "N %,%N S %N=0 X ""ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0  S @(DIF_XCNP_"""",0)"""")=%"""
 	. M @GLOB@(ROUNAME)=@GLOBSAV@(ROUNAME)
 	. Q
 	;

Routines/%utcover.m

@@ -88,7 +88,8 @@ MULTAPIS(TESTROUS)	; RUN TESTS FOR SPECIFIED ROUTINES AND ENTRY POINTS
 	;
 COVENTRY	; setup of COVERAGE NEWs most variables, so TESTROUS passed by global
 	;
-	N I,ROU,VAL,VALS,UTDATA,TESTS,TESTROUS
+	N I,ROU,VAL,VALS,UTDATA,TESTS,TESTROUS,U
+	S U="^"
 	M TESTROUS=^TMP("%utcover",$J,"TESTROUS")
 	S ROU="" F  S ROU=$O(TESTROUS(ROU)) Q:ROU=""  D
 	. I ROU'=+ROU S TESTS(ROU)=""