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


Ignore:
Timestamp:
May 19, 2010, 11:09:56 PM (15 years ago)
Author:
George Lilly
Message:

fixed bug in gender coding

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CDPT.m

    r508 r767  
    112112 Q $$FMDTOUTC^C0CUTIL(DOB,"D")
    113113GENDER(DFN)     ; Gender/Sex
    114  Q $$GET1^DIQ(2,DFN,.02) ;
     114 Q $$GET1^DIQ(2,DFN,.02,"I")_"^"_$$GET1^DIQ(2,DFN,.02,"E") ;
    115115SSN(DFN)        ; SSN
    116116 Q $$GET1^DIQ(2,DFN,.09)
Note: See TracChangeset for help on using the changeset viewer.