Index: ccr/trunk/p/C0CACTOR.m
===================================================================
--- ccr/trunk/p/C0CACTOR.m	(revision 764)
+++ ccr/trunk/p/C0CACTOR.m	(revision 767)
@@ -133,5 +133,6 @@
  S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^C0CDPT(AIEN)
  S @AMAP@("ACTORDATEOFBIRTH")=$$DOB^C0CDPT(AIEN)
- S @AMAP@("ACTORGENDER")=$$GENDER^C0CDPT(AIEN)
+ S @AMAP@("ACTORGENDER")=$P($$GENDER^C0CDPT(AIEN),U,2)
+ S @AMAP@("ACTORGENDERCODE")=$P($$GENDER^C0CDPT(AIEN),U,1)
  S @AMAP@("ACTORSSN")=""
  S @AMAP@("ACTORSSNTEXT")=""
Index: ccr/trunk/p/C0CCCR0.m
===================================================================
--- ccr/trunk/p/C0CCCR0.m	(revision 764)
+++ ccr/trunk/p/C0CCCR0.m	(revision 767)
@@ -676,6 +676,6 @@
  ;;<Text>@@ACTORGENDER@@</Text>
  ;;<Code>
- ;;<Value>@@ACTORGENDER@@</Value>
- ;;<CodingSystem>2.16.840.1.113883.5.1</CodingSystem>
+ ;;<Value>@@ACTORGENDERCODE@@</Value>
+ ;;<CodingSystem>HL7 AdministrativeGender</CodingSystem>
  ;;</Code>
  ;;</Gender>
Index: ccr/trunk/p/C0CDPT.m
===================================================================
--- ccr/trunk/p/C0CDPT.m	(revision 764)
+++ ccr/trunk/p/C0CDPT.m	(revision 767)
@@ -112,5 +112,5 @@
  Q $$FMDTOUTC^C0CUTIL(DOB,"D")
 GENDER(DFN)	; Gender/Sex
- Q $$GET1^DIQ(2,DFN,.02) ;
+ Q $$GET1^DIQ(2,DFN,.02,"I")_"^"_$$GET1^DIQ(2,DFN,.02,"E") ;
 SSN(DFN)	; SSN
  Q $$GET1^DIQ(2,DFN,.09)
Index: ccr/trunk/p/C0CUTIL.m
===================================================================
--- ccr/trunk/p/C0CUTIL.m	(revision 764)
+++ ccr/trunk/p/C0CUTIL.m	(revision 767)
@@ -21,4 +21,10 @@
  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