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

Package: VA Fileman

Routine: DDSDFRM


Information

DDSDFRM ;SFISC/MKO-DELETE A FORM ;09:12 AM 18 Aug 1994

Source Information

Source file <DDSDFRM.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 5 IX^DIC  W^DICRW  INIZE^DIEFU  ^DIK  ^DIR  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA Fileman 3 DDS  DDSOPT  DIFROMSK  
Women's Health 1 BWPATCH9  

Entry Points

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

External References

Name Field # of Occurrence
IX^DIC DICW+1
W^DICRW FORM+3
INIZE^DIEFU EN+2
^DIK DDSDFRM+18, EN+8, EN+14, DELPR+12, DELNPR+8
^DIR DELPR+11, ASKDEL+10, ASKDEL+21, ASKCONT+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Deleting form "_$P(DDSFORM,U,2)_" (IEN #"_+DDSFORM_") ..."
  • Line Location: DDSDFRM+16
Function Call: WRITE
  • Prompt: !!,"DONE!"
  • Line Location: DDSDFRM+22
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: 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
Routine Call
  • DIR
  • Line Location:
    • DELPR+11
    • ASKDEL+10
    • ASKDEL+21
    • ASKCONT+5
Routine Call
  • DIC
  • Line Location:
    • DICW+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIST( GETBLKS+4, GETBLKS+5, GETBLKS+7, GETBLKS+9, GETBLKS+10, COMMON+3, COMMON+4
^TMP("DDSDFRM" INIT+2

Label References

Name Line Occurrences
$$COMMON GETBLKS+7, GETBLKS+10
$$FORM DDSDFRM+8
ASKCONT DDSDFRM+13
ASKDEL DDSDFRM+12
DELNPR DDSDFRM+21
DELPR DDSDFRM+21
DICW FORM+13
FORMQ FORM+3, FORM+4
GETBLKS DDSDFRM+10, EN+4
INIT DDSDFRM+5, EN+3
QUIT DDSDFRM+8, DDSDFRM+12, DDSDFRM+13, DDSDFRM+23
REPORT DDSDFRM+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DDSDFRM+4~, EN+1~
B GETBLKS+3~, GETBLKS+5*, GETBLKS+6, GETBLKS+7, GETBLKS+8*, GETBLKS+9*, GETBLKS+10, REPORT+1~, REPORT+8*, REPORT+9
, REPORT+10, REPORT+11, COMMON~, COMMON+3, COMMON+4
C COMMON+1~, COMMON+2*, COMMON+3*, COMMON+4*, COMMON+5
D FORM+2~, FORM+10*
DA DDSDFRM+17*, DDSDFRM+18!, EN+1~, EN+7*, EN+8!, EN+14*, DELPR+12*, DELPR+13!, DELNPR+8*, DELNPR+9!
DDH QUIT+3!
DDS1 FORM+3*!
DDSB EN+1~, EN+12*, EN+13, EN+14, DELPR+1~, DELPR+7*, DELPR+8*, DELPR+9, DELPR+10, DELPR+12
, DELNPR+1~, DELNPR+4*, DELNPR+5*, DELNPR+6, DELNPR+7, DELNPR+8
DDSBLK DDSDFRM+12, EN+1~, EN+12, EN+13, EN+16, INIT+2*, INIT+3, QUIT+1, QUIT+2!, GETBLKS+6
, GETBLKS+7, GETBLKS+9, GETBLKS+10, DELPR+8, DELPR+9, DELPR+10, DELNPR+5, DELNPR+6, DELNPR+7, REPORT+2
, REPORT+8, REPORT+9, REPORT+10, REPORT+11
DDSDEL DDSDFRM+6*, DDSDFRM+21, QUIT+2!, ASKDEL+11*
DDSDEL(1 DDSDFRM+21, ASKDEL+22*
DDSFILE QUIT+2!, FORM+5*, FORM+10
DDSFORM DDSDFRM+8*, DDSDFRM+16, DDSDFRM+17, EN~, EN+7, QUIT+2!, GETBLKS+4, GETBLKS+5, GETBLKS+7, GETBLKS+9
, GETBLKS+10, ASKDEL+3, ASKDEL+6, REPORT+3
DDSQUIT DDSDFRM+6*, DDSDFRM+12, DDSDFRM+13, QUIT+2!, DELPR+8, DELPR+11*, ASKDEL+10*, ASKDEL+21*, ASKCONT+6*
DIC DDSDFRM+4~, EN+1~, 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*
DIFM EN+2~*
DIK DDSDFRM+17*, DDSDFRM+18!, EN+1~, EN+7*, EN+8!, EN+11*, DELPR+2!, DELPR+5*, DELPR+13!, DELNPR+2!
, DELNPR+3*, DELNPR+9!
DIOVRD DDSDFRM+4~, EN+1~, INIT+1*
DIR DELPR+2!, DELPR+13!, ASKDEL+1!, ASKDEL+10!, ASKDEL+21!, ASKCONT+1!, ASKCONT+5!
DIR("?" DELPR+4*, ASKDEL+5*, ASKDEL+6*, ASKDEL+7*, ASKDEL+8*, ASKDEL+9*, ASKDEL+17*, ASKDEL+18*, ASKDEL+19*, ASKDEL+20*
, ASKCONT+4*
DIR("A" DELPR+10*, ASKDEL+2*, ASKDEL+3*, ASKDEL+4*, ASKDEL+15*, ASKDEL+16*, ASKCONT+2*, ASKCONT+3*
DIR("B" DELPR+3*, ASKDEL+1*, ASKDEL+14*, ASKCONT+1*
DIR(0 DELPR+3*, ASKDEL+1*, ASKDEL+14*, ASKCONT+1*
DIROUT QUIT+3!, DELPR+13!
DIRUT QUIT+3!, DELPR+2!, DELPR+11, DELPR+13!, ASKDEL+10, ASKDEL+21, ASKCONT+6
DTOUT QUIT+3!, DELPR+13!
DUOUT QUIT+3!, DELPR+13!
F COMMON~, COMMON+3, COMMON+4
F1 COMMON+1~, COMMON+2*, COMMON+3*, COMMON+4*
P GETBLKS+3~, GETBLKS+4*, GETBLKS+5, GETBLKS+9
U DDSDFRM+16, EN+13, GETBLKS+5, GETBLKS+7, GETBLKS+10, DELPR+9, DELPR+10, DELNPR+6, DELNPR+7, ASKDEL+3
, ASKDEL+6, REPORT+3, REPORT+9, REPORT+10, REPORT+11
X DDSDFRM+4~, EN+1~
Y DDSDFRM+4~, EN+1~, FORM+3, FORM+4*, FORM+5, FORMQ, DELPR+11, ASKDEL+11, ASKDEL+22, ASKCONT+6

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