Changeset 647 for ccr/trunk/p/C0CMCCD.m

Timestamp:

Dec 15, 2009, 4:41:11 PM (14 years ago)

Author:

George Lilly

Message:

template generation tools

File:

• ccr/trunk/p/C0CMCCD.m (modified) (1 diff)

ccr/trunk/p/C0CMCCD.m

@@ -216 +216 @@
  Q
  ;
-OUTCCD ; OUTPUT THE PARSED CCD TO A TEXT FILE
- D TEST3^C0CMXML
+OUTCCD(GARYIN) ; OUTPUT THE PARSED CCD TO A TEXT FILE
+ ;D TEST3^C0CMXML
  N ZT S ZT=$NA(^TMP("CCDOUT",$J))
  N ZI,ZJ
  S ZI=1 S ZJ=""
  K @ZT
- F  S ZJ=$O(GARY(ZJ)) Q:ZJ=""  D  ;
- . S @ZT@(ZI)=ZJ_"^"_GARY(ZJ)
+ F  S ZJ=$O(GARYIN(ZJ)) Q:ZJ=""  D  ;
+ . S @ZT@(ZI)=ZJ_"^"_GARYIN(ZJ)
  . S ZI=ZI+1
  S ONAME=$NA(@ZT@(1))