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