|
Last change
on this file since 677 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.
