Routine: AMERD

Information

AMERD ; IHS/ANMC/GIS - PRIMARY ROUTINE FOR ER DISCHARGE ;

Source Information

Source file <AMERD.m>

Call Graph

Call Graph Total: 20

Package	Total	Call Graph
Emergency Room	10	($$LINE,BACK,EXIT,EXIT1,MAND,OPT,OUT)^AMER ^AMER0 ^AMER4 ^AMER5 CANCEL^AMERBSDU LOG^AMERBUSA ($$EXISTING,VPROVTRG)^AMERPCC (,KILLADM)^AMERSAV $$POV^AMERUTIL VER^AMERVER
VA Fileman	6	^%DTC EN^DDIOL YN^DICN ^DIE $$GET1^DIQ ^DIR
Kernel	2	^%ZIS $$VERSION^XPDUTL
IHS Emergency Dept Dashboard	1	DISCH^BEDDUTW
Patient Care Component	1	EN^APCDVDLT

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Emergency Room	2	AMER AMER4

Entry Points

Name	Comments	DBIA/ICR reference
ELOOP
SET
RUN
KREV	; ENTRY POINT TO KILL REVOLVING DOOR
EDIT	; ENTRY POINT FROM AMER4 AND AMER
DEMO	; ENTRY POINT FOR DEMO MODE
FIX
REV	; ENTRY POINT FOR REVOLVING DOOR CALC
TRG	; SET TRIAGE INFO IN TMP FILE
PRINT	; PRINT PATIENT INSTRUCTIONS
P1
EXIT
DXCK(AUPNPAT)	; Entry point to check for valid Dx entry for visit
VAR	; ENTRY POINT FOR BATCH MODE
TRGSET	; SET TRIAGE INFO IN ER ADM FILE
REV1
CHECK	;
DNA	; ENTRY POINT FROM AMER DNA MENU ; PT LEFT WITHOUT BEING SEEN

External References

Name	Field # of Occurrence
^%DTC	REV1
^%ZIS	VAR+2
$$LINE^AMER	RUN+3
BACK^AMER	SET+27
EXIT^AMER	EXIT
EXIT1^AMER	CHECK+2
MAND^AMER	SET+24
OPT^AMER	RUN+4
OUT^AMER	PRINT+4
^AMER0	TRGSET+2
^AMER4	FIX
^AMER5	P1
CANCEL^AMERBSDU	SET+13
LOG^AMERBUSA	RUN+25, ELOOP+12, ELOOP+31
$$EXISTING^AMERPCC	SET+5, TRGSET+9
VPROVTRG^AMERPCC	TRGSET+10
^AMERSAV	ELOOP+7
KILLADM^AMERSAV	SET+16
$$POV^AMERUTIL	DXCK+8
VER^AMERVER	ELOOP+5, ELOOP+15
EN^APCDVDLT	SET+8
DISCH^BEDDUTW	ELOOP+28
EN^DDIOL	DXCK+12, DXCK+13
YN^DICN	PRINT+3
^DIE	TRGSET+7
$$GET1^DIQ	RUN+15, RUN+18, ELOOP+11
^DIR	PRINT+8
$$VERSION^XPDUTL	ELOOP+21

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,*7,"Sorry...I have no record of any current admissions to the ER.",!,"Session cancelled!",!!! Line Location: CHECK+1
Function Call: WRITE	Prompt: @IOF Line Location: VAR+4
Function Call: WRITE	Prompt: $$LINE^AMER("QD"_AMERRUN) Line Location: RUN+3
Function Call: WRITE	Prompt: !,"Session terminated..." Line Location: SET+3
Function Call: WRITE	Prompt: !,*7,"Session terminated..." Line Location: SET+20
Function Call: WRITE	Prompt: !,"Session terminated...",*7 Line Location: SET+23
Function Call: WRITE	Prompt: !,"Do you want to print patient instructions" Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"I will print a set of follow up instructions for the patient and provider." Line Location: PRINT+11
Function Call: WRITE	Prompt: !,"You can also print patient education materials...",! Line Location: PRINT+12
Routine Call	DIE Line Location: TRGSET+7
Routine Call	DIR Line Location: PRINT+8
Routine Call	%ZIS Line Location: VAR+2

