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: XQ9

Package: Kernel

Routine: XQ9


Information

XQ9 ; SEA/AMF,MJM - RESTRICT AVAILABILITY OF OPTIONS ;9/29/92 14:59 ;5/13/93 11:24 AM

Source Information

Source file <XQ9.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ;
OP ;
ONEOPT ;
GETRS ;Get data for each restriction field, check it, and build DR string
NEXT
GOTRS ;Continue on in the next routine (^XQ91)
LSTOP ;List the options that have been selected thus far
LSTFIL ;Show OPTION or DEVICE file
OUT ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OP+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+3
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: OP+5
Function Call: WRITE
  • Prompt: $S($D(XQOP(+Y)):" Deleted",1:$C(7)_" ?? Option not on list")
  • Line Location: OP+6
Function Call: WRITE
  • Prompt: !?4,"CURRENT ",$P(XQFLD(XQI,0),U,1),": ",$P(XQK,U,XQJ)
  • Line Location: OP+7
Function Call: WRITE
  • Prompt: $P(^%ZIS(1,XQN,0),U,1)
  • Line Location: OP+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: NEXT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NEXT+2
Function Call: WRITE
  • Prompt: !!,"You have not yet selected any options."
  • Line Location: LSTOP+1
Function Call: WRITE
  • Prompt: ?(XQK#XQI*15),$P(^DIC(19,XQJ,0),U,1)
  • Line Location: LSTOP+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LSTFIL+1
Info |  Source |  Entry Points |  Interaction Calls