source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNRE5.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1IBCNRE5 ;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 ;
111000 ; Control processing
12 N LOCK
13 D LOCK I 'LOCK Q
14 D HEADING
15 D EDIT
16 D UNLOCK
17 Q
18 ;
19EDIT ; 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 ;
34HEADING ; 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 ;
40LOCK ; 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 ;
48UNLOCK ; Unlock IB SITE PARAMETERS File
49 L -^IBE(350.9,1,0)
50 Q
Note: See TracBrowser for help on using the repository browser.