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

ccr/trunk/p/C0CMED6.m

@@ -1 +1 @@
 C0CMED6 ; WV/CCDCCR/SMH - Meds from RPMS: Outpatient Meds;01/10/09
-        ;;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",!
@@ -55 +53 @@
         ; If MEDS1 is not defined, then no meds
         I '$D(MEDS1) QUIT
-        I DEBUG ZWR MEDS1,MINXML
+        ;I DEBUG ZWR MEDS1,MINXML
         N MEDCNT S MEDCNT=0 ; Med Count
         ; The next line is a super line. It goes through the array return
@@ -229 +227 @@
         . . N INTERVAL S INTERVAL="" ; Default
         . . ; If there are entries found, get it
-        . . I +$G(C0C515("DILIST",0)) S INTERVAL=$P(C0C515("DILIST",1,0),U,2) 
+        . . I +$G(C0C515("DILIST",0)) S INTERVAL=$P(C0C515("DILIST",1,0),U,2)
         . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDINTERVALVALUE")=INTERVAL
         . . S @MAP@("M","DIRECTIONS",DIRCNT,"MEDINTERVALUNIT")="Minute"
@@ -265 +263 @@
         . ; -- 1. Med Patient Instructions
         . N MEDPTIN1 S MEDPTIN1=$$GET1^DIQ(52,RXIEN,115,,"MEDPTIN1")
-        . N MEDPTIN2,J  S (MEDPTIN2,J)="" 
+        . N MEDPTIN2,J  S (MEDPTIN2,J)=""
         . I $L(MEDPTIN1) F  S J=$O(@MEDPTIN1@(J)) Q:J=""  Q:$L(MEDPTIN2)>10000  S MEDPTIN2=MEDPTIN2_@MEDPTIN1@(J)_" "
         . S @MAP@("MEDPTINSTRUCTIONS")=MEDPTIN2
@@ -312 +310 @@
         N RXNORM,C0CZRXN,DIERR
         D FIND^DIC(176.002,,"@;.01","PX",NDC,"*","NDC",,,"C0CZRXN","DIERR")
-        I $D(DIERR) D ^%ZTER BREAK
+        I $D(DIERR) S $EC=",U1,"
         S RXNORM(0)=+C0CZRXN("DILIST",0) ; RxNorm(0) will be # of entries
         N I S I=0
@@ -329 +327 @@
         . . E  S RXNORM=RXNORM(I) QUIT  ; We found the right code
         QUIT +$G(RXNORM)  ; RETURN RXNORM; if we couldn't find a clnical drug, return with 0
-