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


Ignore:
Timestamp:
Aug 22, 2008, 11:52:42 AM (16 years ago)
Author:
George Lilly
Message:

changes for XINDEX errors

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/GPLCCR.m

    r93 r98  
    9494    D INSINNER^GPLXPATH(CCRGLO,"ACTT2","//ContinuityOfCareRecord/Actors")
    9595    N TRIMI,J,DONE S DONE=0
    96     F TRIMI=0:0 D  Q:DONE ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
     96    F TRIMI=0:0 D  Q:DONE  ; DELETE UNTIL ALL EMPTY ELEMENTS ARE GONE
    9797    . S J=$$TRIM^GPLXPATH(CCRGLO) ; DELETE EMPTY ELEMENTS
    9898    . W "TRIMMED",J,!
Note: See TracChangeset for help on using the changeset viewer.