Routine: AMER1

Package	Total	Call Graph
Emergency Room	4	OUT^AMER ($$CAT,$$OPT)^AMER0 QA1^AMER1A APPNTMNT^AMERBSDU
VA Fileman	4	NOW^%DTC EN^DDIOL ^DIC ^DIR
IHS Changes To Scheduling	1	^BSDREG
Kernel	1	$$FMTE^XLFDT

Package	Total	Caller Graph
Emergency Room	4	AMER2B AMEREDDX AMEREDIT AMEREDTA

Entry Points

Name	Comments	DBIA/ICR reference
QA5	; VISIT TYPE
QA4	; FULL REG EDIT
QA12	; AMBULANCE HRCN/BILLING NUMBER
QA1
QA14	; AMBULANCE COMPANY
QA3	; PRESENTING COMPLAINT
QA10	; MODE OF TRANSPORT TO HOSPITAL
QA2	; DATE AND TIME OF ADMISSION TO ER
QA11	; AMBULANCE NUMBER
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA)	; EP; calls reader, returns response
QAXX	; TEXT CAPTURE
CKSC	; ENTRY POINT FROM SEVERAL ROUTINES
CHKINGO(CLINIC)	; return 1 if okay to proceed with checkin

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Sorry, you can't use a ",X," in your answer...Try again",!! Line Location: CKSC+3
Function Call: WRITE	Prompt: !!,"* Patient already checked in at "_$$FMTE^XLFDT(DATE)_" *" Line Location: CHKINGO+5
Routine Call	DIC Line Location: QA5+10 QA10+5 QA14+4
Routine Call	DIR Line Location: QA2+3 QA3+5 QAXX+2 READ+9

FileNo	Call Tags
^AMER(3 - [#9009083]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMER(3 - [#9009083]	QA5+4, QA5+5, QA5+7, QA5+8, QA10+2, QA14+2
^DD("DD"	QA2+1
^DPT - [#2]	CHKINGO+3, CHKINGO+4
^TMP("AMER"	QA2+1, QA3+1, QA4+11, QA4+12, QA4+13*, QA5+7, QA10+2, QA10+7!, QA14+2, QAXX+1

Name	Field # of Occurrence
>> %	QA2+5, QA5+7, QA10+2, QA14+2*
AMER1	QA4+8!
AMER2	QA4+8!
>> AMERBCH	QA2+2
AMERCKSC	QA3+6!, QAXX+3!, CKSC+2!, CKSC+3*
>> AMERDFN	QA2+9, QA4+2
>> AMERDOA	QA3+2, QA4+9, QA12+2, QA14+6
>> AMEREFLG	QA2+6
>> AMEROPT	QA4+10*
>> AMERQUIT	QA2+8, QA10+6, QA14+5
>> AMERRUN	QA2+6, QA4+10, QA10+7, QA12+2, QA14+6, QA14+7, QAXX+1
AMERVTYP	QA5+1~, QA5+4, QA5+5, QA5+8
CLINIC	CHKINGO~, CHKINGO+4
DATE	CHKINGO+1~, CHKINGO+2, CHKINGO+3, CHKINGO+4, CHKINGO+5
DEFAULT	READ~, READ+6
>> DFN	CHKINGO+3, CHKINGO+4
DIC	QA5+9, QA5+10!, QA10+4, QA10+5!, QA14+3*, QA14+4!
DIC("A"	QA5+3, QA10+1, QA14+1*
DIC("B"	QA5+2, QA5+7, QA5+8, QA10+1!, QA10+2, QA10+3, QA14+1!, QA14+2
DIC("S"	QA5+9, QA10+4, QA14+3*
DIC(0	QA5+9, QA10+4, QA14+3*
DIR	QA2+3!, QA3+5!, QAXX+2!, READ+1~
DIR("?"	QA2+3, QA3+5, QAXX+2, READ+7
DIR("A"	QA2+3, QA3+5, QA11+1, QA12+1, READ+5, READ+8
DIR("B"	QA2+1, QA2+2, QA3+1!, QA3+2, QAXX+1!, READ+6
DIR("S"	READ+4*
DIR(0	QA2+3, QA3+5, QAXX+2, READ+2
DIRA	READ~
DIRA(	READ+8
DIRA(1	READ+8
>> DIROUT	QA4+7
DIRUT	READ+1~
>> DLAYGO	READ+3*
DT	CHKINGO+2
>> DUOUT	QA4+6
END	CHKINGO+1~, CHKINGO+2*, CHKINGO+3
GO	CHKINGO+1~, CHKINGO+2, CHKINGO+4, CHKINGO+6
HELP	READ~, READ+7
PROMPT	READ~, READ+5
SCREEN	READ~, READ+4
SDAMTYP	QA4+2*, QA4+4!
SDFN	QA4+2*, QA4+4!
SDSEX	QA4+1~
TYPE	READ~, READ+2, READ+3
U	QA2+6, QA4+11, QA4+12, QA4+13, QA5+7, QA5+8, QA10+2, QA14+2, READ+3
X	QA2+6, QA4+5, QA4+6, QA4+7, QA10+7, CKSC+1~, CKSC+2, CKSC+3
Y	QA2+1, QA2+5, QA2+9, QA3+6, QA4+5, QA10+7, CKSC+2, READ+1~, READ+8*, READ+10