Routine: AMERUTIL

Package	Total	Call Graph
DRG Grouper	3	$$ICDDX^ICDCODE $$ICDDX^ICDEX $$IMP^ICDEXA
Lexicon Utility	3	LOOK^LEXA CONFIG^LEXSET ($$ICDONE,$$ONE)^LEXU
IHS Patient	2	$$CHK^AUPNSICD $$ICDDX^AUPNVUTL
Kernel	2	$$DT^XLFDT $$VERSION^XPDUTL
Emergency Room	1	$$CHK^AMERUTIL
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
Emergency Room	8	AMER2B AMER31 AMERD AMEREDPC AMEREDTI AMERERS AMERPOV AMERUTIL
IHS Emergency Dept Dashboard	4	BEDD2PST BEDDPOV BEDDUTID BEDDUTIS

Entry Points

Name	Comments	DBIA/ICR reference
DTB	;;17;;2;;2;;DOUBLE HIGH BOTTOM HALF
LEX(SEARCH,COUNT,FILTER,DATE,GENDER,RET)	;EP - Perform Lexicon Lookup
FMTDATE(X,TM)	;EP - Return formated date - Taken from BGOUTL
DTP	;;17;;1;;1;;DOUBLE HIGH TOP HALF
RVF	;;5;;5;;5;;REVERSE VIDEO OFF
AICD()
RVN	;;5;;4;;4;;REVERSE VIDEO ON
FILTER(ALEX,ALEXVDT,ICD10,FILTER)	;Filtering for Lexicon lookup
CHKDX30
HIF	;;7;;2;;2;;HI INTENSITY OFF
IOF	;;1;;2;;2;;FORM FEED/CLEAR SCREEN
HIN	;;7;;1;;1;;HI INTENSITY ON
CHK(Y,ICD10,ALEXVDT)
BLN	;;5;;8;;8;;BLINK ON
ULN	;;6;;4;;4;;UNDERLINE ON
BLF	;;5;;9;;9;;BLINK OFF
ULF	;;6;;5;;5;;UNDERLINE OFF
POV(AUPNPAT,AMERPCC,AMERPOV)	;EP - Return a list of POV entries for a visit
10
12
16
S(X)	;EP - Screen formatting - Based on AGVDF
CHKDX1

External References

