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

AUZOSF.m

Go to the documentation of this file.
  1. AUZOSF ;TRANSFER TO MGR AND REMOVE THIS LINE [ 01/28/86 2:01 PM ]
  1. ZOSFDSM ;; SETS UP ^%ZOSF FOR DSM-3 ON PDP 11'S [ 10/16/85 11:27 AM ]
  1. ;OCAO/IHS DRS
  1. I $N(^%ZOSF(0))+1 W *7,!,"^%ZOSF GLOBAL ALREADY EXISTS. WANT TO RE-INITIALIZE? NO// " R X I X["Y" W " OK" F I=0:0 S X=$N(^%ZOSF(0)) Q:X<0 K ^(X)
  1. I $D(^%ZTSK(0))[0 S ^%ZTSK(0)=1000
  1. F I=1:2 S Z=$P($T(Z+I),";",2) Q:Z="" S X=$P($T(Z+1+I),";",2,99) S:'$D(^%ZOSF(Z)) ^%ZOSF(Z)=X
  1. MGR W !,"NAME OF MANAGER'S UCI: "_^%ZOSF("MGR")_"// " R X I X'?."?" S ^("MGR")=X,I=X X ^("UCICHECK") I Y=""!(X'=I) W "??" G MGR
  1. PROD W !,"PRODUCTION (SIGN-ON) UCI: "_^%ZOSF("PROD")_"// " R X I X]"" X ^("UCICHECK") G PROD:Y="" S ^%ZOSF("PROD")=Y
  1. W !!,"ALL SET UP",!! Q
  1. Z ;
  1. ;AVJ
  1. ;S Y=63-$V($V(44)+350)
  1. ;BRK
  1. ;B 1
  1. ;CPU
  1. ;S Y=^%ZOSF("MGR"),Y=^[Y]SYS(0,"RUNNING")
  1. ;DEL
  1. ;X "ZR ZS @X" K ^UTILITY("ROU",X)
  1. ;EOFF
  1. ;U $I:(::::1)
  1. ;EON
  1. ;U $I:(:::::1)
  1. ;EOT
  1. ;S Y=$ZA\1024#2
  1. ;ETRP
  1. ;S $ZT=X
  1. ;GD
  1. ;D ^%GD
  1. ;LOAD
  1. ;S %N=0 X "ZL @X F XCNP=XCNP+1:1 S %N=%N+1,%=$T(+%N) Q:$L(%)=0 S @(DIF_XCNP_"",0)"")=%"
  1. ;MAXSIZ
  1. ;Q
  1. ;MGR
  1. ;MGR,AAA
  1. ;NBRK
  1. ;B 0
  1. ;NO-TYPE-AHEAD
  1. ;U $I:(::::100663296)
  1. ;OS
  1. ;DSM-3
  1. ;PRIORITY
  1. ;D PRIORITY^%ZTMS
  1. ;PROD
  1. ;VAH,AAA
  1. ;RD
  1. ;D ^%RD
  1. ;RM
  1. ;U $I:X
  1. ;SAVE
  1. ;S XCS="F XCM=1:1 S XCN=$O(@(DIE_XCN_"")"")) Q:+XCN'=XCN S %=^(XCN,0) Q:$E(%,1)=""$"" I $E(%,1)'="";"" ZI %" X "ZR X XCS ZS @X" S ^UTILITY("ROU",X)="" K XCS
  1. ;SIGNOFF
  1. ;I 0
  1. ;SIZE
  1. ;S Y=0 F I=1:1 S %=$T(+I) Q:%="" S Y=Y+$L(%)+2
  1. ;TEST
  1. ;I $D(^ ("ROU",X))
  1. ;TMK
  1. ;S Y=$ZA\16384#2
  1. ;TYPE-AHEAD
  1. ;U $I:(::::67108864:33554432)
  1. ;UCI
  1. ;S Y=$ZU(0)
  1. ;UCICHECK
  1. ;D UCICHECK^%ZTMS
  1. ;ZD
  1. ;S %H=X D 7^%DTC S Y=$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)
  1. ;TONL
  1. ;S Y=$ZA\64#2
  1. ;TWP
  1. ;S Y=$ZA\4#2
  1. ;TERCOND
  1. ;S Y=$ZA\32768#2
  1. ;TRW
  1. ;W *5
  1. ;TWLB
  1. ;W *4