AZGSAV1D.m

AZGSAV1D ;RPMS/TJF/MLQ;TRANSFER TX GLOBALS TO TAPE, DSM SPECIFIC 

 ;;1.4;AUGS;*0*;OCT 16, 1991

 U IO W AUDT W:AUPAR'["V" ! W AUTLE W:AUPAR'["V" ! S GO=AUGL

Z S:'$D(AUF) AUF=""  S A=AUF,(B,C,D,E,F,G,H)=""

1 S A=$O(@(GO_"A)")) G END:A="" I $D(AUE) G END:A>AUE

 I $D(^(A))#2 S S=A D SB1

2 S B=$O(@(GO_"A,B)")) G 1:B="" I $D(^(B))#2 S S=B D SB1

3 S C=$O(@(GO_"A,B,C)")) G 2:C="" I $D(^(C))#2 S S=C D SB1

4 S D=$O(@(GO_"A,B,C,D)")) G 3:D="" I $D(^(D))#2 S S=D D SB1

5 S E=$O(@(GO_"A,B,C,D,E)")) G 4:E="" I $D(^(E))#2 S S=E D SB1

6 S F=$O(@(GO_"A,B,C,D,E,F)")) G 5:F="" I $D(^(F))#2 S S=F D SB1

7 S G=$O(@(GO_"A,B,C,D,E,F,G)")) G 6:G="" I $D(^(G))#2 S S=G D SB1

8 S H=$O(@(GO_"A,B,C,D,E,F,G,H)")) G 7:H="" I $D(^(H))#2 S S=H D SB1

 G 8

END W "**END**" W:AUPAR'["V" ! W "**END**" W:AUPAR'["V" !

 K A,B,C,D,E,F,G,H,I,X,GO,DATA,SS,EDE

 Q

SB1 S EDE=GO F I=65:1:72 S X=$C(I),SS=0 Q:'$D(@X)  Q:@X=""  S @("SS="_X_"'=+"_X) S:I>65 EDE=EDE_"," S:SS EDE=EDE_"""" S EDE=EDE_@X S:SS EDE=EDE_""""

 S DATA=^(S)

 W EDE_")" W:AUPAR'["V" ! W DATA W:AUPAR'["V" !

 Q

AZGSAV1D  ;RPMS/TJF/MLQ;TRANSFER TX GLOBALS TO TAPE, DSM SPECIFIC 

 +1       ;;1.4;AUGS;*0*;OCT 16, 1991

 +2        USE IO

           WRITE AUDT

           IF AUPAR'["V"

               WRITE !

           WRITE AUTLE

           IF AUPAR'["V"

               WRITE !

           SET GO=AUGL

Z          IF '$DATA(AUF)

               SET AUF=""

           SET A=AUF

           SET (B,C,D,E,F,G,H)=""

1          SET A=$ORDER(@(GO_"A)"))

           IF A=""

               GOTO END

           IF $DATA(AUE)

               IF A>AUE

                   GOTO END

 +1        IF $DATA(^(A))#2

               SET S=A

               DO SB1

2          SET B=$ORDER(@(GO_"A,B)"))

           IF B=""

               GOTO 1

           IF $DATA(^(B))#2

               SET S=B

               DO SB1

3          SET C=$ORDER(@(GO_"A,B,C)"))

           IF C=""

               GOTO 2

           IF $DATA(^(C))#2

               SET S=C

               DO SB1

4          SET D=$ORDER(@(GO_"A,B,C,D)"))

           IF D=""

               GOTO 3

           IF $DATA(^(D))#2

               SET S=D

               DO SB1

5          SET E=$ORDER(@(GO_"A,B,C,D,E)"))

           IF E=""

               GOTO 4

           IF $DATA(^(E))#2

               SET S=E

               DO SB1

6          SET F=$ORDER(@(GO_"A,B,C,D,E,F)"))

           IF F=""

               GOTO 5

           IF $DATA(^(F))#2

               SET S=F

               DO SB1

7          SET G=$ORDER(@(GO_"A,B,C,D,E,F,G)"))

           IF G=""

               GOTO 6

           IF $DATA(^(G))#2

               SET S=G

               DO SB1

8          SET H=$ORDER(@(GO_"A,B,C,D,E,F,G,H)"))

           IF H=""

               GOTO 7

           IF $DATA(^(H))#2

               SET S=H

               DO SB1

 +1        GOTO 8

END        WRITE "**END**"

           IF AUPAR'["V"

               WRITE !

           WRITE "**END**"

           IF AUPAR'["V"

               WRITE !

 +1        KILL A,B,C,D,E,F,G,H,I,X,GO,DATA,SS,EDE

 +2        QUIT 

SB1        SET EDE=GO

           FOR I=65:1:72

               SET X=$CHAR(I)

               SET SS=0

               IF '$DATA(@X)

                   QUIT 

               IF @X=""

                   QUIT 

               SET @("SS="_X_"'=+"_X)

               IF I>65

                   SET EDE=EDE_","

               IF SS

                   SET EDE=EDE_""""

               SET EDE=EDE_@X

               IF SS

                   SET EDE=EDE_""""

 +1        SET DATA=^(S)

 +2        WRITE EDE_")"

           IF AUPAR'["V"

               WRITE !

           WRITE DATA

           IF AUPAR'["V"

               WRITE !

 +3        QUIT