Changeset 59 for ccr/trunk


Ignore:
Timestamp:
Jul 14, 2008, 8:14:23 AM (16 years ago)
Author:
Christopher Edwards
Message:

changed actor sourceID to ACTORSYSTEM_1
added more else statements to vitals to control vital type

Location:
ccr/trunk/p
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLCCR.m

    r57 r59  
    1515       S ODIRGLB=$NA(^TMP("GPLCCR","ODIR"))
    1616       I '$D(@ODIRGLB) D  ; IF NOT ODIR HAS BEEN SET
    17        . S @ODIRGLB="/home/glilly/CCROUT"
    18        . ;S @ODIRGLB="/home/cedwards/"
     17       . ;S @ODIRGLB="/home/glilly/CCROUT"
     18       . S @ODIRGLB="/home/cedwards/"
    1919       . ;S @ODIRGLB="/opt/wv/p/"
    2020       S ODIR=@ODIRGLB
  • ccr/trunk/p/GPLVITALS.m

    r51 r59  
    2323          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
    2424          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
    25           . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     25          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
     26          . . . ;S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    2627          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
    2728          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     
    3334          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
    3435          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="in"
    35           . . . ;S @VITVMAP@("HEIGHTWEIGHTSOURCE")=$P(VITPTMP,U,7)
    3636          . . E  I $P(VITPTMP,U,2)="WT" D
    3737          . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
    3838          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
    3939          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
    40           . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     40          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
    4141          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
    4242          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     
    4848          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
    4949          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="lbs"
     50          . . E  I $P(VITPTMP,U,2)="BP" D
     51          . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
     52          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
     53          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
     54          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
     55          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
     56          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     57          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
     58          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
     59          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
     60          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     61          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     62          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     63          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
     64          . . E  I $P(VITPTMP,U,2)="T" D
     65          . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
     66          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
     67          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
     68          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
     69          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
     70          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     71          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
     72          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
     73          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
     74          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     75          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     76          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     77          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="F"
     78          . . E  I $P(VITPTMP,U,2)="R" D
     79          . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
     80          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
     81          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
     82          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
     83          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
     84          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     85          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
     86          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
     87          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
     88          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     89          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     90          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     91          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
     92          . . E  I $P(VITPTMP,U,2)="P" D
     93          . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
     94          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
     95          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
     96          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
     97          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
     98          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     99          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
     100          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
     101          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
     102          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     103          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     104          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     105          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
     106          . . E  I $P(VITPTMP,U,2)="PN" D
     107          . . . S @VITVMAP@("VITALSIGNSDATETIMETYPETEXT")="OBSERVED"
     108          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
     109          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
     110          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
     111          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
     112          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     113          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
     114          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
     115          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
     116          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     117          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     118          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     119          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
    50120          . . E  D
    51121          . . . ;W "IN VITAL:  OTHER",!
     
    53123          . . . S @VITVMAP@("VITALSIGNSEXACTDATETIME")=$$FMDTOUTC^CCRUTIL($P(VITPTMP,U,4),"DT")
    54124          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="OTHER VITAL"
    55           . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
     125          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
    56126          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
    57           . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
     127          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="UNKNOWN"
    58128          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="OTHER"
    59129          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
     
    63133          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
    64134          . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="UNKNOWN"
    65           . . . ;S @VITVMAP@("HEIGHTWEIGHTSOURCE")=$P(VITPTMP,U,7)
    66135          . . S VITARYTMP=$NA(@VITTARYTMP@(J))
    67136          . . K @VITARYTMP
Note: See TracChangeset for help on using the changeset viewer.