source: WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTLKKWLD.m@ 1710

Last change on this file since 1710 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 779 bytes
RevLine 
[613]1XTLKKWLD ; 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
6DSPLYD ; DISPLAY CODE AND TEXT FOR DIAGNOSIS
7 Q:XTLKSAY=-1 S XTLKPC=3 G DSPCOM
8DSPLYO ; DISPLAY CODE AND TEXT FOR OPERATION/PROCEDURE
9 Q:XTLKSAY=-1 S XTLKPC=4 G DSPCOM
10DSPCOM ; 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 ;
16DGEN 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
Note: See TracBrowser for help on using the repository browser.