source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPOS0D.m@ 1800

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

initial load of WorldVistAEHR

File size: 1.8 KB
Line 
1MCPOS0D ;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
19SET ;
20 S ^DIC(MCFILE,0,MCNODE)=MCACCESS
21 Q
22 ;
23FILE ;;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.