Routine: DGYMFILE

DGYMFILE ;ALB/MLI - Set File Access Codes for MAS files ; October 20, 1994

 ;;5.3;Registration;**49,1015**;Aug 13, 1993;Build 21

 ; This routine will loop through the MAS files and show the site's

 ; existing file access and the recommended file access.  It will

 ; also give the site the opportunity to update the file access for

 ; one, many, or all of the files on the list.

 ; Must be run by someone with DUZ(0)="@".

EN ; entry point to print list of existing and recommended file access

 I $G(DUZ(0))'="@" W !,"You must have DUZ(0) set to '@' before continuing" G Q

 F I=1:1 S X=$P($T(TEXT+I),";;",2) Q:X="QUIT"  W !,X

 S ZTDESC="Generate list of file access codes",ZTRTN="PRINT^DGYMFIL2"

 D ZIS^DGUTQ

 I 'POP D PRINT^DGYMFIL2

Q K I,POP,X,ZTDESC,ZTIO,ZTRTN,ZTSK

 D CLOSE^DGUTQ

TEXT ; text lines for help

 ;;This call will generate a listing of current file access on all MAS files

 ;;along with the recommended access.  Where the recommended access does not

 ;;equal the current access, an * will be printed prior to the file number.

 ;;Once this listing has been reviewed, you can call EDIT^DGYMFILE to take

 ;;the recommended access for one, many, or all files on the list.

;;

 ;;To abort this process, enter an '^' at the Device prompt.

;;

 ;;QUIT

EDIT ; edit file access for one, many, or all MAS files

 I $G(DUZ(0))'="@" W !,"You must have DUZ(0) set to '@' before continuing" G Q

 F I=1:1 S X=$P($T(EDITTXT+I),";;",2) Q:X="QUIT"  W !,X

 D LOAD^DGYMFIL2 ; put file list into TMP global

 S DIC="^DIC(",DIC("S")="I $G(^TMP($J,""DGYMFILE"",+Y))",VAUTNI=2,VAUTSTR="file",VAUTVB="DGYMFILE"

 D FIRST^VAUTOMA ; select one, many, or all MAS files

 I Y<0 W !,"Operation aborted...call EDIT^DGYMFILE to begin again" G EDITQ

 I DGYMFILE D  ; if all MAS files selected

 . F I=0:0 S I=$O(^TMP($J,"DGYMFILE",I)) Q:'I  D SET(^(I))

 I 'DGYMFILE D  ; if one or many MAS files selected

 . F I=0:0 S I=$O(DGYMFILE(I)) Q:'I  D SET(^TMP($J,"DGYMFILE",I))

 W !,"File updating has been completed!"

EDITQ K DIC,DGYMFILE,I,VAUTNI,VAUTSTR,VAUTVB,X,Y,^TMP($J,"DGYMFILE")

SET(X) ; set recommended file access into selected file

 ; Input - X as File IEN^Read^Write^Delete^Laygo

 S ^DIC(+X,0,"DD")="@" ; all dd access set to @

 S ^DIC(+X,0,"RD")="d" ; all read access set to d

 S ^DIC(+X,0,"WR")=$P(X,"^",2)

 S ^DIC(+X,0,"DEL")=$P(X,"^",3)

 S ^DIC(+X,0,"LAYGO")=$P(X,"^",4)

EDITTXT ; text for edit process

 ;;This call will allow you to accept the recommended file security codes

 ;;for one, many, or all MAS files.  You should have already reviewed the

 ;;printout generated from the EN^DGYMFILE call which shows your current vs.

 ;;recommended file access codes. It is recommended that you accept the

 ;;file security for all files.

;;

 ;;To abort this process, enter an '^' at the 'Select File:  ALL//' prompt.

;;

 ;;QUIT

DGYMFILE  ;ALB/MLI - Set File Access Codes for MAS files ; October 20, 1994

 +1       ;;5.3;Registration;**49,1015**;Aug 13, 1993;Build 21

 +2       ;

 +3       ; This routine will loop through the MAS files and show the site's

 +4       ; existing file access and the recommended file access.  It will

 +5       ; also give the site the opportunity to update the file access for

 +6       ; one, many, or all of the files on the list.

 +7       ;

 +8       ; Must be run by someone with DUZ(0)="@".

 +9       ;

