MCPRE0Z ;HISC/DAD-DD CLEAN UP ;7/25/96 12:22
;;2.3;Medicine;;09/13/1996
;
N DATA,DIU,LOOP,VERSION,TEXT
S TEXT(1)=""
S TEXT(2)="Killing the Medicine data dictionaries."
D MES^XPDUTL(.TEXT) K TEXT
;
S VERSION=$P($G(^XTMP("MC","VER")),U)
F LOOP=1:1 S DATA=$P($T(DD+LOOP),";",3) Q:DATA="" D
. S DIU=$P(DATA,U)
. S DIU(0)=$S(VERSION<2:"DT",DIU=690.2:"DT",DIU=697.3:"DT",1:"T")
. I $$VFILE^DILFD(DIU) D EN^DIU2 K DIU
. Q
Q
DD ;;File#
;;690
;;690.1
;;690.2
;;690.5
;;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.65
;;699.7
;;699.81
;;699.82
;;699.83
;;699.84
;;699.85
;;699.86
;;699.88
;;699.9
;;700
;;700.1
;;700.2
;;700.5
;;701
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCPRE0Z 1158 printed Apr 09, 2024@21:15:29 Page 2
MCPRE0Z ;HISC/DAD-DD CLEAN UP ;7/25/96 12:22
+1 ;;2.3;Medicine;;09/13/1996
+2 ;
+3 NEW DATA,DIU,LOOP,VERSION,TEXT
+4 SET TEXT(1)=""
+5 SET TEXT(2)="Killing the Medicine data dictionaries."
+6 DO MES^XPDUTL(.TEXT)
KILL TEXT
+7 ;
+8 SET VERSION=$PIECE($GET(^XTMP("MC","VER")),U)
+9 FOR LOOP=1:1
SET DATA=$PIECE($TEXT(DD+LOOP),";",3)
if DATA=""
QUIT
Begin DoDot:1
+10 SET DIU=$PIECE(DATA,U)
+11 SET DIU(0)=$SELECT(VERSION<2:"DT",DIU=690.2:"DT",DIU=697.3:"DT",1:"T")
+12 IF $$VFILE^DILFD(DIU)
DO EN^DIU2
KILL DIU
+13 QUIT
End DoDot:1
+14 QUIT
DD ;;File#
+1 ;;690
+2 ;;690.1
+3 ;;690.2
+4 ;;690.5
+5 ;;690.99
+6 ;;691
+7 ;;691.1
+8 ;;691.5
+9 ;;691.6
+10 ;;691.7
+11 ;;691.8
+12 ;;691.9
+13 ;;692
+14 ;;693
+15 ;;693.2
+16 ;;693.3
+17 ;;693.5
+18 ;;693.6
+19 ;;694
+20 ;;694.1
+21 ;;694.5
+22 ;;694.8
+23 ;;695
+24 ;;695.1
+25 ;;695.3
+26 ;;695.4
+27 ;;695.5
+28 ;;695.6
+29 ;;695.8
+30 ;;695.9
+31 ;;696
+32 ;;696.1
+33 ;;696.2
+34 ;;696.3
+35 ;;696.4
+36 ;;696.5
+37 ;;696.7
+38 ;;696.9
+39 ;;697
+40 ;;697.1
+41 ;;697.2
+42 ;;697.3
+43 ;;697.5
+44 ;;698
+45 ;;698.1
+46 ;;698.2
+47 ;;698.3
+48 ;;698.4
+49 ;;698.6
+50 ;;698.9
+51 ;;699
+52 ;;699.48
+53 ;;699.5
+54 ;;699.55
+55 ;;699.57
+56 ;;699.6
+57 ;;699.65
+58 ;;699.7
+59 ;;699.81
+60 ;;699.82
+61 ;;699.83
+62 ;;699.84
+63 ;;699.85
+64 ;;699.86
+65 ;;699.88
+66 ;;699.9
+67 ;;700
+68 ;;700.1
+69 ;;700.2
+70 ;;700.5
+71 ;;701
