source: FOIAVistA/trunk/r/NOIS-FSC/FSCQU.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 691 bytes
Line 
1FSCQU ;SLC/STAFF-NOIS Query Utility ;3/12/99 14:27
2 ;;1.1;NOIS;**1**;Sep 06, 1998
3 ;
4LOOK(DIC,HELP,HFRAME) ; from FSCQCA, FSCQCAV
5 N CNT,DONE,ROU,X
6 S (Y,Y(0))="",DONE=0 F W !,DIC("A") W:$D(DIC("B")) DIC("B"),"// " R X:DTIME S:'$T DTOUT=1 D Q:DONE
7 .I $D(DTOUT) S DONE=1 Q
8 .I '$L(X) S X=$G(DIC("B")) I '$L(X) S Y=-1,DONE=1 Q
9 .I X[U S DONE=1,DUOUT=1 S Y=$S(X["^^":"^^",1:-1) Q
10 .I X["??" S XQH=$S($D(HFRAME):HFRAME,1:"FSC U1 NOIS") D EN^XQH Q
11 .I X="?" S X="??" I $D(DIR("?")) D
12 ..I $L($P($G(DIR("?")),U,2)) S ROU=$P(DIR("?"),U,2,99) X ROU Q
13 ..S CNT=0 F S CNT=$O(DIR("?",CNT)) Q:CNT<1 W !,DIR("?",CNT)
14 ..I $D(DIR("?"))#2 W !,DIR("?")
15 .D ^DIC I Y>0 S DONE=1
16 I Y<0 S (Y,Y(0))=""
17 Q
Note: See TracBrowser for help on using the repository browser.