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^@^^^^^@