APCUKWLD.m

APCUKWLD ; DRIVER ROUTINE FOR "AND"ING INVERTED LIST SEARCHES ; [ 08/21/86  10:34 AM ]

ICDDX ;

 S L=X

 I L'?1N.E W ! S L="DIAGNOSES^"_L,DIC="^ICD9(",DIC("X")="C" D ^APCUKWL Q

 S Y=-1

 Q

ICDOP ;

 S L=X

 I L'?1N.E W ! S L="PROCEDURES^"_L,DIC="^ICD0(",DIC("X")="C" D ^APCUKWL Q

 S Y=-1

 Q