Changeset 178 for ccr


Ignore:
Timestamp:
Oct 4, 2008, 4:16:26 PM (16 years ago)
Author:
George Lilly
Message:

fix for field processing in meds

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r167 r178  
    3434   . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
    3535   . W "HAS ACTIVE OP MEDS",!
     36   D EXTRACT^CCRMEDS2(MEDXML,DFN,MEDOUTXML) ; FIRST EXTRACT OUTPATIENT MEDS
     37   I @MEDOUTXML@(0)>0 D  ; CCRMEDS FOUND ACTIVE OP MEDS
     38   . S HASOP=1 ; SET FLAG TO KNOW HOW TO ADD XML
     39   . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP
     40   . W "HAS OP MEDS",!
    3641   N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF
    3742   D ACTIVE^ORWPS(.MEDRSLT,DFN)
  • ccr/trunk/p/GPLXPATH.m

    r176 r178  
    369369 . . . S TVAL="@@"_$P(@IXML@(I),"@@",J)_"@@" ; DEFAULT UNCHANGED
    370370 . . . I $D(@INARY@(TNAM))  D  ; IS THE VARIABLE IN THE MAP?
    371  . . . . S TVAL=@INARY@(TNAM) ; PULL OUT MAPPED VALUE
     371 . . . . I '$D(@INARY@(TNAM,"F")) D  ; NOT A SPECIAL FIELD
     372 . . . . . S TVAL=@INARY@(TNAM) ; PULL OUT MAPPED VALUE
     373 . . . . E  D DOFLD ; PROCESS A FIELD
    372374 . . . S TSTR=TSTR_TVAL_$P(@IXML@(I),"@@",J+1) ; ADD VAR AND PART AFTER
    373375 . . S @OXML@(I)=TSTR ; COPY LINE WITH MAPPED VALUES
    374376 . . I DEBUG W TSTR
    375377 I DEBUG W "MAPPED",!
     378 Q
     379 ;
     380DOFLD ; PROCESS A FILEMAN FIELD REFERENCED BY A VARIABLE
     381 ;
    376382 Q
    377383 ;
Note: See TracChangeset for help on using the changeset viewer.