From 109c50e09ec1df260626cd9b39acc7d2faaff8e4 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Sun, 23 May 2010 04:13:49 +0000
Subject: [PATCH] adding encounters

---
 p/C0CCCR0.m | 17 +++++++++++++++++
 p/C0CCPT.m  |  1 +
 2 files changed, 18 insertions(+)

diff --git a/p/C0CCCR0.m b/p/C0CCCR0.m
index 4cfddf6..b231426 100644
--- a/p/C0CCCR0.m
+++ b/p/C0CCCR0.m
@@ -879,5 +879,22 @@ LOAD(ARY) ; LOAD A CCR TEMPLATE INTO ARY PASSED BY NAME
  ;;</Signature>
  ;;</CCRSignature>
  ;;</Signatures>
+ ;;<Comments>
+ ;;<Comment>
+ ;;<CommentObjectID>@@COMMENTOBJECTID@@</CommentObjectID>
+ ;;<DateTime>
+ ;;<ExactDateTime>@@CMTDATETIME@@</ExactDateTime>
+ ;;</DateTime>
+ ;;<Description>
+ ;;<Text>
+ ;;</Text>
+ ;;</Description>
+ ;;<Source>
+ ;;<Actor>
+ ;;<ActorID>@@ACTORSOURCEID@@</ActorID>
+ ;;</Actor>
+ ;;</Source>
+ ;;</Comment>
+ ;;</Comments>
  ;;</ContinuityOfCareRecord>
  ;</TEMPLATE>
diff --git a/p/C0CCPT.m b/p/C0CCPT.m
index 7387539..d765f51 100644
--- a/p/C0CCPT.m
+++ b/p/C0CCPT.m
@@ -79,6 +79,7 @@ VISIT   ;GET VISIT INFO FOR A GIVEN NOTE. BUILD INTO RETURN ARRAY .VISIT
 	.. S LST(ILST)="CPT"_U_CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS
 	.. S VISIT(IEN,"CPT",ILST)=CODE_U_CAT_U_NARR_U_QTY_U_PRV_U_U_U_MODS
 	. S VISIT(IEN,"DATE",0)=$P($P(^TIU(8925,IEN,0),U,7),".")
+	. S VISIT(IEN,"CLASS")=$$GET1^DIQ(8925,IEN_",",.04) ;GPL 5/21/10
 	. I $G(TXT)=1 D GETNOTE(IEN)
 	Q
 GETNOTE(IEN)	;GET THE TEXT THAT GOES WITH VISIT