94 lines
1.8 KiB
Mathematica
94 lines
1.8 KiB
Mathematica
MCPOS0D ;HIRMFO/DAD-UPDATE FILE SECURITY ;7/24/96 10:04
|
|
;;2.3;Medicine;;09/13/1996
|
|
;
|
|
N MCACCESS,MCDATA,MCFILE,MCNODE,MCOFFSET,MCPIECE
|
|
S MCDATA(1)=""
|
|
S MCDATA(2)="Updating Medicine package file level access security."
|
|
D MES^XPDUTL(.MCDATA)
|
|
;
|
|
F MCOFFSET=1:1 S MCDATA=$P($T(FILE+MCOFFSET),";",3) Q:MCDATA="" D
|
|
. S MCFILE=$P(MCDATA,U) Q:$D(^DIC(MCFILE,0))[0
|
|
. F MCPIECE=2:1:7 D
|
|
.. S MCACCESS=$P(MCDATA,U,MCPIECE) Q:MCACCESS=""
|
|
.. S MCNODE=$P("^DD^RD^WR^DEL^LAYGO^AUDIT",U,MCPIECE)
|
|
.. I "^DD^AUDIT^"[(U_MCNODE_U),$G(^DIC(MCFILE,0,MCNODE))="" D SET Q
|
|
.. I $D(^DIC(MCFILE,0,MCNODE))[0 D SET
|
|
.. Q
|
|
. Q
|
|
Q
|
|
SET ;
|
|
S ^DIC(MCFILE,0,MCNODE)=MCACCESS
|
|
Q
|
|
;
|
|
FILE ;;File# ^ DD ^ RD ^ WR ^ DEL ^ LAYGO ^ AUDIT
|
|
;;690^@^^^^^@
|
|
;;690.1^@^^^^^@
|
|
;;690.2^@^^^^^@
|
|
;;690.5^@^^^^^@
|
|
;;690.97^@^^^^^@
|
|
;;690.99^@^^^^^@
|
|
;;691^@^^^^^@
|
|
;;691.1^@^^^^^@
|
|
;;691.5^@^^^^^@
|
|
;;691.6^@^^^^^@
|
|
;;691.7^@^^^^^@
|
|
;;691.8^@^^^^^@
|
|
;;691.9^@^^^^^@
|
|
;;692^@^^^^^@
|
|
;;693^@^^^^^@
|
|
;;693.2^@^^^^^@
|
|
;;693.3^@^^^^^@
|
|
;;693.5^@^^^^^@
|
|
;;693.6^@^^^^^@
|
|
;;694^@^^^^^@
|
|
;;694.1^@^^^^^@
|
|
;;694.5^@^^^^^@
|
|
;;694.8^@^^^^^@
|
|
;;695^@^^^^^@
|
|
;;695.1^@^^^^^@
|
|
;;695.3^@^^^^^@
|
|
;;695.4^@^^^^^@
|
|
;;695.5^@^^^^^@
|
|
;;695.6^@^^^^^@
|
|
;;695.8^@^^^^^@
|
|
;;695.9^@^^^^^@
|
|
;;696^@^^^^^@
|
|
;;696.1^@^^^^^@
|
|
;;696.2^@^^^^^@
|
|
;;696.3^@^^^^^@
|
|
;;696.4^@^^^^^@
|
|
;;696.5^@^^^^^@
|
|
;;696.7^@^^^^^@
|
|
;;696.9^@^^^^^@
|
|
;;697^@^^^^^@
|
|
;;697.1^@^^^^^@
|
|
;;697.2^@^^^^^@
|
|
;;697.3^@^^^^^@
|
|
;;697.5^@^^^^^@
|
|
;;698^@^^^^^@
|
|
;;698.1^@^^^^^@
|
|
;;698.2^@^^^^^@
|
|
;;698.3^@^^^^^@
|
|
;;698.4^@^^^^^@
|
|
;;698.6^@^^^^^@
|
|
;;698.9^@^^^^^@
|
|
;;699^@^^^^^@
|
|
;;699.48^@^^^^^@
|
|
;;699.5^@^^^^^@
|
|
;;699.55^@^^^^^@
|
|
;;699.57^@^^^^^@
|
|
;;699.6^@^^^^^@
|
|
;;699.7^@^^^^^@
|
|
;;699.81^@^^^^^@
|
|
;;699.82^@^^^^^@
|
|
;;699.83^@^^^^^@
|
|
;;699.84^@^^^^^@
|
|
;;699.85^@^^^^^@
|
|
;;699.86^@^^^^^@
|
|
;;699.88^@^^^^^@
|
|
;;700^@^^^^^@
|
|
;;700.1^@^^^^^@
|
|
;;700.2^@^^^^^@
|
|
;;700.5^@^^^^^@
|
|
;;701^@^^^^^@
|