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

LRSRVR4.m

Go to the documentation of this file.
  1. LRSRVR4 ;DALOI/JMC -LAB DATA SERVER, CONT'D - UUENCODE UTILITY ; Dec 14, 2004
  1. ;;5.2;LAB SERVICE;**303**;Sep 27, 1994
  1. ;
  1. ;
  1. UUEN(STR) ; Uuencode string passed in.
  1. N J,K,LEN,LRI,LRX,S,TMP,X,Y
  1. S TMP="",LEN=$L(STR)
  1. F LRI=1:3:LEN D
  1. . S LRX=$E(STR,LRI,LRI+2)
  1. . I $L(LRX)<3 S LRX=LRX_$E(" ",1,3-$L(LRX))
  1. . S S=$A(LRX,1)*256+$A(LRX,2)*256+$A(LRX,3),Y=""
  1. . F K=0:1:23 S Y=(S\(2**K)#2)_Y
  1. . F K=1:6:24 D
  1. . . S J=$$DEC^XLFUTL($E(Y,K,K+5),2)
  1. . . S TMP=TMP_$C(J+32)
  1. S TMP=$C(LEN+32)_TMP
  1. Q TMP
  1. ;
  1. ;
  1. ENCODE(LRSTR) ; Encode a string, keep remainder for next line
  1. ; Call with LRSTR by reference, Remainder returned in LRSTR
  1. ;
  1. S LRQUIT=0,LRLEN=$L(LRSTR)
  1. F D Q:LRQUIT
  1. . I $L(LRSTR)<45 S LRQUIT=1 Q
  1. . S LRX=$E(LRSTR,1,45)
  1. . S LRNODE=LRNODE+1,^TMP($J,"LRDATA",LRNODE)=$$UUEN(LRX)
  1. . S LRSTR=$E(LRSTR,46,LRLEN)
  1. Q