XTLKKWLD.m

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 ---XTLKKWLD   797     printed  Apr 09, 2024@21:42:51                                                                                                                                                                                                     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