BHLPOST.m

BHLPOST ; IHS/TUCSON/DCP - HL7 - POST-INITIALIZATION PROGRAM ; 

 ;;1.0;IHS SUPPORT FOR HL7 INTERFACES;;JUL 7, 1997

 ;

 ; This routine performs any post-initialization actions for the BHL

 ; package as a whole. If a COTS Pharmacy system is being installed,

 ; then ^BHLRXPST must be run after this routine.

 ;

 ; This routine is called from the MUMPS prompt: ">" This routine does

 ; not require any pre-defined external variables.

 ;

START ; ENTRY POINT from MUMPS prompt

 D ^XBKVAR

 ;

 ; kill BHL-namespace globals

 W !!,"  DELETING UNNECESSARY BHL-NAMESPACE FILES."

 S XBKDDEL="D",XBKDTMP="D",XBKDLO=90071,XBKDHI=90079 D EN1^XBKD

 ;

 ; delete BHL Package Entry

 W !!,"  DELETING BHL PACKAGE ENTRY."

 S DA=$O(^DIC(9.4,"C","BHL",0)) I DA'="" S DIK="^DIC(9.4," D ^DIK

 ;

XIT ; clean up and leave

 K DA,DIC,DIK,X,Y,%

 W !!,"  BHL post-init is complete.",!!

 Q

BHLPOST   ; IHS/TUCSON/DCP - HL7 - POST-INITIALIZATION PROGRAM ; 

 +1       ;;1.0;IHS SUPPORT FOR HL7 INTERFACES;;JUL 7, 1997

 +2       ;

 +3       ; This routine performs any post-initialization actions for the BHL

 +4       ; package as a whole. If a COTS Pharmacy system is being installed,

 +5       ; then ^BHLRXPST must be run after this routine.

 +6       ;

 +7       ; This routine is called from the MUMPS prompt: ">" This routine does

 +8       ; not require any pre-defined external variables.

 +9       ;

START     ; ENTRY POINT from MUMPS prompt

 +1        DO ^XBKVAR

 +2       ;

 +3       ; kill BHL-namespace globals

 +4        WRITE !!,"  DELETING UNNECESSARY BHL-NAMESPACE FILES."

 +5        SET XBKDDEL="D"

           SET XBKDTMP="D"

           SET XBKDLO=90071

           SET XBKDHI=90079

           DO EN1^XBKD

 +6       ;

 +7       ; delete BHL Package Entry

 +8        WRITE !!,"  DELETING BHL PACKAGE ENTRY."

 +9        SET DA=$ORDER(^DIC(9.4,"C","BHL",0))

           IF DA'=""

               SET DIK="^DIC(9.4,"

               DO ^DIK

 +10      ;

XIT       ; clean up and leave

 +1        KILL DA,DIC,DIK,X,Y,%

 +2        WRITE !!,"  BHL post-init is complete.",!!

 +3        QUIT