KMPSUTL ;SF/KAK - SAGG Utilities ;01 SEP 97 11:15 am
;;1.8;SAGG PROJECT;**1**;May 14, 1999
STAT ;
W !,?25,"SAGG Project Status",!,?29,"Version ",$P($T(+2),";",3),!,?(35-($L($P($T(+2),";",5))/2)),$P($T(+2),";",5),!
S U="^",KMPSX2=$P(^%ZOSF("PROD"),",")
S KMPSDA=0 I '$D(^DIC(19,"B","KMPS SAGG REPORT")) W !," The 'SAGG Master Background Task' option [KMPS SAGG REPORT] is missing !",*7,!
E S KMPSDA=$O(^DIC(19,"B","KMPS SAGG REPORT",0)),KMPSDA=+$O(^DIC(19.2,"B",KMPSDA,0)),KMPSX=$G(^DIC(19.2,KMPSDA,0)),Y=+$P(KMPSX,U,2) D:Y DD^%DT S $P(KMPSX,U,2)=Y
S KMPSTSK=+$G(^DIC(19.2,+KMPSDA,1))
W !,?5,"The 'SAGG Master Background Task' [KMPS SAGG REPORT] is ",$S('KMPSTSK:"NOT ",1:""),"scheduled",$S('KMPSTSK:".",1:""),!
I KMPSTSK D
.W ?5,"to run as Task ID ",KMPSTSK," on ",$S($P(KMPSX,U,2)="":"NO DATE",1:$P(KMPSX,U,2))
.S KMPSX=$P(KMPSX,U,6) W " every ",$S(KMPSX="":"UNKNOWN",1:+KMPSX)," ",$S(KMPSX["D":"day",KMPSX["M":"month",1:KMPSX)
.W:KMPSX>1 "s" W ".",!
D SYS
W !,?5,"SAGG Project collection routines will monitor the following:",!!,?7 S (KMPS,KMPSX)=0
F S KMPSX=$O(^KMPS(8970.1,1,1,"B",KMPSX)) Q:KMPSX="" D W:KMPS " - " W $S(KMPSSYS'="OMNT":KMPSX3_",",1:""),KMPSX S KMPS=KMPS+1 I KMPS=6 S KMPS=0 W !,?7
.S KMPSX3=$O(^KMPS(8970.1,1,1,"B",KMPSX,0)),KMPSX3=$P(^KMPS(8970.1,1,1,KMPSX3,0),U,2) S:KMPSX3="" KMPSX3=KMPSX2
D SYS
W ! I KMPSSYS'="OMNT" S KMPSX=$G(^KMPS(8970.1,1,0)) W !,?5,"XTMP(""KMPS"") Global Location: ",$S($P(KMPSX,U,3)="":KMPSX2,1:$P(KMPSX,U,3)),",",$S($P(KMPSX,U,2)="":"UNKNOWN",1:$P(KMPSX,U,2)),!
S KMPS=^DD("SITE",1)
W !,?5,"The temporary collection global (i.e., ^XTMP(""KMPS"")) has ",$S('$D(^XTMP("KMPS",KMPS)):"no ",1:""),"data.",!
I $D(^XTMP("KMPS",KMPS,0)) S %H=+^(0) W !,?5,"Session #",%H D YX^%DTC W " is running for ",Y,".",! I +$H-%H>1 W ?5,"This session has probably errored out.",!
I $D(^XTMP("KMPS","START")) W !,?5,"The SAGG Project routines are still running on:",!!,?7 S (KMPS,KMPSX)=0 F S KMPSX=$O(^XTMP("KMPS","START",KMPSX)) Q:KMPSX="" W:KMPS ", " W KMPSX S KMPS=KMPS+1 I KMPS=12 S KMPS=0 W !,?7
W ! I $D(^XTMP("KMPS","ERROR")) W !!,"Press <RETURN> to continue: " R X:DTIME G:'$T!(X["^") END W @IOF,!,?5,"The SAGG Project collection routines have recorded an error on",!,?5,"Volume Set(s):",!! D W !
.S KMPS=0,KMPSX="" F S KMPSX=$O(^XTMP("KMPS","ERROR",KMPSX)) Q:KMPSX="" W:KMPS ", " W:'KMPS ?7 W KMPSX S KMPS=1
I $D(^XTMP("KMPS","STOP")) W !,?5,"The SAGG Project collection routines have been informed to begin",!,?5,"an orderly shut-down process."
I $D(^XTMP("KMPS","STOP")),$D(^XTMP("KMPS","START")) W " The routines will stop running",!,?5,"after reaching the appropriate break-point."
W !!,"Press <RETURN> to continue: " R X:DTIME
END ;
K %,%H,KMPS,KMPSDA,KMPSSYS,KMPSX,KMPSX2,KMPSX3,X,Y Q
STOP ;
I '$D(^XTMP("KMPS","START")) W !,?5,"The SAGG Project collection routines have not started.",! Q
D STAT W !
S DIR("A")="Do you wish to manually STOP the SAGG Project collection routines (Y/N)",DIR("B")="N",DIR(0)="Y" D ^DIR W !
I Y S ^XTMP("KMPS","STOP")=1 W !,?5,"The SAGG Project collection routines have been notified to begin an",!,?5,"orderly shut-down process.",!
K DIR,X,Y Q
FILE ;
D SYS I KMPSSYS'="OMNT" D
.W !!,"Please specify the Volume Set and UCI which will hold"
.W !,"the ^XTMP(""KMPS"") global.",!
.S DIE="^KMPS(8970.1,",DLAYGO=8970.1,DA=1,DR=".02;.025" D ^DIE
W !!,"Specify the " W $S(KMPSSYS="VAX":"Volume Sets",1:"Directories")
W " which hold your VistA production globals:",!!,"For example:",!!,?10
I KMPSSYS="VAX" W "For DSM => ROU, VAA, VBB, VCC ... Vxx"
I KMPSSYS="MSM" W "For MSM => FDA, FDB, FDC ... FDx"
I KMPSSYS="OMNT" W "For OpenM-NT => W:\VAA, W:\VBB, W:\VCC ... V:\Vxx"
I KMPSSYS="UNKWN" W "Specify all locations of VistA globals"
W !!,"Do NOT specify 'scratch/test/training' " W $S(KMPSSYS="VAX":"Volume Sets",1:"Directories")
W " (i.e., ZAA, UTL," W !,"TST, etc.).",!
S DIE="^KMPS(8970.1,",DA=1,DR=.03 S:KMPSSYS="OMNT" DR(2,8970.11)=.01 D ^DIE
K DA,DIC,DIE,DLAYGO,DR,KMPSSYS Q
MAIL ;
W !!,"Specify the users that will receive SAGG notification messages.",!
S (DIC,DIE)="^XMB(3.8,",DIC(0)="LZ",DLAYGO=3.8,X="KMPS-SAGG" D ^DIC
S DA=+Y,DR=2 D ^DIE
K DA,DIC,DIE,DLAYGO,DR,X,Y Q
SYS ;
S KMPSSYS=$P($P(^%ZOSF("OS"),U),"("),KMPSSYS=$S(KMPSSYS="VAX DSM":"VAX",KMPSSYS["MSM-PC":"MSM",KMPSSYS="OpenM-NT":"OMNT",1:"UNKWN")
Q
KMPSUTL ;SF/KAK - SAGG Utilities ;01 SEP 97 11:15 am
+1 ;;1.8;SAGG PROJECT;**1**;May 14, 1999
STAT ;
+1 WRITE !,?25,"SAGG Project Status",!,?29,"Version ",$PIECE($TEXT(+2),";",3),!,?(35-($LENGTH($PIECE($TEXT(+2),";",5))/2)),$PIECE($TEXT(+2),";",5),!
+2 SET U="^"
SET KMPSX2=$PIECE(^%ZOSF("PROD"),",")
+3 SET KMPSDA=0
IF '$DATA(^DIC(19,"B","KMPS SAGG REPORT"))
WRITE !," The 'SAGG Master Background Task' option [KMPS SAGG REPORT] is missing !",*7,!
+4 IF '$TEST
SET KMPSDA=$ORDER(^DIC(19,"B","KMPS SAGG REPORT",0))
SET KMPSDA=+$ORDER(^DIC(19.2,"B",KMPSDA,0))
SET KMPSX=$GET(^DIC(19.2,KMPSDA,0))
SET Y=+$PIECE(KMPSX,U,2)
IF Y
DO DD^%DT
SET $PIECE(KMPSX,U,2)=Y
+5 SET KMPSTSK=+$GET(^DIC(19.2,+KMPSDA,1))
+6 WRITE !,?5,"The 'SAGG Master Background Task' [KMPS SAGG REPORT] is ",$SELECT('KMPSTSK:"NOT ",1:""),"scheduled",$SELECT('KMPSTSK:".",1:""),!
+7 IF KMPSTSK
Begin DoDot:1
+8 WRITE ?5,"to run as Task ID ",KMPSTSK," on ",$SELECT($PIECE(KMPSX,U,2)="":"NO DATE",1:$PIECE(KMPSX,U,2))
+9 SET KMPSX=$PIECE(KMPSX,U,6)
WRITE " every ",$SELECT(KMPSX="":"UNKNOWN",1:+KMPSX)," ",$SELECT(KMPSX["D":"day",KMPSX["M":"month",1:KMPSX)
+10 IF KMPSX>1
WRITE "s"
WRITE ".",!
End DoDot:1
+11 DO SYS
+12 WRITE !,?5,"SAGG Project collection routines will monitor the following:",!!,?7
SET (KMPS,KMPSX)=0
+13 FOR
SET KMPSX=$ORDER(^KMPS(8970.1,1,1,"B",KMPSX))
IF KMPSX=""
QUIT
Begin DoDot:1
+14 SET KMPSX3=$ORDER(^KMPS(8970.1,1,1,"B",KMPSX,0))
SET KMPSX3=$PIECE(^KMPS(8970.1,1,1,KMPSX3,0),U,2)
IF KMPSX3=""
SET KMPSX3=KMPSX2
End DoDot:1
IF KMPS
WRITE " - "
WRITE $SELECT(KMPSSYS'="OMNT":KMPSX3_",",1:""),KMPSX
SET KMPS=KMPS+1
IF KMPS=6
SET KMPS=0
WRITE !,?7
+15 DO SYS
+16 WRITE !
IF KMPSSYS'="OMNT"
SET KMPSX=$GET(^KMPS(8970.1,1,0))
WRITE !,?5,"XTMP(""KMPS"") Global Location: ",$SELECT($PIECE(KMPSX,U,3)="":KMPSX2,1:$PIECE(KMPSX,U,3)),",",$SELECT($PIECE(KMPSX,U,2)="":"UNKNOWN",1:$PIECE(KMPSX,U,2)),!
+17 SET KMPS=^DD("SITE",1)
+18 WRITE !,?5,"The temporary collection global (i.e., ^XTMP(""KMPS"")) has ",$SELECT('$DATA(^XTMP("KMPS",KMPS)):"no ",1:""),"data.",!
+19 IF $DATA(^XTMP("KMPS",KMPS,0))
SET %H=+^(0)
WRITE !,?5,"Session #",%H
DO YX^%DTC
WRITE " is running for ",Y,".",!
IF +$HOROLOG-%H>1
WRITE ?5,"This session has probably errored out.",!
+20 IF $DATA(^XTMP("KMPS","START"))
WRITE !,?5,"The SAGG Project routines are still running on:",!!,?7
SET (KMPS,KMPSX)=0
FOR
SET KMPSX=$ORDER(^XTMP("KMPS","START",KMPSX))
IF KMPSX=""
QUIT
IF KMPS
WRITE ", "
WRITE KMPSX
SET KMPS=KMPS+1
IF KMPS=12
SET KMPS=0
WRITE !,?7
+21 WRITE !
IF $DATA(^XTMP("KMPS","ERROR"))
WRITE !!,"Press <RETURN> to continue: "
READ X:DTIME
IF '$TEST!(X["^")
GOTO END
WRITE @IOF,!,?5,"The SAGG Project collection routines have recorded an error on",!,?5,"Volume Set(s):",!!
Begin DoDot:1
+22 SET KMPS=0
SET KMPSX=""
FOR
SET KMPSX=$ORDER(^XTMP("KMPS","ERROR",KMPSX))
IF KMPSX=""
QUIT
IF KMPS
WRITE ", "
IF 'KMPS
WRITE ?7
WRITE KMPSX
SET KMPS=1
End DoDot:1
WRITE !
+23 IF $DATA(^XTMP("KMPS","STOP"))
WRITE !,?5,"The SAGG Project collection routines have been informed to begin",!,?5,"an orderly shut-down process."
+24 IF $DATA(^XTMP("KMPS","STOP"))
IF $DATA(^XTMP("KMPS","START"))
WRITE " The routines will stop running",!,?5,"after reaching the appropriate break-point."
+25 WRITE !!,"Press <RETURN> to continue: "
READ X:DTIME
END ;
+1 KILL %,%H,KMPS,KMPSDA,KMPSSYS,KMPSX,KMPSX2,KMPSX3,X,Y
QUIT
STOP ;
+1 IF '$DATA(^XTMP("KMPS","START"))
WRITE !,?5,"The SAGG Project collection routines have not started.",!
QUIT
+2 DO STAT
WRITE !
+3 SET DIR("A")="Do you wish to manually STOP the SAGG Project collection routines (Y/N)"
SET DIR("B")="N"
SET DIR(0)="Y"
DO ^DIR
WRITE !
+4 IF Y
SET ^XTMP("KMPS","STOP")=1
WRITE !,?5,"The SAGG Project collection routines have been notified to begin an",!,?5,"orderly shut-down process.",!
+5 KILL DIR,X,Y
QUIT
FILE ;
+1 DO SYS
IF KMPSSYS'="OMNT"
Begin DoDot:1
+2 WRITE !!,"Please specify the Volume Set and UCI which will hold"
+3 WRITE !,"the ^XTMP(""KMPS"") global.",!
+4 SET DIE="^KMPS(8970.1,"
SET DLAYGO=8970.1
SET DA=1
SET DR=".02;.025"
DO ^DIE
End DoDot:1
+5 WRITE !!,"Specify the "
WRITE $SELECT(KMPSSYS="VAX":"Volume Sets",1:"Directories")
+6 WRITE " which hold your VistA production globals:",!!,"For example:",!!,?10
+7 IF KMPSSYS="VAX"
WRITE "For DSM => ROU, VAA, VBB, VCC ... Vxx"
+8 IF KMPSSYS="MSM"
WRITE "For MSM => FDA, FDB, FDC ... FDx"
+9 IF KMPSSYS="OMNT"
WRITE "For OpenM-NT => W:\VAA, W:\VBB, W:\VCC ... V:\Vxx"
+10 IF KMPSSYS="UNKWN"
WRITE "Specify all locations of VistA globals"
+11 WRITE !!,"Do NOT specify 'scratch/test/training' "
WRITE $SELECT(KMPSSYS="VAX":"Volume Sets",1:"Directories")
+12 WRITE " (i.e., ZAA, UTL,"
WRITE !,"TST, etc.).",!
+13 SET DIE="^KMPS(8970.1,"
SET DA=1
SET DR=.03
IF KMPSSYS="OMNT"
SET DR(2,8970.11)=.01
DO ^DIE
+14 KILL DA,DIC,DIE,DLAYGO,DR,KMPSSYS
QUIT
MAIL ;
+1 WRITE !!,"Specify the users that will receive SAGG notification messages.",!
+2 SET (DIC,DIE)="^XMB(3.8,"
SET DIC(0)="LZ"
SET DLAYGO=3.8
SET X="KMPS-SAGG"
DO ^DIC
+3 SET DA=+Y
SET DR=2
DO ^DIE
+4 KILL DA,DIC,DIE,DLAYGO,DR,X,Y
QUIT
SYS ;
+1 SET KMPSSYS=$PIECE($PIECE(^%ZOSF("OS"),U),"(")
SET KMPSSYS=$SELECT(KMPSSYS="VAX DSM":"VAX",KMPSSYS["MSM-PC":"MSM",KMPSSYS="OpenM-NT":"OMNT",1:"UNKWN")
+2 QUIT
