Routine: MCARGE

Information

MCARGE ;WISC/TJK-GI ENTER/EDIT ;5/8/96 14:29

Source Information

Source file <MCARGE.m>

Call Graph

Call Graph Total: 17

Package	Total	Call Graph
Medicine	9	(EXIT,MCEPROC)^MCARE DATE^MCAREH ^MCARGD ^MCARGEA (ORDER,ORDER1)^MCARGEO (IN,OUT)^MCEO BACKSS^MCESEDT ($$ESTONUM,$$PREEDIT,ESRC)^MCESSCR QTASK^MCPARAM
VA Fileman	6	^DIC ^DIE ^DIK EN^DIQ EN^DIQ1 ^DIR
Adverse Reaction Tracking	1	EN2^GMRAPEM0
Registration	1	DEM^VADPT

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Medicine	10	MCARGD MCARGES MCARGICONSULTBRIEF MCARGICONSULTEDIT MCARPCE MCBLGI MCBLPULM MCFLGI MCFLPULM MCRH1

Entry Points

Name	Comments	DBIA/ICR reference
HIST	;Lets look at the history
DPT	;ALSO CALLED FROM MCARGES
HELP	;DISPLAY CHOOSABLE ANATOMY LOCATIONS-CALLED BY FINDINGS,ATRIAL STUDY,VENTRICULAR STUDY FILES
EDITDEMO	;lets edit the demo and allergy using the line editor
EDIT	;Lets edit Endoscopy
DEMO	;Lets display the demo information ask if they want to edit ; ------------------- ; SSN = External Format of the patients SSN ; -------------------
HIST2	;Lets display allergy and ask the question
BACK
HIST1	;Lets look at some more history
EDIT1	; Lets edit Non-Endo
START	;EDIT ENDSCOPY
PREEDT	; Allow editing of demo and allergy
EXIT	;Lets leave
CONSULT
DPTNON	;
SETVAR	;Set Pulmonary variables

External References

