Changeset 561 for ccr/trunk/p


Ignore:
Timestamp:
Sep 15, 2009, 1:11:39 PM (15 years ago)
Author:
George Lilly
Message:

upgrades to actor extract and xpath processing for eRx

Location:
ccr/trunk/p
Files:
2 edited

Legend:

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

    r508 r561  
    8585PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
    8686 I DEBUG W "PROCESSING ACTOR PATIENT ",AIEN,!
    87  N AMAP,ZX
     87 ;GPL SEPARATED EXTRACT FROM MAP FOR PROCESSING PATIENTS - TO MAKE
     88 ; CODE REUSABLE FROM ERX
     89 N AMAP
    8890 S AMAP=$NA(^TMP($J,"AMAP"))
    8991 K @AMAP
     92 D PEXTRACT(AMAP,AIEN,AOID) ;EXTRACT THE PATIENT ACTOR
     93 D MAP(INXML,AMAP,OUTXML) ;MAP TO XML
     94 K @AMAP ; CLEAN UP BEHIND US
     95 Q
     96 ;
     97PEXTRACT(AMAP,AIEN,AOID) ; EXTRACT TO RETURN ARRAY RARY PASSED BY NAME
     98 N ZX
    9099 S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    91100 S @AMAP@("ACTORGIVENNAME")=$$GIVEN^C0CDPT(AIEN)
     
    139148 S @AMAP@("ACTORSUFFIXNAME")="" ; DOES VISTA STORE THE SUFFIX
    140149 S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1" ; THE SYSTEM IS THE SOURCE
     150 Q
     151 ;
     152MAP(INXML,AMAP,OUTXML) ;MAP ANY ACTOR TO XML
    141153 D MAP^C0CXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
    142154 Q
  • ccr/trunk/p/C0CXPATH.m

    r557 r561  
    226226 I $D(VDX) S DVDX=1 ; IF NAME PASSED, DO VDX
    227227 S C0CSTK(0)=0 ; INITIALIZE STACK
     228 K LKASD ; KILL LOOKASIDE ARRAY
    228229 D MKLASD(.LKASD,IZXML) ;MAKE LOOK ASIDE BUFFER FOR MULTIPLES
    229230 F I=1:1:LCNT  D  ; PROCESS THE ENTIRE ARRAY
     
    309310 F  S ZI=$O(OUTBUF(ZI)) Q:ZI=""  D  ; FOR EACH KIND OF MULTIPLE
    310311 . S ZN=$O(OUTBUF(ZI,"")) ; LINE NUMBER OF SECOND MULTIPLE
    311  . F  S ZN=$O(@IZXML@(ZN),-1) Q:ZN=""  I $P(@IZXML@(ZN),"<"_ZI,2)=">" Q  ;
     312 . F  S ZN=$O(@IZXML@(ZN),-1) Q:ZN=""  I $E($P(@IZXML@(ZN),"<"_ZI,2),1,1)=">" Q  ;
    312313 . S OUTBUF(ZI,ZN)=""
    313314 S ZA=1,ZI="",ZN=""
Note: See TracChangeset for help on using the changeset viewer.