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 ---[H[J[2J[HIBCNRE5 1146 printed Dec 13, 2024@02:16:15 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
