|
Last change
on this file since 1211 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
691 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | FSCQU ;SLC/STAFF-NOIS Query Utility ;3/12/99 14:27
|
|---|
| 2 | ;;1.1;NOIS;**1**;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | LOOK(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.
