Changeset 1325 for ccr/branches/ohum/p/C0CALERT.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

• ccr/branches/ohum/p/C0CALERT.m (modified) (4 diffs)

ccr/branches/ohum/p/C0CALERT.m

@@ -1 +1 @@
 C0CALERT  ; CCDCCR/CKU/GPL - CCR/CCD PROCESSING FOR ALERTS ; 09/11/08
- ;;1.0;C0C;;May 19, 2009;Build 38
+ ;;1.0;C0C;;May 19, 2009;Build 39
  ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
  ;Licensed under the terms of the GNU General Public License.
@@ -56 +56 @@
  . S @ALTVMAP@("ALERTTYPE")=ADTY ; type of allergy
  . N ALTCDE ; SNOMED CODE THE THE ALERT
- . S ALTCDE=$S(A2="P":"282100009",A2="A":"416098002",1:"") ; IF NOT ADVERSE, IT IS ALLERGIC
+ . S ALTCDE=$S(A2="P":"282100009",A2="A":"418634005",1:"") ; IF NOT ADVERSE, IT IS ALLERGIC
  . S @ALTVMAP@("ALERTCODEVALUE")=ALTCDE ;
  . ; WILL USE 418634005 FOR ALLERGIC REACTION TO A SUBSTANCE
@@ -81 +81 @@
  . S ACNM=$P(@ALTG@(ALTTMP),U,2) ; REACTANT
  . S @ALTVMAP@("ALERTAGENTPRODUCTNAMETEXT")=ACNM
- . N ZC,ZCD,ZCDS,ZCDSV ; CODE,CODE SYSTEM,CODE VERSION
- . S (ZC,ZCD,ZCDS,ZCDSV)="" ; INITIALIZE
+ . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=ACVUID
  . I ACVUID'="" D  ; IF VUID IS NOT NULL
- . . S ZC=$$CODE^C0CUTIL(ACVUID)
- . . S ZCD=$P(ZC,"^",1) ; CODE TO USE
- . . S ZCDS=$P(ZC,"^",2) ; CODING SYSTEM - RXNORM OR VUID
- . . S ZCDSV=$P(ZC,"^",3) ; CODING SYSTEM VERSION
+ . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")="VUID"
  . E  D  ; IF REACTANT CODE VALUE IS NULL
  . . I $G(DUZ("AG"))="I" D  ; IF WE ARE RUNNING ON RPMS
@@ -94 +90 @@
  . . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")=""
  . . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=""
- . S @ALTVMAP@("ALERTAGENTPRODUCTCODEVALUE")=ZCD
- . S @ALTVMAP@("ALERTAGENTPRODUCTCODESYSTEM")=ZCDS
- . S @ALTVMAP@("ALERTAGENTPRODUCTNAMETEXT")=ACNM_" "_ZCDS_": "_ZCD
- . S @ALTVMAP@("ALERTDESCRIPTIONTEXT")=ADT_" "_ZCDS_": "_ZCD
  . ; REACTIONS - THIS SHOULD BE MULTIPLE, IS SINGLE NOW
  . N ARTMP,ARIEN,ARDES,ARVUID