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

ccr/trunk/p/C0CNMED4.m

@@ -1 +1 @@
 C0CNMED4        ; WV/CCDCCR/SMH/gpl - CCR/CCD PROCESSING FOR MEDICATIONS - Inpatient Meds/Unit Dose ;10/13/08 ; 5/10/12 2:54pm
-        ;;1.2;C0C;;May 11, 2012;Build 47
-        ; Copyright 2008 WorldVistA.  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.
+        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
+        ; Copyright 2008 WorldVistA.  
+        ;
+        ; 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/>.
         ;
         W "NO ENTRY FROM TOP",!
@@ -58 +56 @@
         IF ZCOUNT=0 Q  ; no inpatient meds
         ;M MEDS=^TMP($J,"UD")
-        I DEBUG ZWR MEDS
-        S MEDMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP")) 
+        ;I DEBUG ZWR MEDS
+        S MEDMAP=$NA(^TMP("C0CCCR",$J,"MEDMAP"))
         ;N MEDCOUNT S MEDCOUNT=@MEDMAP@(0) ; We already have meds in the array
         S C0CMFLAG=$$GET^C0CPARMS("MEDALL")_"^"_$$GET^C0CPARMS("MEDLIMIT")_"^"_$$GET^C0CPARMS("MEDACTIVE")_"^"_$$GET^C0CPARMS("MEDPENDING") ;SETTING FLAG
-        N I S I=0 
+        N I S I=0
         F  S I=$O(MEDS("med",I)) Q:'I  D  ; For each medication
         . ;OHUM/RUT 3120507 ;STATUS VALIDATION FOR INPATIENT
-               . I ($P(C0CMFLAG,"^",1)'=1) D
-               . . I ($P(C0CMFLAG,"^",3)=1)&(MEDS("med",I,"vaStatus@value")'="ACTIVE") D
-               . . . K MEDS("med",I) Q
-               . . I ($P(C0CMFLAG,"^",4)=1)&(MEDS("med",I,"vaStatus@value")'="PENDING") D
-               . . . K MEDS("med",I) Q
-               . ;OHUM/RUT
+        . I ($P(C0CMFLAG,"^",1)'=1) D
+        . . I ($P(C0CMFLAG,"^",3)=1)&(MEDS("med",I,"vaStatus@value")'="ACTIVE") D
+        . . . K MEDS("med",I) Q
+        . . I ($P(C0CMFLAG,"^",4)=1)&(MEDS("med",I,"vaStatus@value")'="PENDING") D
+        . . . K MEDS("med",I) Q
+        . ;OHUM/RUT
         . N MED M MED=MEDS("med",I)
         . I $G(MED("vaType@value"))'="I" Q  ; not inpatient
@@ -80 +78 @@
         . I DEBUG W "RXIEN IS ",RXIEN,!
         . I DEBUG W "MAP= ",MAP,!
-        . S @MAP@("MEDOBJECTID")="MED_INPATIENT_UD"_RXIEN 
+        . S @MAP@("MEDOBJECTID")="MED_INPATIENT_UD"_RXIEN
         . S @MAP@("MEDISSUEDATETXT")="Order Date"
         . ;S @MAP@("MEDISSUEDATE")=$$FMDTOUTC^C0CUTIL($P(MED(27),U),"DT")
@@ -174 +172 @@
         . S @MAP@("M","DIRECTIONS",1,"MEDDOSEVALUE")=""
         . S @MAP@("M","DIRECTIONS",1,"MEDDOSEUNIT")=""
-        . S @MAP@("M","DIRECTIONS",1,"MEDRATEVALUE")=""  
-        . S @MAP@("M","DIRECTIONS",1,"MEDRATEUNIT")=""  
-        . S @MAP@("M","DIRECTIONS",1,"MEDVEHICLETEXT")=""  
+        . S @MAP@("M","DIRECTIONS",1,"MEDRATEVALUE")=""
+        . S @MAP@("M","DIRECTIONS",1,"MEDRATEUNIT")=""
+        . S @MAP@("M","DIRECTIONS",1,"MEDVEHICLETEXT")=""
         . S @MAP@("M","DIRECTIONS",1,"MEDDIRECTIONROUTETEXT")=""
         . S @MAP@("M","DIRECTIONS",1,"MEDFREQUENCYVALUE")=""
@@ -191 +189 @@
         . S @MAP@("M","DIRECTIONS",1,"MEDPROBLEMCODINGVERSION")=""
         . S @MAP@("M","DIRECTIONS",1,"MEDPROBLEMSOURCEACTORID")=""
-        . S @MAP@("M","DIRECTIONS",1,"MEDSTOPINDICATOR")="" 
+        . S @MAP@("M","DIRECTIONS",1,"MEDSTOPINDICATOR")=""
         . S @MAP@("M","DIRECTIONS",1,"MEDDIRSEQ")=""
         . S @MAP@("M","DIRECTIONS",1,"MEDMULDIRMOD")=""