Routine: AMER4

Information

AMER4 ; IHS/ANMC/GIS - ER VISIT SUMMARY ;

Source Information

Source file <AMER4.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Emergency Room	3	(EDIT,OUT)^AMER EDIT^AMERD $$DX^AMERPOV
VA Fileman	3	YN^DICN $$GET1^DIQ ^DIR
IHS Patient	1	$$ICDDX^AUPNVUTL
IHS VA Utilities	1	$$VAL^XBDIQ1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Emergency Room	1	AMERD

Entry Points

Name	Comments	DBIA/ICR reference
ADM	; ADMISSION SEQUENCE
YN
EDIT	; NEED TO REEDIT??
ED
FORMAT	; SETS UTL ARRAY FOR VISIT SUMMARY
DX(AMERDFN)	;Set up DX information for display
PRINT	; PRINT VISIT SUMMARY
MULT(N)	; FORMATS MULTIPLES ; N = 10 - Procedure - contains a pointer to ER OPTIONS file ; - want to return a list of numbers and names ; N = 11 - Diagnosis - contains a pointer to ICD Diagnostic file ; - want to return a list of numbers and names ; N = 7 - ER Consultants - want to return a list of ; - Consultant Types, times, and Person
OT(V,T)	;ENTRY POINT FROM AMER5 ; OUTPUT TRANSFORM ; 1 = DATE ; 2 = ER OPTIONS FILE ; 3 = ER LOCAL FACILITY FILE ; 4 = Patient ; 5 = Person (doctor name) ; 6 = Yes/No ; 7 = ICD9/ICD10 ; 8 = ER CONSULTANT
ADM1
INC	; LINE COUNTER

External References

