Routine: MCARDNJ2

Information

MCARDNJ2 ;WISC/TJK,JA-FUNCTION FOR DISPLAY ONLY ;8/22/96 15:28

Package	Total	Call Graph
Medicine	5	(,BLANK)^MCARD1 (EN2,NXT)^MCARDNJ DCS^MCARDNQ (,N)^MCARDPL $$RESPONSE^MCARDSE
VA Fileman	1	%XY^%RCR

Package	Total	Caller Graph
Medicine	2	MCARDNJ MCARDNJ1

Name	Comments	DBIA/ICR reference
RESET
NXT
SAVE
COMPUTE
D
HELP
Z	; input reader - invoked by R^MCARDNJ
M	;W V(V) W:$D(DJDB) DJDB ; ;8/31/92 14:18
REST
N
Q
OUT
LST
COMPUTE1
KILL
FUNC	;FUNCTION COMMANDS
LS1
SET
B
PREV
MOD

Name	Line Occurrences
Function Call: WRITE	Prompt: DJHIN Line Location: FUNC+1
Function Call: WRITE	Prompt: "FUNCTIONS",DJLIN Line Location: FUNC+1
Function Call: WRITE	Prompt: !!," ^ -- Quit" Line Location: FUNC+2
Function Call: WRITE	Prompt: !," N -- New record" Line Location: FUNC+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: LST+0
Function Call: WRITE	Prompt: DJDB Line Location: COMPUTE1+0
Function Call: WRITE	Prompt: DJHIN,X Condition for execution: X Line Location: COMPUTE1+0
Function Call: READ	Timeout: DTIME Variable: X#DJLG Line Location: Z+16
Function Call: WRITE	Prompt: @IOBS," ",*7 Line Location: Z+20
Function Call: WRITE	Prompt: DJHIN Line Location: Z+21
Function Call: WRITE	Prompt: DJLIN Line Location: Z+21
Function Call: READ	Prompt: "Press <RETURN> to Continue" Formatting: ! Timeout: DTIME Variable: DJX Line Location: N+0
Function Call: WRITE	Prompt: !!,*7,"Answer 'YES' or 'NO'. As a general rule, you should repaint the screen if the screen has been 'pushed up' by the word processing field" Line Location: HELP+0
Function Call: WRITE	Prompt: DJDB Line Location: M+2
Function Call: WRITE	Prompt: $E(DJDB,1,80-DX),!,$E(DJDB,80-DX+1,$L(DJDB)) Line Location: M+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(	COMPUTE1
^MCAR(697.3 - [#697.3]	FUNC+3, FUNC+5, LS1, PREV, Q

Name	Field # of Occurrence
>> %X	SAVE, REST
>> %Y	SAVE, REST
>> D0	SET, RESET, Z+8
>> D1	SET, RESET
>> DA	LS1*, SET
>> DA(1	COMPUTE1, SET
DB	KILL!
DC	KILL!
DE	KILL!
DG	KILL!, Z+7*
DH	KILL!
DI	KILL!
DIC	OUT!, Z+8
DIC("S"	Z+6!, Z+19!
DIC("V"	Z+8*
DIC(0	Z+7*
DJ0	Q+1!, OUT!, Z+8
DJ3	Q+1!, OUT!
DJ4	MOD, Q+1!
DJAT	Q+1!, OUT!
>> DJCL	LST
>> DJCP	FUNC+1
DJDB	COMPUTE1!, B, D, Z+20!, Z+21!, M+1, M+2, M+3
DJDD	OUT!, COMPUTE1
DJDIC	OUT!
>> DJDIS	MOD*
DJDN	LS1, Q+1!, OUT!
>> DJDPL	Q*
>> DJFF	LS1, LS1+1, PREV, OUT
>> DJHIN	FUNC+1, COMPUTE1, Z+21
DJJ	LST, LS1, LS1+1, PREV, OUT!
DJJ(	MOD, COMPUTE1, B, D, Z+4, Z+14
DJK	Q*, OUT!
DJKEY	OUT!
>> DJLG	Z+14*, Z+18, Z+20
>> DJLIN	FUNC+1, Z+21
DJMD0	SET*, RESET!
DJMD1	SET*, RESET!
>> DJN	FUNC+3, FUNC+5, LS1, PREV, Q*
>> DJNM	Q*
>> DJP	LST
DJQ	Q+1!, OUT!
DJSM	OUT!, Z+14, Z+19
DJSV	OUT!, N*
>> DJSW1	MOD*
>> DJW1	Q+1
>> DJX	N*
>> DJXX	Z+9*
>> DJY	LS1
>> DJZ	Z+18*, Z+19
DK	KILL!
DL	KILL!
DM	KILL!
DP	KILL!
DR	KILL!
DTIME	LST, N
DW	KILL!
DX	OUT!, Z+18, M+3
DY	OUT!, Z+18
>> IOBS	Z+20
U	LST, LS1, LS1+1, MOD, PREV, Q, COMPUTE1
V	LS1, MOD, Q+1!, OUT!, SAVE!, REST!, COMPUTE1, B, D, Z+4 , Z+14, Z+20, Z+21, N, M+1
V(	COMPUTE1, B, Z+20, Z+21*, M+1
>> W(	LS1*
>> X	LST, LS1, LS1+1, LS1+2, MOD, COMPUTE1, Z+4, Z+5, Z+14, Z+18 , Z+19*, Z+20, Z+21
>> XY	FUNC+1, COMPUTE1, Z+20, Z+21
>> Y	Z+9*