Routine: AMER31

Package	Total	Call Graph
VA Fileman	5	NOW^%DTC ^DIC FILE^DIE $$GET1^DIQ ^DIR
IHS Patient	2	MOD^AUPNVSIT $$ICDDX^AUPNVUTL
Kernel	2	$$VERSION^XPDUTL DUZ^XUP
DRG Grouper	1	$$IMP^ICDEXA
Emergency Room	1	($$POV,$$S)^AMERUTIL
IHS VA Utilities	1	$$VAL^XBDIQ1
Patient Care Component	1	^APCDEA3

Package	Total	Caller Graph
Emergency Room	2	AMER3 AMEREDTI

Entry Points

Name	Comments	DBIA/ICR reference
QD11E	;Get the visit IEN
QD11	; ENTRY POINT FROM AMER3
UPDPOV(VPOVIEN)	;Update V POV entry with Injury Information
INJURY(AMERPOV,X)	;Match Injury with V POV and update V POV record
QD11X
AEPOV(AMERPCC,DFN,APCDMODE)	;EP - Add/Edit POV information

External References

Name	Field # of Occurrence
NOW^%DTC	UPDPOV+40
$$POV^AMERUTIL	QD11E+51
$$S^AMERUTIL	QD11E+11, QD11E+13, QD11E+21, QD11E+23, QD11E+39, QD11E+41, QD11E+47, QD11E+89, QD11E+91, INJURY+16 , INJURY+18
^APCDEA3	AEPOV+21
MOD^AUPNVSIT	UPDPOV+49
$$ICDDX^AUPNVUTL	QD11E+18
^DIC	AEPOV+14
FILE^DIE	UPDPOV+46
$$GET1^DIQ	QD11E+1, QD11E+2, QD11E+16, QD11E+17, AEPOV+10, AEPOV+11, UPDPOV+8, UPDPOV+19
^DIR	QD11E+33, QD11E+58, QD11E+69, QD11E+80, INJURY+28
$$IMP^ICDEXA	QD11E+5
$$VAL^XBDIQ1	QD11E+19
$$VERSION^XPDUTL	QD11E+5
DUZ^XUP	AEPOV+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVN") Line Location: QD11E+11
Function Call: WRITE	Prompt: !!,"Current Purpose of Visit entries on file for this visit:",! Line Location: QD11E+12
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVF") Line Location: QD11E+13
Function Call: WRITE	Prompt: !,"Code: ",$P(INFO,U,2),?15,"P/S: ",PS,?23,"Description: ",$E($P(INFO,U,4),1,55) Line Location: QD11E+20
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVN") Line Location: QD11E+21
Function Call: WRITE	Prompt: !?3,"Prov Narrative: ",PNARR Line Location: QD11E+22
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVF") Line Location: QD11E+23
Function Call: WRITE	Prompt: ! Line Location: QD11E+32
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVN") Line Location: QD11E+39
Function Call: WRITE	Prompt: !!,"Select the Purpose of Visit Entry to Edit" Line Location: QD11E+40
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVF") Line Location: QD11E+41
Function Call: WRITE	Prompt: !!,"*Enter Additional Purpose of Visit Information" Line Location: QD11E+45
Function Call: WRITE	Prompt: !!,"*Enter Purpose of Visit Information" Line Location: QD11E+46
Function Call: WRITE	Prompt: !," Enter ",$$S^AMERUTIL("RVN"),$S(ICD10:"ZZZ.999",1:".9999"),$$S^AMERUTIL("RVF")," to log an uncoded diagnosis" Line Location: QD11E+47
Function Call: WRITE	Prompt: !!,"This answer is mandatory." Line Location: QD11E+54
Function Call: WRITE	Prompt: ! Line Location: QD11E+57
Function Call: WRITE	Prompt: !!,"A primary Purpose of Visit is required." Line Location: QD11E+65
Function Call: WRITE	Prompt: ! Line Location: QD11E+68
Function Call: WRITE	Prompt: !!,"Only one primary POV is permitted." Line Location: QD11E+76
Function Call: WRITE	Prompt: ! Line Location: QD11E+79
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVN") Line Location: QD11E+89
Function Call: WRITE	Prompt: !!,"POV ",$P(AMERPOV(AMERIEN),U)," is missing a required PROVIDER NARRATIVE entry",! Line Location: QD11E+90
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVF") Line Location: QD11E+91
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVN") Line Location: INJURY+16
Function Call: WRITE	Prompt: !!,"Current POV information on file:" Line Location: INJURY+17
Function Call: WRITE	Prompt: $$S^AMERUTIL("RVF") Line Location: INJURY+18
Function Call: WRITE	Prompt: !!,"# ",?3,"P/S",?7,"Code",?18,"Description",?50,"Provider Narrative" Line Location: INJURY+19
Function Call: WRITE	Prompt: !,CNT,?3,$P(AMERPOV(CNT),U,2),?7,$P(AMERPOV(CNT),U),?18,$E($P(AMERPOV(CNT),U,5),1,30),?50,$E($P(AMERPOV(CNT),U,3),1,29) Line Location: INJURY+22
Function Call: WRITE	Prompt: ! Line Location: INJURY+27
Routine Call	DIC Line Location: AEPOV+14
Routine Call	DIE Line Location: UPDPOV+46
Routine Call	DIR Line Location: QD11E+33 QD11E+58 QD11E+69 QD11E+80 INJURY+28

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDSITE - [#9001001.2]	AEPOV+9
^AUPNVPOV("AD"	QD11E+8
^TMP("AMER"	INJURY+5, UPDPOV+11, UPDPOV+14, UPDPOV+18

Label References

Name	Line Occurrences
$$AEPOV	QD11E+42, QD11E+48
INJURY	QD11E+95
QD11E	QD11E+52, QD11E+63, QD11E+74, QD11E+92, QD11E+95
QD11X	QD11E+1, QD11E+52, QD11E+63, QD11E+74
UPDPOV	INJURY+13, INJURY+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	UPDPOV+2~, UPDPOV+44
AMERDUZ	QD11+2~, QD11+8*, QD11E+98, QD11X
AMERGBL	AEPOV+3~, AEPOV+17*, AEPOV+18
AMERIEN	QD11+2~, QD11E+85*, QD11E+87, QD11E+90
AMERNCHK	QD11+2~, QD11E+85, QD11E+88, QD11E+92
AMERPCC	QD11+4~, QD11E+1*, QD11E+2, QD11E+8, QD11E+42, QD11E+48, QD11E+51, AEPOV~, AEPOV+8, AEPOV+10 , AEPOV+11, AEPOV+18
AMERPOV	QD11+2~, QD11+4~, QD11E+8, QD11E+16, QD11E+17, QD11E+19, QD11E+51, QD11E+52, QD11E+63, QD11E+74 , QD11E+95, INJURY~, INJURY+8
AMERPOV(	QD11E+85, QD11E+87, QD11E+90, INJURY+21, INJURY+22, INJURY+34, INJURY+35
AMERPOV(1	INJURY+12
APCDCAT	QD11+3~, AEPOV+1~, AEPOV+8*
APCDDATE	AEPOV+2~, AEPOV+10*
APCDLOC	QD11+3~, AEPOV+2~, AEPOV+11*
APCDMNE	QD11+4~, AEPOV+3~, AEPOV+16*
APCDMNE("NAME"	AEPOV+16*
APCDMODE	QD11+3~, AEPOV~, AEPOV+18*
APCDPARM	QD11+3~, AEPOV+2~, AEPOV+9*
APCDPAT	QD11+3~, AEPOV+1~, AEPOV+8*
APCDTYPE	QD11+3~, AEPOV+2~, AEPOV+11*
APCDVLDT	QD11+4~, AEPOV+2~, AEPOV+10*
APCDVLK	QD11+4~, AEPOV+1~, AEPOV+8*
APCDVSIT	QD11+3~, AEPOV+1~, AEPOV+8*
AUPNVSIT	UPDPOV+2~, UPDPOV+8*
CNT	INJURY+2~, INJURY+20, INJURY+21, INJURY+22, INJURY+33
DFN	QD11E+1, QD11E+42, QD11E+48, AEPOV~, AEPOV+8
DIC	QD11+4~, AEPOV+3~, AEPOV+14*
DIC(0	AEPOV+14*
DIDEL	QD11+4~, QD11+7*
DIR	QD11E+29~, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~
DIR("A"	QD11E+31, QD11E+56, QD11E+67, QD11E+78, INJURY+26*
DIR("B"	QD11E+30, QD11E+55, QD11E+66, QD11E+77
DIR(0	QD11E+30, QD11E+55, QD11E+66, QD11E+77, INJURY+25*
DIROUT	QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, INJURY+2~
DIRUT	QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, INJURY+2~, INJURY+29
DLAYGO	QD11+2~, QD11+7*
DTOUT	QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, AEPOV+3~, INJURY+2~
DUOUT	QD11E+29~, QD11E+34, QD11E+53~, QD11E+64~, QD11E+75~, QD11E+86~, AEPOV+3~, INJURY+2~
DUZ	AEPOV+6, UPDPOV+45
DUZ("AG"	QD11+8, QD11E+98
DUZ(0	QD11+8, QD11E+98, QD11X*
DUZ(2	AEPOV+9, AEPOV+11
ERROR	UPDPOV+2~
ICD10	QD11+4~, QD11E+5*, QD11E+47
ICDIEN	QD11E+9~, QD11E+16*, QD11E+18
INFO	QD11E+9~, QD11E+18*, QD11E+20
INJCS	UPDPOV+2~, UPDPOV+14*, UPDPOV+41
INJCVPL	UPDPOV+2~, UPDPOV+24, UPDPOV+25, UPDPOV+26, UPDPOV+27, UPDPOV+28, UPDPOV+29, UPDPOV+30, UPDPOV+31, UPDPOV+32* , UPDPOV+33, UPDPOV+34, UPDPOV+35, UPDPOV+36, UPDPOV+37*, UPDPOV+42
INJDT	UPDPOV+2~, UPDPOV+11*, UPDPOV+43
INJPL	UPDPOV+2~, UPDPOV+18, UPDPOV+19, UPDPOV+25, UPDPOV+26, UPDPOV+27, UPDPOV+28, UPDPOV+29, UPDPOV+30, UPDPOV+31 , UPDPOV+32, UPDPOV+33, UPDPOV+34, UPDPOV+35, UPDPOV+36, UPDPOV+37
PNARR	QD11E+9~, QD11E+19*, QD11E+21, QD11E+22, QD11E+23
POVCNT	INJURY+2~, INJURY+8*, INJURY+11, INJURY+20, INJURY+25
POVLST	INJURY+2~, INJURY+30*, INJURY+33
PS	QD11E+9~, QD11E+17*, QD11E+20
PVCNT	QD11+2~, QD11E+8*, QD11E+10, QD11E+27, QD11E+45
U	QD11E+20, QD11E+52, QD11E+63, QD11E+74, QD11E+87, QD11E+90, AEPOV+16, INJURY+12, INJURY+22, INJURY+35
VAL	INJURY+2~, INJURY+33*, INJURY+34, INJURY+35
VDT	QD11+4~, QD11E+2*, QD11E+5, QD11E+18
VPOVIEN	INJURY+2~, INJURY+12, INJURY+13, INJURY+35, INJURY+36, UPDPOV~, UPDPOV+5, UPDPOV+8, UPDPOV+41, UPDPOV+42 , UPDPOV+43, UPDPOV+44, UPDPOV+45
VPOVUPD	UPDPOV+2~
VPOVUPD(	UPDPOV+41, UPDPOV+42, UPDPOV+43, UPDPOV+44, UPDPOV+45*
X	QD11E+26, QD11E+27, QD11E+34, QD11E+35, QD11E+42, QD11E+48, QD11E+52, QD11E+59, QD11E+60, QD11E+63 , QD11E+70, QD11E+71, QD11E+74, QD11E+81, QD11E+82, QD11E+95, AEPOV+3~, AEPOV+14, INJURY~, INJURY+29*
Y	QD11E+29~, QD11E+35, QD11E+36, QD11E+53~, QD11E+59, QD11E+64~, QD11E+70, QD11E+75~, QD11E+81, QD11E+86~ , QD11E+101, AEPOV+3~, AEPOV+15, AEPOV+16, AEPOV+18*, INJURY+2~, INJURY+30

Customize PDF page

Package: Emergency Room

Routine: AMER31

Information

Source Information

Call Graph

Call Graph Total: 13

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

Local Variables

Legend: