Changeset 564 for ccr/trunk


Ignore:
Timestamp:
Sep 15, 2009, 4:05:23 PM (15 years ago)
Author:
Christopher Edwards
Message:

Wrapped AUPNVMSR global(V Measurement file) read with $GET to fix issue if there is no provider associated with vital measurement

File:
1 edited

Legend:

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

    r563 r564  
    238238 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
    239239 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    240  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     240 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    241241 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    242242 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="in"
     
    252252 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
    253253 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    254  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     254 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    255255 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    256256 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="lbs"
     
    266266 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
    267267 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    268  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     268 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    269269 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    270270 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
     
    280280 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
    281281 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    282  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     282 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    283283 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    284284 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")="F"
     
    294294 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
    295295 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    296  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     296 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    297297 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    298298 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
     
    308308 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
    309309 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    310  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     310 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    311311 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    312312 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
     
    322322 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")="SNOMED"
    323323 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    324  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     324 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    325325 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    326326 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=""
     
    334334 . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    335335 . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")=$P(VITPTMP,U,2)
    336  . . . ;S @VITVMAP@("VITALSIGNSDESCCODEVALUE")=""
    337  . . . ;S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")=""
    338  . . . ;S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    339  . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^AUPNVMSR($P(VITPTMP,U,1),12),U,4)
     336 . . . S @VITVMAP@("VITALSIGNSDESCCODEVALUE")=""
     337 . . . S @VITVMAP@("VITALSIGNSDESCCODINGSYSTEM")=""
     338 . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
     339 . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P($G(^AUPNVMSR($P(VITPTMP,U,1),12)),U,4)
    340340 . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P($P(VITPTMP,U,5)," ",1)
    341341 . . . S @VITVMAP@("VITALSIGNSTESTRESULTUNIT")=$P($P(VITPTMP,U,5)," ",2)
     
    359359 Q
    360360 ;
    361  ;VITDATES(VDT) ; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY
    362  ; OF DATES IN THE VITALS RESULTS
    363  ;N VDTI,VDTJ,VTDCNT
    364  ;S VTDCNT=0 ; COUNT TO BUILD ARRAY
    365  ;S VDTJ="" ; USED TO VISIT THE RESULTS
    366  ;I $$SYSNAME^C0CSYS()="RPMS" D VITDRPMS E  D VITDVISTA
    367  ;
    368361VITDRPMS(VDT)   ; RUN DATE SORTING ALGORITHM FOR RPMS
    369362 ; VDT IS PASSED BY REFERENCE AND WILL CONTAIN THE ARRAY
Note: See TracChangeset for help on using the changeset viewer.