Changeset 1586 for ccr/trunk/p/C0CNHIN.m

Timestamp:

Oct 30, 2012, 1:11:02 PM (12 years ago)

Author:

Sam Habiel

Message:

Changed license to AGPL. Some clean-up for XINDEX

File:

• ccr/trunk/p/C0CNHIN.m (modified) (9 diffs)

ccr/trunk/p/C0CNHIN.m

@@ -1 @@
-C0CNHIN   ; GPL - PROCESSING FOR OUTPUT OF NHINV ROUTINES;6/3/11  17:05
-        ;;1.2;C0C;;May 11, 2012;Build 47
-        ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
-        ;General Public License See attached copy of the License.
-        ;
-        ;This program is free software; you can redistribute it and/or modify
-        ;it under the terms of the GNU General Public License as published by
-        ;the Free Software Foundation; either version 2 of the License, or
-        ;(at your option) any later version.
-        ;
-        ;This program is distributed in the hope that it will be useful,
-        ;but WITHOUT ANY WARRANTY; without even the implied warranty of
-        ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-        ;GNU General Public License for more details.
-        ;
-        ;You should have received a copy of the GNU General Public License along
-        ;with this program; if not, write to the Free Software Foundation, Inc.,
-        ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+C0CNHIN   ; GPL - PROCESSING FOR OUTPUT OF NHINV ROUTINES;6/3/11  17:05
+        ;;1.2;CCD/CCR GENERATION UTILITIES;;Oct 30, 2012;Build 50
+        ;Copyright 2011 George Lilly.  
+        ;
+        ; This program is free software: you can redistribute it and/or modify
+        ; it under the terms of the GNU Affero General Public License as
+        ; published by the Free Software Foundation, either version 3 of the
+        ; License, or (at your option) any later version.
+        ;
+        ; This program is distributed in the hope that it will be useful,
+        ; but WITHOUT ANY WARRANTY; without even the implied warranty of
+        ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+        ; GNU Affero General Public License for more details.
+        ;
+        ; You should have received a copy of the GNU Affero General Public License
+        ; along with this program.  If not, see <http://www.gnu.org/licenses/>.
         ;
         Q
@@ -146 +144 @@
         Q
         ;
-DOMO(ZOID,ZPATH,ZNARY,ZXIDX,ZXPARY,ZNUM,ZREDUX) ; RECURSIVE ROUTINE TO POPULATE
+DOMO(ZOID,ZPATH,ZNARY,ZXIDX,ZXPARY,ZNUM,ZREDUX) ; RECURSIVE ROUTINE TO POPULATE
         ; THE XPATH INDEX ZXIDX, PASSED BY NAME
         ; THE XPATH ARRAY XPARY, PASSED BY NAME
@@ -205 +203 @@
         Q
         ;
-PARSE(INXML,INDOC) ;CALL THE MXML PARSER ON INXML, PASSED BY NAME
+PARSE(INXML,INDOC)      ;CALL THE MXML PARSER ON INXML, PASSED BY NAME
         ; INDOC IS PASSED AS THE DOCUMENT NAME - DON'T KNOW WHERE TO STORE THIS NOW
         ; EXTRINSIC WHICH RETURNS THE DOCID ASSIGNED BY MXML
@@ -211 +209 @@
         Q $$EN^MXMLDOM(INXML,"W")
         ;
-ISMULT(ZOID) ; RETURN TRUE IF ZOID IS ONE OF A MULTIPLE
+ISMULT(ZOID)    ; RETURN TRUE IF ZOID IS ONE OF A MULTIPLE
         N ZN
         ;I $$TAG(ZOID)["entry" B
@@ -218 +216 @@
         Q 0
         ;
-FIRST(ZOID) ;RETURNS THE OID OF THE FIRST CHILD OF ZOID
+FIRST(ZOID)     ;RETURNS THE OID OF THE FIRST CHILD OF ZOID
         Q $$CHILD^MXMLDOM(C0CDOCID,ZOID)
         ;
-PARENT(ZOID) ;RETURNS THE OID OF THE PARENT OF ZOID
+PARENT(ZOID)    ;RETURNS THE OID OF THE PARENT OF ZOID
         Q $$PARENT^MXMLDOM(C0CDOCID,ZOID)
         ;
-ATT(RTN,NODE) ;GET ATTRIBUTES FOR ZOID
+ATT(RTN,NODE)   ;GET ATTRIBUTES FOR ZOID
         S HANDLE=C0CDOCID
         K @RTN
@@ -230 +228 @@
         Q
         ;
-TAG(ZOID) ; RETURNS THE XML TAG FOR THE NODE
+TAG(ZOID)       ; RETURNS THE XML TAG FOR THE NODE
         ;I ZOID=149 B ;GPLTEST
         N X,Y
@@ -239 +237 @@
         Q Y
         ;
-NXTSIB(ZOID) ; RETURNS THE NEXT SIBLING
+NXTSIB(ZOID)    ; RETURNS THE NEXT SIBLING
         Q $$SIBLING^MXMLDOM(C0CDOCID,ZOID)
         ;
-DATA(ZT,ZOID) ; RETURNS DATA FOR THE NODE
+DATA(ZT,ZOID)   ; RETURNS DATA FOR THE NODE
         ;N ZT,ZN S ZT=""
         ;S C0CDOM=$NA(^TMP("MXMLDOM",$J,C0CDOCID))
@@ -249 +247 @@
         Q
         ;
-OUTXML(ZRTN,INID) ; USES C0CMXMLB (MXMLBLD) TO OUTPUT XML FROM AN MXMLDOM
+OUTXML(ZRTN,INID)       ; USES C0CMXMLB (MXMLBLD) TO OUTPUT XML FROM AN MXMLDOM
         ;
         S C0CDOCID=INID
@@ -259 +257 @@
         Q
         ;
-NDOUT(ZOID) ;CALLBACK ROUTINE - IT IS RECURSIVE
+NDOUT(ZOID)     ;CALLBACK ROUTINE - IT IS RECURSIVE
         N ZI S ZI=$$FIRST(ZOID)
         I ZI'=0 D  ; THERE IS A CHILD