source: WorldVistAEHR/trunk/r/MEDICINE-MC/MCPRE0Z.m@ 949

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

initial load of WorldVistAEHR
File size: 1.0 KB
RevLine 
[613]1MCPRE0Z ;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
16DD ;;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.