IBCNFCON.m

IBCNFCON ;WOIFO/PO - Electronic Insurance Identification ;25-MAY-2011

 ;;2.0;INTEGRATED BILLING;**457**;21-MAR-94;Build 30

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;;

 ;

 ; Electronic Insurance Indentification  Configuration

 ;

 Q

 ;

EDIT ; edit eII software parameters

 ; this routine is called from IBCNF EDIT CONFIGURATION ooption.

 ;

 N DA,DR,DIE

 L +^IBE(350.9,1,0):0 I '$T W !,"The configuration file is being edited by another user!" Q

 ;

 S DA=1,DR="[IBCNF EDIT CONFIGURATION]",DIE="^IBE(350.9," D ^DIE

 L -^IBE(350.9,1,0)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCNFCON   584     printed  Dec 13, 2024@02:15:38                                                                                                                                                                                                     Page 2

IBCNFCON  ;WOIFO/PO - Electronic Insurance Identification ;25-MAY-2011

 +1       ;;2.0;INTEGRATED BILLING;**457**;21-MAR-94;Build 30

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;;

 +4       ;

 +5       ; Electronic Insurance Indentification  Configuration

 +6       ;

 +7        QUIT 

 +8       ;

EDIT      ; edit eII software parameters

 +1       ; this routine is called from IBCNF EDIT CONFIGURATION ooption.

 +2       ;

 +3        NEW DA,DR,DIE

 +4        LOCK +^IBE(350.9,1,0):0

           IF '$TEST

               WRITE !,"The configuration file is being edited by another user!"

               QUIT 

 +5       ;

 +6        SET DA=1

           SET DR="[IBCNF EDIT CONFIGURATION]"

           SET DIE="^IBE(350.9,"

           DO ^DIE

 +7        LOCK -^IBE(350.9,1,0)

 +8        QUIT 

 +9       ;