Index: cAN3250.mac.rou
===================================================================
diff -u -r734 -r4204
--- cAN3250.mac.rou	(.../cAN3250.mac.rou)	(revision 734)
+++ cAN3250.mac.rou	(.../cAN3250.mac.rou)	(revision 4204)
@@ -3,7 +3,7 @@
  ; QU = initialen 
  ;
 1 N OK
- S OK=1 I $L($G(^DPAR(0,"PAR","LOC",0))) X ^(0) G 6:OK
+ S OK=1 I $L($G(^DPAR(0,"PAR","LOC",0))) X ^(0) G 7:OK
  ;
  N UI1,UQC,USC,UQCUCL,USCUCL,UQCCL,USCCL,UI1USR,UREF,IREF,UREFUCL,UREFLOC,UFU,SW3,SW2,I,A,B,UI1P,EIGC
  D DMS^cAN000("UQC","USC","SYS.LOC",1) I '$L(UQC)!'$L(USC) G YZ