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.8 KB
|
Line | |
---|
1 | MCPOS0D ;HIRMFO/DAD-UPDATE FILE SECURITY ;7/24/96 10:04
|
---|
2 | ;;2.3;Medicine;;09/13/1996
|
---|
3 | ;
|
---|
4 | N MCACCESS,MCDATA,MCFILE,MCNODE,MCOFFSET,MCPIECE
|
---|
5 | S MCDATA(1)=""
|
---|
6 | S MCDATA(2)="Updating Medicine package file level access security."
|
---|
7 | D MES^XPDUTL(.MCDATA)
|
---|
8 | ;
|
---|
9 | F MCOFFSET=1:1 S MCDATA=$P($T(FILE+MCOFFSET),";",3) Q:MCDATA="" D
|
---|
10 | . S MCFILE=$P(MCDATA,U) Q:$D(^DIC(MCFILE,0))[0
|
---|
11 | . F MCPIECE=2:1:7 D
|
---|
12 | .. S MCACCESS=$P(MCDATA,U,MCPIECE) Q:MCACCESS=""
|
---|
13 | .. S MCNODE=$P("^DD^RD^WR^DEL^LAYGO^AUDIT",U,MCPIECE)
|
---|
14 | .. I "^DD^AUDIT^"[(U_MCNODE_U),$G(^DIC(MCFILE,0,MCNODE))="" D SET Q
|
---|
15 | .. I $D(^DIC(MCFILE,0,MCNODE))[0 D SET
|
---|
16 | .. Q
|
---|
17 | . Q
|
---|
18 | Q
|
---|
19 | SET ;
|
---|
20 | S ^DIC(MCFILE,0,MCNODE)=MCACCESS
|
---|
21 | Q
|
---|
22 | ;
|
---|
23 | FILE ;;File# ^ DD ^ RD ^ WR ^ DEL ^ LAYGO ^ AUDIT
|
---|
24 | ;;690^@^^^^^@
|
---|
25 | ;;690.1^@^^^^^@
|
---|
26 | ;;690.2^@^^^^^@
|
---|
27 | ;;690.5^@^^^^^@
|
---|
28 | ;;690.97^@^^^^^@
|
---|
29 | ;;690.99^@^^^^^@
|
---|
30 | ;;691^@^^^^^@
|
---|
31 | ;;691.1^@^^^^^@
|
---|
32 | ;;691.5^@^^^^^@
|
---|
33 | ;;691.6^@^^^^^@
|
---|
34 | ;;691.7^@^^^^^@
|
---|
35 | ;;691.8^@^^^^^@
|
---|
36 | ;;691.9^@^^^^^@
|
---|
37 | ;;692^@^^^^^@
|
---|
38 | ;;693^@^^^^^@
|
---|
39 | ;;693.2^@^^^^^@
|
---|
40 | ;;693.3^@^^^^^@
|
---|
41 | ;;693.5^@^^^^^@
|
---|
42 | ;;693.6^@^^^^^@
|
---|
43 | ;;694^@^^^^^@
|
---|
44 | ;;694.1^@^^^^^@
|
---|
45 | ;;694.5^@^^^^^@
|
---|
46 | ;;694.8^@^^^^^@
|
---|
47 | ;;695^@^^^^^@
|
---|
48 | ;;695.1^@^^^^^@
|
---|
49 | ;;695.3^@^^^^^@
|
---|
50 | ;;695.4^@^^^^^@
|
---|
51 | ;;695.5^@^^^^^@
|
---|
52 | ;;695.6^@^^^^^@
|
---|
53 | ;;695.8^@^^^^^@
|
---|
54 | ;;695.9^@^^^^^@
|
---|
55 | ;;696^@^^^^^@
|
---|
56 | ;;696.1^@^^^^^@
|
---|
57 | ;;696.2^@^^^^^@
|
---|
58 | ;;696.3^@^^^^^@
|
---|
59 | ;;696.4^@^^^^^@
|
---|
60 | ;;696.5^@^^^^^@
|
---|
61 | ;;696.7^@^^^^^@
|
---|
62 | ;;696.9^@^^^^^@
|
---|
63 | ;;697^@^^^^^@
|
---|
64 | ;;697.1^@^^^^^@
|
---|
65 | ;;697.2^@^^^^^@
|
---|
66 | ;;697.3^@^^^^^@
|
---|
67 | ;;697.5^@^^^^^@
|
---|
68 | ;;698^@^^^^^@
|
---|
69 | ;;698.1^@^^^^^@
|
---|
70 | ;;698.2^@^^^^^@
|
---|
71 | ;;698.3^@^^^^^@
|
---|
72 | ;;698.4^@^^^^^@
|
---|
73 | ;;698.6^@^^^^^@
|
---|
74 | ;;698.9^@^^^^^@
|
---|
75 | ;;699^@^^^^^@
|
---|
76 | ;;699.48^@^^^^^@
|
---|
77 | ;;699.5^@^^^^^@
|
---|
78 | ;;699.55^@^^^^^@
|
---|
79 | ;;699.57^@^^^^^@
|
---|
80 | ;;699.6^@^^^^^@
|
---|
81 | ;;699.7^@^^^^^@
|
---|
82 | ;;699.81^@^^^^^@
|
---|
83 | ;;699.82^@^^^^^@
|
---|
84 | ;;699.83^@^^^^^@
|
---|
85 | ;;699.84^@^^^^^@
|
---|
86 | ;;699.85^@^^^^^@
|
---|
87 | ;;699.86^@^^^^^@
|
---|
88 | ;;699.88^@^^^^^@
|
---|
89 | ;;700^@^^^^^@
|
---|
90 | ;;700.1^@^^^^^@
|
---|
91 | ;;700.2^@^^^^^@
|
---|
92 | ;;700.5^@^^^^^@
|
---|
93 | ;;701^@^^^^^@
|
---|
Note:
See
TracBrowser
for help on using the repository browser.