- FSCQU ;SLC/STAFF-NOIS Query Utility ;3/12/99 14:27
- ;;1.1;NOIS;**1**;Sep 06, 1998
- ;
- LOOK(DIC,HELP,HFRAME) ; from FSCQCA, FSCQCAV
- N CNT,DONE,ROU,X
- 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
- .I $D(DTOUT) S DONE=1 Q
- .I '$L(X) S X=$G(DIC("B")) I '$L(X) S Y=-1,DONE=1 Q
- .I X[U S DONE=1,DUOUT=1 S Y=$S(X["^^":"^^",1:-1) Q
- .I X["??" S XQH=$S($D(HFRAME):HFRAME,1:"FSC U1 NOIS") D EN^XQH Q
- .I X="?" S X="??" I $D(DIR("?")) D
- ..I $L($P($G(DIR("?")),U,2)) S ROU=$P(DIR("?"),U,2,99) X ROU Q
- ..S CNT=0 F S CNT=$O(DIR("?",CNT)) Q:CNT<1 W !,DIR("?",CNT)
- ..I $D(DIR("?"))#2 W !,DIR("?")
- .D ^DIC I Y>0 S DONE=1
- I Y<0 S (Y,Y(0))=""
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCQU 708 printed Jan 18, 2025@03:20:21 Page 2
- FSCQU ;SLC/STAFF-NOIS Query Utility ;3/12/99 14:27
- +1 ;;1.1;NOIS;**1**;Sep 06, 1998
- +2 ;
- LOOK(DIC,HELP,HFRAME) ; from FSCQCA, FSCQCAV
- +1 NEW CNT,DONE,ROU,X
- +2 SET (Y,Y(0))=""
- SET DONE=0
- FOR
- WRITE !,DIC("A")
- if $DATA(DIC("B"))
- WRITE DIC("B"),"// "
- READ X:DTIME
- if '$TEST
- SET DTOUT=1
- Begin DoDot:1
- +3 IF $DATA(DTOUT)
- SET DONE=1
- QUIT
- +4 IF '$LENGTH(X)
- SET X=$GET(DIC("B"))
- IF '$LENGTH(X)
- SET Y=-1
- SET DONE=1
- QUIT
- +5 IF X[U
- SET DONE=1
- SET DUOUT=1
- SET Y=$SELECT(X["^^":"^^",1:-1)
- QUIT
- +6 IF X["??"
- SET XQH=$SELECT($DATA(HFRAME):HFRAME,1:"FSC U1 NOIS")
- DO EN^XQH
- QUIT
- +7 IF X="?"
- SET X="??"
- IF $DATA(DIR("?"))
- Begin DoDot:2
- +8 IF $LENGTH($PIECE($GET(DIR("?")),U,2))
- SET ROU=$PIECE(DIR("?"),U,2,99)
- XECUTE ROU
- QUIT
- +9 SET CNT=0
- FOR
- SET CNT=$ORDER(DIR("?",CNT))
- if CNT<1
- QUIT
- WRITE !,DIR("?",CNT)
- +10 IF $DATA(DIR("?"))#2
- WRITE !,DIR("?")
- End DoDot:2
- +11 DO ^DIC
- IF Y>0
- SET DONE=1
- End DoDot:1
- if DONE
- QUIT
- +12 IF Y<0
- SET (Y,Y(0))=""
- +13 QUIT