- Timestamp:
- May 23, 2010, 12:13:49 AM (14 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CCCR0.m
r768 r780 880 880 ;;</CCRSignature> 881 881 ;;</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> 882 899 ;;</ContinuityOfCareRecord> 883 900 ;</TEMPLATE> -
ccr/trunk/p/C0CCPT.m
r681 r780 80 80 .. S VISIT(IEN,"CPT",ILST)=CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS 81 81 . 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 82 83 . I $G(TXT)=1 D GETNOTE(IEN) 83 84 Q
Note:
See TracChangeset
for help on using the changeset viewer.