Routine: MCARE

Package	Total	Call Graph
Medicine	7	EN4^MCARATVE EN^MCARD DATE^MCAREH (IN,OUT)^MCEO BACKSS^MCESEDT ($$ESTONUM,$$PREEDIT,ESRC)^MCESSCR $$RACECDE^MCPFTSS
VA Fileman	3	(,IX)^DIC FILE^DIE $$GET1^DIQ
Registration	1	(DEM,KVAR)^VADPT

Package	Total	Caller Graph
Medicine	26	MCARGD MCARGE MCARGES MCBSCATH MCBSECG MCBSECHO MCBSEP MCBSETT MCBSHEM MCBSHOLTER MCBSNONENDO MCBSPFT MCEF MCENV00 MCESCONV MCFSCATH MCFSECG MCFSECHO MCFSEP MCFSETT MCFSHEM MCFSHOLTER MCFSNONENDO MCFSPFT MCPFTE MCPFTI

Entry Points

Name	Comments	DBIA/ICR reference
HELP
EXISTS	;
MCEPROC	; Get the required variables from the PROCEDURE/SUBSPECIALTY file
EDIT
BACK	; If the record is superseded, the user will be allow to edit the superseded record.
MCPROP(MCPROP)	;
ECGCH	;S:$D(^MCAR(691.5,DJDN,"A")) DJSC="MCARECGA" Q
EXIT	;
ENTER	;ENTER NEW CARDIAC PROCEDURES (SCREEN HANDLER)
DATE	;SELECT PROCEDURE DATE
CENTER(TEXT,MGN)	;

External References

