Changeset 122 for ccr/trunk/p/GPLCCD1.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/GPLCCD1.m (modified) (2 diffs)

ccr/trunk/p/GPLCCD1.m

@@ -1 @@
-GPLCCD0 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
+GPLCCD1 ; CCDCCR/GPL - CCD TEMPLATE AND ACCESS ROUTINES; 6/7/08
  ;;0.1;CCDCCR;nopatch;noreleasedate
  ;Copyright 2008 WorldVistA.  Licensed under the terms of the GNU
@@ -26 +26 @@
           ; BAT is a string identifying the section
           ; LINE is a test which will evaluate to true or false
-          ; I '$G(@ZARY) D
-          . S @ZARY@(0)=0 ; initially there are no elements
-          . W "GOT HERE LOADING "_LINE,!
+          ; I '$G(@ZARY) D  ; IF ZARY DOES NOT EXIST '
+          ; . S @ZARY@(0)=0 ; initially there are no elements
+          ; . W "GOT HERE LOADING "_LINE,!
           N CNT ; count of array elements
           S CNT=@ZARY@(0) ; contains array count