Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: MCPRE0Z

MCPRE0Z.m

Go to the documentation of this file.
  1. MCPRE0Z ;HISC/DAD-DD CLEAN UP ;7/25/96 12:22
  1. ;;2.3;Medicine;;09/13/1996
  1. ;
  1. N DATA,DIU,LOOP,VERSION,TEXT
  1. S TEXT(1)=""
  1. S TEXT(2)="Killing the Medicine data dictionaries."
  1. D MES^XPDUTL(.TEXT) K TEXT
  1. ;
  1. S VERSION=$P($G(^XTMP("MC","VER")),U)
  1. F LOOP=1:1 S DATA=$P($T(DD+LOOP),";",3) Q:DATA="" D
  1. . S DIU=$P(DATA,U)
  1. . S DIU(0)=$S(VERSION<2:"DT",DIU=690.2:"DT",DIU=697.3:"DT",1:"T")
  1. . I $$VFILE^DILFD(DIU) D EN^DIU2 K DIU
  1. . Q
  1. Q
  1. DD ;;File#
  1. ;;690
  1. ;;690.1
  1. ;;690.2
  1. ;;690.5
  1. ;;690.99
  1. ;;691
  1. ;;691.1
  1. ;;691.5
  1. ;;691.6
  1. ;;691.7
  1. ;;691.8
  1. ;;691.9
  1. ;;692
  1. ;;693
  1. ;;693.2
  1. ;;693.3
  1. ;;693.5
  1. ;;693.6
  1. ;;694
  1. ;;694.1
  1. ;;694.5
  1. ;;694.8
  1. ;;695
  1. ;;695.1
  1. ;;695.3
  1. ;;695.4
  1. ;;695.5
  1. ;;695.6
  1. ;;695.8
  1. ;;695.9
  1. ;;696
  1. ;;696.1
  1. ;;696.2
  1. ;;696.3
  1. ;;696.4
  1. ;;696.5
  1. ;;696.7
  1. ;;696.9
  1. ;;697
  1. ;;697.1
  1. ;;697.2
  1. ;;697.3
  1. ;;697.5
  1. ;;698
  1. ;;698.1
  1. ;;698.2
  1. ;;698.3
  1. ;;698.4
  1. ;;698.6
  1. ;;698.9
  1. ;;699
  1. ;;699.48
  1. ;;699.5
  1. ;;699.55
  1. ;;699.57
  1. ;;699.6
  1. ;;699.65
  1. ;;699.7
  1. ;;699.81
  1. ;;699.82
  1. ;;699.83
  1. ;;699.84
  1. ;;699.85
  1. ;;699.86
  1. ;;699.88
  1. ;;699.9
  1. ;;700
  1. ;;700.1
  1. ;;700.2
  1. ;;700.5
  1. ;;701