Changeset 727 for ccr/trunk/p

Timestamp:

Mar 21, 2010, 6:21:30 PM (15 years ago)

Author:

George Lilly

Message:

update to template compiler

File:

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

ccr/trunk/p/C0CMXP.m

@@ -99 +99 @@
  . D INITXPF("FARY") ;IF FILE ARRAY NOT PASSED, INITIALIZE
  D SETXPF(FARY) ;SET FILE VARIABLES
+ I +TEMPID=0 S TEMPID=$$RESTID^C0CSOAP(TEMPID,FARY) ;RESOLVE TEMPLATE NAME
  I $$GET1^DIQ(C0CXPF,TEMPID_",",C0CXTFLD,,OUTXML)'=OUTXML D  Q  ;
  . W "ERROR RETRIEVING TEMPLATE",!
@@ -143 +144 @@
  . K ZD ;FOR DATA
  . D DATA^C0CMXML("ZD",ZI) ;SEE IF THERE IS DATA FOR THIS NODE
- . I $D(ZD(1)) D  ; IF YES
+ . ;I $D(ZD(1)) D  ; IF YES
+ . I $$FIRST^C0CMXML(ZI)=0 D  ; IF THERE ARE NO CHILDREN TO THIS NODE
  . . ;I ZI<3 B  ;W !,ZD(1)
  . . K @C0CDOM@(ZI,"T") ; KILL THE DATA