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

Timestamp:

Dec 6, 2009, 1:16:46 PM (14 years ago)

Author:

George Lilly

Message:

reorganizing MXML routines

File:

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

ccr/trunk/p/C0CMXML.m

@@ -43 +43 @@
  K @C0CXMLIN
  W $$FTG^%ZISH("/home/vademo2/CCR/","SampleCCDDocument.xml",$NA(@C0CXMLIN@(1)),3)
- D CLEANARY("GTMP",C0CXMLIN) ; REMOVE CONTROL CHARACTERS
- K @C0CXMLIN
- M @C0CXMLIN=GTMP
- K GTMP
- D STRIPTXT("GTMP",C0CXMLIN)
- K @C0CXMLIN
- M @C0CXMLIN=GTMP
- K GTMP
- S C0CDOCID=$$PARSCCD(C0CXMLIN,"W") W !,"DocID: ",C0CDOCID
+ D CLEANARY^C0CMCCD("GTMP",C0CXMLIN) ; REMOVE CONTROL CHARACTERS
+ K @C0CXMLIN
+ M @C0CXMLIN=GTMP
+ K GTMP
+ D STRIPTXT^C0CMCCD("GTMP",C0CXMLIN)
+ K @C0CXMLIN
+ M @C0CXMLIN=GTMP
+ K GTMP
+ S C0CDOCID=$$PARSCCD^C0CMCCD(C0CXMLIN,"W") W !,"DocID: ",C0CDOCID
  S REDUX="//ClinicalDocument/component/structuredBody"
- D FINDTID ; FIND THE TEMPLATE IDS
- D FINDALT ; FIND ALTERNATE TAGS
- D SETCBK ; SET THE CALLBACK ROUTINE FOR TAGS
+ D FINDTID^C0CMCCD ; FIND THE TEMPLATE IDS
+ D FINDALT^C0CMCCD ; FIND ALTERNATE TAGS
+ D SETCBK^C0CMCCD ; SET THE CALLBACK ROUTINE FOR TAGS
  D XPATH(1,"/","GIDX","GARY",,REDUX)
  K C0CCBK("TAG")
- D SEPARATE("GARY2","GARY") ; SEPARATE FOR EASIER BROWSING
+ D SEPARATE^C0CMCCD("GARY2","GARY") ; SEPARATE FOR EASIER BROWSING
  ;S C0CDOCID=$$PARSE(C0CXMLIN) W !,"DOCID: ",C0CDOCID  ;CALL REGULAR PARSER
  ;D XPATH(1,"/","GIDX2","GARY2",,REDUX)
@@ -78 +78 @@
  K @C0CXMLIN
  W $$FTG^%ZISH("/home/vademo2/CCR/","SampleCCDDocument.xml",$NA(@C0CXMLIN@(1)),3)
- D CLEANARY("GTMP",C0CXMLIN) ; REMOVE CONTROL CHARACTERS
- K @C0CXMLIN
- M @C0CXMLIN=GTMP
- K GTMP
- D STRIPTXT("GTMP",C0CXMLIN)
+ D CLEANARY^C0CMCCD("GTMP",C0CXMLIN) ; REMOVE CONTROL CHARACTERS
+ K @C0CXMLIN
+ M @C0CXMLIN=GTMP
+ K GTMP
+ D STRIPTXT^C0CMCCD("GTMP",C0CXMLIN)
  K @C0CXMLIN
  M @C0CXMLIN=GTMP
@@ -91 +91 @@
  ;D START^C0CMXMLB($$TAG(1),,"G")
  ;D NDOUT($$FIRST(1))
- ;D END^C0CMXMLB ;END THE DOCUMENT
+ ;D END^C0CMXMLB ;EOND THE DOCUMENT
  ;M ZCCD=^TMP("MXMLBLD",$J)
  ZWR ZCCD(1:30)