Index: FLOWCHK.mac.rou
===================================================================
diff -u -r66176 -r67493
--- FLOWCHK.mac.rou	(.../FLOWCHK.mac.rou)	(revision 66176)
+++ FLOWCHK.mac.rou	(.../FLOWCHK.mac.rou)	(revision 67493)
@@ -376,7 +376,8 @@
  ;
 COMMORD(ORDNr) 
  New R,KLNr,IsComm,VerpTyp,CommRef
- Set IsComm=0,KLNr=$P(^KO1(ORDNr,"F"),"\")
+ Set IsComm=0,KLNr=$P($G(^KO1(ORDNr,"F")),"\")
+ Quit:'KLNr 0
  Set R=^KOD(KLNr,"F",ORDNr,1)
  Set IsComm=";"_$P(R,"\",30)_";"[";CO;" Set:IsComm IsComm=''$L($P(R,"\",19))
  Quit IsComm