Routine: MCARDCQ1

Package	Total	Call Graph
Kernel	1	EN1^XQH
Medicine	1	DQ^MCARDCQ

Package	Total	Caller Graph
Medicine	1	MCARDCQ

Entry Points

External References

Name	Field # of Occurrence
DQ^MCARDCQ	RCR+2
EN1^XQH	0+18

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: '^' to Quit: " Formatting: "Press <RETURN> to Continue Timeout: DTIME Variable: MCPCTY Line Location: LST+0
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13),?3 Line Location: LST+0
Function Call: READ	Prompt: '^' to Quit: " Formatting: "Press <RETURN> to Continue Timeout: DTIME Variable: MCPCTY Line Location: LST+1
Function Call: WRITE	Prompt: $C(13),$J("",15),$C(13),?3 Line Location: LST+1
Function Call: WRITE	Prompt: ?DD Line Location: L+1
Function Call: WRITE	Prompt: +$E(MCPCT,4,5)_"-" Condition for execution: $E(MCPCT,4,5) Line Location: DT+0
Function Call: WRITE	Prompt: +$E(MCPCT,6,7)_"-" Condition for execution: $E(MCPCT,6,7) Line Location: DT+0
Function Call: WRITE	Prompt: $E(MCPCT,1,3)+1700 Line Location: DT+0
Function Call: WRITE	Prompt: " ("_$E(MCPCT_0,9,10)_":"_$E(MCPCT_"000",11,12)_")" Condition for execution: MCPCT["." Line Location: DT+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>3 Line Location: 0+4
Function Call: WRITE	Prompt: ?3,"YOU MAY ENTER A NEW ",$P(DO,U,1),", IF YOU WISH" Line Location: 0+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>3 Line Location: 0+7
Function Call: WRITE	Prompt: ?3,"YOU MAY ENTER A NEW ",$P(DO,U,1),", IF YOU WISH" Line Location: 0+7
Function Call: WRITE	Prompt: !,$G(^(X,0)) Line Location: 0+31
Function Call: WRITE	Prompt: ! Condition for execution: $X Line Location: V+0
Function Call: WRITE	Prompt: ?5,"Enter one of the following:",!?7 Line Location: V+0
Function Call: WRITE	Prompt: !?5,$E(X,4,99) Line Location: T+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	W1, 0+9, 0+14, 0+16, 0+17, 0+22, 0+31, 0+42, RCR, V+1
^DIC - [#1]	0+2, V+1

Label References

Name	Line Occurrences
0	LST, L
CONT	S+5, 0+8, 0+10, 0+29, 0+31, 0+41, 0+42, RCR+3
L	L+2
LST	L+1
RCR	0+2
SCR	S+1
V	0+43
W1	W1
Y	MCARDCQ1+4, LST

Naked Globals

Name	Field # of Occurrence
^(	W1, 0+9, 0+31, V+1
^("LAYGO"	0+2
^(0	0+42, V+1
^(4	0+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D	0+43*, V+1
>> DD	LST, L+1
>> DG	0+9, T
>> DIC	MCARDCQ1+4, MCARDCQ1+5, WOV, W1+1, SCR, RCR, RCR+2
>> DIC(	RCR+1!, RCR+2!*
>> DIC("S"	S
>> DIC("V"	V+1
>> DIC("W"	MCARDCQ1+4, MCARDCQ1+5, LST
>> DIC(0	0+1, 0+13, 0+40, RCR, RCR+2*
DICS	RCR+2!
DICW	RCR+2!
DIW	L+1*, 0+1!
>> DIX	MCARDCQ1+4, L
>> DIY	MCARDCQ1+2, MCARDCQ1+4, MCARDCQ1+5*, LST, L+1
DIZ	MCARDCQ1+2, Y+1*, 0+1!
>> DJ4	0+40
>> DJCP	LST, S+6, 0+8, 0+10, 0+29, 0+31, 0+41, 0+42
>> DLAYGO	0+2
DO	MCARDCQ1+2, 0+7, 0+13, 0+40*, RCR+1!, RCR+2!
DO("SCR"	S+1, SCR
DO(2	0+2, 0+9, 0+13, 0+14, 0+16, 0+17, 0+40*, 0+42, 0+43, RCR
DS	MCARDCQ1+2, MCARDCQ1+4, MCARDCQ1+5, L+1, 0+1!, RCR, RCR+1, RCR+2
DS(1	S*, S+2
DS(2	S*, S+1, S+2
DTIME	LST, CONT+1
>> DU	0+43, V+1, V+2
DUZ(0	0+2
DZ	0+1*, 0+6, 0+15, 0+42, V+2!, T+1!
DZ(	RCR+1*, RCR+2
DZ(0	RCR*, RCR+2
DZ(1	RCR*, RCR+2
DZ(3	RCR+2!
DZ1	0+13*, 0+22, 0+31, 0+40!
DZ1(0	0+13*, 0+40
DZ1(1	0+13*, 0+40
>> MCBDIC	MCARDCQ1+4, MCARDCQ1+5
>> MCDF	MCARDCQ1+4
>> MCMASS	LST, CONT
>> MCPCT	W1, DT, 0+9
MCPCTDIC	WOV*, W1+1!
MCPCTW	W1, W1+1!
MCPCTWW	WOV*, W1+1!
MCPCTX	W1*, W1+1!
>> MCPCTY	MCARDCQ1+2, LST, L+1, WOV, W1, CONT+1, S+6, 0+1, 0+6, 0+8 , 0+10, 0+29, 0+31, 0+39, 0+41, 0+42
MCPCTZ	WOV, W1, W1+1!
U	MCARDCQ1+2, L+1, CONT+1, S+6, 0+6, 0+7, 0+8, 0+10, 0+29, 0+31 , 0+39, 0+41, 0+42, RCR, V+1
X	MCARDCQ1+2, MCARDCQ1+3, S, S+2, 0+2, 0+9, 0+30, 0+31, 0+42, RCR+1* , RCR+2, V+2!, T, T+1!
>> XQH	0+1, 0+17, 0+22
>> Y	MCARDCQ1+2, MCARDCQ1+3, WOV, W1+1, S, S+1, S+2, 0+2, 0+42, RCR+1* , RCR+2, V+1
>> Y(0	V+1*

Marked Items

Customize PDF page

Package: Medicine

Routine: MCARDCQ1

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
CONT
S
WOV
L
RCR
0	;
LST
T
W1
V
Y	;I $D(^("OS",^DD("OS"),"XY")) S DIZ=^("XY") I DIZ?1U.E S (IOX,IOY)=0 X DIZ K IOX,IOY
DT
SCR