AUKVAR.m

%AUKVAR ;SET MINIMUM KERNEL VARIABLES; [ 06/15/89  1:14 PM ]

 ;IHS/OHPD - ACC

 ;IHS/MFD changed D:'$D(DT) DT^DICRW to I '$D(DT) D NOW^%DTC S DT=X

 S U="^"

 I '$D(DUZ(2)),$D(^AUTTSITE(1,0)) S DUZ(2)=+^(0)

 I '$D(DUZ(2)),$D(^AUTTLOC("SITE")) S DUZ(2)=+^(0)

 S:'($D(DUZ)#2) DUZ=0 S:'($D(DUZ(0))#2) DUZ(0)="" S:'($D(DUZ(2))#2) DUZ(2)=0

 I '$D(DT) D NOW^%DTC S DT=X

 S:'$D(DTIME) DTIME=300

 Q

%AUKVAR   ;SET MINIMUM KERNEL VARIABLES; [ 06/15/89  1:14 PM ]

 +1       ;IHS/OHPD - ACC

 +2       ;IHS/MFD changed D:'$D(DT) DT^DICRW to I '$D(DT) D NOW^%DTC S DT=X

 +3        SET U="^"

 +4        IF '$DATA(DUZ(2))

               IF $DATA(^AUTTSITE(1,0))

                   SET DUZ(2)=+^(0)

 +5        IF '$DATA(DUZ(2))

               IF $DATA(^AUTTLOC("SITE"))

                   SET DUZ(2)=+^(0)

 +6        IF '($DATA(DUZ)#2)

               SET DUZ=0

           IF '($DATA(DUZ(0))#2)

               SET DUZ(0)=""

           IF '($DATA(DUZ(2))#2)

               SET DUZ(2)=0

 +7        IF '$DATA(DT)

               DO NOW^%DTC

               SET DT=X

 +8        IF '$DATA(DTIME)

               SET DTIME=300

 +9        QUIT