Changeset 767 for ccr/trunk/p


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

fixed bug in gender coding

Location:
ccr/trunk/p
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CACTOR.m

    r762 r767  
    133133 S @AMAP@("ACTORFAMILYNAME")=$$FAMILY^C0CDPT(AIEN)
    134134 S @AMAP@("ACTORDATEOFBIRTH")=$$DOB^C0CDPT(AIEN)
    135  S @AMAP@("ACTORGENDER")=$$GENDER^C0CDPT(AIEN)
     135 S @AMAP@("ACTORGENDER")=$P($$GENDER^C0CDPT(AIEN),U,2)
     136 S @AMAP@("ACTORGENDERCODE")=$P($$GENDER^C0CDPT(AIEN),U,1)
    136137 S @AMAP@("ACTORSSN")=""
    137138 S @AMAP@("ACTORSSNTEXT")=""

  • ccr/trunk/p/C0CCCR0.m

    r754 r767  
    676676 ;;<Text>@@ACTORGENDER@@</Text>
    677677 ;;<Code>
    678  ;;<Value>@@ACTORGENDER@@</Value>
    679  ;;<CodingSystem>2.16.840.1.113883.5.1</CodingSystem>
     678 ;;<Value>@@ACTORGENDERCODE@@</Value>
     679 ;;<CodingSystem>HL7 AdministrativeGender</CodingSystem>
    680680 ;;</Code>
    681681 ;;</Gender>

  • 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)

  • ccr/trunk/p/C0CUTIL.m

    r559 r767  
    2121 W "No Entry at Top!"
    2222 Q
     23 ;
     24UUID() ; GENERATE A RANDOM UUID (Version 4)
     25 N I,J,ZS
     26 S ZS="0123456789abcdef" S J=""
     27 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))
     28 Q J
    2329 ;
    2430FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrinsic
Note: See TracChangeset for help on using the changeset viewer.