Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
747 bytes
|
Line | |
---|
1 | AUPNLKZ ; IHS/CMI/LAB - SET AND RESET DUZ(2) ;1/29/07 09:06
|
---|
2 | ;;1.0;PCE PATIENT CARE ENCOUNTER;**167**;Aug 12, 1996;Build 22
|
---|
3 | ;
|
---|
4 | ; This routine is called to save DUZ(2) and set it to
|
---|
5 | ; zero, then restore DUZ(2) to its original value. The
|
---|
6 | ; calls must be made to the two entry points and it makes
|
---|
7 | ; no sense to call RESET unless SET was previously called.
|
---|
8 | ;
|
---|
9 | ; If SET is called and DUZ(2) does not exists this
|
---|
10 | ; routine will abort.
|
---|
11 | ;
|
---|
12 | Q ; Invalid entry point
|
---|
13 | ;
|
---|
14 | SET ;EP - SAVE DUZ(2) AND SET TO ZERO
|
---|
15 | S:'($D(AUPNDUZ)#2) AUPNDUZ=0
|
---|
16 | S AUPNDUZ=AUPNDUZ+1
|
---|
17 | S AUPNDUZ(AUPNDUZ)=DUZ(2)
|
---|
18 | S DUZ(2)=0
|
---|
19 | Q
|
---|
20 | ;
|
---|
21 | RESET ;EP - RESTORE DUZ(2)
|
---|
22 | Q:'($D(AUPNDUZ)#2)
|
---|
23 | S DUZ(2)=AUPNDUZ(AUPNDUZ)
|
---|
24 | K AUPNDUZ(AUPNDUZ)
|
---|
25 | S AUPNDUZ=AUPNDUZ-1
|
---|
26 | K:'AUPNDUZ AUPNDUZ
|
---|
27 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.