Routine: MCARGD

Package	Total	Call Graph
Medicine	7	MCEPROC^MCARE BACK^MCARGE (ORDER,ORDER1)^MCARGEO POST^MCESEDT ($$ESTONUM,$$PREEDIT,ESRC)^MCESSCR QTASK^MCPARAM ^MCWORKLD
VA Fileman	3	^DIC ^DIE ^DIR

Package

Total

Call Graph

MCEPROC^MCARE BACK^MCARGE (ORDER,ORDER1)^MCARGEO POST^MCESEDT ($$ESTONUM,$$PREEDIT,ESRC)^MCESSCR QTASK^MCPARAM ^MCWORKLD

VA Fileman

^DIC ^DIE ^DIR

Package	Total	Caller Graph
Medicine	4	MCARGE MCARGES MCARGIDIAG MCARPULMDIAG

Package

Total

Caller Graph

Medicine

MCARGE MCARGES MCARGIDIAG MCARPULMDIAG

External References

Name	Field # of Occurrence
^DIC	DPT+7
^DIE	PRIM2, COM+2, REV+1, EDIT, SECSET1
^DIR	PRIM+3
MCEPROC^MCARE	DPT+2
BACK^MCARGE	DPT+11
ORDER^MCARGEO	DPT+13
ORDER1^MCARGEO	DPT+14
POST^MCESEDT	DPT+15
$$ESTONUM^MCESSCR	DPT+10
$$PREEDIT^MCESSCR	DPT+5
ESRC^MCESSCR	DPT+10
QTASK^MCPARAM	DPT+14
^MCWORKLD	DPT+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Condition for execution: $D(MCDFLAG) Line Location: PROC+0
Function Call: WRITE	Prompt: !!?33,"DIAGNOSIS ENTRY",!?33,"--------------",!! Line Location: PROC+0
Function Call: READ	Timeout: DTIME Variable: Z Line Location: PRIM1+0
Function Call: WRITE	Prompt: !,*7,"Enter Number of Diagnosis That You Wish to Use as Primary Diagnosis",!,"Hit Return if you do not wish to enter any of above" Line Location: PRIM1+1
Function Call: WRITE	Prompt: *7," ??" Line Location: PRIM1+2
Function Call: WRITE	Prompt: !,$P(^MCAR(697.5,X,0),U) Line Location: PRIM2+0
Function Call: WRITE	Prompt: !!,"Enter Number of Secondary Diagnosis or 'ALL' to enter all: " Line Location: SEC+1
Function Call: READ	Timeout: DTIME Variable: Z Line Location: SEC+2
Function Call: WRITE	Prompt: !,*7,"Enter Number of Diagnosis from above list or enter 'ALL' for All Diagnoses to be entered as a secondary diagnosis." Line Location: SEC+3
Function Call: WRITE	Prompt: *7," ??" Line Location: SEC+4
Function Call: WRITE	Prompt: !,X Line Location: SECSET1+0
Function Call: WRITE	Prompt: !!,"Possible ",MCARTY," Diagnoses are: " Condition for execution: J=1 Line Location: LIST+0
Function Call: WRITE	Prompt: !,J,". ",$P(^MCAR(697.5,K,0),U) Line Location: LIST+0
Function Call: WRITE	Prompt: " **ENTERED**" Line Location: ENTERED+0
Routine Call	DIE Line Location: PRIM2 COM+2 REV+1 EDIT SECSET1
Routine Call	DIC Line Location: DPT+7
Routine Call	DIR Line Location: PRIM+3

