- 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
