source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURSFILE.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1NURSFILE ;HIRMFO/FT-Set Nursing File Security ;3/19/98 15:05
2 ;;4.0;NURSING SERVICE;**9**;Apr 25, 1997
3POST1 ; entry point from package installation
4 I $G(XPDQUES("POST1"))'>0 D BMES^XPDUTL("FILE SECURITY NOT UPDATED!!") Q
5 D BMES^XPDUTL("Setting Nursing file security...")
6EN1 ;
7 F NURSTXT=1:1 S NURSLINE=$P($T(SECURITY+NURSTXT),";;",2,99) Q:NURSLINE="" D
8 . S NURSFL=+$P(NURSLINE,";")
9 . S ^DIC(NURSFL,0,"DD")=$P(NURSLINE,";",2)
10 . S ^DIC(NURSFL,0,"RD")=$P(NURSLINE,";",3)
11 . S ^DIC(NURSFL,0,"WR")=$P(NURSLINE,";",4)
12 . S ^DIC(NURSFL,0,"DEL")=$P(NURSLINE,";",5)
13 . S ^DIC(NURSFL,0,"LAYGO")=$P(NURSLINE,";",6)
14 . Q
15 K NURSFL,NURSLINE,NURSTXT
16 Q
17SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
18 ;;210;@;;@;@;@
19 ;;211.1;@;;@;@;@
20 ;;211.2;@;;@;@;@
21 ;;211.3;@;;@;@;@
22 ;;211.4;@;;@;@;@
23 ;;211.5;@;;@;@;@
24 ;;211.6;@;;@;@;@
25 ;;211.7;@;;@;@;@
26 ;;211.8;@;;@;@;@
27 ;;211.9;@;;@;@;@
28 ;;212.1;@;;@;@;@
29 ;;212.2;@;;@;@;@
30 ;;212.3;@;;@;@;@
31 ;;212.4;@;;@;@;@
32 ;;212.42;@;;@;@;@
33 ;;212.6;@;;@;@;@
34 ;;212.7;@;;@;@;@
35 ;;213.2;@;;@;@;@
36 ;;213.3;@;;@;@;@
37 ;;213.4;@;;@;@;@
38 ;;213.5;@;;@;@;@
39 ;;213.9;@;;@;@;@
40 ;;214;@;;@;@;@
41 ;;214.6;@;;@;@;@
42 ;;214.7;@;;@;@;@
43 ;;216.8;@;;@;@;@
44 ;;217;@;;@;@;@
45 ;;217.1;@;;@;@;@
46 ;;217.2;@;;@;@;@
47 ;;217.3;@;;@;@;@
48 ;;219.7;@;;@;@;@
49 Q
Note: See TracBrowser for help on using the repository browser.