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

ZTMB.m

Go to the documentation of this file.
  1. ZTMB ;SEA/RDS-Taskman: Manager, Boot/ Option, ZTMRESTART ;10/07/08 16:13
  1. ;;8.0;KERNEL;**275,355,446**;Jul 10, 1995;Build 35
  1. ;;Per VHA Directive 2004-038, this routine should not be modified.
  1. ;
  1. START ;Start Taskmanager
  1. N %,X,Z,ZTOS,ZTMB,ZTUCI,ZTMODE,ZTPAIR,ZTVOL,ZTNODE,ZTMULT
  1. D INIT S ZTMB="START"
  1. I ZTOS["OpenM" G CACHE
  1. I ZTOS["VAX DSM" G VXD
  1. I ZTOS["GT.M" J START^%ZTM0 Q
  1. I ZTOS["DTM" G DTM
  1. I $L($T(START^%ZTM0)) J START^%ZTM0 Q
  1. W !,"Taskman NOT Started"
  1. Q
  1. VXD S %=($ZC(%GETJPI,$J,"CURPRIV")["SHARE") I % W !,"Don't start TaskMan with the SHARE privilege" Q
  1. S Z=0,%=$O(^%ZIS(14.7,"B",ZTPAIR,0)),ZTMODE=$P($G(^%ZIS(14.7,+%,0)),U,10)
  1. VXD2 I Z,$$EC^%ZOSV["access not authorized"!($$EC^%ZOSV["no privilege") W !!,"You lack the system privilege to start TaskMan." H 2 Q
  1. I Z,$$EC^%ZOSV'["duplicate name" W !!,"The following error has prevented TaskMan from starting:",!,$$EC^%ZOSV H 2 Q
  1. S X="VXD2",@^%ZOSF("TRAP"),Z=Z+1
  1. I ZTMODE="" S %=ZTMB_"^%ZTM0:(OPTION=""/UCI=""_ZTUCI,NAME=""TaskMan ""_$E(^%ZOSF(""VOL""),1,3)_"" ""_Z)" J @% Q
  1. ;Remove the '/NOLOG' if you want a log file for trouble shooting
  1. I $L(ZTMODE) S %SPAWN="SUBMIT/NOPRINT/NOLOG/USER=TASKMAN/QUEUE=TM$"_ZTNODE_" DHCP$TASKMAN:ZTMWDCL/PARAM=("_ZTMODE_","_(ZTMB["RE")_")" D ^%SPAWN
  1. Q
  1. ;
  1. CACHE ;Cache or OpenM
  1. I $ZV'["VMS" J START^%ZTM0 Q ;Non-VMS start in current namespace
  1. ;For Cache/VMS
  1. S Z=0,%=$O(^%ZIS(14.7,"B",ZTPAIR,0)),ZTMODE=$P($G(^%ZIS(14.7,+%,0)),U,10)
  1. I '$L(ZTMODE) D Q ;Non-DCL Start
  1. . S %=($ZF("GETJPI",$J,"PROCPRIV")["SHARE")
  1. . I % W !,"Don't start TaskMan with the SHARE privilege" Q
  1. . J START^%ZTM0
  1. . Q
  1. I $L(ZTMODE) D
  1. . N CONF S CONF=$P(ZTPAIR,":",2)
  1. . ;Remove the '/NOLOG' if you want a log file for trouble shooting
  1. . S %SPAWN="SUBMIT/NOPRINT/NOLOG/USER=TASKMAN/QUEUE=TM$"_ZTNODE_" DHCP$TASKMAN:ZTM2WDCL.COM/PARAM=("_CONF_","_ZTUCI_",0)"
  1. . S %=$ZF(-1,%SPAWN)
  1. Q
  1. ;
  1. DTM ;For DTM only
  1. N DEV,NULLDEV
  1. I ZTMB="START" D NULLDEV F DEV=10:1:19 O DEV:("W":NULLDEV):0 C DEV
  1. S Z=0
  1. DTM2 S X="DTM2",@^%ZOSF("TRAP"),Z=Z+1,%=ZTMB_"^%ZTM0:(NSPACE="""_ZTUCI_""":STRSTK=8000:LVMEM=12000:NAME=""TaskMan "_$E(^%ZOSF("VOL"),1,3)_" "_Z_""")" J @% Q
  1. ;
  1. RESTART ;Restart Taskmanager
  1. N %,%ZTI,X,Z,ZTOS,ZTMB,ZTUCI,ZTMODE,ZTPAIR,ZTVOL,ZTNODE,ZTMULT
  1. D INIT
  1. I $D(^%ZOSF("SIGNOFF")) X ^("SIGNOFF") I D Q
  1. . W $C(7),!,"NOTE THAT THE SYSTEM IS IN A 'SIGNOFF' STATE,",!?4,"WHICH PROBABLY EXPLAINS WHY TASKS ARE NOT RUNNING!!",!
  1. S ZTMULT=0
  1. I $S($D(^%ZTSCH("RUN"))[0:0,^("RUN")-$H:0,1:$P($H,",",2)-150'>$P(^("RUN"),",",2)) W !,"TASKMAN IS ALREADY RUNNING" S ZTMULT=1
  1. I ZTOS["VAX DSM" I $ZC(%GETJPI,$J,"CURPRIV")["SHARE" D Q
  1. . W !,"Don't start TaskMan with the SHARE privilege" Q
  1. I ZTOS["OpenM",$ZV["VMS" I $ZF("GETJPI",$J,"PROCPRIV")["SHARE" D Q
  1. . W !,"Don't start TaskMan with the SHARE privilege" Q
  1. F %ZTI=0:0 D Q:"YESyes^NOno"[%Y
  1. . W !,"ARE YOU SURE YOU WANT TO RESTART ",$S(ZTMULT:"ANOTHER ",1:""),"TASKMAN? NO//"
  1. . R %Y:$S($D(DTIME)#2:DTIME,1:60) S:'$T %Y="^" Q:"YESyes^NOno"[%Y
  1. . W:'$T "*TIMEOUT*" W:%Y'["?" *7 D HELP1:%Y'["??",HELP2:%Y["??"
  1. I %Y=""!("YESyes"'[%Y) W " (NO)",!,*7,"<NO ACTION TAKEN>",! Q
  1. W " (YES)",!,"Restarting..."
  1. S ZTMB="RESTART"
  1. I ZTOS["OpenM" D CACHE,DONE Q
  1. I ZTOS["DTM" G DTM
  1. I ZTOS["GT.M" J RESTART^%ZTM0 D DONE Q
  1. I ZTOS'["VAX DSM" J RESTART^%ZTM0[ZTUCI] D DONE Q
  1. I ZTOS["VAX DSM" G VXD
  1. W !!,$C(7),"Taskman NOT Restared",!
  1. Q
  1. INIT S U="^",ZTOS=^%ZOSF("OS"),ZTUCI=$P(^%ZOSF("MGR"),",")
  1. D GETENV^%ZOSV S ZTVOL=$P(Y,U,2),ZTNODE=$P(Y,U,3),ZTPAIR=$P(Y,U,4)
  1. Q
  1. ;
  1. ;NOTE: On DataTree systems:
  1. ;For automatic startup of TaskMan at boot, save as %ustart in SYS.
  1. ;In %ustart, remove ';' from the next two lines:
  1. ;I $P($ZVER,"/",2)>4.0,$P($ZVER,"/",2)<4.3 VIEW 1:296:$C(2) ;increase name table allocation
  1. ;I ZZSWITCH 256 ;display current namespace
  1. ;
  1. NULLDEV ;SELECT NULL DEVICE (DTM OS Dependent)
  1. N %HW
  1. D HWTYPE S NULLDEV="NUL" I %HW'="PC" S NULLDEV="[NUL]"
  1. Q
  1. ;
  1. HWTYPE ;HARDWARE TYPE(DTM OS Dependent)
  1. K %HW S %H=$S($P($ZVER,"/",2)<4:$V(4,3,-1),1:$V(1,3,-1)) ;get hardware type number
  1. S %HW=$S(%H<10:"WS",%H<20:"MF",%H<64:"?",%H<129:"PC",1:"?")
  1. Q
  1. ;
  1. HELP1 ;RESTART--improved help for the confirmation prompt.
  1. W !!?5,"Answer must be YES or NO."
  1. W !?5,"Answer YES to restart ",$S(ZTMULT:"another ",1:""),"TaskMan.",!
  1. Q
  1. ;
  1. HELP2 ;RESTART--??-help for confirmation prompt
  1. W !!?5,"TaskMan must be running in each library uci on the system for tasks to run."
  1. W !?5,"One TaskMan per library uci should be enough for all but the busiest sites."
  1. W !?5,"The System Status option and the Monitor TaskMan option can help determine"
  1. W !?5,"whether a TaskMan is running on this volume set."
  1. W !!?5,"If you are still uncertain how to respond, answer NO and consult your"
  1. W !?5,"documentation or your support ISC.",!
  1. Q
  1. ;
  1. DONE ;RESTART--feedback after restarting TaskMan
  1. W "TaskMan restarted!",! Q
  1. ;