Changeset 1586 for ccr/trunk/p/C0CVIT2.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/C0CVIT2.m (modified) (18 diffs)

ccr/trunk/p/C0CVIT2.m

@@ -1 +1 @@
 C0CVIT2 ; CCDCCR/CJE/GPL - CCR/CCD PROCESSING FOR VITALS ; 07/16/08
-        ;;1.2;C0C;;May 11, 2012;Build 47
+        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
         ;Copyright 2008,2009 George Lilly, University of Minnesota and others.
-        ;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.
+        ;
+        ; 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 "NO ENTRY FROM TOP",!
@@ -66 +63 @@
         I '$D(VIT) S @VITOUT@(0)=0 K VIT Q  ; RETURN NOT FOUND, KILL ARRAY AND QUIT
         I $P(VIT(1),U,2)="No vitals found." D  Q  ; signal no vitals and quit
-        . I $D(VITOUT) S @VITOUT@(0)=0 
+        . I $D(VITOUT) S @VITOUT@(0)=0
         . K VIT
         ;
@@ -168 +165 @@
         Q
         ;
-HEIGHT  
+HEIGHT  ;
         I DEBUG W "IN VITAL:  HEIGHT",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC ; UNIQUE OBJID
@@ -185 +182 @@
         Q
         ;
-WEIGHT  
+WEIGHT  ;
         I DEBUG W "IN VITAL:  WEIGHT",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -202 +199 @@
         Q
         ;
-BP      
+BP      ;
         I DEBUG W "IN VITAL:  BLOOD PRESSURE",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -219 +216 @@
         Q
         ;
-TMP     
+TMP     ;
         I DEBUG W "IN VITAL:  TEMPERATURE",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -236 +233 @@
         Q
         ;
-RESP    
+RESP    ;
         I DEBUG W "IN VITAL:  RESPIRATION",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -253 +250 @@
         Q
         ;
-PULSE   
+PULSE   ;
         I DEBUG W "IN VITAL:  PULSE",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -270 +267 @@
         Q
         ;
-PAIN    
+PAIN    ;
         I DEBUG W "IN VITAL:  PAIN",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -287 +284 @@
         Q
         ;
-OTHER   
+OTHER   ;
         I DEBUG W "IN VITAL:  OTHER",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -305 +302 @@
         ;
         ;TEMPORARY, THINKING ON HOW TO REFACTOR (CJE)
-HEIGHT1(DT,ACTOR,VALUE,UNIT)    
+HEIGHT1(DT,ACTOR,VALUE,UNIT)    ;
         I DEBUG W "IN VITAL:  HEIGHT",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC ; UNIQUE OBJID
@@ -322 +319 @@
         Q
         ;
-WEIGHT1(DT,ACTOR,VALUE,UNIT)    
+WEIGHT1(DT,ACTOR,VALUE,UNIT)    ;
         I DEBUG W "IN VITAL:  WEIGHT",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -339 +336 @@
         Q
         ;
-BP1(DT,ACTOR,VALUE,UNIT)        
+BP1(DT,ACTOR,VALUE,UNIT)        ;
         I DEBUG W "IN VITAL:  BLOOD PRESSURE",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -356 +353 @@
         Q
         ;
-TMP1(DT,ACTOR,VALUE,UNIT)       
+TMP1(DT,ACTOR,VALUE,UNIT)       ;
         I DEBUG W "IN VITAL:  TEMPERATURE",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -373 +370 @@
         Q
         ;
-RESP1(DT,ACTOR,VALUE,UNIT)      
+RESP1(DT,ACTOR,VALUE,UNIT)      ;
         I DEBUG W "IN VITAL:  RESPIRATION",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -390 +387 @@
         Q
         ;
-PULSE1(DT,ACTOR,VALUE,UNIT)     
+PULSE1(DT,ACTOR,VALUE,UNIT)     ;
         I DEBUG W "IN VITAL:  PULSE",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -407 +404 @@
         Q
         ;
-PAIN1(DT,ACTOR,VALUE,UNIT)      
+PAIN1(DT,ACTOR,VALUE,UNIT)      ;
         I DEBUG W "IN VITAL:  PAIN",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC
@@ -424 +421 @@
         Q
         ;
-OTHER1(DT,TEXT,ACTOR,VALUE,UNIT)        
+OTHER1(DT,TEXT,ACTOR,VALUE,UNIT)        ;
         I DEBUG W "IN VITAL:  OTHER",!
         S ZRNF("VITALSIGNSDATAOBJECTID")="VITAL"_C0CC