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

ccr/trunk/p/C0CMED.m

@@ -1 +1 @@
 C0CMED  ; WV/CCDCCR/GPL/SMH - CCR/CCD Medications Driver; Mar 23 2009
-        ;;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 Sam Habiel.
-        ; 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 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 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.
+        ; 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/>.
+        ;
         ;
         ; --Revision History
@@ -53 +51 @@
         I $$RPMS^C0CUTIL() D RPMS QUIT
         I ($$VISTA^C0CUTIL())!($$WV^C0CUTIL())!($$OV^C0CUTIL()) D VISTA QUIT
-RPMS    
+RPMS    ;
         ;D EXTRACT^C0CMED6(MEDXML,DFN,MEDOUTXML,C0CMFLAG) QUIT
         N MEDCOUNT S MEDCOUNT=0
@@ -62 +60 @@
         D EXTRACT^C0CMED6(MEDXML,DFN,HIST,.MEDCOUNT,C0CMFLAG) ; Historical OP Meds
         D:+C0CMFLAG EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds 
-        I @HIST@(0)>0 D  
+        I @HIST@(0)>0 D
         . D CP^C0CXPATH(HIST,MEDOUTXML)
         . W:$G(DEBUG) "HAS ACTIVE OP MEDS",!
-        I @NVA@(0)>0 D 
-        . I @HIST@(0)>0 D INSINNER^C0CXPATH(MEDOUTXML,NVA) 
+        I @NVA@(0)>0 D
+        . I @HIST@(0)>0 D INSINNER^C0CXPATH(MEDOUTXML,NVA)
         . ;E  D CP^C0CXPATH(NVA,MEDOUTXML) 
         . W:$G(DEBUG) "HAS NON-VA MEDS",!
         Q
-VISTA   
+VISTA   ; 
         N MEDCOUNT S MEDCOUNT=0
         K ^TMP($J,"MED")
@@ -88 +86 @@
         D EXTRACT^C0CMED3(MEDXML,DFN,NVA,.MEDCOUNT) ; non-VA Meds GPL
         D EXTRACT^C0CNMED4(MEDXML,DFN,IPUD,.MEDCOUNT) ; inpatient gpl
-        I @HIST@(0)>0 D  
+        I @HIST@(0)>0 D
         . D CP^C0CXPATH(HIST,MEDOUTXML)
         . W:$G(DEBUG) "HAS ACTIVE OP MEDS",!
-        I @PEND@(0)>0 D  
+        I @PEND@(0)>0 D
         . I @HIST@(0)>0 D INSINNER^C0CXPATH(MEDOUTXML,PEND) ;Add Pending to Historical
         . E  D CP^C0CXPATH(PEND,MEDOUTXML) ; No historical, just copy
         . W:$G(DEBUG) "HAS OP PENDING MEDS",!
-        I @NVA@(0)>0 D 
-        . I @HIST@(0)>0!(@PEND@(0)>0) D INSINNER^C0CXPATH(MEDOUTXML,NVA) 
-        . E  D CP^C0CXPATH(NVA,MEDOUTXML) 
+        I @NVA@(0)>0 D
+        . I @HIST@(0)>0!(@PEND@(0)>0) D INSINNER^C0CXPATH(MEDOUTXML,NVA)
+        . E  D CP^C0CXPATH(NVA,MEDOUTXML)
         . W:$G(DEBUG) "HAS NON-VA MEDS",!
-        I @IPUD@(0)>0 D 
-        . I @HIST@(0)>0!(@PEND@(0)>0)!(@NVA@(0)>0) D INSINNER^C0CXPATH(MEDOUTXML,IPUD) 
-        . E  D CP^C0CXPATH(IPUD,MEDOUTXML) 
+        I @IPUD@(0)>0 D
+        . I @HIST@(0)>0!(@PEND@(0)>0)!(@NVA@(0)>0) D INSINNER^C0CXPATH(MEDOUTXML,IPUD)
+        . E  D CP^C0CXPATH(IPUD,MEDOUTXML)
         . W:$G(DEBUG) "HAS INPATIENT MEDS",!
         N ZI
@@ -112 +110 @@
         K @IPUD
         Q
-