source: FOIAVistA/trunk/r/LIBRARY-LBR-LBRS/LBRYASK.m@ 1806

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

initial load of FOIAVistA 6/30/08 version

File size: 616 bytes
Line 
1LBRYASK ;ISC2/DJM-LIBRARY LOCATION QUESTION ;[ 05/23/97 12:13 PM ]
2 ;;2.5;Library;**2**;Mar 11, 1996
3 ;
4START Q:$D(LBRYPTR)
5NEW 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"
9ASK D ^DIC Q:$G(DUOUT)=1
10 I Y<1 W !!,"Please select a site " G ASK
11ASK1 S DA=+Y,LBRYPTR=DA,LBRYNAM=$P(^LBRY(680.6,LBRYPTR,0),U,7)
12EXIT K DA,DIC,XXX
13 Q
14EN1 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
16EN2 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.