Changeset 780 for ccr


Ignore:
Timestamp:
May 23, 2010, 12:13:49 AM (14 years ago)
Author:
George Lilly
Message:

adding encounters

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CCCR0.m

    r768 r780  
    880880 ;;</CCRSignature>
    881881 ;;</Signatures>
     882 ;;<Comments>
     883 ;;<Comment>
     884 ;;<CommentObjectID>@@COMMENTOBJECTID@@</CommentObjectID>
     885 ;;<DateTime>
     886 ;;<ExactDateTime>@@CMTDATETIME@@</ExactDateTime>
     887 ;;</DateTime>
     888 ;;<Description>
     889 ;;<Text>
     890 ;;</Text>
     891 ;;</Description>
     892 ;;<Source>
     893 ;;<Actor>
     894 ;;<ActorID>@@ACTORSOURCEID@@</ActorID>
     895 ;;</Actor>
     896 ;;</Source>
     897 ;;</Comment>
     898 ;;</Comments>
    882899 ;;</ContinuityOfCareRecord>
    883900 ;</TEMPLATE>
  • ccr/trunk/p/C0CCPT.m

    r681 r780  
    8080        .. S VISIT(IEN,"CPT",ILST)=CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS
    8181        . S VISIT(IEN,"DATE",0)=$P($P(^TIU(8925,IEN,0),U,7),".")
     82        . S VISIT(IEN,"CLASS")=$$GET1^DIQ(8925,IEN_",",.04) ;GPL 5/21/10
    8283        . I $G(TXT)=1 D GETNOTE(IEN)
    8384        Q
Note: See TracChangeset for help on using the changeset viewer.