Changeset 572 for ccr


Ignore:
Timestamp:
Oct 13, 2009, 1:54:39 AM (15 years ago)
Author:
George Lilly
Message:

xpath wrapper for MXML

Location:
ccr/trunk/p
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed

  • ccr/trunk/p/C0CBAT.m

    r508 r572  
    8585 ;F  S C0CBCUR=$O(@C0CBH@(C0CBCUR),-1) Q:C0CBCUR=""  D  ; HOT LIST LATEST FIRST
    8686 F  S C0CBCUR=$O(@C0CBH@(C0CBCUR)) Q:(C0CSTOP)!(C0CBCUR="")  D  ; HOT LIST FIRST
    87  . D ANALYZE^C0CRIMA(C0CBCUR,1,"LABLIMIT:T-760^VITLIMIT:T-760")
     87 . D ANALYZE^C0CRIMA(C0CBCUR,1,"LABLIMIT:T-900^VITLIMIT:T-900")
    8888 . I $G(C0CCHK) D  ;
    8989 . . D PUTRIM^C0CFM2(C0CBCUR)

  • ccr/trunk/p/C0CFM2.m

    r508 r572  
    106106 D UPDIE ; ADD THE ELEMENT TYPE
    107107 S ZTYP=$O(^C0CE(PATN,1,ZSRC,1,"B",ZTYPN,"")) ; IEN OF ELEMENT TYPE
    108  S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=" "_ZOCC ; STRING OCC
     108 S C0CFDA(C0CFOCC,"?+1,"_ZTYP_","_ZSRC_","_PATN_",",.01)=ZOCC ; STRING OCC
    109109 ; OCC IS PRECEDED BY " " TO FORCE STRING STORAGE AND PRESERVE
    110110 ; STRING COLLATION ON THE INDEX
    111111 D UPDIE ; ADD THE OCCURANCE
    112  S ZD0=$O(^C0CE(PATN,1,ZSRC,1,ZTYP,1,"B"," "_ZOCC,""))
     112 S ZD0=$O(^C0CE(PATN,1,ZSRC,1,ZTYP,1,"B",ZOCC,""))
    113113 W "RECORD NUMBER: ",ZD0,!
    114114 ;I ZD0=32 B
Note: See TracChangeset for help on using the changeset viewer.