Changeset 713 for ccr/trunk/p/C0CMXP.m

Timestamp:

Feb 26, 2010, 9:53:06 AM (15 years ago)

Author:

George Lilly

Message:

updates to web services support

File:

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

ccr/trunk/p/C0CMXP.m

@@ -21 +21 @@
  ;
 INITXPF(ARY) ;INITIAL XML/XPATH FILE ARRAY
- ;
+ ; DON'T USE THIS ONE ... USE INITFARY^C0CSOAP("FARY") INSTEAD
+ D INITFARY^C0CSOAP(ARY) ;
  S @ARY@("XML FILE NUMBER")=178.101
  S @ARY@("XML SOURCE FIELD")=2.1
@@ -32 +33 @@
  ;
  S C0CXPF=@ARY@("XML FILE NUMBER")
- S C0CXFLD=@ARY@("XML SOURCE FIELD")
- S C0CXTFLD=@ARY@("XML TEMPLATE FIELD")
- S C0CXPBF=@ARY@("XPATH BINDING SUBFILE")
- S C0CRDUXF=@ARY@("REDUX FIELD")
+ S C0CXFLD=@ARY@("XML")
+ S C0CXTFLD=@ARY@("TEMPLATE XML")
+ S C0CXPBF=@ARY@("BINDING SUBFILE NUMBER")
+ S C0CRDUXF=@ARY@("XPATH REDUCTION STRING")
  Q
  ;
@@ -89 +90 @@
  Q
  ;
-COMPILE(INTID,UFARY) ; COMPILES AN XML TEMPLATE AND GENERATES XPATH BINDINGS
+COMPILE(TID,UFARY) ; COMPILES AN XML TEMPLATE AND GENERATES XPATH BINDINGS
  ; UFARY IF SPECIFIED WILL REDIRECT THE XML FILE TO USE
  ; INTID IS THE IEN OF THE RECORD TO USE IN THE XML FILE
@@ -96 +97 @@
  ; WILL BE POPULATED TO THE XPATH BINDINGS SUBFILE AS .01
  I '$D(UFARY) D  ;
- . S UFARY="UFARY" ; FILE ARRAY
- . D INITXPF("UFARY") ;IF FILE ARRAY NOT PASSED, INITIALIZE
+ . S UFARY="DEFFARY" ; FILE ARRAY
+ . ;D INITXPF("UFARY") ;IF FILE ARRAY NOT PASSED, INITIALIZE
+ . D INITFARY^C0CSOAP(UFARY)
  D SETXPF(UFARY) ;SET FILE VARIABLES
- B
+ I +TID=0 S INTID=$$RESTID^C0CSOAP(TID,UFARY)
+ E  S INTID=TID
+ ;B
  ;N C0CXML,C0CREDUX,C0CTEMP,C0CIDX
  D GETXML("C0CXML",INTID,UFARY)