AUGSAVE ;RPMS/TJF/MLQ;GENERIC GLOBAL SAVE FOR TRANSMISSION GLOBALS
;;1.4;AUGS;*0*;OCT 16, 1991
SETUP K AUFLG,AUGLL S:'$D(DTIME) DTIME=300
START I '$D(AUGL) S AUFLG(1)="The variable 'AUGL' must contain the name of the global you wish to save." S AUFLG=-1 G EOJ
D CHECK
S:'$D(AUUF) AUUF="/usr/spool/uucppublic"
CKGLOB I '$D(@AUGLL) S AUFLG(1)="Transaction File does not exist",AUFLG=-1 G EOJ
I '$D(DT) S AUFLG(1)="Fileman Date 'DT' not defined",AUFLG=-1 G EOJ
S X2=$E(DT,1,3)_"0101",X1=DT D ^%DTC S AUCARTNO=X+1
S:'$D(AUDT) AUDT="T"
S X=AUDT
S X="T",%DT="" D ^%DT S AUDT=$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",$E(Y,4,5))_" "_(+$E(Y,6,7))_", "_($E(Y,1,3)+1700) S:$E(AUGL,1)'="^" AUGL="^"_AUGL ;S:$E(AUGL,$L(AUGL))'="(" AUGL=AUGL_"("
I '$D(AUNAR) S AUNAR=""
I '$D(DUZ(2)) S AUFLG(1)="User Number 'DUZ(2)' is not defined",AUFLG=-1 G EOJ
S:'$D(AUTLE) AUTLE="" S AUTLE=AUTLE_" "_$P(^DIC(4,DUZ(2),0),"^",1)
I '$D(^%ZOSF("OS")) S AUFLG(1)="The ^%ZOSF(""OS"") node does not exist",AUFLG=-1 G EOJ
I ^%ZOSF("OS")["MSM" G SETUPMSM
I ^%ZOSF("OS")["DSM" G SETUPDSM
S AUFLG(1)="Operating system is not 'MSM' or 'DSM'",AUFLG=-1
G EOJ
SETUPMSM ;SETUP FOR MSM
S:'$D(AUIO) AUIO=51
I $D(AUMED) I "CcDdFfTt"'[AUMED S AUFLG(1)="Media Type 'AUMED' is incorrect",AUFLG=-1 G EOJ
D ^AZGSAVEM
S:'$D(AUFLG) AUFLG=0
G EOJ
SETUPDSM ;SETUPDSM
I '$D(AUIO) S AUIO=47
I $D(AUMED) I "CcTt"'[AUMED S AUFLG(1)="Media Type 'AUMED' is incorrect",AUFLG=-1 G EOJ
D ^AZGSAVED
S:'$D(AUFLG) AUFLG=0
EOJ ;KILL VARIABLES AND EXIT
K AUGL,AUGLL,AUCARTNO,X1,X2,X,AUNAR,AUTLE,AUIO
K AUPAR,AUDT,AUE,AUF,AUMED,%DT,AUUF,Y,%DEV
Q
CHECK S X=AUGL
I $L(X,"(")>1,$P(X,"(",2)="" S X=$P(X,"(")
S:$E(X,$L(X))="," X=$E(X,1,($L(X)-1))
I $L(AUGL,"(")>1,$E(AUGL,$L(AUGL))'="," S AUGL=AUGL_","
I $L(X,"(")>1,$E(X,$L(X))'=")" S X=X_")"
S:$L(X,"(")=1 AUGL=X_"("
S AUGLL=U_X
Q
AUGSAVE ;RPMS/TJF/MLQ;GENERIC GLOBAL SAVE FOR TRANSMISSION GLOBALS
+1 ;;1.4;AUGS;*0*;OCT 16, 1991
SETUP KILL AUFLG,AUGLL
IF '$DATA(DTIME)
SET DTIME=300
START IF '$DATA(AUGL)
SET AUFLG(1)="The variable 'AUGL' must contain the name of the global you wish to save."
SET AUFLG=-1
GOTO EOJ
+1 DO CHECK
+2 IF '$DATA(AUUF)
SET AUUF="/usr/spool/uucppublic"
CKGLOB IF '$DATA(@AUGLL)
SET AUFLG(1)="Transaction File does not exist"
SET AUFLG=-1
GOTO EOJ
+1 IF '$DATA(DT)
SET AUFLG(1)="Fileman Date 'DT' not defined"
SET AUFLG=-1
GOTO EOJ
+2 SET X2=$EXTRACT(DT,1,3)_"0101"
SET X1=DT
DO ^%DTC
SET AUCARTNO=X+1
+3 IF '$DATA(AUDT)
SET AUDT="T"
+4 SET X=AUDT
+5 ;S:$E(AUGL,$L(AUGL))'="(" AUGL=AUGL_"("
SET X="T"
SET %DT=""
DO ^%DT
SET AUDT=$PIECE("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",$EXTRACT(Y,4,5))_" "_(+$EXTRACT(Y,6,7))_", "_($EXTRACT(Y,1,3)+1700)
IF $EXTRACT(AUGL,1)'="^"
SET AUGL="^"_AUGL
+6 IF '$DATA(AUNAR)
SET AUNAR=""
+7 IF '$DATA(DUZ(2))
SET AUFLG(1)="User Number 'DUZ(2)' is not defined"
SET AUFLG=-1
GOTO EOJ
+8 IF '$DATA(AUTLE)
SET AUTLE=""
SET AUTLE=AUTLE_" "_$PIECE(^DIC(4,DUZ(2),0),"^",1)
+9 IF '$DATA(^%ZOSF("OS"))
SET AUFLG(1)="The ^%ZOSF(""OS"") node does not exist"
SET AUFLG=-1
GOTO EOJ
+10 IF ^%ZOSF("OS")["MSM"
GOTO SETUPMSM
+11 IF ^%ZOSF("OS")["DSM"
GOTO SETUPDSM
+12 SET AUFLG(1)="Operating system is not 'MSM' or 'DSM'"
SET AUFLG=-1
+13 GOTO EOJ
SETUPMSM ;SETUP FOR MSM
+1 IF '$DATA(AUIO)
SET AUIO=51
+2 IF $DATA(AUMED)
IF "CcDdFfTt"'[AUMED
SET AUFLG(1)="Media Type 'AUMED' is incorrect"
SET AUFLG=-1
GOTO EOJ
+3 DO ^AZGSAVEM
+4 IF '$DATA(AUFLG)
SET AUFLG=0
+5 GOTO EOJ
SETUPDSM ;SETUPDSM
+1 IF '$DATA(AUIO)
SET AUIO=47
+2 IF $DATA(AUMED)
IF "CcTt"'[AUMED
SET AUFLG(1)="Media Type 'AUMED' is incorrect"
SET AUFLG=-1
GOTO EOJ
+3 DO ^AZGSAVED
+4 IF '$DATA(AUFLG)
SET AUFLG=0
EOJ ;KILL VARIABLES AND EXIT
+1 KILL AUGL,AUGLL,AUCARTNO,X1,X2,X,AUNAR,AUTLE,AUIO
+2 KILL AUPAR,AUDT,AUE,AUF,AUMED,%DT,AUUF,Y,%DEV
+3 QUIT
CHECK SET X=AUGL
+1 IF $LENGTH(X,"(")>1
IF $PIECE(X,"(",2)=""
SET X=$PIECE(X,"(")
+2 IF $EXTRACT(X,$LENGTH(X))=","
SET X=$EXTRACT(X,1,($LENGTH(X)-1))
+3 IF $LENGTH(AUGL,"(")>1
IF $EXTRACT(AUGL,$LENGTH(AUGL))'=","
SET AUGL=AUGL_","
+4 IF $LENGTH(X,"(")>1
IF $EXTRACT(X,$LENGTH(X))'=")"
SET X=X_")"
+5 IF $LENGTH(X,"(")=1
SET AUGL=X_"("
+6 SET AUGLL=U_X
+7 QUIT
