Routine: PXBPMOD

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN (,VAL)^DIE GETS^DIQ
PCE Patient Care Encounter	2	$$CPTOK^PXBUTL REMOVE^PXCEVFIL

Package

Total

Call Graph

^DIC FILE^DICN (,VAL)^DIE GETS^DIQ

$$CPTOK^PXBUTL REMOVE^PXCEVFIL

Package	Total	Caller Graph
PCE Patient Care Encounter	2	PXBMCPT2 PXBPCPT1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
VALCPT(X)	;Determine if CPT code is valid
BLDARRY	;Copy new modifiers into local array
MOD(PXVST,PXPAT,PXCPT,PXMODSTR,PXCPTIEN,PXVSTDAT,PXCNT,PXARR)	;
FILECPT	;Create a new entry in V CPT file and get IEN
CPTMOD	;Prompt for CPT Modifiers

FileNo	Call Tags
9000010.181	VAL^DIE

Name	Field # of Occurrence
DA	MOD+15~, MOD+19, MOD+22, FILECPT+7, CPTMOD+12, BLDARRY+3
>> DATA	MOD+26*
DD	FILECPT+1~
DIC	MOD+15~, FILECPT+2, VALCPT+2~, VALCPT+3
DIC(0	FILECPT+3, CPTMOD+4, VALCPT+4*
>> DIE	FILECPT+8, CPTMOD+3
DIROUT	MOD+15~
DO	FILECPT+1~
DR	MOD+15~, FILECPT+1~, FILECPT+9, CPTMOD+2, CPTMOD+8, CPTMOD+14, CPTMOD+16*
DTOUT	MOD+15~, MOD+25
DUOUT	MOD+15~
>> EDATA	MOD+26*
PXARR	MOD~, MOD+22*
PXARR(1	BLDARRY+6*
PXARR2	BLDARRY+1~
PXARR2(	BLDARRY+5, BLDARRY+6
PXCNT	MOD~, MOD+24
PXCPT	MOD~, MOD+17, MOD+18, FILECPT+4
PXCPTIEN	MOD~, MOD+19, MOD+20
PXERR	CPTMOD+1~, CPTMOD+11*, CPTMOD+12, CPTMOD+13
PXFIL	BLDARRY+1~, BLDARRY+2*, BLDARRY+3
PXGLB	MOD+15~, MOD+16*, FILECPT+2, FILECPT+8, FILECPT+10, FILECPT+12, CPTMOD+3, CPTMOD+5, CPTMOD+18
PXI	CPTMOD+1~, CPTMOD+10*
PXMOD	CPTMOD+1~, CPTMOD+9, CPTMOD+10, CPTMOD+12
PXMODSTR	MOD~, CPTMOD+7, CPTMOD+8, CPTMOD+10
>> PXNEWIEN	MOD+22*, MOD+28
PXPAT	MOD~
PXSUB	BLDARRY+1~, BLDARRY+4, BLDARRY+5, BLDARRY+6
PXSUBFIL	BLDARRY+1~, BLDARRY+2*, BLDARRY+5, BLDARRY+6
PXVST	MOD~
PXVSTDAT	MOD~, MOD+18
X	FILECPT+1~, FILECPT+4*, VALCPT~
Y	MOD+15~, MOD+25, FILECPT+1~, FILECPT+7, VALCPT+2~, VALCPT+6

Information