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

fixed OpenVistA MRN retrieval and Vitals typo

This commit is contained in:
george 2009-02-24 18:15:03 +00:00
parent a7c7316e01
commit d486df2760
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
p/GPLACTOR.m
View File

@ -95,7 +95,7 @@ PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
S @AMAP@("ACTORSSN")=""
S @AMAP@("ACTORSSNTEXT")=""
S @AMAP@("ACTORSSNSOURCEID")=""
I $G(^MSCDPTID)]"" S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
I $T(^MSCDPTID)]"" S MRN=$$^MSCDPTID(DFN) ;TEST FOR MRN ON OPENVISTA ;GPL
I $D(MRN) D ; IF MRN IS PRESENT
. S @AMAP@("ACTORSSN")=MRN
. S @AMAP@("ACTORSSNTEXT")="MRN"

2
p/GPLVITAL.m
View File

@ -60,7 +60,7 @@ EXTRACT(VITXML,DFN,VITOUTXML) ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
. . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
. . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
. . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
. . . S @VITVMAP@("VITALSIGNSDESCODEVALUE")="248327008"
. . . S @VITVMAP@("VITALSIGNSDESCCODEVALUE")="248327008"
. . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
. . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
. . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)