Name	Field # of Occurrence
EDIT^AMER	ADM1
OUT^AMER	YN+1, YN+11
EDIT^AMERD	ED+3, ADM1+3
$$DX^AMERPOV	OT+23
$$ICDDX^AUPNVUTL	DX+19
YN^DICN	YN+1
$$GET1^DIQ	OT+22, DX+9, DX+10, DX+17, DX+18
^DIR	YN+9, INC+3
$$VAL^XBDIQ1	DX+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EDIT+1
Function Call: WRITE	Prompt: "Summary of this ER data entry session for ",%," =>" Line Location: EDIT+4
Function Call: WRITE	Prompt: ! Line Location: EDIT+5
Function Call: WRITE	Prompt: !!,"*Do you want to make any changes" Line Location: YN+0
Function Call: WRITE	Prompt: !,*7,"Sorry...You may not 'back up' here. Enter '^^' if you want to exit.",!! Line Location: YN+2
Function Call: WRITE	Prompt: ?20,"--- ",X," ---" Line Location: PRINT+9
Function Call: WRITE	Prompt: !,Z Line Location: PRINT+13
Function Call: WRITE	Prompt: Z Line Location: PRINT+15
Function Call: WRITE	Prompt: ?40,Z Line Location: PRINT+16
Function Call: WRITE	Prompt: Z Line Location: PRINT+17
Function Call: WRITE	Prompt: ! Line Location: INC+2
Function Call: WRITE	Prompt: 13,?$G(IOM,80)-1,13 Line Location: INC+3
Routine Call	DIR Line Location: YN+9 INC+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AMERADM - [#9009081]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMER(2 - [#9009082]	PRINT+7
^AMER(2.1 - [#9009082.1]	OT+15
^AMER(2.3 - [#9009082.3]	FORMAT+2, FORMAT+3, FORMAT+4, FORMAT+6
^AMER(2.9 - [#9009082.9]	OT+25
^AMER(3 - [#9009083]	OT+14
^AUPNVPOV("AD"	DX+13
^DD("DD"	OT+13
^DPT - [#2]	EDIT+3, OT+16
^TMP("AMER"	PRINT+8, PRINT+10, PRINT+13, MULT+15, MULT+16, MULT+17, MULT+18, MULT+24, MULT+25, MULT+26 , FORMAT+7, FORMAT+8, FORMAT+10
^VA(200 - [#200]	OT+17

Label References

Name	Line Occurrences
$$DX	MULT+11
$$MULT	FORMAT+7
$$OT	MULT+19, MULT+27, MULT+28, MULT+29, FORMAT+9
ADM	YN+6, ED
ADM1	ADM1+8
FORMAT	EDIT+5
INC	PRINT+15, PRINT+17, PRINT+20
PRINT	EDIT+5
YN	YN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EDIT+3, EDIT+4, YN, YN+2!, YN+3, ED+1*, ED+2, PRINT+1~, FORMAT+1~
>> %Y	YN+1, YN+2, YN+3*, YN+4
A	MULT+13~, MULT+14, MULT+20, MULT+21, MULT+30, MULT+31*, MULT+33
>> AMERDEST	EDIT+5*
AMERDFN	EDIT+3, MULT+11, DX~, DX+2, DX+9
AMEREFLG	EDIT+2!, YN+6, YN+12
>> AMERFIN	ED+2, ADM1, ADM1+3*
AMERPCC	DX+4~, DX+9*, DX+10, DX+13
AMERPOV	DX+4~, DX+13*, DX+17, DX+18, DX+20
>> AMERQSEQ	ADM1+1, ADM1+2, ADM1+5, ADM1+6, ADM1+7
>> AMERQUIT	YN+1, YN+11
>> AMERSTRT	ED+2, ADM+2, ADM1+3, ADM1+6
AMERTFLG	ADM+1~, ADM1+3!, ADM1+4
>> AMERTRG	YN+6, PRINT+3
AMERXSEQ	ADM+1~, ADM1+2*, ADM1+5
C	PRINT+1~, PRINT+2, PRINT+3, PRINT+6, FORMAT+1~, FORMAT+5*, FORMAT+7, FORMAT+10
>> DFN	OT+22
DIR	YN+9!, INC+3!
DIR("?"	YN+9*
DIR("A"	YN+9, INC+3
DIR(0	YN+7, YN+8, INC+3*
DIROUT	YN+1*, INC+3!
DT	OT+22
DTOUT	INC+3!
DUOUT	INC+3!
H	FORMAT+1~, FORMAT+6*, FORMAT+7, FORMAT+10
I	PRINT+1~, PRINT+6, MULT+13~, MULT+16, MULT+17, MULT+18, MULT+24, MULT+25, MULT+26, FORMAT+1~
>> I1	PRINT+13*
ICDIEN	DX+14~, DX+17*, DX+19
INFO	DX+14~, DX+19*, DX+20
IOF	EDIT+1
IOM	INC+3
IOSL	INC+3
K1	MULT+13~, MULT+24, MULT+27, MULT+31
K2	MULT+13~, MULT+25, MULT+28, MULT+31
K3	MULT+13~, MULT+26, MULT+29, MULT+31
L	PRINT+1~, INC+2, INC+3
N	PRINT+10, PRINT+11, PRINT+13, MULT~, MULT+11, MULT+15, MULT+16, MULT+17, MULT+18, MULT+24 , MULT+25, MULT+26, FORMAT+1~, FORMAT+4, FORMAT+7, FORMAT+8, FORMAT+10
PS	DX+14~, DX+18*, DX+20
PVCNT	DX+4~, DX+13*
Q	FORMAT+1~, FORMAT+4*, FORMAT+8
T	PRINT+1~, PRINT+9, PRINT+15, PRINT+16, PRINT+17, OT~, OT+13, OT+14, OT+15, OT+16 , OT+17, OT+18, OT+19, OT+25, FORMAT+6*, FORMAT+9
U	EDIT+3, YN+2, ED+1, PRINT+6, PRINT+13, OT+12, OT+14, OT+15, OT+16, OT+17 , OT+25, FORMAT+4, FORMAT+5, FORMAT+6, FORMAT+7, DX+20
V	OT~, OT+12, OT+13, OT+14, OT+15, OT+16, OT+17, OT+18, OT+23, OT+25 , FORMAT+1~, FORMAT+8, FORMAT+9, FORMAT+10
VAL	DX+4~, DX+6, DX+9, DX+20, DX+22
VDT	OT+21~, OT+22, OT+23, DX+4~, DX+10, DX+19
X	YN+4, PRINT+1~, PRINT+6, PRINT+7, PRINT+9, INC+1~, MULT+13~, MULT+18, MULT+19, MULT+21 , FORMAT+1~, FORMAT+2*, FORMAT+3
Y	YN+4, YN+5, YN+6, YN+10, ED, ED+1, PRINT+1~, PRINT+7, PRINT+8, PRINT+10 , PRINT+11, PRINT+13, INC+1~, OT+10~, OT+11, OT+12, OT+13, OT+14, OT+15, OT+16* , OT+17, OT+18, OT+23, OT+25, OT+26, FORMAT+1~, FORMAT+3*, FORMAT+4, FORMAT+6
Z	PRINT+1~, PRINT+10, PRINT+12, PRINT+13, PRINT+15, PRINT+16, PRINT+17, FORMAT+1~, FORMAT+4*, FORMAT+5 , FORMAT+6, FORMAT+7

Customize PDF page

Package: Emergency Room

Routine: AMER4

Call Graph Total: 8

Caller Graph Total: 1