Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
1.0 KB
|
Rev | Line | |
---|
[613] | 1 | MCPRE0Z ;HISC/DAD-DD CLEAN UP ;7/25/96 12:22
|
---|
| 2 | ;;2.3;Medicine;;09/13/1996
|
---|
| 3 | ;
|
---|
| 4 | N DATA,DIU,LOOP,VERSION,TEXT
|
---|
| 5 | S TEXT(1)=""
|
---|
| 6 | S TEXT(2)="Killing the Medicine data dictionaries."
|
---|
| 7 | D MES^XPDUTL(.TEXT) K TEXT
|
---|
| 8 | ;
|
---|
| 9 | S VERSION=$P($G(^XTMP("MC","VER")),U)
|
---|
| 10 | F LOOP=1:1 S DATA=$P($T(DD+LOOP),";",3) Q:DATA="" D
|
---|
| 11 | . S DIU=$P(DATA,U)
|
---|
| 12 | . S DIU(0)=$S(VERSION<2:"DT",DIU=690.2:"DT",DIU=697.3:"DT",1:"T")
|
---|
| 13 | . I $$VFILE^DILFD(DIU) D EN^DIU2 K DIU
|
---|
| 14 | . Q
|
---|
| 15 | Q
|
---|
| 16 | DD ;;File#
|
---|
| 17 | ;;690
|
---|
| 18 | ;;690.1
|
---|
| 19 | ;;690.2
|
---|
| 20 | ;;690.5
|
---|
| 21 | ;;690.99
|
---|
| 22 | ;;691
|
---|
| 23 | ;;691.1
|
---|
| 24 | ;;691.5
|
---|
| 25 | ;;691.6
|
---|
| 26 | ;;691.7
|
---|
| 27 | ;;691.8
|
---|
| 28 | ;;691.9
|
---|
| 29 | ;;692
|
---|
| 30 | ;;693
|
---|
| 31 | ;;693.2
|
---|
| 32 | ;;693.3
|
---|
| 33 | ;;693.5
|
---|
| 34 | ;;693.6
|
---|
| 35 | ;;694
|
---|
| 36 | ;;694.1
|
---|
| 37 | ;;694.5
|
---|
| 38 | ;;694.8
|
---|
| 39 | ;;695
|
---|
| 40 | ;;695.1
|
---|
| 41 | ;;695.3
|
---|
| 42 | ;;695.4
|
---|
| 43 | ;;695.5
|
---|
| 44 | ;;695.6
|
---|
| 45 | ;;695.8
|
---|
| 46 | ;;695.9
|
---|
| 47 | ;;696
|
---|
| 48 | ;;696.1
|
---|
| 49 | ;;696.2
|
---|
| 50 | ;;696.3
|
---|
| 51 | ;;696.4
|
---|
| 52 | ;;696.5
|
---|
| 53 | ;;696.7
|
---|
| 54 | ;;696.9
|
---|
| 55 | ;;697
|
---|
| 56 | ;;697.1
|
---|
| 57 | ;;697.2
|
---|
| 58 | ;;697.3
|
---|
| 59 | ;;697.5
|
---|
| 60 | ;;698
|
---|
| 61 | ;;698.1
|
---|
| 62 | ;;698.2
|
---|
| 63 | ;;698.3
|
---|
| 64 | ;;698.4
|
---|
| 65 | ;;698.6
|
---|
| 66 | ;;698.9
|
---|
| 67 | ;;699
|
---|
| 68 | ;;699.48
|
---|
| 69 | ;;699.5
|
---|
| 70 | ;;699.55
|
---|
| 71 | ;;699.57
|
---|
| 72 | ;;699.6
|
---|
| 73 | ;;699.65
|
---|
| 74 | ;;699.7
|
---|
| 75 | ;;699.81
|
---|
| 76 | ;;699.82
|
---|
| 77 | ;;699.83
|
---|
| 78 | ;;699.84
|
---|
| 79 | ;;699.85
|
---|
| 80 | ;;699.86
|
---|
| 81 | ;;699.88
|
---|
| 82 | ;;699.9
|
---|
| 83 | ;;700
|
---|
| 84 | ;;700.1
|
---|
| 85 | ;;700.2
|
---|
| 86 | ;;700.5
|
---|
| 87 | ;;701
|
---|
Note:
See
TracBrowser
for help on using the repository browser.