Routine: MCARDNJ1

Package	Total	Call Graph
Medicine	6	^MCARD1 ^MCARDC (LH,LST,NXT,Q,T4,TK)^MCARDNJ N^MCARDNJ2 (,DCS,P)^MCARDNQ N^MCARDPL
VA Fileman	3	^DIE ^DIWP ^DIWW

Package	Total	Caller Graph
Medicine	2	MCARBSA MCARDNJ

Entry Points

External References

Name	Field # of Occurrence
^DIE	MCARDNJ1+2
^DIWP	WP+2
^DIWW	WP+3
^MCARD1	C
^MCARDC	K1+2
LH^MCARDNJ	T1+9
LST^MCARDNJ	K1
NXT^MCARDNJ	MCARDNJ1+6, P, T1+3, T1+4, T1+5, K1, C
Q^MCARDNJ	P+2
T4^MCARDNJ	P+2
TK^MCARDNJ	P, Q1, K1+4, LOCK+1
N^MCARDNJ2	K1+2
^MCARDNQ	Q1
DCS^MCARDNQ	K1+1
P^MCARDNQ	P
N^MCARDPL	K1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MCARDNJ1+2
Function Call: WRITE	Prompt: DJHIN Line Location: MCARDNJ1+6
Function Call: WRITE	Prompt: V(V),DJLIN Line Location: MCARDNJ1+6
Function Call: WRITE	Prompt: DJHIN Line Location: T1+4
Function Call: WRITE	Prompt: V(V),DJLIN Line Location: T1+4
Function Call: WRITE	Prompt: DJLIN Line Location: T1+6
Function Call: WRITE	Prompt: X Line Location: K1+2
Function Call: READ	Prompt: "Press <RETURN> to Continue" Formatting: ! Timeout: DTIME Variable: X Line Location: K1+3
Function Call: WRITE	Prompt: *7 Line Location: ER+0
Function Call: WRITE	Prompt: !,^(DJZ1,0) Line Location: WP+4
Function Call: READ	Timeout: DTIME Variable: DJX Line Location: CONT+0
Function Call: WRITE	Prompt: !,"Press <RETURN> to Continue, '^' to Quit: " Line Location: CONT+0
Function Call: WRITE	Prompt: ! Line Location: CONT+0
Function Call: READ	Timeout: DTIME Variable: DJX Line Location: R+0
Function Call: WRITE	Prompt: "Press <RETURN> to Continue" Line Location: R+0
Function Call: WRITE	Prompt: DJDB Line Location: EN+1
Function Call: WRITE	Prompt: DJHIN Line Location: EN+1
Function Call: WRITE	Prompt: V(DJVV) Line Location: EN+2
Function Call: WRITE	Prompt: DJLIN Line Location: EN+3
Function Call: WRITE	Prompt: "THIS ENTRY IS BEING EDITED BY ANOTHER USER. TRY LATER.",*7 Line Location: LOCK+1
Function Call: READ	Prompt: "Press <RETURN> to Continue" Formatting: ! Timeout: DTIME Variable: X Line Location: EN2+0
Function Call: WRITE	Prompt: !!,"THIS IS NOT THE FIRST SCREEN",*7 Line Location: EN2+0
Function Call: WRITE	Prompt: !,"You have a bad default variable, please check with your",!,"Data Base administrator",*7 Line Location: EN3+1
Function Call: WRITE	Prompt: DJHIN Line Location: EN3+2
Function Call: WRITE	Prompt: DJDB,DJLIN Line Location: EN3+4
Function Call: WRITE	Prompt: DJHIN Line Location: E+0
Function Call: WRITE	Prompt: V(V),DJDB,DJLIN Line Location: E+0
Routine Call	DIE Line Location: MCARDNJ1+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	O+1
^DD("DD"	MCARDNJ1+3
^MCAR(697.3 - [#697.3]	MCARDNJ1+6, P+1, T1
^TMP($J	K1!
^UTILITY($J	WP+1!, WP+4, WP+5!

Label References

Name	Line Occurrences
C	LOCK+1
CONT	WP+4, WP+5
E	EN3+1
ER	MCARDNJ1+2
K1	T1+1, T1+2
KILL	MCARDNJ1+2
LOCK	K1+5
O	MCARDNJ1+6, P+1
P	MCARDNJ1+2
Q1	MCARDNJ1+2, ER
T1	MCARDNJ1+2

Naked Globals

Name	Field # of Occurrence
^(	WP+2, WP+4
^(1	MCARDNJ1+6, P+1, T1
^(2	O+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D	MCARDNJ1+2*
>> D0	K1+5*
>> DA	MCARDNJ1+2, K1+5, WP+1
DB	KILL!
DC	KILL!
DE	KILL!
DG	KILL!
DH	KILL!
DI	KILL!
>> DIC	MCARDNJ1+2*, WP+1, LOCK+1
>> DIC("S"	MCARDNJ1+4!, K1+2*!
>> DIC("V"	K1+2!
>> DIC(0	K1+2*
>> DIE	MCARDNJ1+2*
DIWF	WP+1*, WP+5!
DIWL	WP+1*, WP+4, WP+5!
DIWR	WP+1*, WP+5!
>> DJ0	MCARDNJ1+4, WP+1
>> DJ3	MCARDNJ1+2
>> DJ4	MCARDNJ1+2, MCARDNJ1+3, MCARDNJ1+4, MCARDNJ1+6, P, P+1
>> DJAT	P+2, T1+1, T1+2, O+1
>> DJCL	R, LOCK+1
>> DJCP	MCARDNJ1+2, MCARDNJ1+6, P+1, T1, K1+2, WP+2, CONT, EN2, EN3+1
DJDB	T1+6, T1+8!, EN+1, EN+3!, EN3+2, EN3+4!, E!
DJDB(1	EN+1*
DJDB(2	EN+1*
>> DJDD	O+1
>> DJDIC	MCARDNJ1+2, WP+1, WP+2
>> DJDICS	K1+2
>> DJDN	MCARDNJ1+2, T1+1, K1, C*
>> DJDNM	K1+5*
>> DJFF	K1+3*
>> DJHIN	MCARDNJ1+6, T1+4, EN+1, EN3+2, E
>> DJJ(	MCARDNJ1+5, MCARDNJ1+6, P, P+1, T1, T1+4, T1+6, K1+4, EN+1, EN3+2 , E
DJK	MCARDNJ1+4, WP+2, WP+4*, WP+5!
>> DJLIN	MCARDNJ1+6, T1+4, T1+6, EN+3, EN3+4, E
DJLK	C!, LOCK+1*!
>> DJN	MCARDNJ1+6, P+1, T1
>> DJP	T1+2, C
DJST	K1!, K1+5*
>> DJSV	K1+3*
>> DJVV	EN+1, EN+2
>> DJX	MCARDNJ1+4, WP+1, WP+4, WP+5, CONT, R
>> DJXX	MCARDNJ1+2, MCARDNJ1+3, MCARDNJ1+4, MCARDNJ1+6, P+1, Q1, WP+1, WP+5
>> DJY	MCARDNJ1+2*, MCARDNJ1+5
DJZ1	WP+1, WP+2, WP+4*, WP+5!
DK	KILL!
DL	KILL!
DM	KILL!
DP	KILL!
DR	MCARDNJ1+2*, KILL!
DTIME	K1+3, CONT, R, EN2
DW	KILL!
>> MCASS	K1+3*
U	MCARDNJ1+4, MCARDNJ1+6, P, P+1, T1, T1+4, T1+6, K1+4, K1+5, WP+4 , WP+5, EN+1, EN3+2
>> V	MCARDNJ1+5, MCARDNJ1+6, P, P+1, P+2, T1, T1+3, T1+4, T1+5, T1+6 , K1+3*, K1+4, K1+5, O+1, EN3+2, EN3+4, E
>> V(	MCARDNJ1+5, MCARDNJ1+6, P+1, P+2, T1+3, T1+4, T1+5, K1+5, EN+2, O+1 , EN3+4*, E
>> W(	K1+5*
X	MCARDNJ1+2, MCARDNJ1+3, MCARDNJ1+4, MCARDNJ1+5, MCARDNJ1+6, P+1, Q1, T1+3, K1, K1+2 , K1+3, K1+4, K1+5, ER!, WP+1, WP+2, WP+5, EN2, O+1
>> XY	MCARDNJ1+6, P, P+1, T1, T1+4, T1+6, K1+4, C, EN+1, LOCK+1 , EN3+2, EN3+4, E
Y	MCARDNJ1+2, MCARDNJ1+3, P, K1+4, K1+5, C!, LOCK+1, O+1, EN3+1
Y(0	K1+5
>> YMLH	MCARDNJ1+6, P+1, T1*

Customize PDF page

Package: Medicine

Routine: MCARDNJ1

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
Q1
C
EN	;COMPUTE AND DISPLAY
CONT
LOCK	;LOCK GLOBAL THAN IS BEING ACCESSED BY ANOTHER USER
EN2
O	;EX OUTPUT TRANSFROM
T1
P
K1
R
KILL
EN3	;ERROR ON DIE
WP	;PRINT WORD PROCESSOR FIELD
E
ER