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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRYFILE 913 printed Nov 22, 2024@17:05:30 Page 2
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
