Changeset 767 for ccr/trunk/p/C0CACTOR.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/C0CACTOR.m (modified) (1 diff)

ccr/trunk/p/C0CACTOR.m

@@ -133 +133 @@
  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")=""