Routine: XQSMDCPY

Information

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

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIE
Kernel	1	^%ZTLOAD

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+4
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+5
Function Call: WRITE	Prompt: !,"The donor user has no primary menu." Line Location: XQSMDCPY+7
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+8
Function Call: WRITE	Prompt: !,$C(7),"Skipping secondary menu ",$P(^DIC(19,+X,0),U) Line Location: XQSMDCPY+9
Function Call: WRITE	Prompt: !!,$C(7),"No Primary or Secondary Menus to copy -- quitting.",!! Line Location: XQSMDCPY+10
Function Call: WRITE	Prompt: !,$C(7),"Not authorized to give ",$P(^DIC(19.1,X,0),U)," key -- skipping" Line Location: XQSMDCPY+11
Function Call: READ	Prompt: "Do you want to QUEUE this job ? Y// " Formatting: !! Timeout: DTIME Variable: X Line Location: XQSMDCPY+20
Routine Call	DIE Line Location: COPY1 COPY1+2
Routine Call	DIC Line Location: XQSMDCPY+6 XQSMDCPY+16 COPY1+2 COPY1+4

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

Name	Field # of Occurrence
^(	XQSMDCPY+9, XQSMDCPY+11
^(0	COPY1+1, COPY1+3

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+6, XQSMDCPY+15, XQSMDCPY+17!, EXIT+1!, COPY1+2, COPY1+4
DIC("A"	XQSMDCPY+6, XQSMDCPY+15, XQSMDCPY+16*
DIC("P"	COPY1+2, COPY1+4
DIC(0	XQSMDCPY+6, XQSMDCPY+15, COPY1+2, COPY1+4
DIE	EXIT+1!, COPY1, COPY1+2
DIE("P"	COPY1+2*
DISYS	EXIT+1!
DLAYGO	COPY1+1*, COPY1+5!
DR	EXIT+1!, COPY1, COPY1+2
DTIME	XQSMDCPY+20
DUZ	XQSMDCPY+3, XQSMDCPY+8, XQSMDCPY+9, XQSMDCPY+11
>> I	XQSMDCPY+9, XQSMDCPY+11
U	XQSMDCPY+8, XQSMDCPY+9, XQSMDCPY+11, XQSMDCPY+20, COPY1, COPY1+2, COPY1+4
X	XQSMDCPY+9, XQSMDCPY+11, XQSMDCPY+20, EXIT+1!, COPY1+2, COPY1+4*
XQBOSS	XQSMDCPY+3*, XQSMDCPY+4, XQSMDCPY+8, XQSMDCPY+9, XQSMDCPY+11, EXIT+1!
XQI	XQSMDCPY+16, 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+9*!, COPY1+2
XQUSEC(0	XQSMDCPY+9*
XQUSEK	EXIT+1!
XQUSEK(	XQSMDCPY+11*!, COPY1+4
XQUSEK(0	XQSMDCPY+11*
XQUSR1	XQSMDCPY+6*, XQSMDCPY+7, XQSMDCPY+9, XQSMDCPY+11, EXIT+1!
XQUSRPM	XQSMDCPY+7, XQSMDCPY+8, EXIT+1!, COPY1
XUSR	EXIT+1!
XUSR(	XQSMDCPY+16*, DQ+1
XUSR(0	XQSMDCPY+19
Y	XQSMDCPY+6, XQSMDCPY+16, EXIT+1!, COPY1+2
>> ZTDESC	TSK*
>> ZTIO	TSK*
>> ZTRTN	TSK*
>> ZTSAVE("XQUSEC("	TSK*
>> ZTSAVE("XQUSEK("	TSK*
>> ZTSAVE("XQUSRPM"	TSK*
>> ZTSAVE("XUSR("	TSK*