272 lines
8.2 KiB
Mathematica
272 lines
8.2 KiB
Mathematica
|
ONCSAPI3 ;Hines OIFO/SG - COLLABORATIVE STAGING (CALCULATE) ; 5/18/04 9:47am
|
||
|
|
;;2.11;ONCOLOGY;**40**;Mar 07, 1995
|
||
|
|
;
|
||
|
|
;--- SOAP REQUST TO THE COLLABORATIVE STAGING WEB SERVICE
|
||
|
|
;
|
||
|
|
; <?xml version="1.0" encoding="utf-8"?>
|
||
|
|
; <soap:Envelope
|
||
|
|
; xmlns:soap="http://www.w3.org/2001/12/soap-envelope"
|
||
|
|
; soap:encodingStyle="http://www.w3.org/2001/12/soap-encoding">
|
||
|
|
; <soap:Body>
|
||
|
|
; <CS-CALCULATE xmlns="http://vista.med.va.gov/oncology">
|
||
|
|
; <HIST> ... </HIST>
|
||
|
|
; <SITE> ... </SITE>
|
||
|
|
; <BEHAV> ... </BEHAV>
|
||
|
|
; <GRADE> ... </GRADE>
|
||
|
|
; <AGE> ... </AGE>
|
||
|
|
; <SIZE> ... </SIZE>
|
||
|
|
; <EXT> ... </EXT>
|
||
|
|
; <EXTEVAL> ... </EXTEVAL>
|
||
|
|
; <NODES> ... </NODES>
|
||
|
|
; <NODESEVAL> ... </NODESEVAL>
|
||
|
|
; <LNPOS> ... </LNPOS>
|
||
|
|
; <LNEXAM> ... </LNEXAM>
|
||
|
|
; <METS> ... </METS>
|
||
|
|
; <METSEVAL> ... </METSEVAL>
|
||
|
|
; <SSF1> ... </SSF1>
|
||
|
|
; <SSF2> ... </SSF2>
|
||
|
|
; <SSF3> ... </SSF3>
|
||
|
|
; <SSF4> ... </SSF4>
|
||
|
|
; <SSF5> ... </SSF5>
|
||
|
|
; <SSF6> ... </SSF6>
|
||
|
|
; </CS-CALCULATE>
|
||
|
|
; </soap:Body >
|
||
|
|
; </soap:Envelope>
|
||
|
|
;
|
||
|
|
;--- SOAP RESPONSE FROM THE COLLABORATIVE STAGING WEB SERVICE
|
||
|
|
;
|
||
|
|
; <?xml version="1.0" encoding="utf-8"?>
|
||
|
|
; <soap:Envelope
|
||
|
|
; xmlns:soap="http://www.w3.org/2001/12/soap-envelope"
|
||
|
|
; soap:encodingStyle="http://www.w3.org/2001/12/soap-encoding">
|
||
|
|
; <soap:Body>
|
||
|
|
; <CS-RESPONSE xmlns="http://vista.med.va.gov/oncology">
|
||
|
|
; <CS-STOR>
|
||
|
|
; <AJCC> ... </AJCC>
|
||
|
|
; <N> ... </N>
|
||
|
|
; <NDESCR> ... </NDESCR>
|
||
|
|
; <M> ... </M>
|
||
|
|
; <MDESCR> ... </MDESCR>
|
||
|
|
; <SS1977> ... </SS1977>
|
||
|
|
; <SS2000> ... </SS2000>
|
||
|
|
; <T> ... </T>
|
||
|
|
; <TDESCR> ... </TDESCR
|
||
|
|
; </CS-STOR>
|
||
|
|
; <CS-DISP>
|
||
|
|
; <AJCC> ... </AJCC>
|
||
|
|
; <N> ... </N>
|
||
|
|
; <NDESCR> ... </NDESCR>
|
||
|
|
; <M> ... </M>
|
||
|
|
; <MDESCR> ... </MDESCR>
|
||
|
|
; <SS1977> ... </SS1977>
|
||
|
|
; <SS2000> ... </SS2000>
|
||
|
|
; <T> ... </T>
|
||
|
|
; <TDESCR> ... </TDESCR>
|
||
|
|
; </CS-DISP>
|
||
|
|
; <APIVER> ... </APIVER>
|
||
|
|
; <VERSION> ... </VERSION>
|
||
|
|
; </CS-RESPONSE>
|
||
|
|
; <soap:Fault>
|
||
|
|
; <faultcode> ... </faultcode>
|
||
|
|
; <faultstring> ... </faultstring>
|
||
|
|
; <detail>
|
||
|
|
; <ERROR> ... </ERROR>
|
||
|
|
; <MSG>
|
||
|
|
; ...
|
||
|
|
; </MSG>
|
||
|
|
; <RC> ... </RC>
|
||
|
|
; </detail>
|
||
|
|
; </soap:Fault>
|
||
|
|
; </soap:Body >
|
||
|
|
; </soap:Envelope>
|
||
|
|
;
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
;***** CALLS THE COLLABORATIVE STAGING WEB SERVICE
|
||
|
|
;
|
||
|
|
; [.ONCSAPI] Reference to the API descriptor (see ^ONCSAPI)
|
||
|
|
;
|
||
|
|
; .INPUT( Reference to a local variable containg
|
||
|
|
; input parameters.
|
||
|
|
;
|
||
|
|
; "AGE") Age at Diagnosis
|
||
|
|
; "BEHAV") Behavior Code ICD-O-3
|
||
|
|
; "EXT") CS Extension
|
||
|
|
; "EXTEVAL") CS Size/Ext Eval
|
||
|
|
; "GRADE") Grade
|
||
|
|
; "HIST") Histologic Type ICD-O-3
|
||
|
|
; "LNPOS") Regional Nodes Positive
|
||
|
|
; "LNEXAM") Regional Nodes Examined
|
||
|
|
; "METS") CS Mets at DX
|
||
|
|
; "METSEVAL") CS Mets Eval
|
||
|
|
; "NODES") CS Lymph Nodes
|
||
|
|
; "NODESEVAL") CS Reg Nodes Eval
|
||
|
|
; "SITE") Primary site
|
||
|
|
; "SIZE") CS Tumor Size
|
||
|
|
; "SSF1") CS Site-Specific Factor 1
|
||
|
|
; "SSF2") CS Site-Specific Factor 2
|
||
|
|
; "SSF3") CS Site-Specific Factor 3
|
||
|
|
; "SSF4") CS Site-Specific Factor 4
|
||
|
|
; "SSF5") CS Site-Specific Factor 5
|
||
|
|
; "SSF6") CS Site-Specific Factor 6
|
||
|
|
;
|
||
|
|
; .ONCSTOR( Reference to a local variable where output
|
||
|
|
; storage values are returned.
|
||
|
|
;
|
||
|
|
; "AJCC") Derived AJCC Stage Group
|
||
|
|
; "N") Derived AJCC N
|
||
|
|
; "NDESCR") Derived AJCC N Descriptor
|
||
|
|
; "M") Derived AJCC M
|
||
|
|
; "MDESCR") Derived AJCC M Descriptor
|
||
|
|
; "SS1977") Derived SS1977
|
||
|
|
; "SS2000") Derived SS2000
|
||
|
|
; "T") Derived AJCC T
|
||
|
|
; "TDESCR") Derived AJCC T Descriptor
|
||
|
|
;
|
||
|
|
; .ONCDISP( Reference to a local variable where output
|
||
|
|
; display values are returned.
|
||
|
|
;
|
||
|
|
; "AJCC") Derived AJCC Stage Group
|
||
|
|
; "N") Derived AJCC N
|
||
|
|
; "NDESCR") Derived AJCC N Descriptor
|
||
|
|
; "M") Derived AJCC M
|
||
|
|
; "MDESCR") Derived AJCC M Descriptor
|
||
|
|
; "SS1977") Derived SS1977
|
||
|
|
; "SS2000") Derived SS2000
|
||
|
|
; "T") Derived AJCC T
|
||
|
|
; "TDESCR") Derived AJCC T Descriptor
|
||
|
|
;
|
||
|
|
; .ONCSTAT( Reference to a local variable where status
|
||
|
|
; values are returned.
|
||
|
|
;
|
||
|
|
; "APIVER") Version of the CS API
|
||
|
|
;
|
||
|
|
; "ERROR", Error Code
|
||
|
|
; Name) Symbolic names of error bits (see
|
||
|
|
; the INVLDINP^ONCSAPI3 for details)
|
||
|
|
;
|
||
|
|
; "MSG",
|
||
|
|
; i) Error message returned by the CStage_calculate
|
||
|
|
;
|
||
|
|
; "RC") Error code returned by the CS web-service
|
||
|
|
;
|
||
|
|
; "VERSION") Version of the service
|
||
|
|
;
|
||
|
|
; The ^TMP("ONCSAPI3",$J) global node is used by this function.
|
||
|
|
;
|
||
|
|
; Note: Patch XT*7.3*67 (VistA XML Parser)) is required for this
|
||
|
|
; API to work.
|
||
|
|
;
|
||
|
|
; Return values:
|
||
|
|
;
|
||
|
|
; <0 Error Descriptor (see ^ONCSAPI for details)
|
||
|
|
; For example:
|
||
|
|
; "-1^Missing input parameters^CALC+4^ONCSAPI"
|
||
|
|
;
|
||
|
|
; 0 Ok
|
||
|
|
;
|
||
|
|
; 1 Probably Ok (warnings)
|
||
|
|
;
|
||
|
|
CALC(ONCSAPI,INPUT,ONCSTOR,ONCDISP,ONCSTAT) ;
|
||
|
|
N CBK,ONCRDAT,ONCSDAT,ONCXML,RC,TMP,URL,X
|
||
|
|
D CLEAR^ONCSAPIE()
|
||
|
|
S ONCRDAT=$NA(^TMP("ONCSAPI3",$J))
|
||
|
|
K ONCDISP,ONCSTAT,ONCSTOR,@ONCRDAT
|
||
|
|
F X="AJCC","N","NDESCR","M","MDESCR","SS1977","SS2000","T","TDESCR" D
|
||
|
|
. S (ONCSTOR(X),ONCDISP(X))=""
|
||
|
|
Q:$D(INPUT)<10 $$ERROR^ONCSAPIE(-1)
|
||
|
|
;
|
||
|
|
;--- Get the server URL
|
||
|
|
S URL=$$GETCSURL^ONCSAPIU() Q:URL<0 URL
|
||
|
|
;
|
||
|
|
;--- Prepare the request parameters
|
||
|
|
S RC=$$PARAMS^ONCSAPIR("ONCSDAT","CS-CALCULATE",.INPUT)
|
||
|
|
Q:RC<0 RC
|
||
|
|
;
|
||
|
|
S RC=0 D
|
||
|
|
. ;--- Call the web service
|
||
|
|
. D:$G(ONCSAPI("DEBUG"))
|
||
|
|
. . D ZW^ONCSAPIU("ONCSDAT","*** 'CALCULATE' REQUEST ***")
|
||
|
|
. S RC=$$REQUEST^ONCSAPIR(URL,ONCRDAT,"ONCSDAT") Q:RC<0
|
||
|
|
. D:$G(ONCSAPI("DEBUG"))
|
||
|
|
. . D ZW^ONCSAPIU(ONCRDAT,"*** 'CALCULATE' RESPONSE ***")
|
||
|
|
. ;--- Parse the results
|
||
|
|
. D SETCBK(.CBK),EN^MXMLPRSE(ONCRDAT,.CBK,"W")
|
||
|
|
. ;--- Check the CS error codes
|
||
|
|
. S:$G(ONCXML("RC"))<0 ONCSTAT("RC")=ONCXML("RC")
|
||
|
|
. D INVLDINP(.STATUS)
|
||
|
|
. ;--- Check for parsing and web-service errors
|
||
|
|
. S RC=$$CHKERR^ONCSAPIR(.ONCXML,$NA(ONCSTAT("MSG")))
|
||
|
|
;
|
||
|
|
;--- Cleanup
|
||
|
|
K ^TMP("ONCSAPI3",$J)
|
||
|
|
Q $S(RC<0:RC,$D(ONCSTAT("MSG"))>1:1,1:0)
|
||
|
|
;
|
||
|
|
;***** COMPILES A LIST OF SYMBOLIC ERROR CODES
|
||
|
|
;
|
||
|
|
; .STATUS Reference to a local variable where the list
|
||
|
|
; of invalid input parameters is created.
|
||
|
|
;
|
||
|
|
INVLDINP(STATUS) ;
|
||
|
|
;;01^ NONFAILMSG ^
|
||
|
|
;;02^ EXTAJCCFAIL ^ CS Extension
|
||
|
|
;;03^ NODESAJCCFAIL ^ CS Lymph Nodes
|
||
|
|
;;04^ METSAJCCFAIL ^ CS Mets at DX
|
||
|
|
;;05^ EXTEVALFAIL ^ Ext Eval
|
||
|
|
;;06^ NODESEVALFAIL ^ Nodes Eval
|
||
|
|
;;07^ METSEVALFAIL ^ Mets Eval
|
||
|
|
;;08^ STAGEAJCCFAIL ^ Stage Group
|
||
|
|
;;09^ EXT77FAIL ^ SEER 77 Ext
|
||
|
|
;;10^ NODES77FAIL ^ SEER 77 Nodes
|
||
|
|
;;11^ METS77FAIL ^ SEER 77 Mets
|
||
|
|
;;12^ STAGE77FAIL ^ SEER Summary Stage 77
|
||
|
|
;;13^ EXT2000FAIL ^ SEER 2000 Ext
|
||
|
|
;;14^ NODES2000FAIL ^ SEER 2000 Nodes
|
||
|
|
;;15^ METS2000FAIL ^ SEER 2000 Mets
|
||
|
|
;;16^ STAGE2000FAIL ^ SEER Summary Stage 2000
|
||
|
|
;;17^ SITEFAIL ^ Primary Site
|
||
|
|
;;18^ HISTFAIL ^ Histology
|
||
|
|
;
|
||
|
|
N ERR,IB,IN,NLST,TMP
|
||
|
|
S ERR=+$G(STATUS("ERROR")) Q:'ERR
|
||
|
|
S ERR=$REVERSE($$CNV^XLFUTL(ERR,2))
|
||
|
|
;--- Analyze separate bits of the error code
|
||
|
|
F IB=1:1:18 D:$E(ERR,IB)
|
||
|
|
. S NLST=$TR($P($T(INVLDINP+IB),U,2)," ")
|
||
|
|
. F IN=1:1 S TMP=$P(NLST,",",IN) Q:TMP="" D
|
||
|
|
. . S STATUS("ERROR",TMP)=""
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
;***** SETS THE EVENT INTERFACE ENTRY POINTS
|
||
|
|
SETCBK(CBK) ;
|
||
|
|
;;CHARACTERS^TEXT^ONCSAPI3
|
||
|
|
;
|
||
|
|
D SETCBK^ONCSAPIX(.CBK,"SETCBK^ONCSAPI3")
|
||
|
|
Q
|
||
|
|
;
|
||
|
|
;***** TEXT CALLBACK FOR THE SAX PARSER
|
||
|
|
;
|
||
|
|
; TXT Line of unmarked text
|
||
|
|
;
|
||
|
|
TEXT(TXT) ;
|
||
|
|
N ELMT,L,SECT
|
||
|
|
;--- Individual elements
|
||
|
|
S L=$L(ONCXML("PATH"),","),ELMT=$P(ONCXML("PATH"),",",L-1,L)
|
||
|
|
I ELMT="detail,MSG" D Q
|
||
|
|
. S ONCSTAT("MSG",$O(ONCSTAT("MSG"," "),-1)+1)=$TR(TXT,U,"~")
|
||
|
|
I ELMT="CS-RESPONSE,APIVER" D Q
|
||
|
|
. S ONCSTAT("APIVER")=$G(ONCSTAT("APIVER"))_TXT
|
||
|
|
I ELMT="CS-RESPONSE,VERSION" D Q
|
||
|
|
. S ONCSTAT("VERSION")=$G(ONCSTAT("VERSION"))_TXT
|
||
|
|
;--- Sections
|
||
|
|
S SECT=$P(ONCXML("PATH"),",",L-1),ELMT=$P(ONCXML("PATH"),",",L)
|
||
|
|
I SECT="CS-DISP" D Q
|
||
|
|
. S ONCDISP(ELMT)=$G(ONCDISP(ELMT))_TXT
|
||
|
|
I SECT="CS-STOR" D Q
|
||
|
|
. S ONCSTOR(ELMT)=$G(ONCSTOR(ELMT))_TXT
|
||
|
|
I SECT="detail","ERROR"[ELMT D Q
|
||
|
|
. S ONCSTAT(ELMT)=$G(ONCSTAT(ELMT))_TXT
|
||
|
|
;--- Default processing
|
||
|
|
D TEXT^ONCSAPIX(TXT)
|
||
|
|
Q
|