Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA FileMan 3 ^DIC  ^DIE  ^DIR  
Kernel 2 ^%ZTLOAD  $$PSDRPH^XUSERBLK  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Electronic Health Modernization 1 EHM-00811  
Kernel 1 XQSMD COPY USER  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD TSK
^DIC XQSMDCPY+7, XQSMDCPY+24, COPY1+2, COPY1+6
^DIE COPY1, COPY1+2
^DIR XQSMDCPY+19
$$PSDRPH^XUSERBLK XQSMDCPY+14

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
Routine Call
  • DIC
  • Line Location:
    • XQSMDCPY+7
    • XQSMDCPY+24
    • COPY1+2
    • COPY1+6
Routine Call
  • DIE
  • Line Location:
    • COPY1
    • COPY1+2
Routine Call
  • DIR
  • Line Location:
    • XQSMDCPY+19

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(19 - [#19] XQSMDCPY+9, XQSMDCPY+10, COPY1, COPY1+2
^DIC(19.1 - [#19.1] XQSMDCPY+12, COPY1+4
^VA(200 - [#200] XQSMDCPY+8, XQSMDCPY+9, XQSMDCPY+10, XQSMDCPY+12, COPY1+1, COPY1+3
^XUSEC("XUMGR" XQSMDCPY+4

Label References

Name Line Occurrences
COPY1 DQ+1
EXIT XQSMDCPY+27, XQSMDCPY+28
TSK XQSMDCPY+28

Naked Globals

Name Field # of Occurrence
^( XQSMDCPY+10, XQSMDCPY+12
^(0 COPY1+1*, COPY1+3*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EXIT+1!
D EXIT+1!
D0 EXIT+1!
DA EXIT+1!, COPY1*, COPY1+2*, COPY1+4*
DA(1 COPY1+2*, COPY1+4*
DI EXIT+1!
DIC XQSMDCPY+7*, XQSMDCPY+23*, XQSMDCPY+25!, EXIT+1!, COPY1+2*, COPY1+4*
DIC("A" XQSMDCPY+7*, XQSMDCPY+23*, XQSMDCPY+24*
DIC("P" COPY1+2*, COPY1+4*
DIC(0 XQSMDCPY+7*, XQSMDCPY+23*, COPY1+2*, COPY1+4*
DIE EXIT+1!, COPY1*, COPY1+2*
DIE("P" COPY1+2*
DIR XQSMDCPY+15~
DIR("A" XQSMDCPY+19*
DIR(0 XQSMDCPY+19*
DISYS EXIT+1!
DLAYGO COPY1+1*, COPY1+7!
DR EXIT+1!, COPY1*, COPY1+2*
DTIME XQSMDCPY+28
DUZ XQSMDCPY+4, XQSMDCPY+9, XQSMDCPY+10, XQSMDCPY+12
I XQSMDCPY+10*, XQSMDCPY+12*, EXIT+1!
U XQSMDCPY+9, XQSMDCPY+10, XQSMDCPY+12, XQSMDCPY+28, COPY1, COPY1+2, COPY1+4
X XQSMDCPY+10*, XQSMDCPY+12*, XQSMDCPY+28*, EXIT+1!, COPY1+2*, COPY1+4*, COPY1+5
XQBOSS XQSMDCPY+4*, XQSMDCPY+5, XQSMDCPY+9, XQSMDCPY+10, XQSMDCPY+12, EXIT+1!
XQI XQSMDCPY+24*, DQ+1*, EXIT+1!, COPY1, COPY1+1, COPY1+2, COPY1+3, COPY1+4
XQJ EXIT+1!, COPY1+2*, COPY1+4*
XQUSEC EXIT+1!
XQUSEC( XQSMDCPY+10*!, COPY1+2
XQUSEC(0 XQSMDCPY+10*
XQUSEK EXIT+1!
XQUSEK( XQSMDCPY+12*!, COPY1+4
XQUSEK(0 XQSMDCPY+12*
XQUSR1 XQSMDCPY+7*, XQSMDCPY+8, XQSMDCPY+10, XQSMDCPY+12, XQSMDCPY+14, EXIT+1!
XQUSRPM XQSMDCPY+8*, XQSMDCPY+9*, EXIT+1!, COPY1
XUSR EXIT+1!
XUSR( XQSMDCPY+24*, DQ+1
XUSR(0 XQSMDCPY+27
Y XQSMDCPY+7, XQSMDCPY+24, EXIT+1!, COPY1+2
ZTDESC XQSMDCPY+3~, TSK*
ZTIO XQSMDCPY+3~, TSK*
ZTRTN XQSMDCPY+3~, TSK*
ZTSAVE XQSMDCPY+3~
ZTSAVE("XQUSEC(" TSK*
ZTSAVE("XQUSEK(" TSK*
ZTSAVE("XQUSRPM" TSK*
ZTSAVE("XUSR(" TSK*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All