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

Package: Kernel

Routine: XQSMDCPY


Information

XQSMDCPY ;ISC-SF/JLI - COPY ONE USER (PRIM & SEC MENUS, KEYS, FILES) TO ANOTHER USER ;07/12/10 11:12

Source Information

Source file <XQSMDCPY.m>

Entry Points

Name Comments DBIA/ICR reference
DQ ;
EXIT ;
COPY1
TSK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"Note: You must have been delegated these options and",!,?11,"keys to transfer them from user to user.",!
  • Line Location: XQSMDCPY+5
Function Call: WRITE
  • Prompt: !!,$C(7),"No Menus have been delegated to you to use this option",!,"If there are questions see your site manager's staff."
  • Line Location: XQSMDCPY+6
Function Call: WRITE
  • Prompt: !,"The donor user has no primary menu."
  • Line Location: XQSMDCPY+8
Function Call: WRITE
  • Prompt: !,$C(7),"You are not able to give out this user's primary menu ",$P(^DIC(19,XQUSRPM,0),U)
  • Line Location: XQSMDCPY+9
Function Call: WRITE
  • Prompt: !,$C(7),"Skipping secondary menu ",$P(^DIC(19,+X,0),U)
  • Line Location: XQSMDCPY+10
Function Call: WRITE
  • Prompt: !!,$C(7),"No Primary or Secondary Menus to copy -- quitting.",!!
  • Line Location: XQSMDCPY+11
Function Call: WRITE
  • Prompt: !,$C(7),"Not authorized to give ",$P(^DIC(19.1,X,0),U)," key -- skipping"
  • Line Location: XQSMDCPY+12
Function Call: WRITE
  • Prompt: !!,"The PSDRPH key cannot be allocated / de-allocated by this option. Please"
  • Line Location: XQSMDCPY+16
Function Call: WRITE
  • Prompt: !,"use the option 'Allocate/De-Allocate of PSDRPH Key (Audited)' if necessary."
  • Line Location: XQSMDCPY+17
Function Call: WRITE
  • Prompt: !,"The PSDRPH key will not be copied to the new user.",!
  • Line Location: XQSMDCPY+18
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want to QUEUE this job ? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: XQSMDCPY+28
Info |  Source |  Entry Points |  Interaction Calls