Name	Field # of Occurrence
$$CHK^AMERUTIL	FILTER+41
$$CHK^AUPNSICD	FILTER+24, FILTER+33
$$ICDDX^AUPNVUTL	FILTER+21, FILTER+30, FILTER+39, CHK+5
$$GET1^DIQ	POV+20, POV+33, POV+36, POV+37, POV+46, POV+54, POV+55
$$ICDDX^ICDCODE	POV+39, LEX+50, LEX+56
$$ICDDX^ICDEX	POV+38, LEX+49, LEX+55
$$IMP^ICDEXA	LEX+26
LOOK^LEXA	LEX+36
CONFIG^LEXSET	LEX+29
$$ICDONE^LEXU	FILTER+20
$$ONE^LEXU	FILTER+29, FILTER+38
$$DT^XLFDT	FILTER+19
$$VERSION^XPDUTL	AICD+1, LEX+26

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @AMERMVDF(+IOST(0),X) Line Location: S+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AMERADM - [#9009081]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	S+4
^AUPNVPOV("AD"	POV+29
^TMP("LEXFND"	LEX+20!
^TMP("LEXSCH"	LEX+20!

Label References

Name	Line Occurrences
$$AICD	POV+38, LEX+49, LEX+55
$$FMTDATE	POV+36
@(	CHK+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	FILTER+37~, CHK+1~, CHK+5*, CHK+6, CHKDX1+3, CHKDX1+6, CHKDX1+10, CHKDX30+3, CHKDX30+4, CHKDX30+5 , CHKDX30+6, CHKDX30+8, CHKDX30+14, CHKDX30+18
A	CHK+1~
ALEVXDT	FILTER+37~
ALEX	FILTER~, FILTER+20, FILTER+21, FILTER+29, FILTER+30, FILTER+38*, FILTER+39
ALEXICD	FILTER+18~, FILTER+21, FILTER+22, FILTER+24, FILTER+28~, FILTER+30, FILTER+31, FILTER+33, FILTER+37~, FILTER+39* , FILTER+40, FILTER+41
ALEXVDT	FILTER~, FILTER+19, FILTER+20, FILTER+21, FILTER+23, FILTER+29, FILTER+30, FILTER+32, FILTER+38, FILTER+39 , FILTER+41, CHK~, CHK+3, CHK+5
AMERM1	S+1~
AMERM1("LN"	S+3*
AMERM1("X"	S+2*, S+7
AMERM1(1	S+3*, S+4
AMERM1(2	S+3*, S+4
AMERM1(3	S+3*, S+4
AMERMVDF	S+1~
AMERMVDF(	S+4, S+5, S+6
AMERPCC	POV~, POV+17, POV+20*, POV+21, POV+29, POV+36
AMERPOV	POV~, POV+24!
AMERPOV(	POV+59*
APCDDATE	FILTER+8~, FILTER+23, FILTER+32
AUPNPAT	POV~, POV+17, POV+20
AUPNSEX	LEX+18~, LEX+23*, CHKDX1+9, CHKDX1+10, CHKDX30+17, CHKDX30+18
CNT	POV+26~, POV+29, POV+58, POV+59, POV+61
CODE	LEX+43~, LEX+46, LEX+49, LEX+50, LEX+53, LEX+54, LEX+55, LEX+56, LEX+59, LEX+66* , LEX+68, LEX+69
COUNT	LEX~, LEX+13*, LEX+36
CSET	LEX+18~, LEX+27*, LEX+29, LEX+36
D	FMTDATE+2~, FMTDATE+3*, FMTDATE+4
DATE	LEX~, LEX+15*, LEX+26, LEX+29, LEX+36
DELIMITER	LEX+18~, LEX+39*, LEX+46
DESC	LEX+43~, LEX+67*, LEX+68
DIC	LEX+18~
DIC("S"	LEX+33*
DIEN	LEX+43~, LEX+65*, LEX+68
DPLIST	LEX+18~
DPLIST(	LEX+59, LEX+69*
DT	LEX+15, CHK+3
DUZ("AG"	CHK+2
EXC	CHKDX30+7~, CHKDX30+8*, CHKDX30+11
FILTER	LEX~, LEX+14*, FILTER~, FILTER+14, FILTER+17, FILTER+27, FILTER+36
GENDER	LEX~, LEX+16*, LEX+23
I	CHK+1~, CHK+4, CHK+6, CHK+7, CHK+8
ICD	POV+30~, POV+40, POV+59, LEX+49, LEX+50, LEX+53, LEX+55, LEX+56*, LEX+62, LEX+65 , LEX+66, LEX+67
ICD10	LEX+18~, LEX+26*, LEX+27, LEX+39, FILTER~, FILTER+17, FILTER+27, FILTER+38, FILTER+41, CHK~ , CHK+4
ICDDESC	POV+30~, POV+43*, POV+59
ICDIEN	POV+30~, POV+37*, POV+38, POV+39, POV+59
ICDINFO	POV+30~, POV+38, POV+39, POV+40, POV+43
ICDV	POV+30~
IEN	POV+26~, POV+29*, POV+33, POV+37, POV+46, POV+54, POV+55, POV+59
INJ	POV+30~, POV+53, POV+54, POV+55*, POV+59
IOST(0	S+4, S+5, S+6
LEX	LEX+18~, LEX+41*, LEX+42, LEX+46
LEX("LIST"	LEX+20!, LEX+41, LEX+46
LIEN	LEX+43~
M	FMTDATE+2~, FMTDATE+3*, FMTDATE+4, FMTDATE+5
PNAR	POV+30~, POV+33*, POV+59
PRM	POV+26~, POV+29, POV+50, POV+61
PS	POV+30~, POV+46, POV+47, POV+50, POV+59
RET	LEX~, CHKDX30+1~, CHKDX30+2, CHKDX30+3, CHKDX30+4, CHKDX30+5, CHKDX30+6, CHKDX30+11, CHKDX30+12, CHKDX30+14* , CHKDX30+17, CHKDX30+18*, CHKDX30+19
RET(	LEX+68*
RETURN	FILTER+8~, FILTER+11, FILTER+14, FILTER+17, FILTER+20, FILTER+22, FILTER+24, FILTER+27, FILTER+29, FILTER+31 , FILTER+33, FILTER+36, FILTER+38, FILTER+40, FILTER+41
SEARCH	LEX~, LEX+12, LEX+36
TM	FMTDATE~, FMTDATE+6
TOTREC	LEX+18~, LEX+41, LEX+68
U	POV+40, POV+43, POV+59, POV+61, LEX+53, LEX+62, LEX+65, LEX+66, LEX+67, LEX+68 , FILTER+24, FILTER+33, FILTER+41, CHK+6, CHKDX1+3, CHKDX1+6, CHKDX1+10, CHKDX30+3, CHKDX30+4, CHKDX30+5 , CHKDX30+6, CHKDX30+8, CHKDX30+14, CHKDX30+18
V	FMTDATE+2~, FMTDATE+3, FMTDATE+4, FMTDATE+5, FMTDATE+10, FMTDATE+11
VDATE	POV+30~, POV+36*, POV+38, POV+39
X	FMTDATE~, FMTDATE+1, FMTDATE+3, FMTDATE+7, FMTDATE+8, FMTDATE+9, FMTDATE+10, S~, S+4, S+5 , S+6, S+8*, S+9
Y	CHK~, CHK+5

Marked Items

Name	Field # of Occurrence
$T(@X	S+3

Customize PDF page

Package: Emergency Room

Routine: AMERUTIL

Information

Source Information

Call Graph

Call Graph Total: 12

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

Local Variables

Legend:

Marked Items