Routine: MCARDNJ

Package	Total	Call Graph
Medicine	10	^MCARD1 FUNC^MCARDBL START^MCARDHLP ^MCARDML (,EN2,EN3,K1,T1,WP)^MCARDNJ1 (,COMPUTE,N,Z)^MCARDNJ2 ^MCARDNK ^MCARDNQ FUNC^MCARDNQ2 (,N)^MCARDPL
VA Fileman	2	%XY^%RCR ^DIE

Package

Total

Call Graph

^MCARD1 FUNC^MCARDBL START^MCARDHLP ^MCARDML (,EN2,EN3,K1,T1,WP)^MCARDNJ1 (,COMPUTE,N,Z)^MCARDNJ2 ^MCARDNK ^MCARDNQ
FUNC^MCARDNQ2 (,N)^MCARDPL

VA Fileman

%XY^%RCR ^DIE

Package	Total	Caller Graph
Medicine	5	MCARD MCARDBL MCARDML MCARDNJ1 MCARDNJ2

Package

Total

Caller Graph

Medicine

MCARD MCARDBL MCARDML MCARDNJ1 MCARDNJ2

External References

Name	Field # of Occurrence
%XY^%RCR	SAVE, REST
^DIE	TK+3, TK+8
^MCARD1	LS1
FUNC^MCARDBL	R+4
START^MCARDHLP	TK
^MCARDML	RETURN+2
^MCARDNJ1	EN3+4
EN2^MCARDNJ1	MCARDNJ+3
EN3^MCARDNJ1	TK+3, TK+8
K1^MCARDNJ1	EN3+1
T1^MCARDNJ1	EN3
WP^MCARDNJ1	TK+4
^MCARDNJ2	LST
COMPUTE^MCARDNJ2	NXT+3
N^MCARDNJ2	TK+3
Z^MCARDNJ2	R+1
^MCARDNK	EN3+3
^MCARDNQ	Q1
FUNC^MCARDNQ2	EN2+2
^MCARDPL	EN+2, Q+1
N^MCARDPL	P, LS1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7 Line Location: EN3+2
Function Call: WRITE	Prompt: DJHIN Line Location: H1+0
Function Call: WRITE	Prompt: DJDB Line Location: H1+1
Function Call: WRITE	Prompt: $E(DJDB,1,80-DX),!,$E(DJDB,80-DX+1,$L(DJDB)) Line Location: H1+2
Function Call: WRITE	Prompt: DJLIN Line Location: H1+3
Function Call: WRITE	Prompt: X Line Location: H2+0
Function Call: WRITE	Prompt: DJHIN Line Location: H2+0
Function Call: WRITE	Prompt: V(V) Line Location: H2+1
Function Call: WRITE	Prompt: $E(V(V),1,80-DX),!,$E(V(V),80-DX+1,$L(V(V))) Line Location: H2+2
Function Call: WRITE	Prompt: DJHIN Line Location: LH+0
Function Call: WRITE	Prompt: "DATA REQUIRED",DJLIN,*7 Line Location: LH+0
Function Call: WRITE	Prompt: DJHIN Line Location: U+0
Function Call: WRITE	Prompt: K Line Location: U+0
Function Call: WRITE	Prompt: *7,"Number is out of range or field is read only or computed." Line Location: T5+2
Function Call: WRITE	Prompt: *7 Line Location: LS1+4
Function Call: WRITE	Prompt: X Line Location: W+1
Function Call: WRITE	Prompt: $E(X,1,80-DX),!,$E(X,80-DX+1,$L(X)) Line Location: W+2
Routine Call	DIE Line Location: TK+3 TK+8

