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

NURSFILE.m

Go to the documentation of this file.
  1. NURSFILE ;HIRMFO/FT-Set Nursing File Security ;3/19/98 15:05
  1. ;;4.0;NURSING SERVICE;**9**;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 Nursing file security...")
  1. EN1 ;
  1. F NURSTXT=1:1 S NURSLINE=$P($T(SECURITY+NURSTXT),";;",2,99) Q:NURSLINE="" D
  1. . S NURSFL=+$P(NURSLINE,";")
  1. . S ^DIC(NURSFL,0,"DD")=$P(NURSLINE,";",2)
  1. . S ^DIC(NURSFL,0,"RD")=$P(NURSLINE,";",3)
  1. . S ^DIC(NURSFL,0,"WR")=$P(NURSLINE,";",4)
  1. . S ^DIC(NURSFL,0,"DEL")=$P(NURSLINE,";",5)
  1. . S ^DIC(NURSFL,0,"LAYGO")=$P(NURSLINE,";",6)
  1. . Q
  1. K NURSFL,NURSLINE,NURSTXT
  1. Q
  1. SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
  1. ;;210;@;;@;@;@
  1. ;;211.1;@;;@;@;@
  1. ;;211.2;@;;@;@;@
  1. ;;211.3;@;;@;@;@
  1. ;;211.4;@;;@;@;@
  1. ;;211.5;@;;@;@;@
  1. ;;211.6;@;;@;@;@
  1. ;;211.7;@;;@;@;@
  1. ;;211.8;@;;@;@;@
  1. ;;211.9;@;;@;@;@
  1. ;;212.1;@;;@;@;@
  1. ;;212.2;@;;@;@;@
  1. ;;212.3;@;;@;@;@
  1. ;;212.4;@;;@;@;@
  1. ;;212.42;@;;@;@;@
  1. ;;212.6;@;;@;@;@
  1. ;;212.7;@;;@;@;@
  1. ;;213.2;@;;@;@;@
  1. ;;213.3;@;;@;@;@
  1. ;;213.4;@;;@;@;@
  1. ;;213.5;@;;@;@;@
  1. ;;213.9;@;;@;@;@
  1. ;;214;@;;@;@;@
  1. ;;214.6;@;;@;@;@
  1. ;;214.7;@;;@;@;@
  1. ;;216.8;@;;@;@;@
  1. ;;217;@;;@;@;@
  1. ;;217.1;@;;@;@;@
  1. ;;217.2;@;;@;@;@
  1. ;;217.3;@;;@;@;@
  1. ;;219.7;@;;@;@;@
  1. Q