Routine: IBDFN7

Information

IBDFN7 ;ALB/CJM - ENCOUNTER FORM - validate logic for data ;05/10/95

Source file <IBDFN7.m>

Name	Comments	DBIA/ICR reference
TESTCPT	;does X point to a valid CPT4 code? Kills X if not.
TESTICD	; -- does X point to a valid ICD-9 code? Kills X if not. ; -- input the icd code in X
TESTICD0	;
TESTVST	;does X point to a valid visit code? If not, kills X.
TESTLEX	; -- Is clinical lexicon pointer valid and does icdone, not return 799.9