Routine: PXCECPT

Package	Total	Call Graph
VA FileMan	9	BROWSE^DDBR REFRESH^DDSUTL FILE^DICN $$GET1^DID (,VAL)^DIE ^DIK $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ ^DIR
PCE Patient Care Encounter	5	WAIT^PXCEHELP DIAGNOS^PXCEVFI4 $$GETCODE^PXCPTAPI ^PXDSLK ($$ACTDT,$$CSDATE)^PXDXUTL
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
DRG Grouper	1	$$ICDDATA^ICDXCODE

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXCEVFI1

Name	Comments	DBIA/ICR reference
FORMAT	;;CPT~9000010.18~0,1,12,802,811,812~1~^AUPNVCPT
INTRFACE	;;DG SELECT CPT PROCEDURE CODES
DISPMOD(PXCECPT,PXCEDT)	;
DNARRAT(PNAR,PXCEDT)	;+Display Provider Narrative for procedure in V CPT file.
ECPTCODE(VCPTIEN,VISITIEN)	;+Code to edit CPT Code in V CPT file.
ECPTMOD	;+Prompt for CPT Modifier in V CPT file.
EQUAN	;+Code to edit Quantity in V CPT file.
EPOV	;Edit the Associated DX
EVENTDTHELP	;Event Date and Time help.
DISPLY01(PXCECPT,PXCEDT)	;
EDMOD(MODS,CPT)	;+Edit the Modifiers for a CPT code entry.
MODNAME(MODIEN)	;+Return #.02 NAME for this CPT MODIFIER (#81.3)
MODTEXT(MODIEN)	;+Return string of text describing modifier.
CHGCPT()	;Verify CPT code should be modified
NEWCODE	;
SKIP	;

Name	Field # of Occurrence
BROWSE^DDBR	EVENTDTHELP+3
REFRESH^DDSUTL	EVENTDTHELP+4
FILE^DICN	NEWCODE+9
$$GET1^DID	EVENTDTHELP+2
^DIE	ECPTMOD+19, ECPTMOD+21
VAL^DIE	ECPTMOD+16
^DIK	CHGCPT+15
$$EXTERNAL^DILFD	EQUAN+4, EPOV+8
$$GET1^DIQ	EQUAN+15
GETS^DIQ	ECPTMOD+24
^DIR	EQUAN+10, EPOV+19, CHGCPT+7
$$ICDDATA^ICDXCODE	EPOV+14
$$CPT^ICPTCOD	DISPLY01+6
$$MOD^ICPTMOD	MODTEXT+4
WAIT^PXCEHELP	EPOV+34
DIAGNOS^PXCEVFI4	EPOV+36
$$GETCODE^PXCPTAPI	ECPTCODE+5
^PXDSLK	EPOV+12
$$ACTDT^PXDXUTL	EPOV+3
$$CSDATE^PXDXUTL	EPOV+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Quantity is required.",! Line Location: EQUAN+13
Function Call: WRITE	Prompt: !,$C(7),"Duplicate Diagnosis on this CPT code is not allowed." Line Location: EPOV+34
Function Call: WRITE	Prompt: !!,$C(7),"WARNING! THIS WILL ALSO DELETE ANY MODIFIERS ASSOCIATED WITH CPT CODE "_PXCEDIRB Line Location: CHGCPT+3
Routine Call	DIE Line Location: ECPTMOD+19 ECPTMOD+21
Routine Call	DIE Line Location: ECPTMOD+16
Routine Call	DIR Line Location: EQUAN+10 EPOV+19 CHGCPT+7

