Routine: DIPKINI1

Package	Total	Call Graph
VA Fileman	6	WAIT^DICD YN^DICN DT^DICRW IXALL^DIK I^DITR EN^DIU2

Package	Total	Caller Graph
VA Fileman	1	DIPKINIT

Entry Points

Name	Comments	DBIA/ICR reference
OPT	;OPTION
IX
N(%)
BUL	;BULLETIN
DIP	;PRINT TEMPLATE
RTN	;ROUTINE DOCUMENTATION NOTE
B36(X)
REM	;REMOTE PROCEDURE
DIB	;SORT TEMPLATE
FUN	;FUNCTION
HEL	;HELP FRAME
KEY	;SECURITY KEY
W
DIE	;INPUT TEMPLATE
ASK	;I %=1,$D(DIFQ(0)) W !,"SHALL I WRITE OVER FILE SECURITY CODES" S %=2 D YN^DICN S DSEC=%=1 I %<1 K DIFQ Q
SBF	;FILE AND SUB FILE NUMBERS
DATA
DIS	;FORM

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SHALL I WRITE OVER FILE SECURITY CODES" Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"ARE YOU SURE EVERYTHING'S OK" Line Location: ASK+1
Function Call: WRITE	Prompt: "." Line Location: ASK+4
Function Call: WRITE	Prompt: !?6,"Answer YES to replace the current "_Y_"S with the incoming ones." Line Location: W+2
Function Call: WRITE	Prompt: "." Line Location: IX+0

Name	Line Occurrences (* Changed, ! Killed)
^DD(	IX
^DIC - [#1]	IX+2
^UTILITY(	ASK+3!, ASK+5, DATA, DATA+1, DATA+2!
^UTILITY("DIK"	ASK+3!

Name	Field # of Occurrence
^(	ASK+5!, DATA+1, IX!
^(0	DATA+1

Name	Field # of Occurrence
%	DIPKINI1+5, DIPKINI1+6, W+1, W+2, W+3, IX, N~
D	DIPKINI1+5!, ASK+5, DATA, DATA+1, IX, IX+1, IX+2
D0	DIPKINI1+5!, DATA+1*
DA	DIPKINI1+5!
DA(1	IX+1*
DDF	DIPKINI1+5!, DATA+2!
DDF(1	DATA*, DATA+1, DATA+2
DDT	DIPKINI1+5!, DATA+2!
DDT(0	DATA*
DFN	DATA+2!
DFR	DIPKINI1+5!, DATA+2!
DFR(1	DATA+1*
DIC	DIPKINI1+5!
>> DIDIU	ASK+2*
DIDUZ	DIPKINI1+5!
DIF	DIPKINI1+5!
>> DIFKEP	ASK+2
>> DIFKEP(	ASK+2
DIFQ	DIPKINI1+6!, W+3!
DIFQ(	ASK+5, W+3*
DIFQ(0	W
>> DIFQR(	DATA+1
DIK	DIPKINI1+5!, IX, IX+1, IX+2*
DIR	DIPKINI1+5!
>> DIU	ASK+2*
>> DIU(0	ASK+2*
DIX	DIPKINI1+5!
>> DKP	DATA+1*
DLAYGO	DIPKINI1+5!
>> DMRG	DATA+1*
>> DN	ASK+4*
>> DSEC	DIPKINI1+5*
DTN	DIPKINI1+5!, DATA+2!
DTO	DIPKINI1+5!, DATA+1*, DATA+2!
DTO(0	DATA+1*
DZ	DIPKINI1+5!
>> NO	DIPKINI1+6*
>> R	ASK+4*
U	DIPKINI1+5*, DIPKINI1+6, ASK+3, ASK+5, DATA, DATA+1, DATA+2
X	W+3, B36~
>> Y	W*, W+2
>> Z	DATA+1*

Name	Field # of Occurrence
$T(@X	W