Routine: PXCECPT

Information

PXCECPT ;ISL/dee,ISA/Zoltan,esw - Used to edit and display V CPT ; 1/13/03 4:21pm

Source Information

Source file <PXCECPT.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	7	FILE^DICN (,VAL)^DIE ^DIK $$EXTERNAL^DILFD GETS^DIQ EN^DIQ1 ^DIR
DRG Grouper	1	$$MOD^ICPTMOD
PCE Patient Care Encounter	1	$$GETCODE^PXCPTAPI

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
PCE Patient Care Encounter	1	PXCEVFI1

Entry Points

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

External References

Name	Field # of Occurrence
FILE^DICN	NEWCODE+8
^DIE	ECPTMOD+20, ECPTMOD+22
VAL^DIE	ECPTMOD+17
^DIK	CHGCPT+15
$$EXTERNAL^DILFD	ECPTCODE+8, EQUAN+4
GETS^DIQ	ECPTMOD+26
EN^DIQ1	DNARRAT+11, DISPLY01+11
^DIR	EQUAN+10, CHGCPT+7
$$MOD^ICPTMOD	MODTEXT+4
$$GETCODE^PXCPTAPI	ECPTCODE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Quanitity is required.",! Line Location: EQUAN+13
Function Call: WRITE	Prompt: !,"Only one E&M allowed, quantity changed to 1.",! Line Location: EQUAN+14
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+20 ECPTMOD+22
Routine Call	DIE Line Location: ECPTMOD+17
Routine Call	DIR Line Location: EQUAN+10 CHGCPT+7

