- 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 Feb 18, 2025@23:22:46 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