iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

adding encounters

This commit is contained in:
george 2010-05-23 04:13:49 +00:00
parent 6be9afaee1
commit 109c50e09e
2 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
p/C0CCCR0.m
View File

@ -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>

1
p/C0CCPT.m
View File

@ -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