Changeset 51 for ccr/trunk/p/GPLVITALS.m


Ignore:
Timestamp:
Jul 7, 2008, 9:51:27 AM (16 years ago)
Author:
Christopher Edwards
Message:

Added Providers to Vitals section
Fixed hanging : in CCRUTIL (thanks to Skip for more optimized code)
Fixed GPLCCR to write correct time

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLVITALS.m

    r50 r51  
    2222          . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
    2323          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
    24           . . . W "CONVERTED DATE TIME: ",@VITVMAP@("VITALSIGNSEXACTDATETIME"),!
    2524          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
    26           . . . ;S @VITVMAP@("VITALSIGNSSOURCEACTORID")=""
     25          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    2726          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
    2827          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    … …  
    3130          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    3231          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
    33           . . . ;S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")=""
     32          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    3433          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
    3534          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="in"
    … …  
    3938          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
    4039          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
    41           . . . ;S @VITVMAP@("VITALSIGNSSOURCEACTORID")=""
     40          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    4241          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
    4342          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    … …  
    4645          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    4746          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
    48           . . . ;S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")=""
     47          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    4948          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
    5049          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="lbs"
    … …  
    5453          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
    5554          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="OTHER VITAL"
    56           . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")=""
     55          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    5756          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
    5857          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    5958          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="OTHER"
    60           . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    61           . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    62           . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
    63           . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")=""
     59          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
     60          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
     61          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     62          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    6463          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
    6564          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="UNKNOWN"
Note: See TracChangeset for help on using the changeset viewer.