Routine: AMER

Information

AMER ; IHS/ANMC/GIS - PRIMARY ROUTINE FOR ER ADMISSION ;

Source Information

Source file <AMER.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Emergency Room	7	EXIT1^AMER (,UTL)^AMER0 MSG^AMER1A LOG^AMERBUSA (EDIT,VAR)^AMERD ^AMERLKP ($$EXISTING,VISITIN)^AMERPCC
VA Fileman	3	^DIC YN^DICN $$GET1^DIQ
IHS Patient Registration	2	DOG^AG0 ^AGVAR
Kernel	2	^%ZIS $$VERSION^XPDUTL
IHS Emergency Dept Dashboard	1	NEW^BEDDUTIL
Patient Care Component	1	HSOUT^APCHS

Caller Graph

Caller Graph Total: 12

Package	Total	Caller Graph
Emergency Room	12	AMER AMER1 AMER1B AMER2 AMER2A AMER2B AMER3 AMER4 AMERD AMEREDIT AMEROUT AMEROUT3

Entry Points

Name	Comments	DBIA/ICR reference
REGEXIT
LINE(X)	; QUERY SEPERATOR LINE
SCAN	; ENTRY POINT FROM SCAN PT NAME OPTION ;SCAN PT NAMES
DEMO	; ENTRY POINT FOR DEMO MODE. NO VISIT CREATED
DOA	; ENTRY POINT FOR DOA
BACK	; ENTRY POINT FROM AMERD
PRINT	; PRINT HEALTH SUMMARY
REG	;
SET
RUN
EN1	; ENTRY POINT FOR MINI REGISTRATION
MAND	; ENTRY POINT FROM AMERD ; MANDATORY ANSWER
OUT	; ENTRY POINT FROM MULTIPLE ROUTINES
R1	;
BATCH	; ENTRY POINT FOR BATCH MODE
TRG	; ENTRY POINT FOR EDITING TRIAGE NURSE'S FIELDS
VAR
EXIT1	; ENTRY POINT FROM AMERD
SC1
RESTORE	;
VAR1
EDIT	; ENTRY POINT FROM AMER4
EXIT	; ENTRY POINT FROM AMERD
B1
OPT(X)	; ENTRY POINT FROM AMERD ;OPTIONAL

External References

Name	Field # of Occurrence
^%ZIS	VAR1+3
DOG^AG0	REG+2
^AGVAR	REG+2
EXIT1^AMER	SC1+5
^AMER0	RUN+41
UTL^AMER0	RESTORE+5
MSG^AMER1A	SCAN+1
LOG^AMERBUSA	RUN+21, RUN+25, RUN+62, REG+6
EDIT^AMERD	TRG+7
VAR^AMERD	B1+2
^AMERLKP	SC1+3
$$EXISTING^AMERPCC	RUN+36
VISITIN^AMERPCC	RUN+37
HSOUT^APCHS	PRINT+7
NEW^BEDDUTIL	RUN+59
^DIC	PRINT+5
YN^DICN	RESTORE+3
$$GET1^DIQ	RUN+13, RUN+16, RUN+55, RUN+56
$$VERSION^XPDUTL	VAR1+1, VAR1+2, RUN+47

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$LINE("QA"_AMERRUN) Line Location: RUN+3
Function Call: WRITE	Prompt: *7,!!,"ER admission data collection is now complete. Thank you.",!! Line Location: RUN+67
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+1
Function Call: WRITE	Prompt: !,*7,"Session terminated..." Line Location: SET+5
Function Call: WRITE	Prompt: !,"Session terminated...",*7 Line Location: SET+8
Function Call: WRITE	Prompt: *7,!,"Session terminated. No data has been entered!" Line Location: OUT+5
Function Call: WRITE	Prompt: *7,!!,"This patient is currently admitted to the ER....",!,"Want to edit his/her ER admission data" Line Location: RESTORE+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+3
Function Call: WRITE	Prompt: !!,"Patient registration not available in demo mode",!! Line Location: REG+1
Function Call: WRITE	Prompt: *7 Line Location: REG+1
Function Call: WRITE	Prompt: *7,!,"This answer is mandatory. If you need help, type '??'." Line Location: MAND+1
Function Call: WRITE	Prompt: !! Line Location: SC1+0
Function Call: WRITE	Prompt: @IOF Line Location: SC1+4
Function Call: WRITE	Prompt: @IOF Line Location: EN1+3
Routine Call	DIC Line Location: PRINT+5
Routine Call	%ZIS Line Location: VAR1+3

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	RUN+51
^AMER(2.3 - [#9009082.3]	RUN+1, RUN+12, LINE+4, OPT+3, OPT+4
^AMERADM - [#9009081]	RUN+25
^DD(9009080	RUN+17
^DD(9009081	RUN+14
^TMP("AMER"	EXIT1+6!, SET+14, REG+7

Label References

Name	Line Occurrences
$$LINE	RUN+3
@(	RUN+5
AMER	B1, DEMO+2
B1	B1+5
BACK	SET+12
BATCH	DOA+2
EXIT	RUN+39, RUN+40, RUN+41
EXIT1	VAR, B1, B1+2, B1+4, DOA+2, EN1+3, TRG+2
MAND	SET+9
OPT	RUN+4
OUT	RESTORE+3, PRINT+5
PRINT	RUN+40, SET+3
REG	SET+2, EN1+1
REGEXIT	REG+3
RESTORE	SET+4
RUN	AMER+4
SET	RUN+6

Naked Globals

Name	Field # of Occurrence
^(2	EXIT1+6!
^(3	EXIT1+6!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VAR1, EXIT1+3!, RESTORE+3, REGEXIT!, TRG+3!, LINE+2!, OPT+2~, OPT+4*, OPT+5
%DT	EXIT1+5!, REGEXIT!
%T	EXIT1+4!
%W	REGEXIT!
%Y	EXIT1+5!, RESTORE+4, REGEXIT!
A	EXIT1+3!, BACK+1*
A1BETAG	EN1+2!
ADMFLD	RUN+10~, RUN+13, RUN+14, RUN+16, RUN+17
AFIELD	RUN+10~, RUN+11, RUN+14, RUN+15, RUN+17*, RUN+18, RUN+21
AG	REGEXIT!
AGDOG	EN1+2!
AGDTS	EN1+2!
AGE	EXIT1+2!
AGMVDF	EXIT1+1!
AGOPT	REGEXIT!
AMER	EXIT1+5!
AMERBCH	RUN+32, RUN+65, BATCH+1*, B1!, B1+2!, B1+4
AMERBFLG	AMER+4!
AMERDA	EXIT1+1!
AMERDEMO	REG+1, DEMO+1*, DEMO+3!
AMERDEST	EXIT1+5!
AMERDFN	RUN+21, RUN+25, RUN+36, RUN+37, RUN+59, RUN+62, EXIT1+3!, RESTORE+1, RESTORE+5, PRINT+6 , REG+7
AMERDOA	VAR1+3, B1+3!, DOA+1*, DOA+2!
AMERDR	EXIT1+2!
AMEREFLG	RUN+27, RUN+34, EXIT1+5!, SET+7
AMERFIN	AMER+4, VAR, RUN, EXIT1+5!, SET+7, TRG+5*
AMERI	EXIT1+3!
AMERLINE	AMER+3~, VAR1, EXIT1+3!, TRG+1~, TRG+3, TRG+8!, LINE+1~, LINE+2*, LINE+5
AMERMAND	RUN+3, SET!, MAND+2*
AMERNEW	AMER+3~, RUN+25*, RUN+62, EXIT1+2!
AMERNOHS	RUN+27, RUN+35, RUN+40, EXIT1+3!, SET+4*
AMERNV	EXIT1+5!
AMEROPT	SET+9, SET+10!, OPT+1!, OPT+5*
AMERPCC	AMER+3~, RUN+36*, RUN+37
AMERPRV	EXIT1+1!
AMERQNO	RUN+2*, EXIT1+3!, SET+8, SET+9, SET+11, SET+14
AMERQSEQ	AMER+4, EDIT+1, EXIT1+3!, SET+11, BACK+1, B1+1, TRG+5*
AMERQUIT	RUN, RUN+32, RUN+39, RUN+40, RUN+41, EXIT1+3!, SET, SET+5, SET+8, OUT+2* , OUT+3!, OUT+4, OUT+5, RESTORE+3, PRINT+5, REG+3, B1, B1+2
AMERRUN	RUN, RUN+1, RUN+2, RUN+3, RUN+4, RUN+5, RUN+12, EXIT1+3!, SET+1, SET+2 , SET+3, SET+4, SET+7, BACK+1, BACK+2, RESTORE+1, RESTORE+4, REG+7, MAND+2
AMERRV	EXIT1+5!
AMERSSEQ	AMER+4, EXIT1+1!, B1+1*, B1+2!
AMERSTG	EXIT1+3!
AMERSTRT	AMER+4, VAR, RUN, EXIT1+5!, TRG+5*
>> AMERSVER	VAR1+2*
AMERTAB	EXIT1+5!
>> AMERTFLG	EDIT+1
AMERTIME	AMER+3~
AMERTRG	TRG+6*, TRG+8!
>> AMERVER	VAR1+1*, VAR1+3
AMQQSSEQ	EXIT1+3!
>> APCHSPAT	PRINT+6*
>> APCHSTYP	PRINT+6*
AUPDIC	REGEXIT!
AUPDICW	REGEXIT!
AUPL	REGEXIT!
AUPNDAYS	EXIT1+5!
AUPNDOB	EXIT1+3!
AUPNDOD	EXIT1+3!
AUPNPAT	EXIT1+3!
AUPNSEX	EXIT1+3!
AUPQF	REGEXIT!
AUPX	REGEXIT!
B	EXIT1+5!
BS	REGEXIT!
C	EXIT1+5!
D	RUN+59, EXIT1+4!, REGEXIT!
D0	RUN+55*, RUN+59, EXIT1+4!, REGEXIT!
D1	RUN+56*, RUN+59, REGEXIT!
DA	EXIT1+4!, REGEXIT!
DD	EXIT1+4!
DFN	RUN+54, RUN+55, RUN+56, RUN+59, EXIT1+2!, REG+2!, REG+3, REG+6, REG+7, REGEXIT!
DH	EXIT1+3!
DI	EXIT1+4!, REGEXIT!
DIADD	EXIT1+4!
DIC	EXIT1+4!, PRINT+3*, PRINT+5!, REGEXIT!
DIC("B"	PRINT+4*
DIC(0	PRINT+3*
DICR	EXIT1+4!
DIE	EXIT1+4!, REGEXIT!
DIG	EXIT1+4!, REGEXIT!
DIH	EXIT1+4!, REGEXIT!
DIK	EXIT1+4!
DINUM	EXIT1+4!
DIPGM	EXIT1+4!, REGEXIT!
DIROUT	EXIT1+3!, OUT+2
DIRUT	EXIT1+5!, OUT+2!, SC1+5!
DISYS	EXIT1+4!
DIU	EXIT1+4!, REGEXIT!
DIV	EXIT1+4!, REGEXIT!
DIW	EXIT1+4!, REGEXIT!
DO	EXIT1+4!, REGEXIT!
DOB	EXIT1+2!
DOG	REG+2*, REGEXIT!
DPP	EXIT1+4!
DQ	EXIT1+4!, REGEXIT!
DR	EXIT1+4!, REGEXIT!
DTOUT	EXIT1+4!, OUT+2!
DUOUT	EXIT1+4!, OUT+2!
DX	EXIT1+4!
E	EXIT1+5!
ERIEN	RUN+10~, RUN+12*, RUN+13, RUN+16
F	EXIT1+3!, REGEXIT!
FF	REGEXIT!
G	EXIT1+5!
H	EXIT1+5!
I	EXIT1+3!
IOF	VAR1+3, EXIT+1, SC1+4, EN1+3
>> IOP	VAR1+3*
J	EXIT1+5!
K	EXIT1+5!
L	EXIT1+1!
N	EXIT1+5!
POP	EXIT1+5!, OUT+1*, OUT+2!
Q	EXIT1+5!
RM	REGEXIT!
S	EXIT1+4!
SDSEX	EXIT1+5!
SEX	EXIT1+2!
SL	REGEXIT!
SSN	EXIT1+2!
SUB	REGEXIT!
T	EXIT1+5!
U	RUN+14, RUN+17, SET+6, SET+7, SET+8, SET+9, SET+12, OUT+3, LINE+4, OPT+4
V	EXIT1+5!
X	RUN+50~, RUN+51, EXIT1+3!, SET+5, SET+6, SET+7, SET+8, SET+9, SET+12, OUT+3 , OUT+4, LINE~, LINE+3, LINE+4, OPT~, OPT+3
XY	REGEXIT!
XYER	REGEXIT!
Y	EXIT1+3!, SET+9, SET+13, SET+14, RESTORE+1, PRINT+6, LINE+1~, LINE+4, LINE+5, OPT+2~ , OPT+3, OPT+4
Z	EXIT1+3!, OPT+2~

Customize PDF page

Package: Emergency Room

Routine: AMER

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Caller Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: