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 ;2OCT2003

Source Information

Source file <DDSCLONE.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
VA FileMan 2 DDS  DDSOPT  

Entry Points

Name Comments DBIA/ICR reference
RENAME ;Prompt for new names
QUIT ;Cleanup
FORM() ;Prompt for form
RENFORM ;Rename the form
EGP
RENMSP ;Prompt for new namespace
FORMQ
DONE
DICW ;;N %G S %G=^(0) W:$X>35 ! W ?35,"#"_Y N Y S Y=$P(%G,U,5) W:Y]"" ?43,$$OUT^DIALOGU(Y,"FMTE","2D") S Y=$P(%G,U,4) W:Y]"" ?53," User #"_Y S Y=$P(%G,U,8) W:Y]"" ?65," File #"_Y ;**CCO/NI NICE DATE OUTOUT
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+17
IX^DIC DICW+1
W^DICRW EGP
^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: DONE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: EGP+5
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,$$OUT^DIALOGU(Y,"FMTE","2D")
  • 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+8!, 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+11
$$NAME RENFORM+5, RENBLK+5
DICW EGP+10
FORMQ EGP, EGP+1
GETBLKS DDSCLONE+13
QUIT DDSCLONE+11, DDSCLONE+14, DDSCLONE+15, DDSCLONE+16
RENAME DDSCLONE+16
RENBLK RENAME+12
RENFORM RENAME+6
RENMSP DDSCLONE+15
REPORT DDSCLONE+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DDSCLONE+7~
%CHK DDSCLONE+7~
%RET DDSCLONE+7~
%X DDSCLONE+7~
%Y DDSCLONE+7~
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+7~, FORM+2~, EGP+7*
D0 DDSCLONE+7~
D1 DDSCLONE+7~
DA DDSCLONE+7~
DDH QUIT+3!
DDS1 EGP*!
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!, EGP+2*, EGP+7
DDSFORM DDSCLONE+11*, 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+9*, DDSCLONE+14, DDSCLONE+15, DDSCLONE+16, DONE, 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+7~
DIC DDSCLONE+7~, FORM+2~, EGP+1, EGP+5!, EGP+6*
DIC("A" EGP+9*
DIC("S" EGP+8*
DIC("W" EGP+10*
DIC(0 EGP+6*, EGP+7*
DIOVRD DDSCLONE+7~, DDSCLONE+9*
DIR DDSCLONE+7~, 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+7~
DQ DDSCLONE+7~
DREF DDSCLONE+7~
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+7~, RENMSP+22!, RENMSP+29!, RENFORM+10*, RENFORM+11, RENBLK+10*, RENBLK+11
Y DDSCLONE+7~, EGP, EGP+1*, EGP+2, FORMQ, RENMSP+11, RENMSP+20, RENMSP+22!, RENMSP+28, RENMSP+29!

Marked Items

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