XTLKKWLD ; IHS/OHPRD/ACC,ALB/JLU,SFISC/JC- DRIVER ROUTINE FOR "AND"ING INVERTED LIST SEARCHES ;07/22/93  15:48
 ;;7.3;TOOLKIT;;Apr 25, 1995
 ; XTLKDESC,XTLKH,XTLKMULT,XTLKREF0,XTLKSAY ARE PASSED IN AND SHOULD NOT
 ;  BE KILLED
 ; XTLKKSCH,XTLKX ARE KILLED BY XTLKKWL
DSPLYD ; DISPLAY CODE AND TEXT FOR DIAGNOSIS
 Q:XTLKSAY=-1  S XTLKPC=3 G DSPCOM
DSPLYO ; DISPLAY CODE AND TEXT FOR OPERATION/PROCEDURE
 Q:XTLKSAY=-1  S XTLKPC=4 G DSPCOM
DSPCOM ; COMMON DISPLAY CODE
 W:XTLKMULT $J(XTLKH,4),": "
 W $P(@(XTLKREF0),"^",1)," ","(",$P(^(0),"^",XTLKPC),")",! S XTLKDESC=$S($D(^(1)):^(1),1:"<no long description available>")
 D DSPDESC^XTLKKWL1
 Q
 ;
DGEN W:XTLKMULT $J(XTLKH,4),": "
 W $P(@(XTLKREF0),"^",1)," ","(",$P(^(0),"^",1),")",!
 I $D(@XTLKREF0),$D(DIC("W")) X DIC("W") W ! Q