Name	Field # of Occurrence
^DIC	CONSULT+1, DPT+6, DPTNON+5
^DIE	EDIT1+2, CONSULT+5, EDITDEMO+1
^DIK	CONSULT+3, DPT+11, DPTNON+9
EN^DIQ	HIST+3
EN^DIQ1	HIST1+1
^DIR	HIST2+3
EN2^GMRAPEM0	EDITDEMO+2
EXIT^MCARE	EXIT+1
MCEPROC^MCARE	DPT+1
DATE^MCAREH	DPT+2
^MCARGD	EDIT1+3
^MCARGEA	HIST2+1
ORDER^MCARGEO	CONSULT+5
ORDER1^MCARGEO	CONSULT+5
IN^MCEO	EDIT1+1
OUT^MCEO	EDIT1+3
BACKSS^MCESEDT	START+3
$$ESTONUM^MCESSCR	DPT+9
$$PREEDIT^MCESSCR	DPT+5, DPTNON+3
ESRC^MCESSCR	START+5, DPT+9
QTASK^MCPARAM	CONSULT+5
DEM^VADPT	DEMO+4, DPTNON+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?26,"PERSONAL HISTORY INFORMATION",!,?5,VADM(1),?50,"SSN: ",SSN,! Line Location: HIST+1
Function Call: WRITE	Prompt: !,?2,"History of Bleeding Disorder: ",^UTILITY("DIQ1",$J,690,DA,3),?40,"Valvular Heart Disease: ",^(4),!,?2,"Glaucoma: ",^(5),!,?2,"History Comments: ",^(6) Line Location: HIST1+2
Function Call: WRITE	Prompt: ! Line Location: HIST1+2
Function Call: WRITE	Prompt: !!,"The valid Anatomy locations are: ",! Line Location: HELP+1
Function Call: READ	Prompt: "'^' TO STOP: " Timeout: DTIME Variable: %Y Line Location: HELP+2
Routine Call	DIE Line Location: EDIT1+2 CONSULT+5 EDITDEMO+1
Routine Call	DIC Line Location: CONSULT+1 DPT+6 DPTNON+5
Routine Call	DIR Line Location: HIST2+3

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(120.8	EDITDEMO+2
^MCAR(	START+3, START+4
^MCAR(697 - [#697]	HELP+2
^MCAR(697.2 - [#697.2]	CONSULT, DPT+8, DPTNON+10
^MCAR(699.6 - [#699.6]	SETVAR+1, SETVAR+2, SETVAR+3
^UTILITY("DIQ1"	HIST1+1!, HIST1+2!

Label References

Name	Line Occurrences
BACK	DPT+10
DEMO	PREEDT+2
DPT	PREEDT+1
EDIT	PREEDT+3
EDIT1	EDIT+2
EDITDEMO	PREEDT+2
EXIT	START+2, START+6, CONSULT+2, CONSULT+3, CONSULT+5, DPTNON+8, DPTNON+9
HIST	DEMO+4, EDITDEMO+3, DPTNON+15
HIST1	HIST+2
HIST2	HIST+3, HIST1+1
PREEDT	START+1
SETVAR	EDIT+2

Naked Globals

Name	Field # of Occurrence
^(4	HIST1+2
^(5	HIST1+2
^(6	HIST1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %Y	HELP+2, HELP+3
>> DA	EDIT+1, EDIT1+3, CONSULT+3, CONSULT+4, DPT+11, HIST+2, HIST1+1, HIST1+2, EDITDEMO+1, DPTNON+9
>> DFN	CONSULT+4, DPT+8, HIST+2, HIST1+1, EDITDEMO+1, DPTNON+10*
DIC	EDIT+1!, CONSULT!, CONSULT+1, CONSULT+4, DPT+3, DPT+6!, HIST+2, HIST+3!, HIST1+1, EDITDEMO+1 , DPTNON+1*, DPTNON+6!
DIC("A"	CONSULT+1!, DPT+3, DPTNON+1*
DIC("DR"	CONSULT, DPTNON+4
DIC("S"	CONSULT+1!, DPT+4, DPT+5, DPTNON+2, DPTNON+3*
DIC(0	CONSULT+1, DPT+3, DPTNON+1*
DIE	EDIT+1!, CONSULT+4, EDITDEMO+1*
>> DIK	CONSULT+3, DPT+11, DPTNON+9*
DIR	HIST2+3!
DIR("?"	HIST2+3*
DIR("A"	HIST2+2*
DIR("B"	HIST2+3*
DIR(0	HIST2+2*
DIROUT	HIST2+4, BACK+1!
>> DJCP	HELP+2
>> DJDN	HELP+2, HELP+3
DLAYGO	CONSULT+1!, DPT+4, DPT+6!, DPTNON+2*, DPTNON+6!
DR	EDIT+1!, EDIT1+2, CONSULT+5, HIST+3!, HIST1+1, EDITDEMO+1*
DTIME	HELP+2, HELP+3
DTOUT	EDIT1+1, CONSULT+5, DPT+11, DPTNON+9, BACK+1!
DUOUT	EDIT1+1, CONSULT+5, HIST2+4, BACK+1!
>> DZ	HELP+1*
EXIT	START+1!, PREEDT+1, PREEDT+3, EDIT1+1, DPT+7, DPT+9, DPT+11, HIST2+4*, BACK+1!
>> I	HELP+2*
>> MCARCODE	PREEDT+2, EDIT+2, HIST+2
>> MCARDA	DPT+6*
>> MCARGDA	START+2, START+3, START+4, START+5, EDIT+1, CONSULT+4, DPT+8, DPT+9, DPTNON+10, BACK+1
>> MCARGNAM	EDIT+2, DPT+8, DPTNON+10
>> MCARGNUM	CONSULT, DPT+1, DPT+8, HELP+2, DPTNON+10
>> MCARP	DPT+1
MCBACK	START+3!, DPT+6!, DPT+9, DPT+10
>> MCBOUGIE	SETVAR+2*
>> MCBS	CONSULT+5
MCDEMO	START+1!, PREEDT+1*, PREEDT+2, HIST2+4!, HIST2+5!
MCDFLAG	CONSULT+1, CONSULT+3, CONSULT+4, DPTNON+7, BACK+1!
>> MCDFLG	DPTNON+9
>> MCDONE	HELP+1*
>> MCEPROC	EDIT1+2
MCESFL	START+1!, START+4!, START+5, DPT+1, DPT+9*
>> MCESON	START+5, DPT+5, DPT+9
>> MCFILE	START+2, START+3, START+4, START+5, EDIT+1, CONSULT+5, DPT+4*, DPT+5, DPT+9, DPTNON+3
>> MCGTUBE	SETVAR+2*
>> MCHEATP	SETVAR+3*
>> MCJTUBE	SETVAR+2*
>> MCSPHIN	SETVAR+1*
>> MCSTENT	SETVAR+1*
>> MCTEST	DPTNON+2
MCY	BACK+1!
MCY(0	BACK+1
>> SSN	DEMO+4, HIST+1, DPTNON+14
U	CONSULT+3, CONSULT+4, DPT+8, DPT+9, DPT+10, DPT+11, DEMO+4, HELP+2, DPTNON+7, DPTNON+9 , DPTNON+10, DPTNON+14
VADM	EDITDEMO+2~
VADM(1	HIST+1
VADM(2	DEMO+4, DPTNON+14
>> X	DPT+9, DPT+10, DPTNON+7*
>> Y	CONSULT+1, CONSULT+2, CONSULT+3, CONSULT+4, DPT+6, DPT+7, DPT+8, DPT+11, HIST2+5, DPTNON+7 , DPTNON+8, DPTNON+9, DPTNON+10, BACK+1*
>> Y(0	CONSULT+3, CONSULT+4, DPT+8, DPT+11, DPTNON+9, DPTNON+10, BACK+1*

Customize PDF page

Package: Medicine

Routine: MCARGE

Call Graph Total: 17

Caller Graph Total: 10