Name	Field # of Occurrence
^DIC	DATE+4, EDIT+5
IX^DIC	EDIT+11
FILE^DIE	EXISTS+19
$$GET1^DIQ	EXISTS+16
EN4^MCARATVE	EXISTS+13
EN^MCARD	EXISTS+10, EDIT+12
DATE^MCAREH	DATE+3
IN^MCEO	EXISTS+8, EDIT+12
OUT^MCEO	EXISTS+12, EDIT+12
BACKSS^MCESEDT	EXISTS+10
$$ESTONUM^MCESSCR	EXISTS+5
$$PREEDIT^MCESSCR	DATE+1
ESRC^MCESSCR	EXISTS+4, EXISTS+5, EXISTS+14
$$RACECDE^MCPFTSS	EXISTS+3
DEM^VADPT	EDIT+9
KVAR^VADPT	EXIT+1, EDIT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ENTER A NEW PROCEDURE DATE" Line Location: HELP+0
Function Call: WRITE	Prompt: !,MCARDE," PROCEDURES" Line Location: EDIT+6
Function Call: WRITE	Prompt: $J("",MGN-$L(TEXT)/2),TEXT Line Location: CENTER+1
Routine Call	DIC Line Location: DATE+4 EDIT+5
Routine Call	DIE Line Location: EXISTS+19
Routine Call	DIC Line Location: EDIT+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^MCAR(690 - [#690]	Classic Fileman Calls
^MCAR(700 - [#700]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EXISTS+11
^DD(	MCEPROC+12
^DIC - [#1]	ENTER+3, MCEPROC+16
^MCAR(	EXISTS+4, EXISTS+10, EXISTS+13
^MCAR(697.2 - [#697.2]	ENTER+6, EDIT+10, MCEPROC+6, MCEPROC+7, MCPROP+3
^XUSEC(	MCEPROC+10

Label References

Name	Line Occurrences
@(	EXISTS+11
BACK	EXISTS+4, EXISTS+5
DATE	HELP
ECGCH	EDIT+12
EXISTS	DATE+6, BACK+2
EXIT	HELP, EDIT+5, EDIT+12, EDIT+13
MCEPROC	ENTER+2

Naked Globals

Name	Field # of Occurrence
^(0	EDIT+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT+4!, EXIT+6!
%H	EXIT+4!
%T	EXIT+5!
%X	EXIT+4!
%Y	EXIT+4!
%Y1	EXIT+4!
%Y2	EXIT+4!
C	EXIT+7!
CD	EXIT+7!
CNT	MCPROP+1~, MCPROP+3*
D	EDIT+10*, EDIT+12!
D0	EXIT+4!
D1	EXIT+4!
D2	EXIT+4!
DA	EXIT+6!, BACK+1*
DFN	EXIT+3!, EXIT+6!, EXISTS+1, EXISTS+3, EDIT+8
DI	EXIT+4!
DIC	ENTER+3, ENTER+5, DATE+4!, EXIT+2!, EXIT+6!, BACK+1!, EDIT+5, EDIT+10, EDIT+12, MCEPROC+16
DIC("DR"	MCEPROC+11, MCEPROC+15*
DIC("S"	DATE+1, EDIT+4, EDIT+10, EDIT+12!, MCEPROC+19
DIC("W"	EDIT+10*, EDIT+12!
DIC(0	ENTER+5, EDIT+5, EDIT+11, MCEPROC+16
DIDEL	ENTER+5, EXIT+3!, EXIT+9!, EXISTS+12!, EDIT+10, MCEPROC+16*
DIE	EXIT+2!, EXIT+6!
DIH	EXIT+7!
DIK	EXIT+6!
DIPGM	EXIT+5!
DIR	EXIT+7!
DIROUT	BACK+1!
DIU	EXIT+7!
DIV	EXIT+7!
DIW	EXIT+4!
DIWI	EXIT+4!
DIWT	EXIT+4!
DIWTC	EXIT+4!
DIWX	EXIT+4!
DIZ	EXIT+4!
DJDN	EXIT+2!, EXISTS+2, EXISTS+7, EDIT+12
DJSC	ENTER+4, EXIT+2!, EDIT+10
DJVV	EXIT+5!
DLAYGO	ENTER+5, DATE+4!, EXIT+3!, MCEPROC+16
DN	EXIT+4!
DQ	EXIT+4!
DR	EXIT+2!, EXIT+6!
DTOUT	EXIT+5!, EXIT+9!, EXISTS+9, BACK+1!, EDIT+12
DUOUT	EXIT+5!, EXIT+9!, EXISTS+9, BACK+1!, EDIT+12
DUZ	MCEPROC+10, MCEPROC+15
DW1	EXIT+5!
DX	EXIT+7!
DZ	EXIT+7!
EXIT	EXIT+9!
I	EXIT+5!
ID	MCEPROC+1~, MCEPROC+11, MCEPROC+12*, MCEPROC+13, MCEPROC+14
ID2	EXIT+5!, MCEPROC+1~, MCEPROC+14, MCEPROC+15
ID3	MCEPROC+1~, MCEPROC+11*, MCEPROC+14
ID4	MCEPROC+1~, MCEPROC+13*, MCEPROC+14
ID5	MCEPROC+1~, MCEPROC+13*, MCEPROC+14
J	EXIT+5!
MCARAPDT	EXIT+7!
MCARCDIE	EXIT+7!
MCARCK	EXIT+10!
MCARCODE	EXIT+6!, MCEPROC+18*
MCARDA	EXIT+10!
MCARDE	EXIT+3!, EXIT+10!, EXIT+12!, EDIT+6, MCEPROC+8*
MCARFIND	EXIT+7!
MCARGDA	EXIT+2!, EXISTS+2, EXISTS+4, EXISTS+5, EXISTS+10, EXISTS+13, EXISTS+14, EXISTS+16, EXISTS+18, EDIT+12
MCARGNAM	ENTER+6, EXIT+6!, MCEPROC+6
MCARGNUM	ENTER+3, EXIT+2!, EXIT+6!, EDIT+2, MCEPROC+6*
MCARI	EXIT+8!
MCARLK	EDIT+2, EDIT+3, EDIT+5!
MCARNM	EXIT+3!, EDIT+9*, EDIT+11
MCARNP	EXIT+9!
MCARNUM	EXIT+3!
MCAROLDT	EXIT+7!
MCARP	ENTER+3, ENTER+6, EXIT+2!, EXIT+10!, EXIT+12!, EDIT+2, EDIT+10, MCEPROC+6, MCEPROC+7
MCARPT	EXIT+2!, EDIT+8*
MCARTOT	EXIT+9!
>> MCARZDN	EXISTS+7, EDIT+12
MCBACK	EXIT+9!, EXISTS+4, EXISTS+5, EXISTS+10!
MCBOUGIE	EXIT+8!
>> MCBS	EDIT+10
MCDFLAG	EXIT+8!
>> MCEPROC	ENTER+4, MCEPROC+20, MCEPROC+21, MCEPROC+22
MCESCUR	EXIT+10!
MCESFL	EXIT+9!
MCESKEY	EXIT+10!, EXIT+12!, MCEPROC+9*, MCEPROC+10
MCESON	DATE+1, EXIT+10!, EXIT+12!, EXISTS+4, EXISTS+5, MCEPROC+9*, MCEPROC+10
MCESPED	EXIT+11!
MCESPREV	EXIT+9!
MCESS	EXIT+5!, EXIT+11!, EXIT+12!, MCEPROC+7*
MCESSEC	EXIT+11!, MCEPROC+10*
MCESTEMP	EXIT+10!
MCFDA	EXISTS+17~
MCFDA(700	EXISTS+18*
MCFILE	ENTER+3, DATE+1, EXIT+3!, EXIT+11!, EXISTS+3, EXISTS+4, EXISTS+5, EXISTS+7, EXISTS+10, EXISTS+13 , EXISTS+14, EDIT+2, EDIT+10, MCEPROC+8, MCEPROC+12, MCEPROC+16, MCEPROC+17, MCEPROC+22
MCFILE1	EXIT+11!
MCGTUBE	EXIT+8!
MCHEATP	EXIT+8!
MCJTUBE	EXIT+8!
MCORCK	EXIT+6!
MCPATFLD	EXIT+11!, MCEPROC+9*
MCPCT	EXIT+12!
MCPCTY	EXIT+12!
MCPOSTP	EXIT+11!, EXISTS+11, MCEPROC+22*
>> MCPRO	MCEPROC+6, MCEPROC+18, MCEPROC+20
MCPROP	MCPROP~, MCPROP+2, MCPROP+3
MCRACE	EXIT+3!, EXISTS+3*!, EXISTS+15
MCROUT	EXIT+11!, MCEPROC+8*
MCSEX	EXIT+3!
MCSPHIN	EXIT+8!
MCSTENT	EXIT+8!
MCX	EXIT+6!
MCY	BACK+1!
MCY(0	BACK+1
MGN	CENTER~, CENTER+1
OPTION	MCEPROC+1~, MCEPROC+7*, MCEPROC+20, MCEPROC+21
POP	EXIT+12!
PREFIX	MCPROP+1~, MCPROP+2*, MCPROP+3
S	EXIT+7!
SSN	EXIT+6!
TEMP	MCEPROC+1~, MCEPROC+7*, MCEPROC+8, MCEPROC+9, MCEPROC+21, MCPROP+1~, MCPROP+4
TEP	EXIT+12!
TEXT	CENTER~, CENTER+1
U	ENTER+6, EXISTS+1, EXISTS+2, HELP, EDIT+3, EDIT+10, EDIT+12, MCEPROC+7, MCEPROC+8, MCEPROC+9 , MCEPROC+21
>> USEREND	ENTER+4*
VA	EXIT+5!
>> VADM(1	EDIT+9
X	EXIT+2!, EXISTS+11, HELP, EDIT+11
X1	EXIT+5!
>> XQY0	MCEPROC+7
XX	EXIT+7!
Y	DATE+6, EXIT+2!, EXIT+5!, EXISTS+2, BACK+1*, EDIT+5, EDIT+8, EDIT+12
Y(0	EXISTS+1, BACK+1*
Z	EXIT+5!

Customize PDF page

Package: Medicine

Routine: MCARE

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 26

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: