Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
616 bytes
|
Line | |
---|
1 | LBRYASK ;ISC2/DJM-LIBRARY LOCATION QUESTION ;[ 05/23/97 12:13 PM ]
|
---|
2 | ;;2.5;Library;**2**;Mar 11, 1996
|
---|
3 | ;
|
---|
4 | START Q:$D(LBRYPTR)
|
---|
5 | NEW I $P(^LBRY(680.6,0),U,4)=1 S Y=$O(^LBRY(680.6,0)) G ASK1
|
---|
6 | I '$D(IOF) D ^%ZIS
|
---|
7 | W @IOF,!! S N="" F S N=$O(^LBRY(680.6,"B",N)) Q:N="" W !,N
|
---|
8 | W !!! S DIC="^LBRY(680.6,",DIC(0)="AEQ"
|
---|
9 | ASK D ^DIC Q:$G(DUOUT)=1
|
---|
10 | I Y<1 W !!,"Please select a site " G ASK
|
---|
11 | ASK1 S DA=+Y,LBRYPTR=DA,LBRYNAM=$P(^LBRY(680.6,LBRYPTR,0),U,7)
|
---|
12 | EXIT K DA,DIC,XXX
|
---|
13 | Q
|
---|
14 | EN1 S DIC="^%ZIS(1,",DIC(0)="EMQZ" D ^DIC K DIC K:Y<0 X Q:Y<0 S X=$P(Y(0),U,1)
|
---|
15 | Q
|
---|
16 | EN2 S ZD=D,X="??",DIC="^%ZIS(1,",DIC(0)="EMZQ" D ^DIC S D=ZD K ZD,DIC
|
---|
17 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.