Changeset 763 for ccr/trunk/p/C0CMXML.m

Timestamp:

May 18, 2010, 2:49:39 PM (15 years ago)

Author:

George Lilly

Message:

includes testing version of de-identification code

File:

• ccr/trunk/p/C0CMXML.m (modified) (2 diffs)

ccr/trunk/p/C0CMXML.m

@@ -36 +36 @@
  . N GTMP,G2
  . M G2=GARY2(ZI)
- . D DEMUXARY^C0CMXP("GTMP","G2",2)
+ . D DEMUX2^C0CMXP("GTMP","G2",2)
  . M GARY3(ZI)=GTMP
  Q
@@ -66 +66 @@
  K C0CCBK("TAG")
  D SEPARATE^C0CMCCD("GARY2","GARY") ; SEPARATE FOR EASIER BROWSING
+ D TEST3A
+ Q
+ ;
+TEST3A ; INTERNAL ROUTINE
  S ZI=""
  F  S ZI=$O(GARY2(ZI)) Q:ZI=""  D  ;
  . N GTMP,G2
  . M G2=GARY2(ZI)
- . D DEMUXARY^C0CMXP("GTMP","G2",2)
+ . D DEMUX2^C0CMXP("GTMP","G2",2)
  . M GARY4(ZI)=GTMP
  Q