BCHUIN.m

BCHUIN ; IHS/CMI/LAB - INITIALIZE AND SET UP PARAMETERS ; 

 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 ;

 ;

START ;EP - called from BCHLE

 I '$D(IOF) D HOME^%ZIS

 S BCHDASH="--------------------------------------------------------------------------------"

 S APCDOVRR="" ;FOR PROVIDER NARRATIVE LOOKUP

 S BCHUIN="" ;variable to let system know we're in CHR DE

 S BCHPKG=$O(^DIC(9.4,"C","BCH",""))

 K BCHPKG

 Q

BCHUIN    ; IHS/CMI/LAB - INITIALIZE AND SET UP PARAMETERS ; 

 +1       ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 +2       ;

 +3       ;

START     ;EP - called from BCHLE

 +1        IF '$DATA(IOF)

               DO HOME^%ZIS

 +2        SET BCHDASH="--------------------------------------------------------------------------------"

 +3       ;FOR PROVIDER NARRATIVE LOOKUP

           SET APCDOVRR=""

 +4       ;variable to let system know we're in CHR DE

           SET BCHUIN=""

 +5        SET BCHPKG=$ORDER(^DIC(9.4,"C","BCH",""))

 +6        KILL BCHPKG

 +7        QUIT