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 ;11:22 AM 4 Dec 1999

Source Information

Source file <DDSDFRM.m>

Call Graph

Call Graph

Call Graph Total: 5

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
VA FileMan 4 DDS  DDS DELETE A FORM  DDSOPT  DIFROMSK  

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

External References

Name Field # of Occurrence
IX^DIC DICW+1
W^DICRW EGP
INIZE^DIEFU EN+2
^DIK DDSDFRM+21, 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+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
Routine Call
  • DIC
  • Line Location:
    • DICW+1
Routine Call
  • DIR
  • Line Location:
    • DELPR+11
    • ASKDEL+10
    • ASKDEL+21
    • ASKCONT+5

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+11
ASKCONT DDSDFRM+16
ASKDEL DDSDFRM+15
DELNPR DDSDFRM+24
DELPR DDSDFRM+24
DICW EGP+10
FORMQ EGP, EGP+1
GETBLKS DDSDFRM+13, EN+4
INIT DDSDFRM+8, EN+3
QUIT DDSDFRM+11, DDSDFRM+15, DDSDFRM+16, DDSDFRM+26
REPORT DDSDFRM+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DDSDFRM+7~, 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~, EGP+7*
DA DDSDFRM+20*, DDSDFRM+21!, EN+1~, EN+7*, EN+8!, EN+14*, DELPR+12*, DELPR+13!, DELNPR+8*, DELNPR+9!
DDH QUIT+3!
DDS1 EGP*!
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+15, 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+9*, DDSDFRM+24, QUIT+2!, ASKDEL+11*
DDSDEL(1 DDSDFRM+24, ASKDEL+22*
DDSFILE QUIT+2!, EGP+2*, EGP+7
DDSFORM DDSDFRM+11*, DDSDFRM+19, DDSDFRM+20, EN~, EN+7, QUIT+2!, GETBLKS+4, GETBLKS+5, GETBLKS+7, GETBLKS+9
, GETBLKS+10, ASKDEL+3, ASKDEL+6, REPORT+3
DDSQUIT DDSDFRM+9*, DDSDFRM+15, DDSDFRM+16, QUIT+2!, DELPR+8, DELPR+11*, ASKDEL+10*, ASKDEL+21*, ASKCONT+6*
DIC DDSDFRM+7~, EN+1~, 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*
DIFM EN+2~*
DIK DDSDFRM+20*, DDSDFRM+21!, EN+1~, EN+7*, EN+8!, EN+11*, DELPR+2!, DELPR+5*, DELPR+13!, DELNPR+2!
, DELNPR+3*, DELNPR+9!
DIOVRD DDSDFRM+7~, 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+19, 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+7~, EN+1~
Y DDSDFRM+7~, EN+1~, EGP, EGP+1*, EGP+2, FORMQ, DELPR+11, ASKDEL+11, ASKDEL+22, ASKCONT+6

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