Changeset 780 for ccr/trunk/p/C0CCPT.m


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

adding encounters

File:
1 edited

Legend:

Unmodified
Added
Removed

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