source: WorldVistAEHR/trunk/r/RPC_BROKER-XWB/XWB2HL7C.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1XWB2HL7C ;ISF/RWF - Remote RPC via HL7 ;12/27/01 15:33
2 ;;1.1;RPC BROKER;**27**;Mar 28, 1997
3 ;
4 Q
5 ;
6DEQ ; 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 ;
31OLDEN1(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 ;
42EOR ;XWB2HL7C - Remote RPC via HL7 ;12/27/01 15:33
Note: See TracBrowser for help on using the repository browser.