Changeset 284 for ccr


Ignore:
Timestamp:
Nov 18, 2008, 10:32:58 AM (16 years ago)
Author:
George Lilly
Message:

debugging actor crash

File:
1 edited

Legend:

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

    r277 r284  
    6767 . . D ORG("ATMP",AIEN,AOID,"ATMP2")
    6868 . ;
    69  . ;W "PROCESSING:",ATYP,!
     69 . W "PROCESSING:",ATYP," ",AIEN,!
     70 . ;I @ATMP2@(0)=0 Q  ; NOTHING RETURNED, SKIP THIS ONE
    7071 . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
    7172 . K ATYP,AIEN,AOID,ATMP,ATMP2 ; BE SURE TO GET THE NEXT ONE
     
    171172     S AMAP=$NA(^TMP($J,"AMAP"))
    172173     K @AMAP
     174     I '$D(^VA(200,AIEN,0)) D  Q  ; IF NO PROVIDER RECORD (SHOULDN'T HAPPEN)
     175     . W "WARNING - MISSING PROVIDER: ",AIEN,!
     176     . S @OUTXML@(0)=0 ; SIGNAL NO OUTPUT
    173177     S @AMAP@("ACTOROBJECTID")=AOID ;ACTOR OBJECT ID
    174178     S @AMAP@("ACTORGIVENNAME")=$$GIVEN^CCRVA200(AIEN)
Note: See TracChangeset for help on using the changeset viewer.