EN        ; entry point to print list of existing and recommended file access

 +1        IF $GET(DUZ(0))'="@"

               WRITE !,"You must have DUZ(0) set to '@' before continuing"

               GOTO Q

 +2        FOR I=1:1

               SET X=$PIECE($TEXT(TEXT+I),";;",2)

               IF X="QUIT"

                   QUIT

               WRITE !,X

 +3        SET ZTDESC="Generate list of file access codes"

           SET ZTRTN="PRINT^DGYMFIL2"

 +4        DO ZIS^DGUTQ

 +5        IF 'POP

               DO PRINT^DGYMFIL2

Q          KILL I,POP,X,ZTDESC,ZTIO,ZTRTN,ZTSK

 +1        DO CLOSE^DGUTQ

 +2        QUIT

 +3       ;

 +4       ;

TEXT      ; text lines for help

 +1       ;;This call will generate a listing of current file access on all MAS files

 +2       ;;along with the recommended access.  Where the recommended access does not

 +3       ;;equal the current access, an * will be printed prior to the file number.

 +4       ;;Once this listing has been reviewed, you can call EDIT^DGYMFILE to take

 +5       ;;the recommended access for one, many, or all files on the list.

 +6       ;;

 +7       ;;To abort this process, enter an '^' at the Device prompt.

 +8       ;;

 +9       ;;QUIT

 +10      ;

 +11      ;

EDIT      ; edit file access for one, many, or all MAS files

 +1        IF $GET(DUZ(0))'="@"

               WRITE !,"You must have DUZ(0) set to '@' before continuing"

               GOTO Q

 +2        FOR I=1:1

               SET X=$PIECE($TEXT(EDITTXT+I),";;",2)

               IF X="QUIT"

                   QUIT

               WRITE !,X

 +3       ; put file list into TMP global

           DO LOAD^DGYMFIL2

 +4        SET DIC="^DIC("

           SET DIC("S")="I $G(^TMP($J,""DGYMFILE"",+Y))"

           SET VAUTNI=2

           SET VAUTSTR="file"

           SET VAUTVB="DGYMFILE"

 +5       ; select one, many, or all MAS files

           DO FIRST^VAUTOMA

 +6        IF Y<0

               WRITE !,"Operation aborted...call EDIT^DGYMFILE to begin again"

               GOTO EDITQ

 +7       ; if all MAS files selected

           IF DGYMFILE

               Begin DoDot:1

 +8                FOR I=0:0

                       SET I=$ORDER(^TMP($JOB,"DGYMFILE",I))

                       IF 'I

                           QUIT

                       DO SET(^(I))

               End DoDot:1

 +9       ; if one or many MAS files selected

           IF 'DGYMFILE

               Begin DoDot:1

 +10               FOR I=0:0

                       SET I=$ORDER(DGYMFILE(I))

                       IF 'I

                           QUIT

                       DO SET(^TMP($JOB,"DGYMFILE",I))

               End DoDot:1

 +11       WRITE !,"File updating has been completed!"

EDITQ      KILL DIC,DGYMFILE,I,VAUTNI,VAUTSTR,VAUTVB,X,Y,^TMP($JOB,"DGYMFILE")

 +1        QUIT

 +2       ;

SET(X)    ; set recommended file access into selected file

 +1       ;

 +2       ; Input - X as File IEN^Read^Write^Delete^Laygo

 +3       ;

 +4       ; all dd access set to @

           SET ^DIC(+X,0,"DD")="@"

 +5       ; all read access set to d

           SET ^DIC(+X,0,"RD")="d"

 +6        SET ^DIC(+X,0,"WR")=$PIECE(X,"^",2)

 +7        SET ^DIC(+X,0,"DEL")=$PIECE(X,"^",3)

 +8        SET ^DIC(+X,0,"LAYGO")=$PIECE(X,"^",4)

 +9        QUIT

 +10      ;

EDITTXT   ; text for edit process

 +1       ;;This call will allow you to accept the recommended file security codes

 +2       ;;for one, many, or all MAS files.  You should have already reviewed the

 +3       ;;printout generated from the EN^DGYMFILE call which shows your current vs.

 +4       ;;recommended file access codes. It is recommended that you accept the

 +5       ;;file security for all files.

 +6       ;;

 +7       ;;To abort this process, enter an '^' at the 'Select File:  ALL//' prompt.

 +8       ;;

 +9       ;;QUIT

DGYMFILE.m