Changeset 86 for ccr/trunk/p/GPLMEDS.m

Timestamp:

Aug 6, 2008, 7:18:51 PM (16 years ago)

Author:

George Lilly

Message:

the Variable "I" was being stepped on in the Meds processing.. newed it.

File:

• ccr/trunk/p/GPLMEDS.m (modified) (1 diff)

ccr/trunk/p/GPLMEDS.m

@@ -1 +1 @@
 GPLMEDS ; CCDCCR/CJE - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
-          ;;0.1;CCDCCR;;JUL 16,2008;
-          ;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.
-          ;
-          ;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.
-          ;
+   ;;0.1;CCDCCR;;JUL 16,2008;
+   ;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.
+   ;
+   ;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.
+   ;
           W "NO ENTRY FROM TOP",!
           Q
           ;
 EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
-          ;
-          ; MEDXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
-          ; IMEDXML WILL CONTAIN ONLY THE MEDICATIONS SECTION OF THE OVERALL TEMPLATE
-          ;
-          N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
+   ;
+   ; MEDXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
+   ; IMEDXML WILL CONTAIN ONLY THE MEDICATIONS SECTION OF THE OVERALL TEMPLATE
+   ;
+          N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
           D ACTIVE^ORWPS(.MEDRSLT,DFN)
           I '$D(MEDRSLT(1)) D  ; NO MEDS FOR THIS PATIENT, EXIT