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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTLKKWLD 797 printed Dec 13, 2024@02:41:24 Page 2
XTLKKWLD ; IHS/OHPRD/ACC,ALB/JLU,SFISC/JC- DRIVER ROUTINE FOR "AND"ING INVERTED LIST SEARCHES ;07/22/93 15:48
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
+2 ; XTLKDESC,XTLKH,XTLKMULT,XTLKREF0,XTLKSAY ARE PASSED IN AND SHOULD NOT
+3 ; BE KILLED
+4 ; XTLKKSCH,XTLKX ARE KILLED BY XTLKKWL
DSPLYD ; DISPLAY CODE AND TEXT FOR DIAGNOSIS
+1 if XTLKSAY=-1
QUIT
SET XTLKPC=3
GOTO DSPCOM
DSPLYO ; DISPLAY CODE AND TEXT FOR OPERATION/PROCEDURE
+1 if XTLKSAY=-1
QUIT
SET XTLKPC=4
GOTO DSPCOM
DSPCOM ; COMMON DISPLAY CODE
+1 if XTLKMULT
WRITE $JUSTIFY(XTLKH,4),": "
+2 WRITE $PIECE(@(XTLKREF0),"^",1)," ","(",$PIECE(^(0),"^",XTLKPC),")",!
SET XTLKDESC=$SELECT($DATA(^(1)):^(1),1:"<no long description available>")
+3 DO DSPDESC^XTLKKWL1
+4 QUIT
+5 ;
DGEN if XTLKMULT
WRITE $JUSTIFY(XTLKH,4),": "
+1 WRITE $PIECE(@(XTLKREF0),"^",1)," ","(",$PIECE(^(0),"^",1),")",!
+2 IF $DATA(@XTLKREF0)
IF $DATA(DIC("W"))
XECUTE DIC("W")
WRITE !
QUIT
