adding encounters
This commit is contained in:
parent
6be9afaee1
commit
109c50e09e
17
p/C0CCCR0.m
17
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>
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue