Routine: AMEREDDX

Package	Total	Call Graph
VA Fileman	7	NOW^%DTC EN^DDIOL ^DIC FILE^DICN ^DIE (,EN)^DIK ^DIR
Emergency Room	5	CKSC^AMER1 ($$EDAUDIT,$$EDDISPL,MULTAUDT)^AMEREDAU (ADDVPOV,DELVPOV,UPVPOV)^AMEREDDY (DIE,MULTDIE)^AMEREDIT $$STRIPNAR^AMERPCC2
DRG Grouper	1	$$ICDDX^ICDCODE
IHS VA Utilities	1	^XBCLS

Package	Total	Caller Graph
Emergency Room	1	AMEREDIT

Name	Comments	DBIA/ICR reference
DELDIAG(AMERIEN,AMERSUB)	; ; Delete diagnosis record
SELECTDX(AMERPDX,AMERPNAR)	;IHS/OIT/GIS 9/9/11 patch 3
PROCESDX(AMERDXNO,AMERDIAG,AMERPDX,AMERPNAR)	;
PRIMDIAG(AMERDA,AMERDX,AMERNNAR,AMERAIEN,AMERPRIS,AMEROLDS)	; ; UPDATES PRIMARY DIAGNOSIS FIELDS IF THE ORIGINAL INFORMATION MATCHES PRIMARY DX INFORMATION ; AND ALLOWS USER TO REPLACE PRIMARY DX FIELDS WITH NEW ONE'S IF ORIGINAL INFORMATION IS DIFFERENT
EDDIAGS(AMERDA,AMEREDNO,AMERAIEN)	; EP from AMEREDIT

Name	Field # of Occurrence
NOW^%DTC	PRIMDIAG+37, PRIMDIAG+46
CKSC^AMER1	PROCESDX+77, PROCESDX+84
$$EDAUDIT^AMEREDAU	PROCESDX+31, PROCESDX+53, PROCESDX+104, PROCESDX+141
$$EDDISPL^AMEREDAU	PRIMDIAG+38, PROCESDX+31, PROCESDX+53, PROCESDX+141
MULTAUDT^AMEREDAU	PRIMDIAG+54, PROCESDX+112
ADDVPOV^AMEREDDY	PROCESDX+140
DELVPOV^AMEREDDY	DELDIAG+10
UPVPOV^AMEREDDY	PROCESDX+110
DIE^AMEREDIT	PRIMDIAG+53
MULTDIE^AMEREDIT	PROCESDX+58, PROCESDX+98, PROCESDX+146
$$STRIPNAR^AMERPCC2	PROCESDX+96, PROCESDX+127
EN^DDIOL	EDDIAGS+2, EDDIAGS+10, EDDIAGS+26, EDDIAGS+43, PROCESDX+24, PROCESDX+27, PROCESDX+28, SELECTDX+6, SELECTDX+7
^DIC	EDDIAGS+36, PROCESDX+48, PROCESDX+136
FILE^DICN	PROCESDX+131
^DIE	PROCESDX+61, PROCESDX+101
^DIK	DELDIAG+13
EN^DIK	DELDIAG+13
^DIR	PRIMDIAG+28, DELDIAG+5, PROCESDX+41, PROCESDX+68, PROCESDX+73, PROCESDX+83, PROCESDX+123, SELECTDX+28
$$ICDDX^ICDCODE	EDDIAGS+15, EDDIAGS+23, PRIMDIAG+20, PRIMDIAG+34, PRIMDIAG+35, PROCESDX+128, PROCESDX+133, SELECTDX+18, SELECTDX+19
^XBCLS	EDDIAGS+18

