Changeset 376 for ccr

Timestamp:

Feb 24, 2009, 1:15:03 PM (15 years ago)

Author:

George Lilly

Message:

fixed OpenVistA MRN retrieval and Vitals typo

Location:

ccr/trunk/p

Files:

• GPLACTOR.m (modified) (1 diff)
• GPLVITAL.m (modified) (1 diff)

ccr/trunk/p/GPLACTOR.m

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

ccr/trunk/p/GPLVITAL.m

@@ -61 +61 @@
  . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
  . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
- . . . S @VITVMAP@("VITALSIGNSDESCODEVALUE")="248327008"
+ . . . S @VITVMAP@("VITALSIGNSDESCCODEVALUE")="248327008"
  . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
  . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""