Name	Line Occurrences (* Changed, ! Killed)
^DD(	TK
^MCAR(697.3 - [#697.3]	TK+6, TK+7, TK+8, P, Q, LS1
^TMP($J	NXT+1, EN3+3

Label References

Name	Line Occurrences
EN2	TK+2, NX, P, Q+1, LS1
H1	HL
H2	HL
HL	R+1
LH	TK+2
LS	R+3, LS1+4
LS1	R+3, T5
LST	NXT+3, TK+5
NX	T5, NX
NXT	NXT+3, TK+2, TK+3, TK+4, TK+7, T5+1, T5+2, NX, NX+1
OUT	RETURN, EN3, LS1
P	LS1+2
Q	T3+1, LS, LS1+1
Q1	R+2, EN3+1, NX+1
R	Q1
REST	P
SAVE	LS1
T3	EN3+3
T4	RETURN, EN3, EN3+1, T3+1
T5	T4+2, T4+5
TK	EN+2, NXT+3, R+3, RETURN, EN3+2, EN3+3, LH, T4+1, P, LS1+3
U	EN3+1
W	EN3, H2, T4+4, T4+7, U

Name	Field # of Occurrence
^(2	TK+7
^(3	TK+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %X	SAVE, REST
>> %Y	SAVE, REST
>> DA	TK+3, TK+8, LS1*
DB	KILL!
DIC	TK+3, TK+8, OUT!
DIC("S"	T5+1!
>> DIE	TK+3, TK+8
DJ0	TK, NX, Q+1!, OUT!
DJ3	TK*, TK+3, Q+1!, OUT!
DJ4	TK*, TK+1, TK+3, TK+4, R+2, LH, Q+1!
DJAT	NXT+1, TK*, TK+2, TK+8, R+2, RETURN, EN3, EN3+1, EN3+3, T3+1 , Q+1!, OUT!
>> DJCL	LH, T5+2, LS
>> DJCP	TK+3
DJDB	EN3!, H1, H1+1, H1+2, H1+3!, H2, H2+3!, T4+3, T4+4!, T4+6* , T4+7!, U*!
DJDD	TK, OUT!
DJDIC	OUT!
>> DJDIS	TK+3, TK+4, TK+5, RETURN+1*, LST
DJDN	MCARDNJ+2!, MCARDNJ+3, EN+1, NXT+3, TK+3, TK+5, TK+8, R+3, RETURN, EN3 , EN3+1, T4+1, T5, Q+1!, OUT!, LS1
>> DJDPL	MCARDNJ+5, EN+2, Q
>> DJF	EN2+3
>> DJFF	P, OUT, LS1, LS1+1
DJFLAG	NXT+4!
>> DJHIN	H1, H2, LH, U
DJJ	MCARDNJ+3, R+3, T5, P, OUT!, LS1, LS1+1
DJJ(	NXT+2, NXT+3, TK, TK+2, TK+3, TK+4, TK+7, EN3, Q1, H1 , H2, LH, T4+1, T4+3, T4+6, U, T5+1, NX
DJK	Q*, OUT!
DJKEY	EN+1, OUT!
>> DJLIN	H1+3, LH, T4+4, T4+7
>> DJMU	EN+2, TK, TK+1*, RETURN+2
>> DJN	TK+6, TK+7, TK+8, P, Q, LS1*
>> DJNM	EN+2, Q*
DJNX	EN+1*, NXT+2, TK!, TK+7, R+1
>> DJP	EN+2*, LS
DJQ	EN+2*, Q+1!, OUT!
DJSM	RETURN, EN3, OUT!
>> DJST	NXT+1, EN3+3
DJSV	OUT!
DJSW1	RETURN+1!
>> DJW1	Q+1
>> DJXX	R+3, RETURN, EN3+1
>> DJY	T5+1*, LS1
DO	OUT!
>> DR	TK+3, TK+8
DX	H1+2, H2+2, OUT!, W+2
DY	OUT!
MCDID	EN2+1!, TK+3!, TK+4!
>> MCHELPSW	EN2+2
MCMASS	EN2+1, TK+3, TK+4*, OUT!
U	MCARDNJ+3, NXT+3, TK, TK+3, TK+4, TK+7, R+3, R+4, RETURN, Q1 , LH, T4+1, U, T5, T5+1, NX, P, Q, LS1, LS1+1
V	EN2+3, NXT+1, NXT+2, NXT+3, NXT+4, TK, TK+2, TK+3, TK+4, TK+6 , TK+7, TK+8, R+2, EN3, T3, T3+1, Q1, HL, H1, H2 , H2+1, H2+2, LH, T4+1, T4+2, T4+3, T4+5, T4+6, U, T5+1 , T5+2, NX, Q+1!, OUT!, LS1, SAVE!, REST!
V(	NXT+1, TK+8, R+2, T3, T3+1, HL, H2*, H2+1, H2+2, T4+2 , T4+5, U
>> W(	LS1*
X	R+2, R+3, R+4, RETURN, EN3, EN3+1, EN3+2, EN3+3, T3, T5 , T5+1, NX, NX+1, LST*, LS, LS1, LS1+1, LS1+2, W~, W+1 , W+2
>> XY	TK+2, TK+7, EN3, Q1, H1, H1+3, H2, H2+3, LH, T4+1 , U
>> Y	TK+3
>> Y(0	H2, H2+3!
>> YMLH	TK+6*, TK+7, TK+8

Customize PDF page

Package: Medicine

Routine: MCARDNJ

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1
RETURN
KILL
HL
EN2	;
LH
NX
LST
EN3
LS
TK
NXT	;
EN	;
T4	;
T5
T3
REST
Q
P
R	; get input from user
U
LS1
SAVE
H2
H1
W(X)	;WRITE OUT A FIELD
OUT