Routine: DIKCBLD

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Entry Points
External References
Interaction Calls
Global Variables Directly Accessed
Label References
Local Variables

Information

DIKCBLD ;SFISC/MKO-AUTOBUILD A ROUTINE THAT CALLS CREIXN^DDMOD ;11:30 AM 9 Jul 2002 [ 12/09/2003 4:45 PM ]

Source Information

Source file <DIKCBLD.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC $$EZBLD^DIALOG W^DICRW OS^DII $$SUB^DIKCU ($$CHOOSE,GETXR,LIST)^DIKCUTL2 ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
Q1
QT(X)	;Return string X quoted, if noncanonic
Q3
Q2
Q4
AD(X)	;Add a routine line to ^UTILITY
ASKRTN()	;Prompt for routine name; return ^ if timeout, null, or ^
ASKNMSP()	;Prompt for a namespace
BCC(NS,XR,CV,ON,SUB,ND,PC)	;Build code that sets an array element
BCW(NS,XR,SUB,ND)	;Build code that sets array for wp field
ASKITL()	;Ask for programmer initials
BC(NS,XR,SUB,ND,PC)	;Build code that sets an array element
BUILD(DIKCRTN,DIKCITL,NS,XR)	;Build routine DIKCRTN
NOW()	;Return current time in external form
ASKXR()	;Prompt for file/xref
MAIN	;Main process
ASKREPL(DIKCRTN)	;Ask whether to replace the existing routine
SAVE(DIKCRTN)	;Save routine DIKCRTN