FileNo	Call Tags
^AUPNVCPT - [#9000010.18]	Classic Fileman Calls, GETS^DIQ
9000010.181	VAL^DIE

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCPT - [#9000010.18]	DISPMOD+8, DISPMOD+9
^AUTNPOV - [#9999999.27]	DNARRAT+3
^IBE(357.69 - [#357.69]	EQUAN+14
^TMP("PXK"	ECPTCODE+3, ECPTMOD+7, ECPTMOD+26

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CPT	EDMOD~
DA	DNARRAT+5~, DNARRAT+8, DNARRAT+12, ECPTCODE+2~, ECPTMOD+5~, ECPTMOD+7, ECPTMOD+17, EQUAN+11!, DISPLY01+5~, DISPLY01+8* , DISPLY01+12, CHGCPT+2~, CHGCPT+14*
DA(1	CHGCPT+10*, CHGCPT+11
DD	NEWCODE+1!
DESC	MODTEXT+3~, MODTEXT+6*, MODTEXT+7
DIC	DNARRAT+5~, DNARRAT+6, ECPTCODE+2~, ECPTMOD+5~, DISPLY01+5~, DISPLY01+6, NEWCODE+2~, NEWCODE+3*
DIC("DR"	NEWCODE+5, NEWCODE+6
DIC(0	ECPTMOD+10, NEWCODE+4
>> DIE	ECPTMOD+9*, ECPTMOD+11, ECPTMOD+23
DIERR	ECPTCODE+6~, ECPTCODE+9, EQUAN+2~, EQUAN+5
>> DIK	CHGCPT+11*
DIQ	DNARRAT+5~, DNARRAT+9, DISPLY01+5~, DISPLY01+9
DIQ(0	DNARRAT+10, DISPLY01+10
DIR	ECPTMOD+4~, EQUAN+11!, CHGCPT+2~
DIR("?"	EQUAN+9*
DIR("A"	EQUAN+8, CHGCPT+5
DIR("B"	EQUAN+5, EQUAN+6, CHGCPT+6*
DIR(0	EQUAN+7, CHGCPT+4
DIROUT	ECPTMOD+4~
DIRUT	ECPTCODE+1!, ECPTCODE+12*
DO	NEWCODE+1!
DR	DNARRAT+5~, DNARRAT+7, ECPTMOD+8, ECPTMOD+13, ECPTMOD+19, ECPTMOD+21, DISPLY01+5~, DISPLY01+7
DTOUT	ECPTMOD+4~, ECPTMOD+31, EQUAN+12
DUOUT	ECPTMOD+4~, EQUAN+12
>> ENTRY	DNARRAT+4
>> ENTRY(0	DNARRAT+8
>> IEN	DISPMOD+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, DNARRAT+3
PXARR	ECPTMOD+4~
PXARR(	ECPTMOD+29, ECPTMOD+30
>> PXCEAFTR(	ECPTCODE+5, ECPTCODE+7, ECPTCODE+16, EQUAN+1, EQUAN+3, EQUAN+16*
>> PXCEAFTR(1	ECPTMOD+25!, ECPTMOD+30*, CHGCPT+13
>> PXCECATS	ECPTMOD+7, ECPTMOD+26
PXCECPT	DISPMOD~, DISPMOD+4*, DISPMOD+6, DISPMOD+8, DISPMOD+9, DISPLY01~, DISPLY01+8
PXCEDILF	ECPTCODE+6~, EQUAN+2~
PXCEDIQ1	DNARRAT+5~, DISPLY01+5~
PXCEDIQ1(	DISPLY01+12
PXCEDIQ1(81	DNARRAT+12
>> PXCEDIRB	ECPTCODE+15, CHGCPT+3
>> PXCEEND	ECPTMOD+31, EQUAN+12
PXCEEXT	ECPTCODE+6~, ECPTCODE+8, ECPTCODE+9, EQUAN+2~, EQUAN+4, EQUAN+5
>> PXCEFIEN	CHGCPT+10, NEWCODE+9*
>> PXCEFILE	ECPTCODE+8, EQUAN+4, EQUAN+7
PXCEFNUM	DISPLY01+5~, DISPLY01+6*, DISPLY01+12
>> PXCEIN01	EQUAN+14, NEWCODE+7
PXCEINT	ECPTCODE+6~, ECPTCODE+7, ECPTCODE+8, ECPTCODE+9, EQUAN+2~, EQUAN+3, EQUAN+4, EQUAN+5
>> PXCEMOD	ECPTCODE+13*, ECPTMOD+12, ECPTMOD+13, ECPTMOD+15
PXCEPNAR	DNARRAT+2~, DNARRAT+3, DNARRAT+12, DNARRAT+13
>> PXCEQUIT	ECPTMOD+31, EQUAN+12
>> PXCETEXT	ECPTCODE+5, ECPTCODE+7, ECPTCODE+8, ECPTCODE+16, EQUAN+1, EQUAN+3, EQUAN+4, EQUAN+7, EQUAN+8, EQUAN+9 , EQUAN+16
PXCPTDT	ECPTCODE+2~, ECPTCODE+3*, ECPTCODE+10
PXDFLT	ECPTCODE+2~, ECPTCODE+4, ECPTCODE+9, ECPTCODE+10
PXERR	ECPTMOD+16!, ECPTMOD+17, ECPTMOD+18
PXFILE	ECPTMOD+5~, ECPTMOD+27*, ECPTMOD+29, ECPTMOD+30
PXI	ECPTMOD+5~, ECPTMOD+15*
PXIEN	CHGCPT+2~, CHGCPT+12, CHGCPT+13, CHGCPT+14
PXLINE	ECPTMOD+5~
>> PXMDCNT	ECPTMOD+3
PXMOD	ECPTMOD+5~, ECPTMOD+14, ECPTMOD+15, ECPTMOD+17
PXSEQ	ECPTMOD+4~
PXSTR	ECPTMOD+4~, ECPTMOD+6*
PXSUB	ECPTMOD+4~, ECPTMOD+6, ECPTMOD+28, ECPTMOD+29*, ECPTMOD+30
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	MODTEXT+3~, MODTEXT+7*, MODTEXT+8
U	DISPMOD+10
>> VIEW	DNARRAT+4
X	ECPTCODE+4, ECPTCODE+11, ECPTCODE+14, ECPTCODE+16, CHGCPT+2~, NEWCODE+2~, NEWCODE+7
Y	ECPTCODE+10, ECPTCODE+11, ECPTCODE+12, ECPTCODE+13, ECPTCODE+14, ECPTMOD+31, EQUAN+13, EQUAN+14, EQUAN+15, EQUAN+16 , CHGCPT+2~, CHGCPT+9, NEWCODE+2~, NEWCODE+9

Customize PDF page

Package: PCE Patient Care Encounter

Routine: PXCECPT

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

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: