Routine: AMER2A

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
VA Fileman	7	H^%DTC ^DIC YN^DICN FILE^DIE $$IENS^DILF $$GET1^DIQ ^DIR
Emergency Room	4	OUT^AMER $$CAT^AMER0 $$CKHLOC^AMERBSD $$EXISTING^AMERPCC

Package	Total	Caller Graph
Emergency Room	10	AMER2 AMER2B AMER3 AMEREDTA AMEREDTD AMEREDTI AMEREDTT AMERPCC AMERPOV AMERTIME
IHS Emergency Dept Dashboard	1	BEDDUTL2

Package

Total

Caller Graph

Emergency Room

AMER2 AMER2B AMER3 AMEREDTA AMEREDTD AMEREDTI AMEREDTT AMERPCC
AMERPOV AMERTIME

IHS Emergency Dept Dashboard

BEDDUTL2

Entry Points

Name	Comments	DBIA/ICR reference
QD28(AMERPCC)	; Decision to admit date/time - AMER3.06
TVAL(Z,T,H)	; ENTRY POINT FROM AMER2 and multiple editing routines ; VALIDATE THE TIME WHERE Z=TIME,T=COMPARISON TIME AND H=MAX HOURS ALLOWED
TCK(Z,T,X,A)	; ENTRY POINT FROM AMER2 ; TIME CHECK WHERE Z=TIME,T=COMPARISON TIME,X=1:AFTER,X=0:BEFORE AND A=NARRATIVE
QD21	; PROVIDER
QD20	; CLINIC TYPE
QD23	; INITIAL TRIAGE
QD22	; TRIAGE NURSE
QD25	; DOC TIME
QD24	; TRIAGE TIME
QD28E	;Pull current date/time from PCC
SYNCCL(AMERDA,AMERPCC)	;Sync the ER VISIT clinic with the PCC clinic
GETCLN(AUPNVSIT)	;Return the ER Clinic for the PCC hospital location
QD20A	;

External References

