Changeset 728 for ccr/trunk/p/C0CSOAP.m

Timestamp:

Mar 27, 2010, 1:31:47 AM (14 years ago)

Author:

George Lilly

Message:

updates to XML processing

File:

• ccr/trunk/p/C0CSOAP.m (modified) (3 diffs)

ccr/trunk/p/C0CSOAP.m

@@ -68 +68 @@
  Q
  ;
-SOAP(C0CRTN,C0CTID,C0CVA,C0CVOR,ALTXML) ; MAKES A SOAP CALL FOR 
+SOAP(C0CRTN,C0CTID,C0CVA,C0CVOR,ALTXML,IFARY) ; MAKES A SOAP CALL FOR 
  ; TEMPLATE ID C0CTID
  ; RETURNS THE XML RESULT IN C0CRTN, PASSED BY NAME
@@ -110 +110 @@
  ; END ARTIFACTS
  ;
- D INITFARY("C0CF") ; SET FILE NUMBER AND PARAMATERS 
+ I '$D(IFARY) D INITFARY("C0CF") ; SET FILE NUMBER AND PARAMATERS 
+ E  D  ; 
+ . K C0CF
+ . M C0CF=@IFARY
  S C0CXF=C0CF("XML FILE NUMBER") ; FILE NUMBER FOR THE XML TEMPLATE FILE
  I +C0CTID=0 D  ; A STRING WAS PASSED FOR THE TEMPLATE NAME
@@ -139 +142 @@
  I $G(C0CPROXY) S C0CURL=C0CPURL
  K C0CRSLT,C0CRHDR
+ B
  S ok=$$httpPOST^%zewdGTM(C0CURL,.XML,C0CMIME,.C0CRSLT,.HEADER,"",.gpl5,.C0CRHDR)
  K C0CRXML
  D NORMAL("C0CRXML","C0CRSLT(1)") ;RETURN XML IN AN ARRAY
- N C0CFR S C0CFR=C0CF("REPLY TEMPLATE")
+ N C0CFR S C0CFR=$G(C0CF("REPLY TEMPLATE"))
  S C0CR=$$GET1^DIQ(C0CXF,C0CUTID_",",C0CFR,"I") ; REPLY TEMPLATE
  ; reply templates are optional and are specified by populating a