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

BHLRDXM.m

Go to the documentation of this file.
  1. BHLRDXM ; cmi/flag/maw - BHL Reindex Message File upon install ; [ 06/07/2002 11:02 AM ]
  1. ;;3.01;BHL IHS Interfaces with GIS;**1**;JUN 01, 2002
  1. ;
  1. ;
  1. ;this routine will clean up the message file upon installation
  1. ;it appears the "AS" and "ASP" cross reference do not get killed
  1. ;upon kids install
  1. ;
  1. MAIN ;-- this is the main routine driver
  1. D KILL,IDX
  1. D FLD
  1. D CUSER
  1. D ADDO
  1. D EOJ
  1. Q
  1. ;
  1. KILL ;-- kill off the existing "AS" and "ASP" index
  1. S BHLDA=0 F S BHLDA=$O(^INTHL7M(BHLDA)) Q:'BHLDA D
  1. . K ^INTHL7M(BHLDA,1,"AS")
  1. . K ^INTHL7M(BHLDA,1,"ASP")
  1. Q
  1. ;
  1. IDX ;-- reindex the file
  1. S DIK="^INTHL7M(" D IXALL^DIK
  1. Q
  1. ;
  1. CUSER ;-- create a gis user for the interface
  1. W !,"Now creating GIS,USER for filing data..."
  1. Q:$O(^VA(200,"B","GIS,USER",0))
  1. K DD,DO
  1. S DIC="^VA(200,",DIC(0)="L",X="GIS,USER"
  1. S DIC("DR")="1///GIS"
  1. D FILE^DICN
  1. Q
  1. ;
  1. FLD ;-- reindex the field file
  1. S DIK="^INTHL7F(",DIK(1)=".01^B" D ENALL^DIK
  1. Q
  1. ;
  1. ADDO ;-- add option to menu item
  1. S BHLX=$$ADD^XPDMENU("BHL IHS GIS USER MENU","BHL SETUP 3M WS","3M")
  1. I 'BHLX W !,"Attempt to add 3M Workstation Setup option failed.." H 2
  1. Q
  1. ;
  1. EOJ ;-- end of job
  1. K BHLDA
  1. Q
  1. ;