Name	Field # of Occurrence
H^%DTC	TVAL+4, TVAL+5
OUT^AMER	QD20A+52, QD21+18, QD22+9, QD23+5, QD24+8, QD25+14
$$CAT^AMER0	QD20A+39
$$CKHLOC^AMERBSD	QD20A+50
$$EXISTING^AMERPCC	QD20A+31
^DIC	QD20A+41, QD21+16, QD22+7
YN^DICN	TVAL+9
FILE^DIE	QD28E+20, SYNCCL+44, SYNCCL+51
$$IENS^DILF	GETCLN+13
$$GET1^DIQ	QD20A+19, QD20A+20, QD20A+24, QD20A+34, QD28E+1, QD28E+3, QD28E+5, SYNCCL+19, SYNCCL+26, SYNCCL+35 , SYNCCL+36, SYNCCL+41, GETCLN+6, GETCLN+9, GETCLN+14, GETCLN+16, GETCLN+23, GETCLN+24
^DIR	QD23+4, QD24+4, QD25+8, QD28E+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Sorry, this time must be ",$S(X:"AFTER",1:"BEFORE")," the time of ",A,": ",Y,!,"Please try again...",! Line Location: TCK+7
Function Call: WRITE	Prompt: !!,*7,"This means a really long delay since the time of admission: ",Y,!,"Are you sure" Line Location: TVAL+9
Function Call: WRITE	Prompt: ! Line Location: TVAL+9
Routine Call	DIC Line Location: QD20A+41 QD21+16 QD22+7
Routine Call	DIE Line Location: QD28E+20 SYNCCL+44 SYNCCL+51
Routine Call	DIR Line Location: QD23+4 QD24+4 QD25+8 QD28E+8

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(40.7 - [#40.7]	GET1^DIQ
^AUPNVSIT - [#9000010]	GET1^DIQ
^AMERVSIT - [#9009080]	GET1^DIQ
^AMERADM - [#9009081]	GET1^DIQ
^AMER(2.5 - [#9009082.5]	GET1^DIQ
9009082.58	GET1^DIQ
^AMER(3 - [#9009083]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AMER(2.5 - [#9009082.5]	QD20A+10, SYNCCL+30, SYNCCL+31, SYNCCL+32, GETCLN+11
^AMER(3 - [#9009083]	QD20A+23, QD20A+35, SYNCCL+42, GETCLN+25
^DD("DD"	QD24+1, TCK+4, TVAL+3
^DIC(40.7 - [#40.7]	SYNCCL+27
^DPT - [#2]	QD20+4
^TMP("AMER"	QD20+2, QD20A+35, QD21+12, QD21+17!, QD22+2, QD22+8!, QD23+1, QD23+6, QD23+7, QD23+8 , QD24+1, QD24+5, QD24+6, QD24+9, QD24+10, QD25+9, QD25+10, QD25+11, QD28E+22
^VA(200 - [#200]	QD21+12, QD22+2

Name	Line Occurrences
$$GETCLN	QD20A+33
$$TCK	QD24+5, QD25+9, QD25+10, QD28E+11
$$TVAL	QD24+6, QD25+11
QD24	QD24+5, QD24+6
QD25	QD25+9, QD25+10, QD25+11
QD28E	QD28E+11

Name	Field # of Occurrence
^(20	QD20A+35
^(21	QD21+12, QD23+7
^(22	QD22+2, QD23+6
^(24	QD24+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QD20+1~, QD20+3, QD20A+35, QD21+12, QD22+2, TCK+2~, TVAL+2~, TVAL+9*, TVAL+10
%H	TVAL+2~, TVAL+4, TVAL+5
%T	TVAL+2~, TVAL+4, TVAL+5
%Y	TVAL+2~
A	TCK~, TCK+3, TCK+7, TVAL+2~, TVAL+4*, TVAL+6
>> AMERBCH	QD20+2, QD20A+42
AMERCLN	QD20A+1~, QD20A+19, QD20A+20, QD20A+23, QD20A+24, QD20A+33*, QD20A+34
AMERDA	SYNCCL~, SYNCCL+13, SYNCCL+19, SYNCCL+43
>> AMERDFN	QD20+4, QD20A+31
>> AMEREFLG	QD20+2, QD20A+42, QD20A+43, QD23+6, QD24+9, QD28E+22
>> AMERFIN	QD23+6, QD24+9, QD25+15, QD28E+22
AMERLINE	QD20+1~, QD20+3*, QD20+6
AMERLOC	QD20A+1~, QD20A+9*, QD20A+10, QD20A+15, QD20A+19
>> AMERMAND	QD20+2
AMERPCC	QD20A+1~, QD20A+31, QD20A+32, QD20A+33, QD20A+50, QD28~, QD28E+1, QD28E+2, QD28E+3, QD28E+5 , QD28E+14, QD28E+17, SYNCCL~, SYNCCL+14, SYNCCL+35, SYNCCL+36, SYNCCL+49, SYNCCL+50
>> AMERQUIT	QD20A+52, QD21+18, QD22+9
>> AMERRUN	QD23+6, QD23+7, QD23+8, QD24+9, QD24+10, QD25+15, QD28E+2, QD28E+22, QD28E+23, QD28E+24
>> AMERSTRT	QD23+6, QD24+9, QD28E+22*
>> AMERTFLG	QD20A+43*
>> AMERTRG	QD21+4, QD23+6, QD25+3, QD28E+22, QD28E+23
AMERTYP	QD20A+1~
AMERUPD	SYNCCL+40~, SYNCCL+48~
AMERUPD(9000010	SYNCCL+49, SYNCCL+50
AMERUPD(9009080	SYNCCL+43*
AMVDT	QD28+1~, QD28E+5*, QD28E+11
AUPNVSIT	GETCLN~, GETCLN+2, GETCLN+6, GETCLN+9, GETCLN+23
B	TVAL+2~, TVAL+4*, TVAL+7
C	TVAL+2~, TVAL+5*, TVAL+6
CIEN	GETCLN+10~, GETCLN+11*, GETCLN+13
CLINIC	GETCLN+21~, GETCLN+23, GETCLN+24, GETCLN+25
CLN	SYNCCL+23~, SYNCCL+26, SYNCCL+27, GETCLN+4~, GETCLN+8, GETCLN+11, GETCLN+17, GETCLN+20, GETCLN+25, GETCLN+27
CODE	SYNCCL+40~, SYNCCL+41*, SYNCCL+42
D	TVAL+2~, TVAL+5*, TVAL+6
DA	QD23+4!, GETCLN+12~, GETCLN+13*
DA(1	GETCLN+13*
DECDT	QD28+1~, QD28E+3*, QD28E+4
>> DFN	QD28E+1
DIC	QD20A+36, QD20A+41!, QD21+13, QD21+16!, QD22+4*, QD22+7!
DIC("?"	QD21+10, QD22+3
DIC("A"	QD20A+5, QD21+9, QD22+1*
DIC("B"	QD20A+5!, QD20A+18, QD20A+20, QD20A+22, QD20A+24, QD20A+34, QD20A+35, QD21+9!, QD21+12, QD22+1! , QD22+2*
DIC("S"	QD20A+39, QD21+15, QD22+6*
DIC(0	QD20A+40, QD21+13, QD22+4*
DIR	QD23+4!, QD24+4!, QD25+8!, QD28+1~, QD28E+8!
DIR("?"	QD23+2, QD23+3, QD24+4, QD25+8, QD28E+8*
DIR("A"	QD23+4, QD24+4, QD25+8, QD28E+8
DIR("B"	QD23+1, QD24+1, QD28E+4*
DIR(0	QD23+4, QD24+4, QD25+8, QD28E+8
DIV	GETCLN+4~, GETCLN+6*, GETCLN+11, GETCLN+13
DUZ(2	QD20A+9, SYNCCL+30, SYNCCL+31, SYNCCL+32, GETCLN+6
E	TVAL+2~, TVAL+6*, TVAL+7
ECEIEN	SYNCCL+16~, SYNCCL+19*, SYNCCL+22, SYNCCL+26, SYNCCL+30, SYNCCL+39
ECLN	GETCLN+12~, GETCLN+16*, GETCLN+17
ECPIEN	SYNCCL+16~, SYNCCL+22, SYNCCL+27, SYNCCL+39, SYNCCL+47, SYNCCL+49
EHLOC	GETCLN+12~, GETCLN+14*, GETCLN+15
EHPIEN	SYNCCL+16~, SYNCCL+22, SYNCCL+31, SYNCCL+32*, SYNCCL+50
ENCPIEN	SYNCCL+40~, SYNCCL+42*, SYNCCL+43
ERR	QD20A+1~, QD20A+50*
ERROR	QD28+1~, SYNCCL+40~, SYNCCL+48~
F	TVAL+2~, TVAL+7*, TVAL+8
H	TVAL~, TVAL+8
HLI	SYNCCL+23~, SYNCCL+30*, SYNCCL+31
HLOC	GETCLN+4~, GETCLN+9*, GETCLN+15
IENS	GETCLN+12~, GETCLN+13*, GETCLN+14, GETCLN+16
IOF	QD20+4
PCCUPD	QD28+1~, QD28E+20
PCCUPD(9000010	QD28E+14, QD28E+17
PCIEN	SYNCCL+16~, SYNCCL+35*, SYNCCL+39, SYNCCL+41, SYNCCL+47
PHIEN	SYNCCL+16~, SYNCCL+36*
T	TCK~, TCK+5, TCK+6, TVAL~, TVAL+5
U	QD20+4, QD20A+35, QD20A+42, QD20A+43, QD20A+44, QD21+12, QD22+2, QD23+5, SYNCCL+31
X	QD20A+2, QD20A+13, QD20A+42, QD20A+43, QD20A+44, QD23+5, QD24+8, QD25+14, TCK~, TCK+5 , TCK+6, TCK+7, TVAL+2~, TVAL+4, TVAL+5*
Y	QD20A+50, QD21+5, QD21+17, QD22+8, QD24+1, QD24+5!, QD24+6!, QD24+7, QD25+4, QD25+9! , QD25+10!, QD25+11!, QD25+12, QD25+13, QD28E+11!, QD28E+14, QD28E+17, TCK+2~, TCK+4, TCK+7 , TVAL+2~, TVAL+3*, TVAL+9
Z	TCK~, TCK+3, TCK+4, TCK+5, TCK+6, TVAL~, TVAL+3, TVAL+4

Customize PDF page

Package: Emergency Room

Routine: AMER2A

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 11

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: