Changeset 572 for ccr/trunk/p/C0CFM2.m

Timestamp:

Oct 13, 2009, 1:54:39 AM (15 years ago)

Author:

George Lilly

Message:

xpath wrapper for MXML

File:

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

ccr/trunk/p/C0CFM2.m

@@ -106 +106 @@
  D UPDIE ; ADD THE ELEMENT TYPE
  S ZTYP=$O(^C0CE(PATN,1,ZSRC,1,"B",ZTYPN,"")) ; IEN OF ELEMENT TYPE
- S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=" "_ZOCC ; STRING OCC
+ S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=ZOCC ; STRING OCC
  ; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE
  ; STRING COLLATION ON THE INDEX
  D UPDIE ; ADD THE OCCURANCE
- S ZD0=$O(^C0CE(PATN,1,ZSRC,1,ZTYP,1,"B"," "_ZOCC,""))
+ S ZD0=$O(^C0CE(PATN,1,ZSRC,1,ZTYP,1,"B",ZOCC,""))
  W "RECORD NUMBER: ",ZD0,!
  ;I ZD0=32 B