- 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 Jan 18, 2025@03:17:56 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