Routine: IBDFDE23

Information

IBDFDE23 ;ALB/DHH - Select CPT Modifiers during Manual Data Entry ; MAY-18-1999

Source file <IBDFDE23.m>

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
DRG Grouper	1	$$MODP^ICPTMOD

Package	Total	Caller Graph
Automated Information Collection System	1	IBDFDE21

Name	Comments	DBIA/ICR reference
DELMOD	; Delete modifier from list if duplicate entry
OTHER	;--allow for additional modifiers to be selected
ARRAY	; -- transfer modifier data to result array
ERR	;Error message
MOD	;Entry point for selecting or modifying modifiers

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Do you want to remove this modifier as being Associated with this CPT Procedure?" Line Location: DELMOD+2
Function Call: WRITE	Prompt: !,X," is not a valid modifier for ",CODE,! Line Location: ERR+1
Routine Call	DIC Line Location: OTHER+2
Routine Call	DIR Line Location: DELMOD+3

Name	Field # of Occurrence
>> ANS	MOD+16, MOD+17
CNT	MOD+4~, ARRAY+2, ARRAY+3, ARRAY+4, ARRAY+5
CODE	MOD+4~, MOD+9*, MOD+26, ERR+1
DA	DELMOD+1~
DIC	OTHER+1~, OTHER+2*, DELMOD+1~
DIC("S"	OTHER+2*
DIC(0	OTHER+2*
DIR	DELMOD+1~
DIR("B"	DELMOD+3*
DIR(0	DELMOD+3*
>> DIRUT	DELMOD+3
DR	DELMOD+1~
I	MOD+4~, MOD+18*
>> IBDX	MOD+9, ARRAY+4, ARRAY+5
MOD	MOD+4~, OTHER+3, OTHER+4, OTHER+5, DELMOD+4, ARRAY+2, ARRAY+4
MODLST	MOD+4~, MOD+17*, MOD+18
>> RESULT(	MOD+9, ARRAY+4, ARRAY+5
SEL	MOD+4~, ARRAY+1
SEL("MOD"	MOD+27, OTHER+4, OTHER+5, DELMOD+4!, ARRAY+2
X	MOD+4~, MOD+18*, MOD+26, MOD+27, ERR+1
Y	MOD+4~, OTHER+2, OTHER+3, OTHER+4, DELMOD+4