Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMRVFILE

GMRVFILE.m

Go to the documentation of this file.
  1. GMRVFILE ;HIRMFO/FT-Set V/M File Security ;3/5/97 16:41
  1. ;;4.0;Vitals/Measurements;;Apr 25, 1997
  1. POST1 ; entry point from package installation
  1. I $G(XPDQUES("POST1"))'>0 D BMES^XPDUTL("FILE SECURITY NOT UPDATED!!") Q
  1. D BMES^XPDUTL("Setting Vitals/Measurements file security...")
  1. EN1 ;
  1. F GMRVTXT=1:1 S GMRVLINE=$P($T(SECURITY+GMRVTXT),";;",2,99) Q:GMRVLINE="" D
  1. . S GMRVFL=+$P(GMRVLINE,";")
  1. . S ^DIC(GMRVFL,0,"DD")=$P(GMRVLINE,";",2)
  1. . S ^DIC(GMRVFL,0,"RD")=$P(GMRVLINE,";",3)
  1. . S ^DIC(GMRVFL,0,"WR")=$P(GMRVLINE,";",4)
  1. . S ^DIC(GMRVFL,0,"DEL")=$P(GMRVLINE,";",5)
  1. . S ^DIC(GMRVFL,0,"LAYGO")=$P(GMRVLINE,";",6)
  1. . Q
  1. K GMRVFL,GMRVLINE,GMRVTXT
  1. Q
  1. SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
  1. ;;120.5;@;;@;@;@
  1. ;;120.51;@;;@;@;@
  1. ;;120.52;@;;@;@;@
  1. ;;120.53;@;;@;@;@
  1. ;;120.55;@;;@;@;@
  1. ;;120.57;@;;@;@;@
  1. Q