Routine: MCARDCN1

Package	Total	Call Graph
Medicine	3	(A,Q)^MCARDC BAD^MCARDC1 (D,F1,F2,IX,LOCK)^MCARDCN
VA Fileman	2	^DIE ^DIK

Package

Total

Call Graph

(A,Q)^MCARDC BAD^MCARDC1 (D,F1,F2,IX,LOCK)^MCARDCN

^DIE ^DIK

Package	Total	Caller Graph
Medicine	1	MCARDCN

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"SORRY! A VALUE FOR '"_$P(^(0),U,1)_"' MUST BE ENTERED," Line Location: MCARDCN1+8
Function Call: WRITE	Prompt: !?6,"BUT YOU DON'T HAVE 'WRITE ACCESS' FOR THIS FIELD" Line Location: MCARDCN1+9
Function Call: WRITE	Prompt: !?6,"<'",*7,$P(@(DIK_"DA,0)"),U,1),"' DELETED>" Line Location: ZAP+0
Function Call: READ	Timeout: DTIME Variable: Y Line Location: NUM+3
Function Call: WRITE	Prompt: !?3,$P(DO,U,1)_" "_$P(^DD(+Y,.001,0),U,1),": " Line Location: NUM+3
Function Call: WRITE	Prompt: X,"// " Condition for execution: X Line Location: NUM+3
Function Call: WRITE	Prompt: *7 Line Location: NUM+3
Function Call: WRITE	Prompt: *7,"??" Line Location: NUM+5
Function Call: WRITE	Prompt: !,^(3) Condition for execution: $D(^DD(+DO(2),.001,3)) Line Location: NUM+5
Routine Call	DIE Line Location: RCR+2

Name	Line Occurrences (* Changed, ! Killed)
^DD(	MCARDCN1+6, CKID, RIX+2, NUM+2, NUM+3, NUM+4, NUM+5, N
^DD("SITE"	NUM+1
^TMP("MCARDRCR"	CALL+1, G+2, INIT, INIT+1

Name	Field # of Occurrence
>> D	BAD
>> D0	NUM+4
>> DA	BAD*, RCR+2
>> DD	MCARDCN1+5, MCARDCN1+6, CKID+1*, RCR+1, NUM+1
DE	RCR+1!
DG	RCR+1!
DIC	RCR+1!, D, NUM+1, N
DIC("DR"	MCARDCN1+5
DICRS	MCARDCN1+2!
>> DIE	RCR+1, ZAP, D
>> DIE("NO^"	RCR+1, RCR+2*!
>> DIE("W"	RCR+1*, RCR+2!
DIK	ZAP*!
>> DIY	NUM+2
DO	MCARDCN1+4, BAD+1!, RCR+1!, NUM+3, N
DO(1	BAD
DO(2	MCARDCN1+6, CKID, RIX+2, NUM+5
DQ	RCR+1!
DR	RCR+1!*
DTIME	NUM+3
>> DTOUT	NUM+3*
DUZ(0	CKID
>> DZ	MCARDCN1+4, RCR+1, RIX+2, RR
MCARDJA	MCARDJXY+1, N1, N1+2, N1+3, N1+4, DOWN*, Q1!
MCARDJB	S, N1, N1+1, N1+2, N1+5, N1+6, DOWN, Q1!
MCARDJC	N1+1, N1+5, Q1!
MCARDJC(	N1, N1+1, N1+2
MCARDJC(0	MCARDJXY+1*
MCARDJD	O, O+1, O+2, CALL+1, G, G+2!, G+3, G+5, G+6, INIT+1
MCARDJE	O+1, CALL, CALL+1, G, G+2!, INIT+1*
MCARDJX	O+2, CALL!, CALL+1, G+2!, N1, N1+3, N1+4
MCARDJY	CALL!, G+2!, G+6, N1+3, INIT+1
MCARDJZ	MCARDJXY+1, N1, N1+1, N1+2, DOWN*, Q1!
MCARDRCR	MCARDCN1+2!, MCARDCN1+10, MCARDCN1+15, RIX+1!, RIX+2*, CALL!
MCARDRCR(	MCARDCN1+3, RIX+1, O
MCARDRCR("DIE(""NO^"")"	RCR+1*
MCPCT	MCARDCN1+6, CKID!, RIX+1, NUM+2
>> MCPCTY	NUM+2*
U	MCARDCN1+4, MCARDCN1+8, CKID, ZAP, NUM+2, NUM+3, NUM+4, NUM+5, N
X	NUM+1, NUM+2, NUM+3, NUM+5*, N, N+1!
Y	MCARDCN1+2!, MCARDCN1+3, MCARDCN1+6, MCARDCN1+15, BAD!, CKID, CKID+1, RCR+3, NUM+2, NUM+3 , NUM+4, NUM+5
Y(0	RCR+2, ZAP

Information