APCUKWI9.m

APCUKWI9 ; ACC/IHS INTERFACE ROUTINE BETWEEN ICD9 DICTIONARY AND LOOKUP; [ 11/10/86  11:44 AM ]

 G:DIPGM(0)=2 EN2

EN1 ; FIRST ENTRY FROM DIC

 K HITLIMIT

 G:DIC(0)["A" ASK^DIC

EN2 ; SECOND ENTRY FROM DIC OR FALL-THROUGH IF NO 'ASK' INDICATED

 I X="?BAD" S Y=-1 Q

 G:(X?1"`"1N.N)!(U[X)!(X?1N.N)!(X?.N1".".N)!(X?1"E"1N.E)!(X?1"V"1N.E) RTN^DIC

 G ICDDX^APCUKWLD