FileNo	Call Tags
^AMERVSIT - [#9009080]	GET1^DIQ
^AMERADM - [#9009081]	Classic Fileman Calls
^AMER(2.3 - [#9009082.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	ELOOP+25
^AMER(2.3 - [#9009082.3]	RUN+1, RUN+14
^AMER(3 - [#9009083]	ELOOP+1
^AMERADM("B"	CHECK+1
^AMERVSIT - [#9009080]	REV+2, REV+4, KREV+1
^AMERVSIT("AC"	REV+2
^DD(9009080	RUN+19
^DD(9009081	RUN+16
^TMP("AMER"	CHECK+2!, VAR+3, ELOOP+1, SET+12, SET+30, TRGSET+5, TRGSET+6, TRG+2, TRG+3, PRINT+10 , PRINT+13

Name	Line Occurrences
@(	RUN+6
AMERD	DNA+3, DEMO+2
EXIT	RUN+34, FIX, ELOOP+1, ELOOP+2, ELOOP+7
FIX	ELOOP
P1	PRINT+10
PRINT	ELOOP+1
REV1	REV+4
RUN	VAR+3
SET	RUN+8
TRG	RUN+5
TRGSET	ELOOP+2

Name	Field # of Occurrence
^(15	PRINT+10
^(2	CHECK+2!
^(3	CHECK+2!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VAR+1!, VAR+3, PRINT+3, PRINT+10, REV+1~, REV+2*
>> %Y	PRINT+3, PRINT+6
ADMFLD	RUN+12~, RUN+15, RUN+16, RUN+18, RUN+19
AFIELD	RUN+12~, RUN+13, RUN+16, RUN+17, RUN+19*, RUN+20, RUN+25
AMER	CHECK+2!
>> AMERBCH	VAR+3, ELOOP+1, ELOOP+33, SET+3, SET+22
>> AMERBFLG	RUN, RUN+33, SET+22*
>> AMERDA	ELOOP+11, ELOOP+28
AMERDCNT	DXCK+5~, DXCK+8*, DXCK+11, DXCK+16
AMERDEMO	DEMO+1*, DEMO+3!
>> AMERDFN	VAR+3*, SET+5, SET+13, TRGSET+4, TRGSET+9, TRGSET+10
AMERDNA	DNA+2*, DNA+3!
AMERDSC	CHECK+5~, CHECK+6*
AMERDXLT	DXCK+5~, DXCK+8
AMEREFLG	RUN+28, RUN+32, FIX!, ELOOP
>> AMERFIN	VAR+1, RUN, SET+19
>> AMERLINE	VAR+1*
AMERMAND	SET!
>> AMERNUM	PRINT+9*
AMEROPT	SET+24, SET+25!
AMERPCC	SET+5, SET+6, SET+7, TRGSET+1~, TRGSET+9, TRGSET+10
>> AMERQNO	RUN+3*, SET+22, SET+23, SET+26, SET+29, SET+30
>> AMERQSEQ	VAR+1, EDIT+1, SET+26*
AMERQUIT	CHECK+2!, RUN, RUN+34, FIX, ELOOP+1, ELOOP+7, SET, SET+3, SET+17, SET+20* , SET+23*, PRINT+5
>> AMERRUN	RUN, RUN+1, RUN+3, RUN+4, RUN+6, RUN+14, RUN+28, SET+1, SET+3, SET+4 , SET+18, SET+24, PRINT+1
>> AMERSTRT	VAR+1, VAR+3, RUN
>> AMERTFLG	RUN+32
AMERTIME	SET+11~, SET+12*, SET+13
>> AMERTRG	ELOOP+2
>> AMERTRGS	TRGSET+3, TRGSET+5, TRGSET+6, TRG+1, TRG+2, TRG+3
AMERVIS	ELOOP+10~, ELOOP+11*, ELOOP+12, ELOOP+15, ELOOP+31
>> AMRBCH	SET+4
APCDVDLT	SET+7*, SET+9!
AUDDFN	RUN+23~, RUN+24*, RUN+25, RUN+26!
AUPNPAT	RUN+24, DXCK~, DXCK+3, DXCK+8
>> DA	TRGSET+4*, REV+2, REV+4, KREV+1
>> DFN	RUN+24, ELOOP+5, ELOOP+12, ELOOP+15, ELOOP+31
DIC	RUN+29!
>> DIE	TRGSET+4*
DIR	RUN+29!
DIR("A"	PRINT+7*
DIR(0	PRINT+7*
>> DIROUT	PRINT+3*
>> DR	TRGSET+6*
DT	REV+4
ERIEN	RUN+12~, RUN+14*, RUN+15, RUN+18
IOF	VAR+4
>> IOP	VAR+2*
N	REV+1~, REV+4, REV1+1
U	RUN+16, RUN+19, ELOOP+1, SET+21, SET+22, SET+23, SET+24, SET+27, TRGSET+6, REV+4 , KREV+1
X	ELOOP+24~, ELOOP+25, SET+20, SET+21, SET+22, SET+23, SET+24, SET+27, REV+2, REV1~ , REV1+1
X1	REV+1~, REV+4*
X2	REV+1~, REV+4*
Y	SET+24, SET+28, SET+30, PRINT+9, REV+1~, REV+2*
Z	REV+1~, REV+2*, REV+3, REV+4

Customize PDF page

Package: Emergency Room

Routine: AMERD

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: