BHLPGIS.m

BHLPGIS ; cmi/flag/maw - BHL Purge Dynamic GIS Files ;

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

 ;

 ;

 ;this routine will purge all entries in the following globals

 ;^INTHL7M, ^INTHL7F, ^INTHL7S, ^INTRHT, ^INRHD, ^INTHPC, ^INRHS

 ;it should only be used if no modifications were made to the 

 ;original GIS system

 ;

MAIN ;ep - this is the main routine driver

 D LOOP

 D EOJ

 Q

 ;

LOOP ;-- loop through the globals and call DIK

 F BHLFNUM=4000,4004,4005,4006,4010,4011,4012 D  Q:'BHLFNUM

 . S BHLGL=$P($G(^DIC(BHLFNUM,0,"GL")),"(")

 . S BHLGLE=$G(^DIC(BHLFNUM,0,"GL"))

 . S BHLDA=0 F  S BHLDA=$O(@BHLGL@(BHLDA)) Q:'BHLDA  D

 .. D DIK(BHLGLE,BHLDA)

 Q

 ;

DIK(FNM,DA) ;-- kill the entry

 S DIK=FNM D ^DIK

 K DIK,DA

 Q

 ;

EOJ ;-- kill variables

 D ^XBFMK

 D EN^XBVK("BHL")

 Q

 ;

BHLPGIS   ; cmi/flag/maw - BHL Purge Dynamic GIS Files ;

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

 +2       ;

 +3       ;

 +4       ;this routine will purge all entries in the following globals

 +5       ;^INTHL7M, ^INTHL7F, ^INTHL7S, ^INTRHT, ^INRHD, ^INTHPC, ^INRHS

 +6       ;it should only be used if no modifications were made to the 

 +7       ;original GIS system

 +8       ;

MAIN      ;ep - this is the main routine driver

 +1        DO LOOP

 +2        DO EOJ

 +3        QUIT 

 +4       ;

LOOP      ;-- loop through the globals and call DIK

 +1        FOR BHLFNUM=4000,4004,4005,4006,4010,4011,4012

               Begin DoDot:1

 +2                SET BHLGL=$PIECE($GET(^DIC(BHLFNUM,0,"GL")),"(")

 +3                SET BHLGLE=$GET(^DIC(BHLFNUM,0,"GL"))

 +4                SET BHLDA=0

                   FOR 

                       SET BHLDA=$ORDER(@BHLGL@(BHLDA))

                       IF 'BHLDA

                           QUIT 

                       Begin DoDot:2

 +5                        DO DIK(BHLGLE,BHLDA)

                       End DoDot:2

               End DoDot:1

               IF 'BHLFNUM

                   QUIT 

 +6        QUIT 

 +7       ;

DIK(FNM,DA) ;-- kill the entry

 +1        SET DIK=FNM

           DO ^DIK

 +2        KILL DIK,DA

 +3        QUIT 

 +4       ;

EOJ       ;-- kill variables

 +1        DO ^XBFMK

 +2        DO EN^XBVK("BHL")

 +3        QUIT 

 +4       ;