Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
DONE
QUIT ;Cleanup
FORM() ;Prompt for form
EGP
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
FORMQ
GETBLKS ;Get all blocks on form
; ^TMP("DDSCLONE",$J,bk#)=Block name
REPORT ;Print report
RENMSP ;Prompt for new namespace
RENAME ;Prompt for new names
RENFORM ;Rename the form
RENBLK(DDSBK) ;Rename the blocks
NAME(NAME,ONS,NNS) ;Replace old namespace with new

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
Info |  Source |  Entry Points |  Interaction Calls