Routine: IBDFN8

Information

IBDFN8 ;ALB/CJM - ENCOUNTER FORM - PCE GDI INPUT TRANSFORMS;AUG 10, 1995

Source file <IBDFN8.m>

Package	Total	Call Graph
DRG Grouper	1	$$CPT^ICPTCOD

Name	Comments	DBIA/ICR reference
INPUTICD(ICD)	;changes X, an ICD9 code, into its ien
UPP(X)	; -- convert lower case to upper case (especially when in codes above)
INPUTCPT(X)	;changes X,a CPT code, into its ien

Name	Field # of Occurrence
$$CPT^ICPTCOD	INPUTCPT+7

Name	Line Occurrences (* Changed, ! Killed)
^ICD9("BA"	INPUTICD+3

Name	Line Occurrences
$$UPP	INPUTCPT+6, INPUTICD+2

Name	Field # of Occurrence
ICD	INPUTICD~, INPUTICD+2*, INPUTICD+3
X	INPUTCPT~, INPUTCPT+6, INPUTCPT+7, INPUTCPT+8!, INPUTICD+3*, INPUTICD+4!, UPP~, UPP+1