FileNo	Call Tags
^ICD9 - [#80]	Classic Fileman Calls
^AMERVSIT - [#9009080]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AMERVSIT - [#9009080]	EDDIAGS+11, EDDIAGS+12, EDDIAGS+15, EDDIAGS+16, EDDIAGS+23, PRIMDIAG+16, PRIMDIAG+17, PROCESDX+24, PROCESDX+25, PROCESDX+61 , PROCESDX+101, SELECTDX+12, SELECTDX+14, SELECTDX+20, SELECTDX+21, SELECTDX+23
^XUSEC("AMERZ9999"	EDDIAGS+2

Name	Line Occurrences
$$DELDIAG	PROCESDX+30
$$PROCESDX	EDDIAGS+41
$$SELECTDX	EDDIAGS+21

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AMERAIEN	EDDIAGS~, PRIMDIAG~, PRIMDIAG+54, PROCESDX+112
AMERBAD	PROCESDX+11~, PROCESDX+22, PROCESDX+50, PROCESDX+65
AMERCKSC	PROCESDX+78, PROCESDX+85, PROCESDX+86!
AMERCODE	EDDIAGS+7~, EDDIAGS+23*, EDDIAGS+28, EDDIAGS+30
AMERDA	EDDIAGS~, EDDIAGS+11, EDDIAGS+12, EDDIAGS+15, EDDIAGS+16, EDDIAGS+23, PRIMDIAG~, PRIMDIAG+16, PRIMDIAG+17, PRIMDIAG+53 , PROCESDX+24, PROCESDX+25, PROCESDX+30, PROCESDX+56, PROCESDX+60, PROCESDX+95, PROCESDX+100, PROCESDX+110, PROCESDX+129, PROCESDX+134 , PROCESDX+140, PROCESDX+144, SELECTDX+12, SELECTDX+14, SELECTDX+20, SELECTDX+21, SELECTDX+23
AMERDIAG	PROCESDX~, PROCESDX+17
AMERDONE	EDDIAGS+7~, EDDIAGS+9, EDDIAGS+17, EDDIAGS+22, EDDIAGS+37, EDDIAGS+45, EDDIAGS+46!, PROCESDX+49*
AMERDX	EDDIAGS+7~, EDDIAGS+9, EDDIAGS+38, EDDIAGS+39, EDDIAGS+41, EDDIAGS+45, EDDIAGS+46!, PRIMDIAG~, PRIMDIAG+31, PRIMDIAG+35 , PRIMDIAG+41, PROCESDX+17, PROCESDX+51, PROCESDX+57, PROCESDX+117, PROCESDX+128, PROCESDX+130, PROCESDX+133, PROCESDX+135
AMERDXNO	EDDIAGS+7~, EDDIAGS+8, EDDIAGS+46!, PROCESDX~, PROCESDX+21, PROCESDX+24, PROCESDX+25, PROCESDX+30, PROCESDX+56, PROCESDX+95 , PROCESDX+116, SELECTDX+1~, SELECTDX+9, SELECTDX+12, SELECTDX+14, SELECTDX+20, SELECTDX+21, SELECTDX+23
AMEREDNO	EDDIAGS~, PRIMDIAG+38, PRIMDIAG+47, PROCESDX+31, PROCESDX+53, PROCESDX+104, PROCESDX+141
AMEREDTS	PRIMDIAG+12~, PRIMDIAG+15, PRIMDIAG+40, PRIMDIAG+49, PRIMDIAG+54, PRIMDIAG+55!, DELDIAG+3, PROCESDX+11~, PROCESDX+15, PROCESDX+33 , PROCESDX+55, PROCESDX+106, PROCESDX+112, PROCESDX+113, PROCESDX+143
AMERFLAG	DELDIAG+2~, DELDIAG+6, DELDIAG+14, DELDIAG+17
AMERGONE	PROCESDX+12~, PROCESDX+22, PROCESDX+34, PROCESDX+39
AMERGOOD	PROCESDX+13~, PROCESDX+79, PROCESDX+80, PROCESDX+85
AMERICD9	PROCESDX+12~, PROCESDX+17*, PROCESDX+23, PROCESDX+27, PROCESDX+29, PROCESDX+118, PROCESDX+119, SELECTDX+1~
AMERIEN	DELDIAG~, DELDIAG+8, DELDIAG+10
AMERNAR	EDDIAGS+7~, EDDIAGS+9*, EDDIAGS+46!
AMERNDX	PROCESDX+12~, PROCESDX+15, PROCESDX+43, PROCESDX+51, PROCESDX+52, PROCESDX+53, PROCESDX+109, PROCESDX+110, PROCESDX+118, PROCESDX+119* , PROCESDX+140, PROCESDX+141
AMERNEW	PRIMDIAG+12~, PRIMDIAG+35*, PRIMDIAG+36, PRIMDIAG+38
AMERNNAR	PRIMDIAG~, PRIMDIAG+44, PRIMDIAG+45, PRIMDIAG+50, PROCESDX+12~, PROCESDX+15, PROCESDX+70, PROCESDX+93, PROCESDX+94, PROCESDX+96 , PROCESDX+97, PROCESDX+104, PROCESDX+109, PROCESDX+110, PROCESDX+125, PROCESDX+126, PROCESDX+127, PROCESDX+140, PROCESDX+144
AMERODX	PRIMDIAG+12~, PRIMDIAG+17, PRIMDIAG+18, PRIMDIAG+19, PRIMDIAG+20, PRIMDIAG+31, PRIMDIAG+34, PRIMDIAG+55!, PROCESDX+12~, PROCESDX+15 , PROCESDX+23, PROCESDX+26, PROCESDX+31, PROCESDX+43, PROCESDX+52, PROCESDX+53, PROCESDX+109, PROCESDX+110, PROCESDX+118
AMEROLD	PRIMDIAG+12~, PRIMDIAG+15, PRIMDIAG+34, PRIMDIAG+38
AMEROLDS	PRIMDIAG~, PRIMDIAG+21, PROCESDX+11~, PROCESDX+26, PROCESDX+118
AMERONAR	PRIMDIAG+12~, PRIMDIAG+16, PRIMDIAG+44, PRIMDIAG+47, PRIMDIAG+55!, PROCESDX+12~, PROCESDX+15, PROCESDX+25*, PROCESDX+26, PROCESDX+27 , PROCESDX+29, PROCESDX+70, PROCESDX+72, PROCESDX+82, PROCESDX+94, PROCESDX+104, PROCESDX+109, PROCESDX+110
AMERPDX	EDDIAGS+7~, EDDIAGS+9, EDDIAGS+11, EDDIAGS+15, EDDIAGS+21, EDDIAGS+41, EDDIAGS+42, PRIMDIAG+12~, PRIMDIAG+14, PRIMDIAG+21 , PRIMDIAG+36, PRIMDIAG+56, PROCESDX~, PROCESDX+19, PROCESDX+27, PROCESDX+29, SELECTDX~, SELECTDX+20
AMERPNAR	EDDIAGS+7~, EDDIAGS+12, EDDIAGS+16, EDDIAGS+21, EDDIAGS+41, EDDIAGS+42, PRIMDIAG+12~, PRIMDIAG+14, PRIMDIAG+21, PRIMDIAG+45* , PRIMDIAG+47, PRIMDIAG+56, PROCESDX~, PROCESDX+19, PROCESDX+27, PROCESDX+29, SELECTDX~, SELECTDX+20
AMERPRIM	EDDIAGS+7~, EDDIAGS+41*, EDDIAGS+42
AMERPRIS	PRIMDIAG~, PRIMDIAG+14, PROCESDX+11~, PROCESDX+19*, PROCESDX+115, PROCESDX+148
AMERQUIT	EDDIAGS+7~, EDDIAGS+8, EDDIAGS+49, PROCESDX+12~, PROCESDX+18, PROCESDX+36, PROCESDX+38, PROCESDX+42, PROCESDX+49, PROCESDX+65 , PROCESDX+69, PROCESDX+74, PROCESDX+88, PROCESDX+91
AMERSEL	EDDIAGS+7~, EDDIAGS+21, EDDIAGS+22, EDDIAGS+23, EDDIAGS+27, EDDIAGS+41, SELECTDX+1~, SELECTDX+2
AMERSKIP	PROCESDX+12~, PROCESDX+17, PROCESDX+22, PROCESDX+117
AMERSTRG	PRIMDIAG+12~, PRIMDIAG+15, PRIMDIAG+38, PRIMDIAG+39, PRIMDIAG+40, PRIMDIAG+43, PRIMDIAG+47, PRIMDIAG+48, PRIMDIAG+49, PRIMDIAG+55! , DELDIAG+3, PROCESDX+11~, PROCESDX+15, PROCESDX+31, PROCESDX+32, PROCESDX+33, PROCESDX+53, PROCESDX+54, PROCESDX+55, PROCESDX+104 , PROCESDX+105, PROCESDX+106, PROCESDX+141*, PROCESDX+142, PROCESDX+143
AMERSUB	DELDIAG~, DELDIAG+8, DELDIAG+10
AMERTEMP	PRIMDIAG+12~, PRIMDIAG+20*, PRIMDIAG+21
>> DA	DELDIAG+8, PROCESDX+56, PROCESDX+58, PROCESDX+59, PROCESDX+60, PROCESDX+61, PROCESDX+95, PROCESDX+98, PROCESDX+99, PROCESDX+100* , PROCESDX+101, PROCESDX+144*, PROCESDX+146
>> DA(1	DELDIAG+8, DELDIAG+12, PROCESDX+56, PROCESDX+58, PROCESDX+95, PROCESDX+98, PROCESDX+129, PROCESDX+134, PROCESDX+144, PROCESDX+146
DIC	EDDIAGS+7~, EDDIAGS+32, EDDIAGS+46!, PROCESDX+46, PROCESDX+48!, PROCESDX+129, PROCESDX+134, PROCESDX+144, PROCESDX+145!
DIC("A"	EDDIAGS+24, EDDIAGS+29, EDDIAGS+31, PROCESDX+47
DIC("B"	EDDIAGS+25, EDDIAGS+28
DIC("S"	EDDIAGS+35, PROCESDX+46
DIC(0	EDDIAGS+30, EDDIAGS+31, PROCESDX+46, PROCESDX+129, PROCESDX+134*
DIE	PROCESDX+56, PROCESDX+58, PROCESDX+60, PROCESDX+95, PROCESDX+98!, PROCESDX+100, PROCESDX+144*, PROCESDX+146
DIK	DELDIAG+2~, DELDIAG+12*, DELDIAG+16!
DIR	PRIMDIAG+12~, PRIMDIAG+55!, DELDIAG+2~, DELDIAG+5!, DELDIAG+16!, PROCESDX+41!, PROCESDX+68!, PROCESDX+90!, SELECTDX+1~
DIR("?"	PROCESDX+122, SELECTDX+27
DIR("A"	PRIMDIAG+27, DELDIAG+4, PROCESDX+40, PROCESDX+67, PROCESDX+72, PROCESDX+82, PROCESDX+120, SELECTDX+27
DIR("B"	PRIMDIAG+26, DELDIAG+4, PROCESDX+40, PROCESDX+67, PROCESDX+72, PROCESDX+81, PROCESDX+82
DIR(0	PRIMDIAG+27, DELDIAG+4, PROCESDX+40, PROCESDX+67, PROCESDX+72, PROCESDX+82, PROCESDX+121, SELECTDX+11, SELECTDX+21, SELECTDX+23 , SELECTDX+25*
DR	PRIMDIAG+12~, PRIMDIAG+15, PRIMDIAG+41, PRIMDIAG+50, PRIMDIAG+53, PRIMDIAG+55!, PROCESDX+11~, PROCESDX+15, PROCESDX+56, PROCESDX+57 , PROCESDX+58, PROCESDX+60, PROCESDX+63, PROCESDX+95, PROCESDX+97, PROCESDX+98, PROCESDX+100, PROCESDX+103, PROCESDX+144*, PROCESDX+146
DTOUT	EDDIAGS+37, EDDIAGS+48!, PROCESDX+36, PROCESDX+42, PROCESDX+49, PROCESDX+69, PROCESDX+74, PROCESDX+115!, PROCESDX+124!, SELECTDX+29!
DUOUT	EDDIAGS+37, EDDIAGS+48!, PROCESDX+36, PROCESDX+42, PROCESDX+49, PROCESDX+69, PROCESDX+74, PROCESDX+115!, PROCESDX+124!, SELECTDX+29!
DUZ	EDDIAGS+2
U	EDDIAGS+11, EDDIAGS+12, EDDIAGS+15, EDDIAGS+16, EDDIAGS+23, EDDIAGS+42, PRIMDIAG+14, PRIMDIAG+16, PRIMDIAG+17, PRIMDIAG+20 , PRIMDIAG+21, PRIMDIAG+34, PRIMDIAG+35, PROCESDX+17, PROCESDX+51, PROCESDX+128, PROCESDX+133, SELECTDX+18, SELECTDX+19
>> X	EDDIAGS+30, PRIMDIAG+38, PRIMDIAG+47, PROCESDX+130, PROCESDX+135*
Y	EDDIAGS+7~, EDDIAGS+9, EDDIAGS+32, EDDIAGS+38, EDDIAGS+46!, PRIMDIAG+12~, PRIMDIAG+13, PRIMDIAG+18, PRIMDIAG+21, PRIMDIAG+25 , PRIMDIAG+30, DELDIAG+7, PROCESDX+43, PROCESDX+44, PROCESDX+46, PROCESDX+50, PROCESDX+51, PROCESDX+70, PROCESDX+71, PROCESDX+75 , PROCESDX+81, PROCESDX+88, PROCESDX+93, PROCESDX+116, PROCESDX+125, PROCESDX+138, PROCESDX+144, SELECTDX+13~, SELECTDX+14*, SELECTDX+18 , SELECTDX+19, SELECTDX+30
Y1	SELECTDX+13~, SELECTDX+18*, SELECTDX+20, SELECTDX+21, SELECTDX+23
Y2	SELECTDX+13~, SELECTDX+19*, SELECTDX+21, SELECTDX+23

Customize PDF page

Package: Emergency Room

Routine: AMEREDDX

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: