Changeset 1586 for ccr/trunk/p/C0CRXN.m

Timestamp:

Oct 30, 2012, 1:11:02 PM (12 years ago)

Author:

Sam Habiel

Message:

Changed license to AGPL. Some clean-up for XINDEX

File:

• ccr/trunk/p/C0CRXN.m (modified) (7 diffs)

ccr/trunk/p/C0CRXN.m

@@ -1 +1 @@
 C0CRXN    ; CCDCCR/GPL - CCR RXN utilities; 12/6/08
-        ;;1.2;C0C;;May 11, 2012;Build 47
-        ;Copyright 2009 George Lilly.  Licensed under the terms of the GNU
-        ;General Public License See attached copy of the License.
-        ;
-        ;This program is free software; you can redistribute it and/or modify
-        ;it under the terms of the GNU General Public License as published by
-        ;the Free Software Foundation; either version 2 of the License, or
-        ;(at your option) any later version.
-        ;
-        ;This program is distributed in the hope that it will be useful,
-        ;but WITHOUT ANY WARRANTY; without even the implied warranty of
-        ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-        ;GNU General Public License for more details.
-        ;
-        ;You should have received a copy of the GNU General Public License along
-        ;with this program; if not, write to the Free Software Foundation, Inc.,
-        ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
+        ;Copyright 2009 George Lilly.  
+        ;
+        ; This program is free software: you can redistribute it and/or modify
+        ; it under the terms of the GNU Affero General Public License as
+        ; published by the Free Software Foundation, either version 3 of the
+        ; License, or (at your option) any later version.
+        ;
+        ; This program is distributed in the hope that it will be useful,
+        ; but WITHOUT ANY WARRANTY; without even the implied warranty of
+        ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+        ; GNU Affero General Public License for more details.
+        ;
+        ; You should have received a copy of the GNU Affero General Public License
+        ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
         ;
         W "This is the CCR RXNORM Utility Library ",!
@@ -53 +51 @@
         . . ;D SETFDA("VUID",$$ZVALUE("VUID"))
         . E  D SETFDA("VUID TEXT",$$ZVALUE("VUID TEXT"))
-        . . ;ZWR C0CA
+        . ;ZWR C0CA
         . D GETN1^C0CRNF("C0CB",176.001,$$ZVALUE("VUID"),"VUID","ALL")
         . I $$ZVALUE("RXCUI","C0CB")'="" D  ; RXNORM FOUND
@@ -74 +72 @@
         . S C0CFDA(176.112,"+"_C0CZX_",",.01)=$$ZVALUE("VUID") ; NEW VUID RECORD
         . D UPDATE^DIE("","C0CFDA")
-        . I $D(^TMP("DIERR",$J)) U $P BREAK
+        . I $D(^TMP("DIERR",$J)) S $EC=",U1,"
         W "HAS RXN=",HASRXN,!
         W "NO RXN=",NORXN,!
@@ -150 +148 @@
         . S C0CFDA(176.113,"+"_C0CZX_",",.01)=C0CZX ; NEW VUID RECORD
         . D UPDATE^DIE("","C0CFDA")
-        . I $D(^TMP("DIERR",$J)) U $P BREAK
+        . I $D(^TMP("DIERR",$J)) S $EC=",U1,"
         W "VA MAPPING VUID COUNT: ",VAVCNT,!
         W "VA MAPPING MISSING: ",VANO,!
@@ -216 +214 @@
         Q
         ;
+        D
         . I $$ZVALUE("MEDIATION CODE")="" D
         . . S NORXN=NORXN+1 ;
@@ -225 +224 @@
         . . ;D SETFDA("VUID",$$ZVALUE("VUID"))
         . E  D SETFDA("VUID TEXT",$$ZVALUE("VUID TEXT"))
-        . . ;ZWR C0CA
+        . ;ZWR C0CA
         . D GETN1^C0CRNF("C0CB",176.001,$$ZVALUE("VUID"),"VUID","ALL")
         . I $$ZVALUE("RXCUI","C0CB")'="" D  ; RXNORM FOUND
@@ -245 +244 @@
         . S C0CFDA(176.112,"+"_C0CZX_",",.01)=$$ZVALUE("VUID") ; NEW VUID RECORD
         . D UPDATE^DIE("","C0CFDA")
-        . I $D(^TMP("DIERR",$J)) U $P BREAK
+        . I $D(^TMP("DIERR",$J)) S $EC=",U1,"
         W "HAS RXN=",HASRXN,!
         W "NO RXN=",NORXN,!