Routine: PXCEVFI1

Package	Total	Call Graph
PCE Patient Care Encounter	4	NEWCODE^PXCECPT WAIT^PXCEHELP DEL^PXCEVFI2 PROVIDER^PXCEVFI4
VA Fileman	2	$$EXTERNAL^DILFD ^DIR
DRG Grouper	1	$$CODM^ICPTCOD

Package

Total

Call Graph

PCE Patient Care Encounter

NEWCODE^PXCECPT WAIT^PXCEHELP DEL^PXCEVFI2 PROVIDER^PXCEVFI4

VA Fileman

$$EXTERNAL^DILFD ^DIR

DRG Grouper

$$CODM^ICPTCOD

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXCEVFIL

Package

Total

Caller Graph

PCE Patient Care Encounter

PXCEVFIL

Name	Comments	DBIA/ICR reference
EDIT	; -- edit the V-File stored in "AFTER"
DUP(PXCEINP)	; -- Check for dup entries.
EDIT01	;
ENDEDIT	;
REST

Name	Field # of Occurrence
$$EXTERNAL^DILFD	EDIT01+5, REST+12
^DIR	EDIT01+15, REST+17, DUP+17
$$CODM^ICPTCOD	EDIT01+29
NEWCODE^PXCECPT	EDIT01+33
WAIT^PXCEHELP	EDIT01+20
DEL^PXCEVFI2	EDIT01+21
PROVIDER^PXCEVFI4	REST+22

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EDIT+4
Function Call: WRITE	Prompt: !,"There is no entry to delete." Line Location: EDIT01+19
Function Call: WRITE	Prompt: !,$P(PXCEINP,"^",2)," is already a "_PXCECATT_" for this Encounter." Line Location: DUP+9
Function Call: WRITE	Prompt: !!,"Duplicate Diagnosis Not Allowed." Line Location: DUP+10
Function Call: WRITE	Prompt: !,"No Duplicate E&M Codes Are Allowed." Line Location: DUP+11
Routine Call	DIR Line Location: EDIT01+15 REST+17 DUP+17

Name	Line Occurrences (* Changed, ! Killed)
^IBE(357.69 - [#357.69]	DUP+11
^TMP("PXK"	EDIT01+29, EDIT01+34*
^TMP("PXMODARR"	EDIT01+30!

Name	Line Occurrences
$$DUP	EDIT01+26
@(	EDIT01+9, REST+7
EDIT01	EDIT01+26
ENDEDIT	EDIT01+16
REST	EDIT+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	EDIT+1~, EDIT01+2!, REST+5!
DA	EDIT+1~, EDIT01+2!, EDIT01+36!, REST+5!, REST+18!, DUP+13~
DIEER	EDIT01+4~
DIERR	EDIT01+6, REST+10~, REST+13
DIR	EDIT+1~, EDIT01+2!, EDIT01+36!, REST+5!, REST+18!, DUP+13~
DIR("?"	EDIT01+14, REST+16
DIR("A"	EDIT01+13, REST+15, DUP+15*
DIR("B"	EDIT01+11, REST+13, DUP+16*
DIR(0	EDIT01+12, REST+14, DUP+14*
DIRUT	EDIT01+17~, EDIT01+22, EDIT01+23
>> DTOUT	REST+20
>> DUOUT	REST+20
>> PXCEAFTR(	REST+9, REST+11, REST+21*
>> PXCEAFTR(0	EDIT01+3, EDIT01+5, EDIT01+6, EDIT01+18, EDIT01+22, EDIT01+31, EDIT01+35*
>> PXCEAUPN	DUP+6
>> PXCECAT	EDIT+5, EDIT01+21, EDIT01+28, REST+20, DUP+1, DUP+10, DUP+11
>> PXCECATS	EDIT01+34
>> PXCECATT	DUP+9
PXCEDILF	EDIT01+4~, REST+10~
PXCEDIRB	EDIT+2~, EDIT01+2!, EDIT01+6, EDIT01+7, EDIT01+11, EDIT01+26
PXCEDUP	DUP+3~, DUP+4, DUP+6, DUP+7, DUP+8, DUP+18*, DUP+19
PXCEEND	EDIT+1~, REST, REST+1, REST+20
PXCEEXT	EDIT01+4~, EDIT01+5, EDIT01+6, REST+10~, REST+12, REST+13
PXCEFIEN	EDIT01+32~, EDIT01+34, DUP+6
>> PXCEFILE	EDIT01+5, EDIT01+12, REST+12, REST+14
PXCEIKEY	EDIT+3~, REST+4*
PXCEIN01	EDIT+1~, EDIT01+25*
PXCEINDX	DUP+3~, DUP+5, DUP+6
PXCEINP	EDIT+1~, EDIT01+24*, EDIT01+26, EDIT01+35, DUP~, DUP+6, DUP+9, DUP+11, DUP+15
PXCEINT	REST+10~, REST+11*, REST+12, REST+13
PXCEKEY	EDIT+3~, REST+2, REST+4
>> PXCEKEYS	REST+4
PXCELINE	EDIT+2~, REST+1*
>> PXCELOOP	EDIT01+22*
PXCEMOD	EDIT+2~
PXCENKEY	EDIT+3~, REST+3*, REST+4
>> PXCEQUIT	EDIT01+23, REST+20
>> PXCESOR	EDIT01+29
PXCETEXT	EDIT+2~, EDIT01+1, EDIT01+8, EDIT01+9, EDIT01+13, EDIT01+14, REST+1, REST+2, REST+3, REST+4 , REST+6, REST+7, REST+9, REST+11, REST+12, REST+14, REST+15, REST+16, REST+21, REST+22
PXMDCNT	EDIT+3~, EDIT01+29*, EDIT01+31
U	DUP+11
X	EDIT+1~, EDIT01+2!, EDIT01+16, EDIT01+25, EDIT01+26, REST+5!, REST+19, DUP+3~
Y	EDIT+1~, EDIT01+2!, EDIT01+24, EDIT01+29, REST+5!, REST+19*, REST+21, REST+22, DUP+3~, DUP+18

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXCEVFI1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(FORMAT+1^@PXCECODE	EDIT01+1
$T(FORMAT+PXCELINE^@PXCECODE	REST+1
$T(FORMAT^@PXCECODE	DUP+12