Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XWBZ1

XWBZ1.m

Go to the documentation of this file.
  1. XWBZ1 ;ISC-SF/EG - DHCP BROKER PROTOYPE TESTER [ 02/22/95 11:07 PM ] ;03/28/97 14:50
  1. ;;1.1;RPC BROKER;;Mar 28, 1997
  1. ECHO1(Y,X) ;don't call direct
  1. S Y=X
  1. Q
  1. ;
  1. GLOB1(Y,N) ;callback for global parameter - don't call direct
  1. S Y=$NA(@N)
  1. Q
  1. ;
  1. LIST(Y) ; -- return list box with 28 entries
  1. N I
  1. F I=1:1:28 S Y(I)="List Item #"_I
  1. Q
  1. ;
  1. WP(Y) ; -- return text a word processing (50 lines)
  1. N I
  1. F I=1:1:50 S Y(I)="The quick brown fox jumped over the lazy dog."
  1. S Y(51)="End of document."
  1. Q
  1. ;
  1. BIG(Y) ; -- send a 32K string
  1. N I,Z
  1. S $P(Z,"D",16)=""
  1. K ^TMP($J,"XWBBIG")
  1. F I=1:1:2048 S ^TMP($J,"XWBBIG",I)=Z
  1. S Y=$NA(^TMP($J,"XWBBIG"))
  1. Q
  1. ;
  1. SRT(Y,D,X) ; -- sort array x and return in y
  1. N I,K,T
  1. S K=""
  1. IF D="LO" D Q
  1. . F I=1:1 D Q:K=""
  1. . . S K=$O(X(K)) Q:K=""
  1. . . S Y(I)=K
  1. IF D="HI" D
  1. . F I=1:1 D Q:K=""
  1. . . S K=$O(X(K)) Q:K=""
  1. . . S T(99999999-I)=K
  1. . S K=0
  1. . F I=1:1 D Q:K=""
  1. . . S K=$O(T(K)) Q:K=""
  1. . . S Y(I)=T(K)
  1. Q
  1. ;
  1. MEMO(Y,X) ;
  1. K ^TMP("EG",$J,"MEMO")
  1. S ^TMP("EG",$J,"MEMO",-9000)="DHCP RECEIVED:"
  1. M ^TMP("EG",$J,"MEMO")=X
  1. S Y=$NA(^TMP("EG",$J,"MEMO"))
  1. Q
  1. ;