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

CIAUIN16.m

Go to the documentation of this file.
  1. CIAUIN16 ;MSC/IND/DKM - Inits for VMS;04-May-2006 08:19;DKM
  1. ;;1.2;CIA UTILITIES;;Mar 20, 2007
  1. ;;Copyright 2000-2006, Medsphere Systems Corporation
  1. ;=================================================================
  1. ; Open a host file
  1. OPEN(X1,X2) ;EP
  1. N Z
  1. S Z="X1"_$S("Rr"[$G(X2):":READONLY:0","Ww"[X2:":(NEWVERSION,RECORDSIZE=65535)","Bb"[X2:":(READONLY,BLOCKSIZE=0)",1:"")
  1. O @Z
  1. U X1
  1. S ^TMP("CIAUHFS",$J,X1)=""
  1. Q
  1. ; Close a host file
  1. CLOSE(X) ;EP
  1. C X
  1. K ^TMP("CIAUHFS",$J,X)
  1. Q
  1. ; Close all open host files
  1. CLOSEALL ;EP
  1. N Z
  1. S Z=""
  1. F S Z=$O(^TMP("CIAUHFS",$J,Z)) Q:Z="" C Z
  1. K ^TMP("CIAUHFS",$J)
  1. Q
  1. EOF U $I:TRAP
  1. Q
  1. EOFERR() Q $ZE["ENDOFILE"
  1. ; Read a line of data
  1. READ(X,Y) ;EP
  1. U $G(Y,$I):NOTRAP
  1. R X:5
  1. Q $S($T:$ZA=-1,1:1)
  1. ; Delete a host file
  1. DELETE(X) ;EP
  1. O X::0
  1. C X:DELETE
  1. Q
  1. ; Rename a host file
  1. RENAME(X1,X2) ;EP
  1. O X1:READONLY:0
  1. C X1:RENAME=X2
  1. Q
  1. ; Return directory of files
  1. DIR(X1,X2,X3) ;EP
  1. N Z,Z1
  1. S $ZT="DIRX^CIAUOS",X3=$G(X3,"^UTILITY(""DIR"",$J)")
  1. K @X3
  1. S:'$G(X2) X2=9999999999
  1. F Z=1:1:X2 S Z1=$ZSEARCH(X1),X1="" Q:Z1="" S @X3@($P(Z1,"]",2))=""
  1. DIRX Q
  1. ; Return default working directory
  1. DEFDIR(X) ;EP
  1. Q $G(X,$P($G(^XTV(8989.3,1,"DEV")),U))
  1. ; Return path delimiters
  1. DIRDLM() ;EP
  1. Q "[.]"
  1. ; Parse current error
  1. ERR(X1,X2,X3) ;EP
  1. S X1=$P($P($ZE,", ",2),"-",3),X2=$P($P($ZE,", "),":"),X3=$P($ZE,", ",$S(X1="ZTRAP":4,1:3))
  1. Q
  1. ; Raise an exception
  1. RAISE(X) ;EP
  1. ZT $G(X)
  1. ; Set error trap
  1. TRAP(X) ;EP
  1. Q $S($D(X):"$ZT="""_X_"""",1:"$ZT")
  1. ; Return size of a file
  1. SIZE(X) ;EP
  1. Q $ZC(%GETFILE,X,"BLS")*$ZC(%GETFILE,X,"EOF")
  1. ; Return free disk space
  1. FREE(X) ;EP
  1. Q $ZC(%GETDVI,X,"FREEBLOCKS")/2048
  1. ; Return host ip address
  1. HOSTIP() ;EP
  1. Q ""
  1. ; Return host name
  1. HOSTNAME() ;EP
  1. Q ""
  1. ; Return client ip address
  1. CLIENTIP() ;EP
  1. N IP,$ET
  1. S $ET="S $EC=""""",IP=$&%UCXGETPEER
  1. Q $A(IP,1)_"."_$A(IP,2)_"."_$A(IP,3)_"."_$A(IP,4)