Name	Field # of Occurrence
NOW^%DTC	NOW+2
$$EZBLD^DIALOG	MAIN+5, SAVE+4
W^DICRW	ASKXR+2
OS^DII	MAIN+4
$$SUB^DIKCU	ASKXR+4
$$CHOOSE^DIKCUTL2	ASKXR+8
GETXR^DIKCUTL2	ASKXR+6
LIST^DIKCUTL2	ASKXR+7
^DIR	ASKRTN+10, ASKREPL+7, ASKITL+6, ASKNMSP+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),$$EZBLD^DIALOG(820) Line Location: MAIN+5
Function Call: WRITE	Prompt: ! Line Location: Q2+0
Function Call: WRITE	Prompt: ! Line Location: Q3+0
Function Call: WRITE	Prompt: ! Line Location: Q4+0
Function Call: WRITE	Prompt: !!," Done!" Line Location: Q4+7
Function Call: WRITE	Prompt: !!," Be sure to edit the routine to fill in the missing details," Line Location: Q4+8
Function Call: WRITE	Prompt: !," and to customize the call to CREIXN^DDMOD." Line Location: Q4+9
Function Call: WRITE	Prompt: ! Line Location: Q4+10
Function Call: WRITE	Prompt: !!,$$EZBLD^DIALOG(8025,DIKCRTN) Line Location: SAVE+4
Function Call: WRITE	Prompt: !!," Routine "_DIKCRTN_" already exists." Line Location: ASKREPL+6
Function Call: WRITE	Prompt: ! Line Location: ASKREPL+7
Function Call: WRITE	Prompt: ! Line Location: ASKXR+7
Routine Call	DIALOG Line Location: MAIN+5 SAVE+4
Routine Call	DIR Line Location: ASKRTN+10 ASKREPL+7 ASKITL+6 ASKNMSP+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ASKRTN+12
^DD("IX" - [#.11]	BUILD+8, BUILD+16, BUILD+23, BUILD+25, BUILD+26, BUILD+28, BUILD+31, BC+2, BC+3, BCW+2 , BCW+3, BCC+2, BCC+3
^DD("OS" - [#.7]	MAIN+5, SAVE+3
^UTILITY($J	Q4+11!, BUILD+2!, AD+2, AD+3, SAVE+2

Label References

Name	Line Occurrences
$$ASKITL	Q2
$$ASKNMSP	Q3
$$ASKREPL	ASKRTN+13
$$ASKRTN	Q1
$$ASKXR	Q4
$$NOW	SAVE+2
$$QT	BUILD+32, BC+5, BCW+4, BCC+5
AD	BUILD+3, BUILD+4, BUILD+5, BUILD+6, BUILD+29, BUILD+32, BUILD+42, BUILD+43, BC+5, BCW+4 , BCC+5
BC	BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+17, BUILD+18 , BUILD+19, BUILD+20, BUILD+21
BCC	BUILD+33, BUILD+34, BUILD+35, BUILD+36, BUILD+38, BUILD+39, BUILD+40
BCW	BUILD+15
BUILD	Q4+3
Q1	Q2
Q2	Q3
Q3	Q4
SAVE	Q4+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MAIN+1~, NOW+1~, NOW+3
%H	NOW+1~
%I	NOW+1~
%I(1	NOW+9
%I(2	NOW+10
%I(3	NOW+10
%Y	SAVE+1~
AP	NOW+1~, NOW+5*, NOW+10
CV	BUILD+1~, BUILD+23*, BUILD+25, BUILD+26, BUILD+28, BUILD+31, BUILD+33, BUILD+34, BUILD+35, BUILD+36 , BUILD+38, BUILD+39, BUILD+40, BCC~, BCC+2, BCC+3
D	ASKXR+1~
DDS1	ASKXR+1~, ASKXR+2*
DIC	ASKXR+1~, ASKXR+3
DIKCCNT	ASKXR+1~, ASKXR+6, ASKXR+7, ASKXR+8
DIKCFILE	ASKXR+1~, ASKXR+4*, ASKXR+6
DIKCITL	MAIN+1~, Q2*, Q4+3, BUILD~, BUILD+3
DIKCNMSP	MAIN+1~, Q3*, Q4+3
DIKCROOT	ASKXR+1~
DIKCRTN	MAIN+1~, Q1, Q4+3, Q4+4, BUILD~, BUILD+3, SAVE~, SAVE+3, SAVE+4, ASKRTN+9 , ASKRTN+10, ASKRTN+11, ASKRTN+13, ASKRTN+14, ASKRTN+15, ASKREPL~, ASKREPL+3, ASKREPL+5, ASKREPL+6
DIKCTOP	ASKXR+1~, ASKXR+3*, ASKXR+4
DIKCXR	MAIN+1~, Q4*, Q4+3
DIR	ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~
DIR("?"	ASKRTN+4, ASKRTN+5, ASKRTN+6, ASKRTN+7, ASKRTN+8, ASKREPL+5, ASKITL+4, ASKITL+5, ASKNMSP+4, ASKNMSP+5 , ASKNMSP+6, ASKNMSP+7, ASKNMSP+8*
DIR("A"	ASKRTN+3, ASKREPL+3, ASKITL+3, ASKNMSP+3
DIR("B"	ASKREPL+4*
DIR(0	ASKRTN+2, ASKREPL+2, ASKITL+2, ASKNMSP+2
DIROUT	ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~
DIRUT	ASKRTN+1~, ASKRTN+10, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~
>> DISYS	MAIN+4, MAIN+5, SAVE+3
DTOUT	ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~
DUOUT	ASKRTN+1~, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~
HR	NOW+1~, NOW+4, NOW+5, NOW+6, NOW+10
I	BCW+1~, BCW+2*, BCW+3, BCW+4
LN	AD+1~, AD+2*, AD+3
MIN	NOW+1~, NOW+7*, NOW+10
MON	NOW+1~, NOW+9*, NOW+10
ND	BC~, BC+2, BC+3, BCW~, BCW+2, BCW+3, BCC~, BCC+2, BCC+3
NS	BUILD~, BUILD+6, BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14 , BUILD+15, BUILD+17, BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+29, BUILD+32, BUILD+33, BUILD+34 , BUILD+35, BUILD+36, BUILD+38, BUILD+39, BUILD+40, BUILD+42, BC~, BC+5, BCW~, BCW+4 , BCC~, BCC+5
ON	BUILD+24~, BUILD+25*, BUILD+29, BUILD+32, BUILD+33, BUILD+34, BUILD+35, BUILD+36, BUILD+38, BUILD+39 , BUILD+40, BCC~, BCC+5
PC	BC~, BC+2, BC+3, BCC~, BCC+2, BCC+3
SUB	BC~, BC+5, BCW~, BCW+4, BCC~, BCC+5
TIM	NOW+1~, NOW+3*, NOW+4, NOW+7
TP	BUILD+24~, BUILD+26*, BUILD+27, BUILD+37
U	Q1, Q2, Q3, BUILD+8, BUILD+16, BUILD+25, BUILD+26, BUILD+28, BC+3, BCC+3 , ASKRTN+10, ASKXR+3, NOW+9
VAL	BUILD+24~, BUILD+28, BUILD+29, BUILD+31, BUILD+32, BC+1~, BC+2, BC+3, BC+4, BC+5 , BCW+1~, BCW+3, BCW+4, BCC+1~, BCC+2, BCC+3*, BCC+4, BCC+5
X	QT~, QT+1, QT+2, QT+3, QT+4, AD~, AD+3, SAVE+1~, SAVE+3, ASKRTN+1~ , ASKRTN+11, ASKREPL+1~, ASKITL+1~, ASKNMSP+1~, ASKXR+1~, NOW+1~
X(	QT+3*
X(""	QT+3
XR	BUILD~, BUILD+7, BUILD+8, BUILD+9, BUILD+10, BUILD+11, BUILD+12, BUILD+13, BUILD+14, BUILD+15 , BUILD+16, BUILD+17, BUILD+18, BUILD+19, BUILD+20, BUILD+21, BUILD+23, BUILD+25, BUILD+26, BUILD+28 , BUILD+31, BUILD+33, BUILD+34, BUILD+35, BUILD+36, BUILD+38, BUILD+39, BUILD+40, BC~, BC+2 , BC+3, BCW~, BCW+2, BCW+3, BCC~, BCC+2, BCC+3
Y	ASKRTN+1~, ASKREPL+1~, ASKREPL+8, ASKITL+1~, ASKITL+7, ASKNMSP+1~, ASKNMSP+10, ASKXR+1~, ASKXR+2

Customize PDF page

Package: VA Fileman

Routine: DIKCBLD

Call Graph Total: 7