Changeset 122 for ccr/trunk/p/GPLCCD.m

Timestamp:

Aug 30, 2008, 3:13:15 PM (16 years ago)

Author:

George Lilly

Message:

XINDEX fixes. almost clean except for long var names and big files

File:

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

ccr/trunk/p/GPLCCD.m

@@ -87 +87 @@
     ; MAPPING THE PROVIDER ORGANIZATION,AUTHOR,INFORMANT,CUSTODIAN CDA HEADER
     ; FOR NOW, THEY ARE ALL THE SAME AND RESOLVE TO ORGANIZATION
-    D ORG^GPLACTORS(CCDGLO,DFN,"ACTORPATIENTORGANIZATION","ACTT2") ; MAP ORG
+    D ORG^GPLACTOR(CCDGLO,DFN,"ACTORPATIENTORGANIZATION","ACTT2") ; MAP ORG
     D CP^GPLXPATH("ACTT2",CCDGLO)
     ;
@@ -116 +116 @@
     ; D ACTLST^GPLCCR(CCDGLO,ACTGLO) ; GEN THE ACTOR LIST
     ; D QUERY^GPLXPATH(TGLOBAL,"//ContinuityOfCareRecord/Actors","ACTT")
-    ; D EXTRACT^GPLACTORS("ACTT",ACTGLO,"ACTT2")
+    ; D EXTRACT^GPLACTOR("ACTT",ACTGLO,"ACTT2")
     ; D INSINNER^GPLXPATH(CCDGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
     N I,J,DONE S DONE=0
-    F I=0:0 D  Q:DONE ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
+    F I=0:0 D  Q:DONE  ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
     . S J=$$TRIM^GPLXPATH(CCDGLO) ; DELETE EMPTY ELEMENTS
     . W "TRIMMED",J,!