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

CIAUINIT.m

Go to the documentation of this file.
  1. CIAUINIT ;MSC/IND/DKM - Platform specific inits;04-May-2006 08:19;DKM
  1. ;;1.2;CIA UTILITIES;;Mar 20, 2007
  1. ;;Copyright 2000-2006, Medsphere Systems Corporation
  1. ;=================================================================
  1. POST N CIAOS,CIAH,X
  1. S U="^",X="ERROR^CIAUINIT",@^%ZOSF("TRAP"),CIAOS=$P(^%ZOSF("OS"),U,2)
  1. I 'CIAOS D
  1. .D HOME^%ZIS,TITLE^CIAU("Platform-Specific Inits",1.6)
  1. .S CIAH(1)="Enter the name of this MUMPS environment for the CIA-namespace"
  1. .S CIAH(2)="platform-specific initialization process."
  1. .S CIAOS=$$ENTRY^CIAULKP("^DD(""OS"")","UX","Operating System: ","B","*","","",0,5,"","","HELP(.CIAH)")
  1. .W !!
  1. D:CIAOS>0 INIT(CIAOS)
  1. Q
  1. INIT(CIAOS) ;
  1. N I,X,Y,Z,N,CIAOSZ
  1. S CIAOSZ=$$OSRTN($G(CIAOS))
  1. S:$L(CIAOSZ) @("CIAOSZ="_CIAOSZ)
  1. I '$L(CIAOSZ) D Q
  1. .X "ZL CIAUOS1 ZS CIAUOS"
  1. .D MES("Init not found for specified OS. Will use generic init.")
  1. S I=0,N="CIAU"
  1. K ^TMP(N,$J)
  1. F Z=0,1 F X=$S(Z:3,1:1):1 S Y=$T(+X^@$S(Z:CIAOSZ,1:"CIAUIN0")) Q:Y="" S I=I+1,^TMP(N,$J,I)=Y
  1. S $P(^TMP(N,$J,1),";")="CIAUOS "
  1. X "ZR F Z=1:1:I ZI ^TMP(N,$J,Z) ZS:Z=I CIAUOS"
  1. K ^TMP(N,$J)
  1. F Z=1:1 S X=$P($T(DEVICE+Z),";;",2,99) Q:X="" S ^TMP(N,$J,Z)=$$MSG^CIAU(X,"|")
  1. I $$ENTRY^CIAUIMP($NA(^TMP(N,$J))) D
  1. .D MES("Unable to install CIAU HFS DEVICE.")
  1. W !!,"Initialization completed for "_$P(^DD("OS",CIAOS,0),"^")_" operating system.",!!
  1. K ^TMP(N,$J)
  1. Q
  1. OSRTN(X) Q $P($T(@("OS"_X)),";",4,99)
  1. OS8 ;;MSM;$S($ZV["UNIX":"CIAUIN58",1:"CIAUIN8")
  1. OS16 ;;DSM;CIAUIN16
  1. OS18 ;;Cache;$S($ZV["UNIX":"CIAUIN68",1:"CIAUIN18")
  1. MES(X) D BMES^XPDUTL(X)
  1. Q
  1. ERROR D MES("An error has occurred during initialization.")
  1. Q
  1. ; Return $I for HFS device
  1. HFS() Q $S(CIAOS=16:"TEMP.TMP",CIAOS=8:51,CIAOS=18:"NUL",1:"@")
  1. DEVICE ; Device setup
  1. ;;:3.5
  1. ;;.NAME: CIAU HFS DEVICE
  1. ;;.LOCATION OF TERMINAL: HFS
  1. ;;.$I: |$$HFS^CIAUINIT|
  1. ;;.SIGN-ON/SYSTEM DEVICE: N
  1. ;;.TYPE: HFS
  1. ;;.SUBTYPE: P-OTHER
  1. ;;.ASK DEVICE: N
  1. ;;.ASK PARAMETERS: N
  1. ;;.ASK HOST FILE: N
  1. ;;.ASK HFS I/O OPERATION: N
  1. ;;