FileNo	Call Tags
^MCAR(699 - [#699]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^MCAR(	DPT+15
^MCAR(697.2 - [#697.2]	DPT+12
^MCAR(697.5 - [#697.5]	PRIM2, SECSET, LIST
^MCAR(699 - [#699]	PROC, REV, SECSET, SECSET+1, SECSET+2, SECSET+3*, ARR+1, CHECK, CHECK+1, ENTERED , EN1+2, EN1+3!, EN1+4

Label References

Name	Line Occurrences
ARR	PROC+1, SEC
CHECK	ARR+1
COM	PROC+1, SEC, SEC+2, SEC+3
EDIT	PROC
ENTERED	LIST
EXIT	MCARGD+2, PRIM+4, PRIM1, PRIM2, SEC+2, SEC+5, COM+2, REV, REV+1, EDIT , DPT+8, DPT+10, DPT+13
LIST	ARR+1
PRIM1	PRIM, PRIM1+1, PRIM1+2
PRIM2	PRIM+6
PROC	DPT+14
SEC	PRIM+4, PRIM1+2, SEC+4, SEC+5, EDIT+1
SECSET	SEC+2, SEC+5
SECSET1	SECSET+1

Name	Field # of Occurrence
^(	SECSET+1, ARR+1
^(0	SECSET+3, ARR+1, EN1+4
^(204	CHECK+1
^(27	SECSET*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+1!
%Y	EXIT+1!
%Y1	EXIT+1!
%Y2	EXIT+1!
A	ARR!, EXIT+1!
A(	LIST*
C	EXIT+1!
D	EXIT+1!
D0	EXIT+1!
DA	PROC, COM!, SECSET+1, SECSET+2, SECSET+3, EXIT+1!
DA(1	SECSET*, EN1+2, EN1+3, EN1+4
>> DFN	DPT+12*
DI	EXIT+1!
DIC	PROC, COM!, SECSET!, DPT+3, EXIT+1!
DIC("A"	DPT+6*, DPT+7!
DIC("S"	DPT+4, DPT+5, DPT+7!
DIC(0	DPT+3*
DIE	PROC, COM!, SECSET!*, EXIT+1!
DIPGM	EXIT+1!
>> DIR("A"	PRIM+1*
>> DIR("B"	PRIM+2*
>> DIR(0	PRIM+2*
>> DIRUT	PRIM+4
DQ	EXIT+1!
DR	PRIM2, SEC!, COM!, REV+1!, EDIT, SECSET!, SECSET+1, SECSET+2, EXIT+1!
DTIME	PRIM1, SEC+2
>> DTOUT	MCARGD+2, PRIM2, SEC+5, COM+2, EDIT, DPT+13
>> DUOUT	MCARGD+2, DPT+13
I	ARR+1, EXIT+1!, EN1+1~, EN1+2, EN1+3, EN1+4*
IOF	PROC
J	PRIM, PRIM1, ARR, LIST, EXIT+1!, EN1+1~, EN1+4*
K	ARR+1*, CHECK+1, LIST, ENTERED, EXIT+1!
MCARCODE	DPT+1, EXIT+1!
MCARGDA	PROC, COM, REV, SECSET, SECSET+1, SECSET+2, SECSET+3, ARR+1, CHECK, CHECK+1 , ENTERED, DPT+9, DPT+10, DPT+12, DPT+15, DPT+16!
>> MCARGNAM	DPT+12*
MCARGNON	DPT+16!
MCARGNUM	DPT+9, DPT+12, DPT+16!
MCARTY	PROC, SEC, LIST, EXIT+1!
>> MCBACK	DPT+10, DPT+11
>> MCDFLAG	PROC
>> MCESON	DPT+5, DPT+10
MCFILE	DPT+3, DPT+5, DPT+9, DPT+10, DPT+15, DPT+16!
>> MCPRO	DPT+1*
MCPROV	EXIT+1!
U	PRIM1, PRIM2, SEC+2, SECSET, SECSET+3, ARR+1, LIST, DPT+9, DPT+12, DPT+15 , EN1+4
UNSIGNED	DPT+15*, DPT+16!
V	PROC+1, SEC, ARR!, EXIT+1!
V(	PRIM1+2, PRIM2, SEC+2, SEC+4, SECSET, SECSET+1, SECSET+2, LIST*
X	PRIM2, SECSET, SECSET1, EXIT+1!, EN1+2, EN1+3
Y	PRIM+4, PRIM2, SEC+5, COM+2, EDIT, DPT+8, DPT+9, DPT+12, EXIT+1!
Y(0	DPT+9, DPT+12
Z	PRIM+5, PRIM1, PRIM1+1, PRIM1+2, PRIM2, SEC+2*, SEC+3, SEC+4, SEC+5, EXIT+1!
ZI	SEC+2, SEC+3!, SEC+5!, SECSET, SECSET+1, SECSET+2, EXIT+1!

Customize PDF page

Package: Medicine

Routine: MCARGD

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LIST
ARR
DPT	;
PRIM
SECSET
EDIT
PROC
REV
EXIT	;
EN1	;CALLED BY X-REF TO DELETE SECONDARY DIAGNOSIS WHEN IMPRESSION IS DELETED
SEC
SECSET1
PRIM2
PRIM1
ENTERED
COM
CHECK