Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: %INDX6

Package: Toolkit

Routine: %INDX6


Information

%INDX6 ;ISC/REL,GRK - GET SET OF ROUTINES TO INDEX ;8/3/93 16:10 ;

Source Information

Source file <ZINDX6.m>

Entry Points

Name Comments DBIA/ICR reference
L7
DEVICE
END
ANS(PR,DEF,HELP) ;Ask question get answer
YN
NY
RD
RLIST
ASKRTN ;Collect a list of routines to index.
R1
SETUP ;Write startup header stuff.
HDR

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"This report could take some time, Remember to QUEUE the report.",!
  • Condition for execution: NRO>2
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,*7,"%INDEX terminated. No device specified."
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !,"Do you really mean queue to this device? NO//"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"Ok, tell me again ..."
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,"I am QUEUEING this report for you."
  • Line Location: DEVICE+3
Function Call: WRITE
  • Prompt: !!,PR
  • Line Location: ANS+1
Function Call: WRITE
  • Prompt: !,HELP
  • Condition for execution: $D(HELP)
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,"Please enter 'Y' or return for YES, 'N' for NO"
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,HELP
  • Condition for execution: $D(HELP)
  • Line Location: NY+0
Function Call: WRITE
  • Prompt: !,"Please enter 'N' or return for NO, 'Y' for YES"
  • Line Location: NY+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RD+0
Function Call: WRITE
  • Prompt: !,"Please select one of the choices."
  • Line Location: RLIST+0
Function Call: WRITE
  • Prompt: !!,"LIST OF ROUTINES TO BE INDEXED; PRESS RETURN TO TERMINATE LIST",!
  • Line Location: ASKRTN+3
Function Call: READ
  • Formatting: !
  • Prompt: "ROUTINE NAME: "
  • Variable: ROU
  • Timeout: $S($G(DTIME):DTIME,1:360)
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: " INVALID ROUTINE NAME"
  • Line Location: R1+1
Function Call: WRITE
  • Prompt: " INVALID ROUTINE NAME"
  • Line Location: R1+2
Function Call: WRITE
  • Prompt: !!,"Routines are being processed.",!
  • Line Location: SETUP+2
Function Call: WRITE
  • Prompt: "Indexed Routines: ",NRO,!!
  • Line Location: SETUP+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y>3
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,?IOM-$L(INDHDR)\2,INDHDR,!,?IOM-$L(INDHDR(1))\2,INDHDR(1),!
  • Line Location: HDR+1
Info |  Source |  Entry Points |  Interaction Calls