Changeset 86 for ccr/trunk


Ignore:
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.

Location:
ccr/trunk/p
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/GPLMEDS.m

    r84 r86  
    11GPLMEDS ; CCDCCR/CJE - CCR/CCD PROCESSING FOR MEDICATIONS ;07/23/08  14:33
    2           ;;0.1;CCDCCR;;JUL 16,2008;
    3           ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
    4           ;General Public License See attached copy of the License.
    5           ;
    6           ;This program is free software; you can redistribute it and/or modify
    7           ;it under the terms of the GNU General Public License as published by
    8           ;the Free Software Foundation; either version 2 of the License, or
    9           ;(at your option) any later version.
    10           ;
    11           ;This program is distributed in the hope that it will be useful,
    12           ;but WITHOUT ANY WARRANTY; without even the implied warranty of
    13           ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    14           ;GNU General Public License for more details.
    15           ;
    16           ;You should have received a copy of the GNU General Public License along
    17           ;with this program; if not, write to the Free Software Foundation, Inc.,
    18           ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
    19           ;
     2   ;;0.1;CCDCCR;;JUL 16,2008;
     3   ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
     4   ;General Public License See attached copy of the License.
     5   ;
     6   ;This program is free software; you can redistribute it and/or modify
     7   ;it under the terms of the GNU General Public License as published by
     8   ;the Free Software Foundation; either version 2 of the License, or
     9   ;(at your option) any later version.
     10   ;
     11   ;This program is distributed in the hope that it will be useful,
     12   ;but WITHOUT ANY WARRANTY; without even the implied warranty of
     13   ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     14   ;GNU General Public License for more details.
     15   ;
     16   ;You should have received a copy of the GNU General Public License along
     17   ;with this program; if not, write to the Free Software Foundation, Inc.,
     18   ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
     19   ;
    2020          W "NO ENTRY FROM TOP",!
    2121          Q
    2222          ;
    2323EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
    24           ;
    25           ; MEDXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
    26           ; IMEDXML WILL CONTAIN ONLY THE MEDICATIONS SECTION OF THE OVERALL TEMPLATE
    27           ;
    28           N MEDRSLT,J,K,MEDPTMP,X,MEDVMAP,TBUF
     24   ;
     25   ; MEDXML AND OUTXML ARE PASSED BY NAME SO GLOBALS CAN BE USED
     26   ; IMEDXML WILL CONTAIN ONLY THE MEDICATIONS SECTION OF THE OVERALL TEMPLATE
     27   ;
     28          N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
    2929          D ACTIVE^ORWPS(.MEDRSLT,DFN)
    3030          I '$D(MEDRSLT(1)) D  ; NO MEDS FOR THIS PATIENT, EXIT
  • ccr/trunk/p/GPLUNIT.m

    r85 r86  
    124124          ;
    125125TESTALL(RNM) ; RUN ALL THE TESTS
    126           N I,J,TZTMP,TSTS,TOTP,TOTF
     126          N ZI,J,TZTMP,TSTS,TOTP,TOTF
    127127          S TOTP=0 S TOTF=0
    128128          D ZLOAD^GPLUNIT("TZTMP",RNM)
    129129          D GTSTS(.TZTMP,"TSTS")
    130           F I=1:1:TSTS(0) D  ;
     130          F ZI=1:1:TSTS(0) D  ;
    131131          . S TPASSED=0 S TFAILED=0
    132           . D ZTEST^GPLUNIT(.TZTMP,TSTS(I))
     132          . D ZTEST^GPLUNIT(.TZTMP,TSTS(ZI))
    133133          . S TOTP=TOTP+TPASSED
    134134          . S TOTF=TOTF+TFAILED
    135           . S $P(TSTS(I),"^",2)=TPASSED
    136           . S $P(TSTS(I),"^",3)=TFAILED
     135          . S $P(TSTS(ZI),"^",2)=TPASSED
     136          . S $P(TSTS(ZI),"^",3)=TFAILED
    137137          F I=1:1:TSTS(0) D  ;
    138           . W "TEST=> ",$P(TSTS(I),"^",1)
    139           . W " PASSED=>",$P(TSTS(I),"^",2)
    140           . W " FAILED=>",$P(TSTS(I),"^",3),!
     138          . W "TEST=> ",$P(TSTS(ZI),"^",1)
     139          . W " PASSED=>",$P(TSTS(ZI),"^",2)
     140          . W " FAILED=>",$P(TSTS(ZI),"^",3),!
    141141          W "TOTAL=> PASSED:",TOTP," FAILED:",TOTF,!
    142142          Q
  • ccr/trunk/p/GPLXPATH.m

    r76 r86  
    619619 ;;>>>D QUERY^GPLXPATH("GXML","//FIRST/SECOND/THIRD/FIFTH","G2")
    620620 ;;>>>D REPLACE^GPLXPATH("GXML","G2","//FIRST/SECOND")
    621  ;;>>?GXML(3)="<FIFTH>"
     621 ;;>>?GXML(2)="<FIFTH>"
    622622 ;;><INSINNER>
    623623 ;;>>>K GXML,G2,GBL,G3
Note: See TracChangeset for help on using the changeset viewer.