- Timestamp:
- Oct 4, 2008, 4:16:26 PM (16 years ago)
- Location:
- ccr/trunk/p
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/GPLMEDS.m
r167 r178 34 34 . S MEDCNT=@MEDOUTXML@(0) ; SAVE COUNT TO KNOW HOW TO ADD TO MAP 35 35 . 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",! 36 41 N MEDRSLT,I,J,K,MEDPTMP,X,MEDVMAP,TBUF 37 42 D ACTIVE^ORWPS(.MEDRSLT,DFN) -
ccr/trunk/p/GPLXPATH.m
r176 r178 369 369 . . . S TVAL="@@"_$P(@IXML@(I),"@@",J)_"@@" ; DEFAULT UNCHANGED 370 370 . . . 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 372 374 . . . S TSTR=TSTR_TVAL_$P(@IXML@(I),"@@",J+1) ; ADD VAR AND PART AFTER 373 375 . . S @OXML@(I)=TSTR ; COPY LINE WITH MAPPED VALUES 374 376 . . I DEBUG W TSTR 375 377 I DEBUG W "MAPPED",! 378 Q 379 ; 380 DOFLD ; PROCESS A FILEMAN FIELD REFERENCED BY A VARIABLE 381 ; 376 382 Q 377 383 ;
Note:
See TracChangeset
for help on using the changeset viewer.