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