Routine: DDSCLONE

Package	Total	Call Graph
VA Fileman	5	^DDSCLONF IX^DIC W^DICRW ^DIR EN^DIR0
Kernel	1	HOME^%ZIS

Package	Total	Caller Graph
VA Fileman	1	DDS

Entry Points

Name	Comments	DBIA/ICR reference
RENAME	;Prompt for new names
QUIT	;Cleanup
FORM()	;Prompt for form
RENFORM	;Rename the form
RENMSP	;Prompt for new namespace
FORMQ
DICW	;;N %G,%Y S %Y=Y,%G=^(0) W:$X>35 ! W ?35,"#"_Y S Y=$P(%G,U,5) W:Y]"" ?43," "_$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3) S Y=$P(%G,U,4) W:Y]"" ?53," User #"_Y S Y=$P(%G,U,8) W:Y]"" ?65," File #"_Y S Y=%Y
REPORT	;Print report
RENBLK(DDSBK)	;Rename the blocks
NAME(NAME,ONS,NNS)	;Replace old namespace with new
GETBLKS	;Get all blocks on form ; ^TMP("DDSCLONE",$J,bk#)=Block name

External References

Name	Field # of Occurrence
HOME^%ZIS	RENAME+2
^DDSCLONF	DDSCLONE+13
IX^DIC	DICW+1
W^DICRW	FORM+3
^DIR	REPORT+15, RENMSP+9, RENMSP+18, RENMSP+26
EN^DIR0	RENFORM+5, RENBLK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"DONE!" Line Location: DDSCLONE+14
Function Call: WRITE	Prompt: ! Line Location: FORM+8
Function Call: WRITE	Prompt: ! Condition for execution: $X>35 Line Location: DICW+0
Function Call: WRITE	Prompt: ?35,"#"_Y Line Location: DICW+0
Function Call: WRITE	Prompt: ?43," "_$E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3) Condition for execution: Y]"" Line Location: DICW+0
Function Call: WRITE	Prompt: ?53," User #"_Y Condition for execution: Y]"" Line Location: DICW+0
Function Call: WRITE	Prompt: ?53," User #"_Y Condition for execution: Y]"" Line Location: DICW+0
Function Call: WRITE	Prompt: !!! Line Location: REPORT+2
Function Call: WRITE	Prompt: "There are no blocks on this form." Line Location: REPORT+3
Function Call: WRITE	Prompt: " BLOCKS USED ON FORM """_$P(DDSFORM,U,2)_""" (IEN #"_+DDSFORM_")" Line Location: REPORT+5
Function Call: WRITE	Prompt: !!," Internal" Line Location: REPORT+6
Function Call: WRITE	Prompt: !," Entry Number Block Name" Line Location: REPORT+7
Function Call: WRITE	Prompt: !," ------------ ----------" Line Location: REPORT+8
Function Call: WRITE	Prompt: !," "_B,?17,$P(^TMP("DDSCLONE",$J,B),U) Line Location: REPORT+11
Function Call: WRITE	Prompt: ! Line Location: REPORT+15
Function Call: WRITE	Prompt: ! Line Location: REPORT+17
Function Call: WRITE	Prompt: !!,"The new form and blocks must be given unique names.",! Line Location: RENMSP+1
Function Call: WRITE	Prompt: !! Line Location: RENMSP+14
Function Call: WRITE	Prompt: @IOF Line Location: RENAME+3
Function Call: WRITE	Prompt: "Enter names for the new form and blocks." Line Location: RENAME+4
Function Call: WRITE	Prompt: ! Line Location: RENAME+8
Function Call: WRITE	Prompt: !!,"Original form name: "_$P(DDSFORM,U,2) Line Location: RENFORM+3
Function Call: WRITE	Prompt: !," New form name: " Line Location: RENFORM+4
Function Call: WRITE	Prompt: !!," Enter the name of the new form." Line Location: RENFORM+8
Function Call: WRITE	Prompt: !!,$C(7)_" Invalid name." Line Location: RENFORM+11
Function Call: WRITE	Prompt: !!,$C(7)_" Form with this name already exists." Line Location: RENFORM+14
Function Call: WRITE	Prompt: !!,"Original block name: "_$P(DDSBK,U) Line Location: RENBLK+3
Function Call: WRITE	Prompt: !," New block name: " Line Location: RENBLK+4
Function Call: WRITE	Prompt: !!," Enter the name of the new form." Line Location: RENBLK+8
Function Call: WRITE	Prompt: !!,$C(7)_" Invalid name." Line Location: RENBLK+11
Function Call: WRITE	Prompt: !!,$C(7)_" Block with this name already exists." Line Location: RENBLK+14
Routine Call	%ZIS Line Location: RENAME+2
Routine Call	DIR Line Location: REPORT+15 RENMSP+9 RENMSP+18 RENMSP+26
Routine Call	DIC Line Location: DICW+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	RENFORM+10, RENBLK+10
^DIST(	GETBLKS+4, GETBLKS+5, GETBLKS+7, GETBLKS+9, GETBLKS+11, RENFORM+12, RENBLK+12
^TMP("DDSCLONE"	DDSCLONE+4!, QUIT+1!, GETBLKS+6, GETBLKS+7, GETBLKS+10, GETBLKS+11, REPORT+3, REPORT+10, REPORT+11, RENAME+10 , RENAME+11, RENAME+13, RENAME+14, RENBLK+12

Label References

Name	Line Occurrences
$$FORM	DDSCLONE+7
$$NAME	RENFORM+5, RENBLK+5
DICW	FORM+13
FORMQ	FORM+3, FORM+4
GETBLKS	DDSCLONE+9
QUIT	DDSCLONE+7, DDSCLONE+10, DDSCLONE+11, DDSCLONE+12
RENAME	DDSCLONE+12
RENBLK	RENAME+12
RENFORM	RENAME+6
RENMSP	DDSCLONE+11
REPORT	DDSCLONE+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DDSCLONE+3~
%CHK	DDSCLONE+3~
%RET	DDSCLONE+3~
%X	DDSCLONE+3~
%Y	DDSCLONE+3~
B	GETBLKS+3~, GETBLKS+5, GETBLKS+6, GETBLKS+7, GETBLKS+8, GETBLKS+9, GETBLKS+10, GETBLKS+11, REPORT+1~, REPORT+10 , REPORT+11
D	DDSCLONE+3~, FORM+2~, FORM+10*
D0	DDSCLONE+3~
D1	DDSCLONE+3~
DA	DDSCLONE+3~
DDH	QUIT+3!
DDS1	FORM+3*!
DDSANS	RENFORM+1~, RENFORM+2, RENFORM+5, RENFORM+7, RENFORM+8, RENFORM+9, RENFORM+10, RENFORM+11, RENFORM+12, RENFORM+13* , RENFORM+17, RENBLK+1~, RENBLK+2, RENBLK+5, RENBLK+7, RENBLK+8, RENBLK+9, RENBLK+10, RENBLK+11, RENBLK+12 , RENBLK+13*, RENBLK+17
DDSBK	QUIT+2!, RENAME+1~, RENAME+11, RENAME+12, RENAME+13, RENAME+14, RENBLK~, RENBLK+3, RENBLK+5, RENBLK+17
DDSBKDA	QUIT+2!, RENAME+1~, RENAME+9, RENAME+10, RENAME+11, RENAME+13
DDSCOD	RENFORM+1~, RENFORM+5, RENFORM+7, RENBLK+1~, RENBLK+5, RENBLK+7
DDSFILE	QUIT+2!, FORM+5*, FORM+10
DDSFORM	DDSCLONE+7, QUIT+2!, GETBLKS+4, GETBLKS+5, GETBLKS+9, REPORT+5, RENFORM+3, RENFORM+5, RENFORM+17
DDSNFRM	QUIT+2!
DDSNNS	QUIT+2!, RENMSP+28*, RENFORM+5, RENBLK+5
DDSNNSP	RENMSP+11!
DDSONS	QUIT+2!, RENMSP+20*, RENFORM+5, RENBLK+5
DDSONSP	RENMSP+11!
DDSQUIT	DDSCLONE+5, DDSCLONE+10, DDSCLONE+11, DDSCLONE+12, QUIT+2!, REPORT+3, REPORT+16, RENMSP+10, RENMSP+19, RENMSP+27 , RENAME+6, RENAME+10, RENAME+12, RENFORM+2, RENFORM+7, RENFORM+15, RENBLK+2, RENBLK+7, RENBLK+15
DI	DDSCLONE+3~
DIC	DDSCLONE+3~, FORM+2~, FORM+4, FORM+8!, FORM+9*
DIC("A"	FORM+12*
DIC("S"	FORM+11*
DIC("W"	FORM+13*
DIC(0	FORM+9, FORM+10
DIOVRD	DDSCLONE+3~, DDSCLONE+5*
DIR	DDSCLONE+3~, REPORT+13!, REPORT+15!, RENMSP+3!, RENMSP+9!, RENMSP+13!, RENMSP+18!, RENMSP+22!, RENMSP+26!
DIR("?"	RENMSP+7, RENMSP+8, RENMSP+17, RENMSP+25
DIR("A"	RENMSP+5, RENMSP+6, RENMSP+16, RENMSP+24
DIR("B"	RENMSP+4*
DIR(0	REPORT+14, RENMSP+4, RENMSP+15, RENMSP+23
DIROUT	QUIT+3!
DIRUT	QUIT+3!, REPORT+16, RENMSP+10, RENMSP+19, RENMSP+27
DIZ	DDSCLONE+3~
DQ	DDSCLONE+3~
DREF	DDSCLONE+3~
DTOUT	QUIT+3!
DUOUT	QUIT+3!
IOF	RENAME+3
IOSL	RENFORM+5, RENBLK+5
IOST	RENAME+2
NAME	NAME~, NAME+1, NAME+2, NAME+3
NNS	NAME~, NAME+1, NAME+3
ONS	NAME~, NAME+1, NAME+2, NAME+3
P	GETBLKS+3~, GETBLKS+4*, GETBLKS+5, GETBLKS+9
U	GETBLKS+5, GETBLKS+7, GETBLKS+11, REPORT+5, REPORT+11, RENAME+14, RENFORM+3, RENFORM+5, RENFORM+7, RENFORM+10 , RENFORM+17, RENBLK+3, RENBLK+5, RENBLK+7, RENBLK+10, RENBLK+17
X	DDSCLONE+3~, RENMSP+22!, RENMSP+29!, RENFORM+10, RENFORM+11, RENBLK+10, RENBLK+11
Y	DDSCLONE+3~, FORM+3, FORM+4*, FORM+5, FORMQ, RENMSP+11, RENMSP+20, RENMSP+22!, RENMSP+28, RENMSP+29!

Customize PDF page

Package: VA Fileman

Routine: DDSCLONE

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items