Changeset 561 for ccr/trunk/p/C0CACTOR.m

Timestamp:

Sep 15, 2009, 1:11:39 PM (15 years ago)

Author:

George Lilly

Message:

upgrades to actor extract and xpath processing for eRx

File:

• ccr/trunk/p/C0CACTOR.m (modified) (2 diffs)

ccr/trunk/p/C0CACTOR.m

@@ -85 +85 @@
 PATIENT(INXML,AIEN,AOID,OUTXML) ; PROCESS A PATIENT ACTOR
  I DEBUG W "PROCESSING ACTOR PATIENT ",AIEN,!
- N AMAP,ZX
+ ;GPL SEPARATED EXTRACT FROM MAP FOR PROCESSING PATIENTS - TO MAKE
+ ; CODE REUSABLE FROM ERX
+ N AMAP
  S AMAP=$NA(^TMP($J,"AMAP"))
  K @AMAP
+ D PEXTRACT(AMAP,AIEN,AOID) ;EXTRACT THE PATIENT ACTOR
+ D MAP(INXML,AMAP,OUTXML) ;MAP TO XML
+ K @AMAP ; CLEAN UP BEHIND US
+ Q
+ ;
+PEXTRACT(AMAP,AIEN,AOID) ; EXTRACT TO RETURN ARRAY RARY PASSED BY NAME
+ N ZX
  S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
  S @AMAP@("ACTORGIVENNAME")=$$GIVEN^C0CDPT(AIEN)
@@ -139 +148 @@
  S @AMAP@("ACTORSUFFIXNAME")="" ; DOES VISTA STORE THE SUFFIX
  S @AMAP@("ACTORSOURCEID")="ACTORSYSTEM_1" ; THE SYSTEM IS THE SOURCE
+ Q
+ ;
+MAP(INXML,AMAP,OUTXML) ;MAP ANY ACTOR TO XML
  D MAP^C0CXPATH(INXML,AMAP,OUTXML) ; MAP THE VARIABLE
  Q