Routine: AMER1A

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIR
Emergency Room	1	LOG^AMERBUSA

Package	Total	Caller Graph
Emergency Room	3	AMER AMER1 AMER2

Entry Points

Name	Comments	DBIA/ICR reference
ADMDISP()	;IHS/OIT/SCR patch 2: Provides a toggle for display order
PICK	;
SORTADM(AMERSORT)	;IHS/OIT/SCR patch 2: Displays ER ADMISSION in identified order
ACT	; ENTRY POINT FROM MENU
MSG	; ENTRY POINT FROM AMER
QA1	; ENTRY POINT FROM AMER1 ;NAME
CHECK

External References

Name	Field # of Occurrence
LOG^AMERBUSA	SORTADM+42
^DIC	QA1+3
YN^DICN	QA1+10, QA1+13
^DIR	ACT+3, ADMDISP+9, ADMDISP+14

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Do you want to register a new patient" Line Location: QA1+9
Function Call: WRITE	Prompt: !!,"Are you absolutely sure that this patient has never been registered",!,"here before" Line Location: QA1+12
Function Call: WRITE	Prompt: !!!,"There are several tricks you can use to find this patient. Try entering a" Line Location: MSG+1
Function Call: WRITE	Prompt: !,"partial name like 'DOE,JO' instead of 'DOE,JOHN'. Ask about other first" Line Location: MSG+2
Function Call: WRITE	Prompt: !,"names and married names. Try entering a date of birth in the format 9/9/99." Line Location: MSG+3
Function Call: WRITE	Prompt: !,"This should narrow down the list of possible choices." Line Location: MSG+4
Function Call: WRITE	Prompt: !!! Line Location: MSG+5
Function Call: WRITE	Prompt: !!!,*7,"Sorry...I have no record of any current admissions to the ER.",!!! Line Location: CHECK+0
Function Call: WRITE	Prompt: !,"The following patients are currently admitted to the ER =>",!! Line Location: PICK+3
Function Call: WRITE	Prompt: !,% Line Location: PICK+6
Function Call: WRITE	Prompt: ! Line Location: PICK+11
Function Call: WRITE	Prompt: @IOF Line Location: ACT+1
Function Call: WRITE	Prompt: @IOF Line Location: ACT+4
Function Call: WRITE	Prompt: ! Line Location: ADMDISP+4
Function Call: WRITE	Prompt: !,"All patients have been processed" Line Location: ADMDISP+6
Routine Call	DIC Line Location: QA1+3
Routine Call	DIR Line Location: ACT+3 ADMDISP+9 ADMDISP+14

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMERADM - [#9009081]	SORTADM+8, SORTADM+9, SORTADM+29, SORTADM+31, SORTADM+32, SORTADM+36, SORTADM+52, SORTADM+54, SORTADM+58, SORTADM+67 , SORTADM+68, SORTADM+69, SORTADM+91, SORTADM+93, SORTADM+97, SORTADM+108, SORTADM+110, SORTADM+114
^AMERADM("B"	QA1+6, CHECK
^DD("DD"	SORTADM+30, SORTADM+33, SORTADM+53, SORTADM+55, SORTADM+92, SORTADM+94, SORTADM+109, SORTADM+111
^DPT - [#2]	SORTADM+10, SORTADM+89, SORTADM+106
^TMP("AMER TEMP"	PICK+2!, SORTADM+7!, SORTADM+28, SORTADM+49, SORTADM+66!, SORTADM+88, SORTADM+105

Label References

Name	Line Occurrences
$$ADMDISP	PICK+8, ADMDISP+15
$$SORTADM	ADMDISP+3, ADMDISP+11
CHECK	ACT+2
MSG	QA1+14
QA1	QA1+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QA1+10, QA1+13, PICK+1~
>> %Y	QA1+10, QA1+11, QA1+13, QA1+14
A	PICK+1~
AMERARRY	SORTADM+1~, SORTADM+21, SORTADM+81
AMERARRY(	SORTADM+12, SORTADM+13, SORTADM+16, SORTADM+18, SORTADM+24, SORTADM+27, SORTADM+45, SORTADM+48, SORTADM+71, SORTADM+72* , SORTADM+75, SORTADM+77*, SORTADM+84, SORTADM+87, SORTADM+101, SORTADM+104
AMERCHRT	SORTADM+1~, SORTADM+31, SORTADM+39, SORTADM+54, SORTADM+60, SORTADM+93, SORTADM+99, SORTADM+110, SORTADM+116
AMERCNT	SORTADM+1~, SORTADM+20, SORTADM+26, SORTADM+28, SORTADM+39, SORTADM+46, SORTADM+49, SORTADM+60, SORTADM+80, SORTADM+85* , SORTADM+88, SORTADM+99, SORTADM+102*, SORTADM+105, SORTADM+116, SORTADM+120
AMERCOMP	SORTADM+1~, SORTADM+36, SORTADM+37, SORTADM+39, SORTADM+58, SORTADM+59, SORTADM+60, SORTADM+97, SORTADM+98, SORTADM+99 , SORTADM+114, SORTADM+115, SORTADM+116
>> AMERDFN	QA1+5*
AMERDOB	SORTADM+1~, SORTADM+29, SORTADM+30, SORTADM+39, SORTADM+52, SORTADM+53, SORTADM+60, SORTADM+91, SORTADM+92, SORTADM+99 , SORTADM+108, SORTADM+109, SORTADM+116
>> AMERDPT	SORTADM+27, SORTADM+28, SORTADM+29, SORTADM+31, SORTADM+32, SORTADM+36, SORTADM+42, SORTADM+48, SORTADM+49, SORTADM+52 , SORTADM+54, SORTADM+58, SORTADM+87, SORTADM+88, SORTADM+89, SORTADM+91, SORTADM+93, SORTADM+97, SORTADM+104, SORTADM+105 , SORTADM+106, SORTADM+108, SORTADM+110, SORTADM+114
AMERIDX2	SORTADM+1~, SORTADM+4, SORTADM+13, SORTADM+14, SORTADM+17, SORTADM+44, SORTADM+45, SORTADM+48, SORTADM+72, SORTADM+73 , SORTADM+76, SORTADM+100, SORTADM+101*, SORTADM+104
AMERINDX	SORTADM+1~, SORTADM+3, SORTADM+8, SORTADM+9, SORTADM+10, SORTADM+13, SORTADM+18, SORTADM+23, SORTADM+24, SORTADM+25 , SORTADM+45, SORTADM+47, SORTADM+50, SORTADM+67, SORTADM+68, SORTADM+69, SORTADM+72, SORTADM+77, SORTADM+79, SORTADM+84* , SORTADM+86, SORTADM+103, SORTADM+104
AMERNAME	SORTADM+1~, SORTADM+10, SORTADM+11, SORTADM+12, SORTADM+13, SORTADM+16, SORTADM+18, SORTADM+25, SORTADM+27, SORTADM+38* , SORTADM+39, SORTADM+48, SORTADM+50, SORTADM+51, SORTADM+60, SORTADM+89, SORTADM+90, SORTADM+99, SORTADM+106, SORTADM+107 , SORTADM+116
AMERNUM	ADMDISP+1~, ADMDISP+2, ADMDISP+3, ADMDISP+6, ADMDISP+7, ADMDISP+11, ADMDISP+15, ADMDISP+18
>> AMERQUIT	QA1+4, QA1+8, QA1+10, QA1+11, QA1+13, PICK+10
>> AMERRUN	QA1+6, QA1+15
AMERSORT	SORTADM~, SORTADM+2*, SORTADM+5, SORTADM+64
AMERTIME	SORTADM+1~, SORTADM+32, SORTADM+33, SORTADM+39, SORTADM+47, SORTADM+55, SORTADM+60, SORTADM+69, SORTADM+70, SORTADM+71 , SORTADM+72, SORTADM+75, SORTADM+77, SORTADM+86, SORTADM+87, SORTADM+94, SORTADM+101, SORTADM+103*, SORTADM+111
AMERTIMF	SORTADM+1~, SORTADM+94, SORTADM+99, SORTADM+111, SORTADM+116
>> AMERTRG	SORTADM+9, SORTADM+68
AUPNDAYS	QA1+3!
AUPNDOB	QA1+3!
AUPNDOD	QA1+3!
AUPNPAT	QA1+3!
AUPNSEX	QA1+3!
B	PICK+1~
C	PICK+1~
DIC	QA1+1*, QA1+3!
DIC("A"	QA1+2*
DIC(0	QA1+1*
DIR	ADMDISP+1~
DIR("A"	ACT+3, ACT+5!, ADMDISP+8, ADMDISP+13*
DIR("B"	ADMDISP+8, ADMDISP+13
DIR(0	ACT+3, ACT+5!, ADMDISP+8, ADMDISP+13*
DTOUT	QA1+4!, QA1+10!, QA1+13!
E	PICK+1~
F	PICK+1~
G	PICK+1~
>> I	PICK+8*, PICK+10
IOF	ACT+1, ACT+4
N	PICK+1~
U	QA1+10, QA1+13, SORTADM+9, SORTADM+68
>> X	QA1+8
Y	QA1+5, QA1+6, QA1+7, QA1+8, PICK+1~, ADMDISP+1~, ADMDISP+10, ADMDISP+15, SORTADM+30, SORTADM+33* , SORTADM+53, SORTADM+55, SORTADM+92, SORTADM+94, SORTADM+109, SORTADM+111

Customize PDF page

Package: Emergency Room

Routine: AMER1A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: