Changeset 98 for ccr/trunk/p/GPLACTORS.m

Timestamp:

Aug 22, 2008, 11:52:42 AM (16 years ago)

Author:

George Lilly

Message:

changes for XINDEX errors

File:

• ccr/trunk/p/GPLACTORS.m (modified) (4 diffs)

ccr/trunk/p/GPLACTORS.m

@@ -1 @@
-GPLACTORS ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
+GPLACTORS  ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ACTORS ; 7/3/08
  ;;0.3;CCDCCR;nopatch;noreleasedate
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
@@ -32 +32 @@
   ; ^TMP(7542,1,"ACTORS",n)="ActorID^ActorType^ActorIEN"
   ; ActorType is an enum containing either "PROVIDER" "PATIENT" "SYSTEM"
-
   ; AXML is the output arrary, to contain XML.
-
+  ;
            N I,J,AMAP,AOID,ATYP,AIEN
            D CP^GPLXPATH(IPXML,AXML) ; MAKE A COPY OF ACTORS XML
@@ -69 +68 @@
            . D INSINNER^GPLXPATH(AXML,"ATMP2") ; INSERT INTO ROOT
            ;
+           N ACTTMP
            D MISSING^GPLXPATH(AXML,"ACTTMP") ; SEARCH XML FOR MISSING VARS
            I ACTTMP(0)>0  D  ; IF THERE ARE MISSING VARS -
@@ -79 +79 @@
      ;
      W "PROCESSING ACTOR PATIENT ",AIEN,!
-     ; N AMAP
+     N AMAP,ZX
      S AMAP=$NA(^TMP($J,"AMAP"))
      K @AMAP