| [613] | 1 | IBCNRE5 ;BHAM ISC/DMK - Edit HIPAA NCPDP ACTIVE FLAG ;09-APR-2004
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**251,276**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ; Edit HIPAA NCPDP ACTIVE FLAG
|
|---|
| 6 | ; (master switch to control e-Pharmacy NCPDP transactions)
|
|---|
| 7 | ;
|
|---|
| 8 | ; 350.9 IB SITE PARAMETERS File
|
|---|
| 9 | ; 11.01 HIPAA NCPDP ACTIVE FLAG Field
|
|---|
| 10 | ;
|
|---|
| 11 | 1000 ; Control processing
|
|---|
| 12 | N LOCK
|
|---|
| 13 | D LOCK I 'LOCK Q
|
|---|
| 14 | D HEADING
|
|---|
| 15 | D EDIT
|
|---|
| 16 | D UNLOCK
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | EDIT ; Edit IB SITE PARAMETERS File
|
|---|
| 20 | ; 350.9 IB SITE PARAMETERS
|
|---|
| 21 | ;
|
|---|
| 22 | N DA,DIDEL,DIC,DIE,DLAYGO,DR,DTOUT,X,Y
|
|---|
| 23 | N %,D,D0,DDER,DDH,DI,DQ,DZ
|
|---|
| 24 | ;
|
|---|
| 25 | S DA=1
|
|---|
| 26 | S DIE="^IBE(350.9,"
|
|---|
| 27 | ;
|
|---|
| 28 | ; 11.01 HIPAA NCPDP ACTIVE FLAG
|
|---|
| 29 | S DR="11.01"
|
|---|
| 30 | ;
|
|---|
| 31 | D ^DIE
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | HEADING ; Print heading
|
|---|
| 35 | W @IOF
|
|---|
| 36 | W "Edit HIPAA NCPDP ACTIVE FLAG",!
|
|---|
| 37 | W "(master switch to control e-Pharmacy NCPDP transactions)",!!
|
|---|
| 38 | Q
|
|---|
| 39 | ;
|
|---|
| 40 | LOCK ; Lock IB SITE PARAMETERS File
|
|---|
| 41 | S LOCK=0
|
|---|
| 42 | I '$D(^IBE(350.9,1,0)) W !!,*7,"IB SITE PARAMETERS File undefined.",! Q
|
|---|
| 43 | L +^IBE(350.9,1,0):0
|
|---|
| 44 | I '$T W !!,*7,"IB SITE PARAMETERS File unavailable.",! Q
|
|---|
| 45 | S LOCK=1
|
|---|
| 46 | Q
|
|---|
| 47 | ;
|
|---|
| 48 | UNLOCK ; Unlock IB SITE PARAMETERS File
|
|---|
| 49 | L -^IBE(350.9,1,0)
|
|---|
| 50 | Q
|
|---|
