Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
747 bytes
|
Rev | Line | |
---|
[613] | 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.