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

Package: Kernel

Routine: XQ91


Information

XQ91 ; SEA/MJM - Restrict availability of options (cont.) ;9/29/92 15:06 ;5/13/93 11:46 AM

Source Information

Source file <XQ91.m>

Entry Points

Name Comments DBIA/ICR reference
GETDV
GOTDV ;Remove devices to delete (XQOD) from list of devices to add (XQDV)
OK ;
LSTOP ;
LSTRES ;List restrictions to be placed on all options
LSTDV ;List PERMITTED DEVICES to be added and deleted
OK1
ACT ;Stuff the restrictions and devices into the OPTION file
KILDV ;Remove PERMITTED DEVICE from option
LSTFIL ;Show OPTION or DEVICE file
OUT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: XQ91+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: GETDV+0
Function Call: WRITE
  • Prompt: " ??",*7
  • Line Location: GETDV+5
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: WRITE
  • Prompt: !!,"These restrictions will be updated for all options selected:",!
  • Line Location: LSTRES+1
Function Call: WRITE
  • Prompt: !,$P(XQFLD(XQI,0),U,1),": ",XQFLD(XQI,"V")
  • Line Location: LSTRES+2
Function Call: WRITE
  • Prompt: ?(XQI#XQT*10),$P(XQDV(XQD),U,2)
  • Line Location: LSTDV+2
Function Call: WRITE
  • Prompt: ?(XQI#XQT*10),$P(XQOD(XQD),U,2)
  • Line Location: LSTDV+3
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to proceed? YES// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: *7," ??",!,"Enter 'Y' or 'N'"
  • Line Location: OK1+0
Function Call: WRITE
  • Prompt: !,$P(^DIC(19,DA,0),U,1)
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: "*"
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: KILDV+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LSTFIL+1
Info |  Source |  Entry Points |  Interaction Calls