Changeset 284 for ccr

Timestamp:

Nov 18, 2008, 10:32:58 AM (16 years ago)

Author:

George Lilly

Message:

debugging actor crash

File:

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

ccr/trunk/p/GPLACTOR.m

@@ -67 +67 @@
  . . D ORG("ATMP",AIEN,AOID,"ATMP2")
  . ;
- . ;W "PROCESSING:",ATYP,!
+ . W "PROCESSING:",ATYP," ",AIEN,!
+ . ;I @ATMP2@(0)=0 Q  ; NOTHING RETURNED, SKIP THIS ONE
  . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
  . K ATYP,AIEN,AOID,ATMP,ATMP2 ; BE SURE TO GET THE NEXT ONE
@@ -171 +172 @@
      S AMAP=$NA(^TMP($J,"AMAP"))
      K @AMAP
+     I '$D(^VA(200,AIEN,0)) D  Q  ; IF NO PROVIDER RECORD (SHOULDN'T HAPPEN)
+     . W "WARNING - MISSING PROVIDER: ",AIEN,!
+     . S @OUTXML@(0)=0 ; SIGNAL NO OUTPUT
      S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
      S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRVA200(AIEN)