source: WorldVistAEHR/trunk/r/RPC_BROKER-XWB/XWBZ1.m@ 1801

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

initial load of WorldVistAEHR

File size: 1.1 KB
RevLine 
[613]1XWBZ1 ;ISC-SF/EG - DHCP BROKER PROTOYPE TESTER [ 02/22/95 11:07 PM ] ;03/28/97 14:50
2 ;;1.1;RPC BROKER;;Mar 28, 1997
3ECHO1(Y,X) ;don't call direct
4 S Y=X
5 Q
6 ;
7GLOB1(Y,N) ;callback for global parameter - don't call direct
8 S Y=$NA(@N)
9 Q
10 ;
11LIST(Y) ; -- return list box with 28 entries
12 N I
13 F I=1:1:28 S Y(I)="List Item #"_I
14 Q
15 ;
16WP(Y) ; -- return text a word processing (50 lines)
17 N I
18 F I=1:1:50 S Y(I)="The quick brown fox jumped over the lazy dog."
19 S Y(51)="End of document."
20 Q
21 ;
22BIG(Y) ; -- send a 32K string
23 N I,Z
24 S $P(Z,"D",16)=""
25 K ^TMP($J,"XWBBIG")
26 F I=1:1:2048 S ^TMP($J,"XWBBIG",I)=Z
27 S Y=$NA(^TMP($J,"XWBBIG"))
28 Q
29 ;
30SRT(Y,D,X) ; -- sort array x and return in y
31 N I,K,T
32 S K=""
33 IF D="LO" D Q
34 . F I=1:1 D Q:K=""
35 . . S K=$O(X(K)) Q:K=""
36 . . S Y(I)=K
37 IF D="HI" D
38 . F I=1:1 D Q:K=""
39 . . S K=$O(X(K)) Q:K=""
40 . . S T(99999999-I)=K
41 . S K=0
42 . F I=1:1 D Q:K=""
43 . . S K=$O(T(K)) Q:K=""
44 . . S Y(I)=T(K)
45 Q
46 ;
47MEMO(Y,X) ;
48 K ^TMP("EG",$J,"MEMO")
49 S ^TMP("EG",$J,"MEMO",-9000)="DHCP RECEIVED:"
50 M ^TMP("EG",$J,"MEMO")=X
51 S Y=$NA(^TMP("EG",$J,"MEMO"))
52 Q
53 ;
Note: See TracBrowser for help on using the repository browser.