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

Timestamp:

Jan 4, 2012, 9:39:08 PM (12 years ago)

Author:

George Lilly

Message:

removed tabs

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
+C0CNHIN   ; GPL - PROCESSING FOR OUTPUT OF NHINV ROUTINES;6/3/11  17:05
  ;;0.1;C0C;nopatch;noreleasedate;Build 38
  ;Copyright 2011 George Lilly.  Licensed under the terms of the GNU
@@ -146 +146 @@
  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 +205 @@
  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 +211 @@
  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 +218 @@
  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 +230 @@
  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 +239 @@
  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 +249 @@
  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 +259 @@
  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