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 |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: DDSCLONE

Package: VA Fileman

Routine: DDSCLONE


Information

DDSCLONE ;SFISC/MKO-CLONE A FORM ;10:20 PM 10 Jul 1994

Source Information

Source file <DDSCLONE.m>

Call Graph

Call Graph Total: 6

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

Caller Graph

Caller Graph Total: 1

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!

Marked Items

Name Field # of Occurrence
$T(DICW FORM+13
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All