FileNo	Call Tags
^IBE(357.69 - [#357.69]	GET1^DIQ
^AUPNVCPT - [#9000010.18]	Classic Fileman Calls, GET1^DID, GETS^DIQ
9000010.181	VAL^DIE

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	DISPMOD+8, DISPMOD+9
^AUPNVSIT - [#9000010]	MODTEXT+4
^AUTNPOV - [#9999999.27]	DNARRAT+1
^TMP("PXK"	ECPTMOD+7, ECPTMOD+24

Name	Line Occurrences
$$CHGCPT	ECPTCODE+12
$$MODTEXT	DISPMOD+10
ECPTCODE	ECPTCODE+13
EQUAN	EQUAN+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CPT	EDMOD~
CPTSTR	DISPLY01+5~, DISPLY01+6*, DISPLY01+7
DA	ECPTCODE+2~, ECPTMOD+5~, ECPTMOD+7, ECPTMOD+16, EQUAN+11!, EPOV+20!, CHGCPT+2~, CHGCPT+14
DA(1	CHGCPT+10*, CHGCPT+11
DD	NEWCODE+1!
>> DDS	EVENTDTHELP+4
DESC	MODTEXT+3~, MODTEXT+6*, MODTEXT+7
DIC	ECPTCODE+2~, ECPTMOD+5~, NEWCODE+2~, NEWCODE+3*
DIC("DR"	NEWCODE+5, NEWCODE+6, NEWCODE+7*
DIC(0	ECPTMOD+10, NEWCODE+4
>> DIE	ECPTMOD+9*
DIERR	EQUAN+2~, EQUAN+5, EPOV+6~, EPOV+9
>> DIK	CHGCPT+11*
DIR	ECPTMOD+4~, EQUAN+11!, EPOV+20!, CHGCPT+2~
DIR("?"	EQUAN+9, EPOV+18
DIR("A"	EQUAN+8, EPOV+17, CHGCPT+5*
DIR("B"	EQUAN+5, EQUAN+6, EPOV+9, EPOV+12, CHGCPT+6
DIR(0	EQUAN+7, EPOV+16, CHGCPT+4*
DIROUT	ECPTMOD+4~
DIRUT	ECPTCODE+1!, ECPTCODE+7*
DO	NEWCODE+1!
>> DR	ECPTMOD+8, ECPTMOD+12, ECPTMOD+18, ECPTMOD+20
DT	EPOV+2
DTOUT	ECPTMOD+4~, ECPTMOD+29, EQUAN+12, EPOV+22
DUOUT	ECPTMOD+4~, EQUAN+12, EPOV+22
>> DX	EVENTDTHELP+4*
>> DY	EVENTDTHELP+4*
ERR	EVENTDTHELP+1~
HELP	ECPTCODE+2~, ECPTCODE+4*, ECPTCODE+5
>> IEN	DISPMOD+4
IOSL	EVENTDTHELP+4
>> IOXY	EVENTDTHELP+4
MIEN	EDMOD+2~
MNUM	EDMOD+1~*
MOD	MODTEXT+3~, MODTEXT+5*, MODTEXT+7
MODIEN	DISPMOD+3~, DISPMOD+9*, DISPMOD+10, MODNAME~, MODTEXT~, MODTEXT+4
MODNAME	DISPMOD+3~
MODS	DISPMOD+3~, DISPMOD+8*, DISPMOD+10, EDMOD~
MODSTR	DISPMOD+3~
MTEXT	EDMOD+2~
OUTSTR	DISPMOD+3~, DISPMOD+5, DISPMOD+6, DISPMOD+10, DISPMOD+11
PNAR	DNARRAT~, DNARRAT+1
PXACS	EPOV+1~, EPOV+3, EPOV+4, EPOV+11, EPOV+17
PXACSREC	EPOV+1~, EPOV+3*, EPOV+10, EPOV+15
>> PXAGAIN	EPOV+12*
PXARR	ECPTMOD+4~
PXARR(	ECPTMOD+27, ECPTMOD+28
>> PXCEAFTR(	ECPTCODE+11, EQUAN+1, EQUAN+3, EQUAN+14, EQUAN+19, EPOV+5, EPOV+7, EPOV+21, EPOV+35*
>> PXCEAFTR(0	EPOV+26, EPOV+27, EPOV+28, EPOV+29, EPOV+30, EPOV+31, EPOV+32, EPOV+33
>> PXCEAFTR(1	ECPTMOD+23!, ECPTMOD+28*, CHGCPT+13
>> PXCEAPDT	EPOV+2
>> PXCECATS	ECPTMOD+7, ECPTMOD+24
PXCECPT	DISPMOD~, DISPMOD+4*, DISPMOD+6, DISPMOD+8, DISPMOD+9, DISPLY01~, DISPLY01+6
PXCEDILF	EQUAN+2~, EPOV+6~
>> PXCEDIRB	ECPTCODE+10, CHGCPT+3
PXCEDT	DISPMOD~, DNARRAT~, DISPLY01~, DISPLY01+6
>> PXCEEND	ECPTMOD+29, EQUAN+12, EPOV+22, EPOV+24, EPOV+26, EPOV+27, EPOV+28, EPOV+29, EPOV+30, EPOV+31 , EPOV+32, EPOV+33, EPOV+34
PXCEEXT	EQUAN+2~, EQUAN+4, EQUAN+5, EPOV+6~, EPOV+8, EPOV+9
>> PXCEFIEN	CHGCPT+10, NEWCODE+10*
>> PXCEFILE	EQUAN+4, EQUAN+7, EPOV+8, EPOV+16
>> PXCEIN01	EQUAN+15, NEWCODE+8
PXCEINT	EQUAN+2~, EQUAN+3, EQUAN+4, EQUAN+5, EPOV+6~, EPOV+7, EPOV+8, EPOV+9
>> PXCEMOD	ECPTCODE+8*, ECPTMOD+11, ECPTMOD+12, ECPTMOD+14
>> PXCEQUIT	ECPTMOD+29, EQUAN+12, EPOV+22*
>> PXCETEXT	ECPTCODE+11, EQUAN+1, EQUAN+3, EQUAN+4, EQUAN+7, EQUAN+8, EQUAN+9, EQUAN+14, EQUAN+19, EPOV+5 , EPOV+7, EPOV+8, EPOV+11, EPOV+16, EPOV+17, EPOV+18, EPOV+21, EPOV+26, EPOV+27, EPOV+28 , EPOV+29, EPOV+30, EPOV+31, EPOV+32, EPOV+33, EPOV+35
>> PXCEVIEN	EPOV+2, MODTEXT+4
PXCPTDT	ECPTCODE+2~
PXDATE	EPOV+1~, EPOV+2*, EPOV+3, EPOV+14
PXDEF	EPOV+1~, EPOV+12*
PXDFLT	ECPTCODE+2~
PXDXASK	EPOV+1~, EPOV+11*
PXERR	ECPTMOD+15!, ECPTMOD+16, ECPTMOD+17
PXFILE	ECPTMOD+5~, ECPTMOD+25*, ECPTMOD+27, ECPTMOD+28
PXI	ECPTMOD+5~, ECPTMOD+14*
PXIEN	CHGCPT+2~, CHGCPT+12, CHGCPT+13, CHGCPT+14
PXLINE	ECPTMOD+5~
>> PXMDCNT	ECPTMOD+3
PXMOD	ECPTMOD+5~, ECPTMOD+13, ECPTMOD+14, ECPTMOD+16
PXSEQ	ECPTMOD+4~
PXSTR	ECPTMOD+4~, ECPTMOD+6*
PXSUB	ECPTMOD+4~, ECPTMOD+6, ECPTMOD+26, ECPTMOD+27*, ECPTMOD+28
PXTMPCPT	EQUAN+14~*
PXXX	EPOV+1~, EPOV+12, EPOV+13, EPOV+14
RESULT	EVENTDTHELP+1~, EVENTDTHELP+2*
RVAL	MODTEXT+3~, MODTEXT+4*, MODTEXT+5, MODTEXT+6
SCRATCH	DISPMOD+3~
SIEN	DISPMOD+3~, DISPMOD+7, DISPMOD+8, DISPMOD+9
SUBIEN	ECPTMOD+5~
TEXT	EVENTDTHELP+1~, MODTEXT+3~, MODTEXT+7*, MODTEXT+8
U	DISPMOD+10, DNARRAT+1, EPOV+10, EPOV+14, EPOV+15, DISPLY01+6, DISPLY01+7, MODTEXT+4
VCPTIEN	ECPTCODE~
VISITIEN	ECPTCODE~
X	ECPTCODE+3, ECPTCODE+6, ECPTCODE+9, ECPTCODE+11, EPOV+21, CHGCPT+2~, NEWCODE+2~, NEWCODE+8
Y	ECPTCODE+5, ECPTCODE+6, ECPTCODE+7, ECPTCODE+8, ECPTCODE+9, ECPTMOD+29, EQUAN+13, EQUAN+15, EQUAN+17, EQUAN+18 , EQUAN+19, EPOV+12, EPOV+13, EPOV+14, EPOV+21, EPOV+24, EPOV+26, EPOV+27, EPOV+28, EPOV+29 , EPOV+30, EPOV+31, EPOV+32, EPOV+33, EPOV+35, EPOV+36, CHGCPT+2~, CHGCPT+9, NEWCODE+2~, NEWCODE+10

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXCECPT

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: