GMRYFILE.m

GMRYFILE ;HIRMFO/FT-Set I/O File Security ;3/5/97  16:41

 ;;4.0;Intake/Output;;Apr 25, 1997

POST1 ; entry point from package installation

 I $G(XPDQUES("POST1"))'>0 D BMES^XPDUTL("FILE SECURITY NOT UPDATED!!") Q

 D BMES^XPDUTL("Setting Intake/Output file security...")

EN1 ;

 F GMRYTXT=1:1 S GMRYLINE=$P($T(SECURITY+GMRYTXT),";;",2,99) Q:GMRYLINE=""  D

 . S GMRYFL=+$P(GMRYLINE,";")

 . S ^DIC(GMRYFL,0,"DD")=$P(GMRYLINE,";",2)

 . S ^DIC(GMRYFL,0,"RD")=$P(GMRYLINE,";",3)

 . S ^DIC(GMRYFL,0,"WR")=$P(GMRYLINE,";",4)

 . S ^DIC(GMRYFL,0,"DEL")=$P(GMRYLINE,";",5)

 . S ^DIC(GMRYFL,0,"LAYGO")=$P(GMRYLINE,";",6)

 . Q

 K GMRYFL,GMRYLINE,GMRYTXT

 Q

SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO

 ;;126;@;;@;@;@

 ;;126.56;@;;@;@;@

 ;;126.58;@;;@;@;@

 ;;126.6;@;;@;@;@

 ;;126.7;@;;@;@;@

 ;;126.72;@;;@;@;@

 ;;126.74;@;;@;@;@

 ;;126.76;@;;@;@;@

 ;;126.8;@;;@;@;@

 ;;126.9;@;;@;@;@

 ;;126.95;@;;@;@;@

 Q

GMRYFILE  ;HIRMFO/FT-Set I/O File Security ;3/5/97  16:41

 +1       ;;4.0;Intake/Output;;Apr 25, 1997

POST1     ; entry point from package installation

 +1        IF $GET(XPDQUES("POST1"))'>0

               DO BMES^XPDUTL("FILE SECURITY NOT UPDATED!!")

               QUIT 

 +2        DO BMES^XPDUTL("Setting Intake/Output file security...")

EN1       ;

 +1        FOR GMRYTXT=1:1

               SET GMRYLINE=$PIECE($TEXT(SECURITY+GMRYTXT),";;",2,99)

               IF GMRYLINE=""

                   QUIT 

               Begin DoDot:1

 +2                SET GMRYFL=+$PIECE(GMRYLINE,";")

 +3                SET ^DIC(GMRYFL,0,"DD")=$PIECE(GMRYLINE,";",2)

 +4                SET ^DIC(GMRYFL,0,"RD")=$PIECE(GMRYLINE,";",3)

 +5                SET ^DIC(GMRYFL,0,"WR")=$PIECE(GMRYLINE,";",4)

 +6                SET ^DIC(GMRYFL,0,"DEL")=$PIECE(GMRYLINE,";",5)

 +7                SET ^DIC(GMRYFL,0,"LAYGO")=$PIECE(GMRYLINE,";",6)

 +8                QUIT 

               End DoDot:1

 +9        KILL GMRYFL,GMRYLINE,GMRYTXT

 +10       QUIT 

SECURITY  ;;FILENO;DD;RD;WR;DEL;LAYGO

 +1       ;;126;@;;@;@;@

 +2       ;;126.56;@;;@;@;@

 +3       ;;126.58;@;;@;@;@

 +4       ;;126.6;@;;@;@;@

 +5       ;;126.7;@;;@;@;@

 +6       ;;126.72;@;;@;@;@

 +7       ;;126.74;@;;@;@;@

 +8       ;;126.76;@;;@;@;@

 +9       ;;126.8;@;;@;@;@

 +10      ;;126.9;@;;@;@;@

 +11      ;;126.95;@;;@;@;@

 +12       QUIT