Changeset 767 for ccr/trunk/p/C0CUTIL.m

Timestamp:

May 19, 2010, 11:09:56 PM (15 years ago)

Author:

George Lilly

Message:

fixed bug in gender coding

File:

• ccr/trunk/p/C0CUTIL.m (modified) (1 diff)

ccr/trunk/p/C0CUTIL.m

@@ -21 +21 @@
  W "No Entry at Top!"
  Q
+ ;
+UUID() ; GENERATE A RANDOM UUID (Version 4)
+ N I,J,ZS
+ S ZS="0123456789abcdef" S J=""
+ F I=1:1:36 S J=J_$S((I=9)!(I=14)!(I=19)!(I=24):"-",I=15:4,I=20:"a",1:$E(ZS,$R(16)+1))
+ Q J
  ;
 FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic