- 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 ;