IBCNRE5.m

IBCNRE5 ;BHAM ISC/DMK - Edit HIPAA NCPDP ACTIVE FLAG ;09-APR-2004

 ;;2.0;INTEGRATED BILLING;**251,276**;21-MAR-94

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 ;

 ; Edit HIPAA NCPDP ACTIVE FLAG

 ; (master switch to control e-Pharmacy NCPDP transactions)

 ;

 ; 350.9  IB SITE PARAMETERS File

 ;  11.01 HIPAA NCPDP ACTIVE FLAG Field

 ;

1000 ; Control processing

 N LOCK

 D LOCK I 'LOCK Q

 D HEADING

 D EDIT

 D UNLOCK

 Q

 ;

EDIT ; Edit IB SITE PARAMETERS File

 ; 350.9 IB SITE PARAMETERS

 ;

 N DA,DIDEL,DIC,DIE,DLAYGO,DR,DTOUT,X,Y

 N %,D,D0,DDER,DDH,DI,DQ,DZ

 ;

 S DA=1

 S DIE="^IBE(350.9,"

 ;

 ; 11.01 HIPAA NCPDP ACTIVE FLAG

 S DR="11.01"

 ;

 D ^DIE

 Q

 ;

HEADING ; Print heading

 W @IOF

 W "Edit HIPAA NCPDP ACTIVE FLAG",!

 W "(master switch to control e-Pharmacy NCPDP transactions)",!!

 Q

 ;

LOCK ; Lock IB SITE PARAMETERS File

 S LOCK=0

 I '$D(^IBE(350.9,1,0)) W !!,*7,"IB SITE PARAMETERS File undefined.",! Q

 L +^IBE(350.9,1,0):0

 I '$T W !!,*7,"IB SITE PARAMETERS File unavailable.",! Q

 S LOCK=1

 Q

 ;

UNLOCK ; Unlock IB SITE PARAMETERS File

 L -^IBE(350.9,1,0)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---IBCNRE5   1146     printed  Apr 09, 2024@21:16:11                                                                                                                                                                                                     Page 2

IBCNRE5   ;BHAM ISC/DMK - Edit HIPAA NCPDP ACTIVE FLAG ;09-APR-2004

 +1       ;;2.0;INTEGRATED BILLING;**251,276**;21-MAR-94

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3       ;

 +4       ; Edit HIPAA NCPDP ACTIVE FLAG

 +5       ; (master switch to control e-Pharmacy NCPDP transactions)

 +6       ;

 +7       ; 350.9  IB SITE PARAMETERS File

 +8       ;  11.01 HIPAA NCPDP ACTIVE FLAG Field

 +9       ;

1000      ; Control processing

 +1        NEW LOCK

 +2        DO LOCK

           IF 'LOCK

               QUIT 

 +3        DO HEADING

 +4        DO EDIT

 +5        DO UNLOCK

 +6        QUIT 

 +7       ;

EDIT      ; Edit IB SITE PARAMETERS File

 +1       ; 350.9 IB SITE PARAMETERS

 +2       ;

 +3        NEW DA,DIDEL,DIC,DIE,DLAYGO,DR,DTOUT,X,Y

 +4        NEW %,D,D0,DDER,DDH,DI,DQ,DZ

 +5       ;

 +6        SET DA=1

 +7        SET DIE="^IBE(350.9,"

 +8       ;

 +9       ; 11.01 HIPAA NCPDP ACTIVE FLAG

 +10       SET DR="11.01"

 +11      ;

 +12       DO ^DIE

 +13       QUIT 

 +14      ;

HEADING   ; Print heading

 +1        WRITE @IOF

 +2        WRITE "Edit HIPAA NCPDP ACTIVE FLAG",!

 +3        WRITE "(master switch to control e-Pharmacy NCPDP transactions)",!!

 +4        QUIT 

 +5       ;

LOCK      ; Lock IB SITE PARAMETERS File

 +1        SET LOCK=0

 +2        IF '$DATA(^IBE(350.9,1,0))

               WRITE !!,*7,"IB SITE PARAMETERS File undefined.",!

               QUIT 

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

 +4        IF '$TEST

               WRITE !!,*7,"IB SITE PARAMETERS File unavailable.",!

               QUIT 

 +5        SET LOCK=1

 +6        QUIT 

 +7       ;

UNLOCK    ; Unlock IB SITE PARAMETERS File

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

 +2        QUIT