BHLLPST.m

BHLLPST ; cmi/flag/maw - BHL LOINC POST INIT ; 

 ;;3.01;BHL IHS Interfaces with GIS;**4**;OCT 15, 2002

 ;

 ;

 ;

 ;this routine will set up the loinc post install questions

 ;

MAIN ;PEP - this is the main routine driver

 D EDIT

 D MPORT^BHLU

 D COMPILE

 D EOJ

 Q

 ;

EDIT ;-- ask which reference lab and then stuff the file

 X ^%ZOSF("EON")  ;turn echo on for questions

 W !!,"I Will now walk you through setting your Loinc Parameters",!!

 S DIC(0)="AEMQZ",DIC="^BLRSITE("

 S DIC("A")="Setup Loinc files for which Lab Site: "

 D ^DIC

 Q:Y<0

 S BHLLSITE=+Y

 S DIE=DIC,DA=BHLLSITE,DR="500:505"

 D ^DIE

 K DIC,DIE,DR,DA

 S DIR(0)="Y",DIR("A")="Setup Another Loinc Site "

 D ^DIR

 K DIR

 Q:'Y

 G EDIT

 Q

 ;

COMPILE ;-- compile the ref lab scripts

 W !!,"I will now generate scripts and compile the messages...",!

 W !!,"Press return when asked to compile scripts",!

 S BHLMSI=$O(^INTHL7M("B","HL IHS LOINC R01",0))

 Q:'BHLMSI

 D COMPILE^BHLU(BHLMSI)

 Q

 ;

EOJ ;-- kill variables and quit

 D EN^XBVK("BHL")

 Q

 ;

BHLLPST   ; cmi/flag/maw - BHL LOINC POST INIT ; 

 +1       ;;3.01;BHL IHS Interfaces with GIS;**4**;OCT 15, 2002

 +2       ;

 +3       ;

 +4       ;

 +5       ;this routine will set up the loinc post install questions

 +6       ;

MAIN      ;PEP - this is the main routine driver

 +1        DO EDIT

 +2        DO MPORT^BHLU

 +3        DO COMPILE

 +4        DO EOJ

 +5        QUIT 

 +6       ;

EDIT      ;-- ask which reference lab and then stuff the file

 +1       ;turn echo on for questions

           XECUTE ^%ZOSF("EON")

 +2        WRITE !!,"I Will now walk you through setting your Loinc Parameters",!!

 +3        SET DIC(0)="AEMQZ"

           SET DIC="^BLRSITE("

 +4        SET DIC("A")="Setup Loinc files for which Lab Site: "

 +5        DO ^DIC

 +6        IF Y<0

               QUIT 

 +7        SET BHLLSITE=+Y

 +8        SET DIE=DIC

           SET DA=BHLLSITE

           SET DR="500:505"

 +9        DO ^DIE

 +10       KILL DIC,DIE,DR,DA

 +11       SET DIR(0)="Y"

           SET DIR("A")="Setup Another Loinc Site "

 +12       DO ^DIR

 +13       KILL DIR

 +14       IF 'Y

               QUIT 

 +15       GOTO EDIT

 +16       QUIT 

 +17      ;

COMPILE   ;-- compile the ref lab scripts

 +1        WRITE !!,"I will now generate scripts and compile the messages...",!

 +2        WRITE !!,"Press return when asked to compile scripts",!

 +3        SET BHLMSI=$ORDER(^INTHL7M("B","HL IHS LOINC R01",0))

 +4        IF 'BHLMSI

               QUIT 

 +5        DO COMPILE^BHLU(BHLMSI)

 +6        QUIT 

 +7       ;

EOJ       ;-- kill variables and quit

 +1        DO EN^XBVK("BHL")

 +2        QUIT 

 +3       ;