Routine: DDSDFRM

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

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

Customize PDF page

Package: VA Fileman

Routine: DDSDFRM

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items