Changeset 73 for ccr/trunk/p


Ignore:
Timestamp:
Jul 23, 2008, 3:16:41 PM (16 years ago)
Author:
Christopher Edwards
Message:

added SNOMED codes for vitals

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r70 r73  
    1 GPLMEDS ; CCDCCR/CJE - CCR/CCD PROCESSING FOR MEDICATIONS ; 07/16/08
    2  ;;0.1;CCDCCR;;JUL 16,2008;
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    4  ;General Public License See attached copy of the License.
    5  ;
    6  ;This program is free software; you can redistribute it and/or modify
    7  ;it under the terms of the GNU General Public License as published by
    8  ;the Free Software Foundation; either version 2 of the License, or
    9  ;(at your option) any later version.
    10  ;
    11  ;This program is distributed in the hope that it will be useful,
    12  ;but WITHOUT ANY WARRANTY; without even the implied warranty of
    13  ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    14  ;GNU General Public License for more details.
    15  ;
    16  ;You should have received a copy of the GNU General Public License along
    17  ;with this program; if not, write to the Free Software Foundation, Inc.,
    18  ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
    19  ;
    20  W "NO ENTRY FROM TOP",!
    21  W !
    22  Q
    23  ;
    24 EXTRACT(MEDXML,DFN,MEDOUTXML)          ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
     1GPLMEDS ; CCDCCR/CJE - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
     2          ;;0.1;CCDCCR;;JUL 16,2008;
     3          ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     4          ;General Public License See attached copy of the License.
     5          ;
     6          ;This program is free software; you can redistribute it and/or modify
     7          ;it under the terms of the GNU General Public License as published by
     8          ;the Free Software Foundation; either version 2 of the License, or
     9          ;(at your option) any later version.
     10          ;
     11          ;This program is distributed in the hope that it will be useful,
     12          ;but WITHOUT ANY WARRANTY; without even the implied warranty of
     13          ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     14          ;GNU General Public License for more details.
     15          ;
     16          ;You should have received a copy of the GNU General Public License along
     17          ;with this program; if not, write to the Free Software Foundation, Inc.,
     18          ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
     19          ;
     20          W "NO ENTRY FROM TOP",!
     21          Q
     22          ;
     23EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
    2524          ;
    2625          ; MEDXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
     
    2928          N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
    3029          D ACTIVE^ORWPS(.MEDRSLT,DFN)
    31           ZWR MEDRSLT
    3230          Q
    3331          I '$D(MEDRSLT(1)) W "ERROR RUNNINIG MEDICATIONS RPC",! Q
  • ccr/trunk/p/GPLVITALS.m

    r65 r73  
    11GPLVITALS ; CCDCCR/CJE - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
    2  ;;0.1;CCDCCR;;JUL 16,2008;
    3  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    4  ;General Public License See attached copy of the License.
    5  ;
    6  ;This program is free software; you can redistribute it and/or modify
    7  ;it under the terms of the GNU General Public License as published by
    8  ;the Free Software Foundation; either version 2 of the License, or
    9  ;(at your option) any later version.
    10  ;
    11  ;This program is distributed in the hope that it will be useful,
    12  ;but WITHOUT ANY WARRANTY; without even the implied warranty of
    13  ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    14  ;GNU General Public License for more details.
    15  ;
    16  ;You should have received a copy of the GNU General Public License along
    17  ;with this program; if not, write to the Free Software Foundation, Inc.,
    18  ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
    19  ;
     2          ;;0.1;CCDCCR;;JUL 16,2008;
     3          ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     4          ;General Public License See attached copy of the License.
     5          ;
     6          ;This program is free software; you can redistribute it and/or modify
     7          ;it under the terms of the GNU General Public License as published by
     8          ;the Free Software Foundation; either version 2 of the License, or
     9          ;(at your option) any later version.
     10          ;
     11          ;This program is distributed in the hope that it will be useful,
     12          ;but WITHOUT ANY WARRANTY; without even the implied warranty of
     13          ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     14          ;GNU General Public License for more details.
     15          ;
     16          ;You should have received a copy of the GNU General Public License along
     17          ;with this program; if not, write to the Free Software Foundation, Inc.,
     18          ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
     19          ;
    2020          W "NO ENTRY FROM TOP",!
    21           W !
    2221          Q
    2322          ;
    24 EXTRACT(VITXML,DFN,VITOUTXML)          ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
     23EXTRACT(VITXML,DFN,VITOUTXML) ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
    2524          ;
    2625          ; VITXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
     
    4544          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
    4645          . . . S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORSYSTEM_1"
    47           . . . ;S @VITVMAP@("VITALSIGNSSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    4846          . . . S @VITVMAP@("VITALSIGNSTESTOBJECTID")="VITALTEST"_J
    4947          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    5048          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="HEIGHT"
    51           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    52           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    53           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     49          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="248327008"
     50          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="SNOMED"
     51          . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    5452          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    5553          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     
    6361          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    6462          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="WEIGHT"
    65           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    66           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    67           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     63          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="107647005"
     64          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="SNOMED"
     65          . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    6866          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    6967          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     
    7775          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    7876          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="BLOOD PRESSURE"
    79           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    80           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    81           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     77          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="392570002"
     78          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="SNOMED"
     79          . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    8280          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    8381          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     
    9189          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    9290          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="TEMPERATURE"
    93           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    94           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    95           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     91          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="309646008"
     92          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="SNOMED"
     93          . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    9694          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    9795          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     
    105103          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    106104          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="RESPIRATION"
    107           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    108           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    109           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     105          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366147009"
     106          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="SNOMED"
     107          . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    110108          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    111109          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     
    119117          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    120118          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PULSE"
    121           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    122           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    123           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     119          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="366199006"
     120          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="SNOMED"
     121          . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    124122          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    125123          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     
    133131          . . . S @VITVMAP@("VITALSIGNSTESTTYPETEXT")="OBSERVED"
    134132          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONTEXT")="PAIN"
    135           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    136           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    137           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     133          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")="22253000"
     134          . . . S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")="SNOMED"
     135          . . . S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    138136          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    139137          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
     
    150148          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVALUE")=""
    151149          . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODINGSYSTEM")=""
    152           . . . ;S @VITVMAP@("VITALSIGNSDESCRIPTIONCODEVERSION")=""
     150          . . . ;S @VITVMAP@("VITALSIGNSCODEVERSION")=""
    153151          . . . S @VITVMAP@("VITALSIGNSTESTSOURCEACTORID")="ACTORPROVIDER_"_$P(^GMR(120.5,$P(VITPTMP,U,1),0),U,6)
    154152          . . . S @VITVMAP@("VITALSIGNSTESTRESULTVALUE")=$P(VITPTMP,U,3)
Note: See TracChangeset for help on using the changeset viewer.