| 1 | XWB2HL7C ;ISF/RWF - Remote RPC via HL7 ;12/27/01 15:33
|
|---|
| 2 | ;;1.1;RPC BROKER;**27**;Mar 28, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | DEQ ; Dequeue to DIRECT HL7 Call...
|
|---|
| 7 | ;
|
|---|
| 8 | S ZTREQ="@"
|
|---|
| 9 | ;
|
|---|
| 10 | ; DIRECT Parameters...
|
|---|
| 11 | ; D DIRECT^XWB2HL7A(PROCEDURENAME,QUERY-TAG,ERROR-RETURN,
|
|---|
| 12 | ; DESTINATION,PARAMETER-ARRAY)
|
|---|
| 13 | ;
|
|---|
| 14 | ; Actual DIRECT call...
|
|---|
| 15 | D DIRECT^XWB2HL7A("ZREMOTE RPC",XWBHDL,.XWBMSG,LOC,.XWBPAR)
|
|---|
| 16 | ;
|
|---|
| 17 | ; Did something go wrong?
|
|---|
| 18 | I $P(XWBMSG,U,2) S RET(0)="-1^"_$P(XWBMSG,"^",3) QUIT ;->
|
|---|
| 19 | I 'HLMTIEN S RET(0)="-1^No Message returned" QUIT ;->
|
|---|
| 20 | ;
|
|---|
| 21 | ; Everything went OK...
|
|---|
| 22 | D RETURN^XWB2HL7
|
|---|
| 23 | D RTNDATA^XWBDRPC(.RET,XWBHDL)
|
|---|
| 24 | ;
|
|---|
| 25 | Q
|
|---|
| 26 | ;
|
|---|
| 27 | ; The code in OLDEN1 below is the original pre-XWB*1.1*27 EN1^XWB2HL7
|
|---|
| 28 | ; code. The original EN1 code was moved here, to OLDEN1. The only
|
|---|
| 29 | ; changes made were to change D SETUP to D SETUP^XWB2HL7.
|
|---|
| 30 | ;
|
|---|
| 31 | OLDEN1(RET,LOC,RPC,RPCVER,P1,P2,P3,P4,P5,P6,P7,P8,P9,P10) ;Call a remote RPC with 1-10 parameters.
|
|---|
| 32 | N X,I,INX,N,XWBHL7,XWBPAR,XWBPCNT,XWBDVER,XWBESSO,XWBHDL,PMAX
|
|---|
| 33 | N XWBMSG,XWBSEC,RPCIEN
|
|---|
| 34 | D SETUP^XWB2HL7(0) I $G(RET(1))'="" Q
|
|---|
| 35 | ;Call HL7
|
|---|
| 36 | ;(procedurename, query tag, error return, destination, Parameter array)
|
|---|
| 37 | D CALL^XWB2HL7A("ZREMOTE RPC",XWBHDL,.XWBMSG,LOC,.XWBPAR)
|
|---|
| 38 | S RET(0)=XWBHDL I $P(XWBMSG,U,2) S RET(1)=$P(XWBMSG,U,2,3)
|
|---|
| 39 | I XWBMSG>0 D SETNODE^XWBDRPC(XWBHDL,"MSGID",+XWBMSG)
|
|---|
| 40 | Q
|
|---|
| 41 | ;
|
|---|
| 42 | EOR ;XWB2HL7C - Remote RPC via HL7 ;12/27/01 15:33
|
|---|
