source: WorldVistAEHR/trunk/r/IHS_ROUTINES-AUP/AUPNLKZ.m@ 701

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

initial load of WorldVistAEHR

File size: 747 bytes
Line 
1AUPNLKZ ; 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 ;
14SET ;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 ;
21RESET ;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.