Changeset 98 for ccr/trunk/p

Timestamp:

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

Author:

George Lilly

Message:

changes for XINDEX errors

Location:

ccr/trunk/p

Files:

• GPLACTORS.m (modified) (4 diffs)
• GPLCCR.m (modified) (1 diff)
• GPLRIMA.m (modified) (2 diffs)
• GPLXPATH.m (modified) (2 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

ccr/trunk/p/GPLCCR.m

@@ -94 +94 @@
     D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
     N TRIMI,J,DONE S DONE=0
-    F TRIMI=0:0 D  Q:DONE ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
+    F TRIMI=0:0 D  Q:DONE  ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
     . S J=$$TRIM^GPLXPATH(CCRGLO) ; DELETE EMPTY ELEMENTS
     . W "TRIMMED",J,!

ccr/trunk/p/GPLRIMA.m

@@ -49 +49 @@
     S RIMDFN=BEGDFN ; BEGIN WITH THE BEGDFN PATIENT
     I RIMDFN="" S RIMDFN=RESUME
-    I +RIMDFN=0 D  Q ; AT THE END OF THE PATIENTS
+    I +RIMDFN=0 D  Q  ; AT THE END OF THE PATIENTS
     . W "END OF PATIENT LIST, CALL RESET^GPLRIMA",!
-    F RIMI=1:1:DFNCNT  D  Q:+RIMDFN=0 ; FOR DFNCNT NUMBER OF PATIENTS OR END
+    F RIMI=1:1:DFNCNT  D  Q:+RIMDFN=0  ; FOR DFNCNT NUMBER OF PATIENTS OR END
     . D CCRRPC^GPLCCR(.CCRGLO,RIMDFN,"CCR","","","") ;PROCESS THE CCR
     . W RIMDFN,!
@@ -149 +149 @@
     I '$D(RIMBASE) D ASETUP ; FOR COMMANDLINE PROCESSING
     N USETBL
-    I '$D(@RIMBASE@("TABLES",PTBL)) D  Q ; NO TABLE
+    I '$D(@RIMBASE@("TABLES",PTBL)) D  Q  ; NO TABLE
     . W "ERROR NO SUCH TABLE",!
     S USETBL=@RIMBASE@("TABLES",PTBL)

ccr/trunk/p/GPLXPATH.m

@@ -321 +321 @@
          S XFIRST=$P(XNODE,"^",1)
          S XLAST=$P(XNODE,"^",2)
-         I RENEW="" D ; WE ARE DELETING A SECTION, MUST SAVE THE TAG
+         I RENEW="" D  ; WE ARE DELETING A SECTION, MUST SAVE THE TAG
          . D QUEUE("REBLD",REXML,1,XFIRST) ; THE BEFORE
          . D QUEUE("REBLD",REXML,XLAST,@REXML@(0)) ; THE REST
@@ -373 +373 @@
          . I @OXML@(I)?.E1"@@".E D  ; IS THERE A VARIABLE HERE?
          . . S TSTR=$P(@IXML@(I),"@@",1) ; INIT TO PART BEFORE VARS
-         . . F J=2:2:10  D  Q:$P(@IXML@(I),"@@",J+2)="" ; QUIT IF NO MORE VARS
+         . . F J=2:2:10  D  Q:$P(@IXML@(I),"@@",J+2)=""  ; QUIT IF NO MORE VARS
          . . . I DEBUG W "IN MAPPING LOOP: ",TSTR,!
          . . . S TNAM=$P(@OXML@(I),"@@",J) ; EXTRACT THE VARIABLE NAME