Changeset 293 for ccr/trunk/p

Timestamp:

Nov 20, 2008, 11:04:22 AM (15 years ago)

Author:

George Lilly

Message:

load the CCR DICTIONARY with variable names and xpath

File:

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

ccr/trunk/p/C0CDIC.m

@@ -77 +77 @@
  F  S C0CI=$O(C0CTVARS(C0CI)) Q:C0CI=""  D  ; BY LINE NUMBER
  . S C0CX=C0CTVARS(C0CI) ;VARIABLE NAME
- . S C0CY=C0CX_"^"_C0CI ; VAR NAME ^ LINE NUM ^ XPATH
- . D PUSH^GPLXPATH("C0C2",C0CY) ; PUT ONTO ARRAY
+ . S $P(C0CX,"^",2)=C0CI ; LINE NUMBER IS SECOND PIECE
+ . D PUSH^GPLXPATH("C0C2",C0CX) ; PUT ONTO ARRAY
  K @C0CPVARS
  M @C0CPVARS=C0C2
  Q
  ;
+LOAD ; LOAD VARIABLE NAMES AND XPATH IN ^C0CDIC(170
+ ; INITIAL LOAD OF THE CCR DICTIONARY
+ ;
+ N C0CDIC,C0CARY,C0CXML,C0CFDA,C0CI
+ S C0CDIC="^C0CDIC(170," ; ROOT OF THE CCR DICTIONARY
+ D GXPATH("C0CARY","C0CXML") ; FETCH THE VARIABLES AND XPATH INTO C0CARY
+ ; C0CXML WILL CONTAIN THE TEMPLATE - NOT NEEDED FOR LOAD
+ D PARY^GPLXPATH("C0CARY") ;TEST
+ F C0CI=1:1:C0CARY(0) D  ; LOAD EACH VARIABLE
+ . S C0CFDA(170,"+"_C0CI_",",.01)=$P(C0CARY(C0CI),"^",1) ; VAR NAME
+ . S C0CFDA(170,"+"_C0CI_",",2)=$P(C0CARY(C0CI),"^",3) ; XPATH
+ . D UPDATE^DIE("","C0CFDA")
+ . I $D(^TMP("DIERR",$J)) U $P BREAK
+ . W "LOADING:",C0CI," ",C0CARY(C0CI),!
+ Q
+ ;