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: DDSDFRM

Package: VA FileMan

Routine: DDSDFRM


Information

DDSDFRM ;SFISC/MKO-DELETE A FORM ;11:22 AM 4 Dec 1999

Source Information

Source file <DDSDFRM.m>

Entry Points

Name Comments DBIA/ICR reference
EN(DDSFORM) ;Delete form number DDSFORM
INIT ;Setup
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 FORMAT
FORMQ
GETBLKS ;Get all blocks on form
; @DDSBLK@(bk#)=Block name^flag (1=used on other forms)
DELPR ;Delete blocks with prompting
DELNPR ;Delete blocks without prompting
ASKDEL ;Ask if user wants to delete all the blocks on this form
ASKCONT ;Final chance to abort
REPORT ;Print report
COMMON(B,F) ;Is block B found on forms other than F

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Deleting form "_$P(DDSFORM,U,2)_" (IEN #"_+DDSFORM_") ..."
  • Line Location: DDSDFRM+19
Function Call: WRITE
  • Prompt: !!,"DONE!"
  • Line Location: DDSDFRM+25
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: DELPR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DELNPR+2
Function Call: WRITE
  • Prompt: !,"Deleting block "_$P(@DDSBLK@(DDSB),U)_" (IEN #"_DDSB_") ..."
  • Line Location: DELNPR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ASKDEL+14
Function Call: WRITE
  • Prompt: "There are no blocks on this form."
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: " BLOCKS USED ON FORM """_$P(DDSFORM,U,2)_""" (IEN #"_+DDSFORM_")"
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: !!," Internal",?50,"Used on"
  • Line Location: REPORT+4
Function Call: WRITE
  • Prompt: !," Entry Number Block Name",?50,"Other Forms? Deletable?"
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !," ------------ ----------",?50,"------------ ----------"
  • Line Location: REPORT+6
Function Call: WRITE
  • Prompt: !," "_B,?17,$P(@DDSBLK@(B),U),?54
  • Line Location: REPORT+9
Function Call: WRITE
  • Prompt: $S($P(@DDSBLK@(B),U,2):"YES",1:"NO")
  • Line Location: REPORT+10
Function Call: WRITE
  • Prompt: ?68,$S($P(@DDSBLK@(B),U,2):"NO",1:"YES")
  • Line Location: REPORT+11
Info |  Source |  Entry Points |  Interaction Calls