GMRVFILE ;HIRMFO/FT-Set V/M File Security ;3/5/97 16:41
;;4.0;Vitals/Measurements;;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 Vitals/Measurements file security...")
EN1 ;
F GMRVTXT=1:1 S GMRVLINE=$P($T(SECURITY+GMRVTXT),";;",2,99) Q:GMRVLINE="" D
. S GMRVFL=+$P(GMRVLINE,";")
. S ^DIC(GMRVFL,0,"DD")=$P(GMRVLINE,";",2)
. S ^DIC(GMRVFL,0,"RD")=$P(GMRVLINE,";",3)
. S ^DIC(GMRVFL,0,"WR")=$P(GMRVLINE,";",4)
. S ^DIC(GMRVFL,0,"DEL")=$P(GMRVLINE,";",5)
. S ^DIC(GMRVFL,0,"LAYGO")=$P(GMRVLINE,";",6)
. Q
K GMRVFL,GMRVLINE,GMRVTXT
Q
SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
;;120.5;@;;@;@;@
;;120.51;@;;@;@;@
;;120.52;@;;@;@;@
;;120.53;@;;@;@;@
;;120.55;@;;@;@;@
;;120.57;@;;@;@;@
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVFILE 831 printed Dec 13, 2024@01:56:24 Page 2
GMRVFILE ;HIRMFO/FT-Set V/M File Security ;3/5/97 16:41
+1 ;;4.0;Vitals/Measurements;;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 Vitals/Measurements file security...")
EN1 ;
+1 FOR GMRVTXT=1:1
SET GMRVLINE=$PIECE($TEXT(SECURITY+GMRVTXT),";;",2,99)
if GMRVLINE=""
QUIT
Begin DoDot:1
+2 SET GMRVFL=+$PIECE(GMRVLINE,";")
+3 SET ^DIC(GMRVFL,0,"DD")=$PIECE(GMRVLINE,";",2)
+4 SET ^DIC(GMRVFL,0,"RD")=$PIECE(GMRVLINE,";",3)
+5 SET ^DIC(GMRVFL,0,"WR")=$PIECE(GMRVLINE,";",4)
+6 SET ^DIC(GMRVFL,0,"DEL")=$PIECE(GMRVLINE,";",5)
+7 SET ^DIC(GMRVFL,0,"LAYGO")=$PIECE(GMRVLINE,";",6)
+8 QUIT
End DoDot:1
+9 KILL GMRVFL,GMRVLINE,GMRVTXT
+10 QUIT
SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
+1 ;;120.5;@;;@;@;@
+2 ;;120.51;@;;@;@;@
+3 ;;120.52;@;;@;@;@
+4 ;;120.53;@;;@;@;@
+5 ;;120.55;@;;@;@;@
+6 ;;120.57;@;;@;@;@
+7 QUIT
