BHLRDXM.m

BHLRDXM ; cmi/flag/maw - BHL Reindex Message File upon install ; [ 06/07/2002  11:02 AM ]

 ;;3.01;BHL IHS Interfaces with GIS;**1**;JUN 01, 2002

 ;

 ;

 ;this routine will clean up the message file upon installation

 ;it appears the "AS" and "ASP" cross reference do not get killed

 ;upon kids install

 ;

MAIN ;-- this is the main routine driver

 D KILL,IDX

 D FLD

 D CUSER

 D ADDO

 D EOJ

 Q

 ;

KILL ;-- kill off the existing "AS" and "ASP" index

 S BHLDA=0 F  S BHLDA=$O(^INTHL7M(BHLDA)) Q:'BHLDA  D

 . K ^INTHL7M(BHLDA,1,"AS")

 . K ^INTHL7M(BHLDA,1,"ASP")

 Q

 ;

IDX ;-- reindex the file

 S DIK="^INTHL7M(" D IXALL^DIK

 Q

 ;

CUSER ;-- create a gis user for the interface

 W !,"Now creating GIS,USER for filing data..."

 Q:$O(^VA(200,"B","GIS,USER",0))

 K DD,DO

 S DIC="^VA(200,",DIC(0)="L",X="GIS,USER"

 S DIC("DR")="1///GIS"

 D FILE^DICN

 Q

 ;

FLD ;-- reindex the field file

 S DIK="^INTHL7F(",DIK(1)=".01^B" D ENALL^DIK

 Q

 ;

ADDO ;-- add option to menu item    

 S BHLX=$$ADD^XPDMENU("BHL IHS GIS USER MENU","BHL SETUP 3M WS","3M")

 I 'BHLX W !,"Attempt to add 3M Workstation Setup option failed.." H 2

 Q

 ;

EOJ ;-- end of job

 K BHLDA

 Q

 ;

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

 +2       ;

 +3       ;

 +4       ;this routine will clean up the message file upon installation

 +5       ;it appears the "AS" and "ASP" cross reference do not get killed

 +6       ;upon kids install

 +7       ;

MAIN      ;-- this is the main routine driver

 +1        DO KILL

           DO IDX

 +2        DO FLD

 +3        DO CUSER

 +4        DO ADDO

 +5        DO EOJ

 +6        QUIT 

 +7       ;

KILL      ;-- kill off the existing "AS" and "ASP" index

 +1        SET BHLDA=0

           FOR 

               SET BHLDA=$ORDER(^INTHL7M(BHLDA))

               IF 'BHLDA

                   QUIT 

               Begin DoDot:1

 +2                KILL ^INTHL7M(BHLDA,1,"AS")

 +3                KILL ^INTHL7M(BHLDA,1,"ASP")

               End DoDot:1

 +4        QUIT 

 +5       ;

IDX       ;-- reindex the file

 +1        SET DIK="^INTHL7M("

           DO IXALL^DIK

 +2        QUIT 

 +3       ;

CUSER     ;-- create a gis user for the interface

 +1        WRITE !,"Now creating GIS,USER for filing data..."

 +2        IF $ORDER(^VA(200,"B","GIS,USER",0))

               QUIT 

 +3        KILL DD,DO

 +4        SET DIC="^VA(200,"

           SET DIC(0)="L"

           SET X="GIS,USER"

 +5        SET DIC("DR")="1///GIS"

 +6        DO FILE^DICN

 +7        QUIT 

 +8       ;

FLD       ;-- reindex the field file

 +1        SET DIK="^INTHL7F("

           SET DIK(1)=".01^B"

           DO ENALL^DIK

 +2        QUIT 

 +3       ;

ADDO      ;-- add option to menu item    

 +1        SET BHLX=$$ADD^XPDMENU("BHL IHS GIS USER MENU","BHL SETUP 3M WS","3M")

 +2        IF 'BHLX

               WRITE !,"Attempt to add 3M Workstation Setup option failed.."

               HANG 2

 +3        QUIT 

 +4       ;

EOJ       ;-- end of job

 +1        KILL BHLDA

 +2        QUIT 

 +3       ;