| 1 | XTLKPRT ;ALB/JLU,SFISC/JC;PRINT ROUTINE ;07/22/93 15:49
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | KL K DIC,XTLKY,XTLKPF,XTLKUTL,FLDS,BY,DIS,L,JL,JLF,DIR,X,Y,XTLKOPP,JLY,XTLKUT,DHD
|
|---|
| 4 | Q
|
|---|
| 5 | ;
|
|---|
| 6 | A ;ENTRY POINT
|
|---|
| 7 | S DIR(0)="S^SH:Shortcuts;KE:Keyword;SY:Synonyms",DIR("A")=" Print which file?" D ^DIR K DIR
|
|---|
| 8 | S XTLKOPP=$S(Y["SH":"Shortcuts",Y["KE":"Keywords",1:"Synonyms")
|
|---|
| 9 | I Y="^"!(Y="") D KL Q
|
|---|
| 10 | S JLF=Y
|
|---|
| 11 | ;
|
|---|
| 12 | SB I Y'="SY" S DIR(0)="S^A:Alphabetic;C:Code",DIR("A")=" Sort By?" D ^DIR I Y="^"!(Y="") D KL Q
|
|---|
| 13 | S JLY=Y
|
|---|
| 14 | ;
|
|---|
| 15 | D QU^XTLKEFOP() I '$D(XTLKY) D KL Q
|
|---|
| 16 | S JL=$P(^DIC(+XTLKY,0,"GL"),U,2)
|
|---|
| 17 | S DHD=$S(JLF="SH":"Shortcuts",JLF="SY":"Synonyms",1:"Keywords")_" of the "_$P(^DIC(+XTLKY,0),U)_" file"_$S(JLY="A":" sorted by Name.",JLY="C":" sorted by Code.",1:".")
|
|---|
| 18 | S L=0 D @JLF,KL G A
|
|---|
| 19 | ;
|
|---|
| 20 | SH S DIC="^XT(8984.2,",(FLDS,BY)=$S(JLY="A":"[XTLK SHORT ALPHA]",1:"[XTLK SHORT CODE]"),DIS(0)="I $P(^XT(8984.2,D0,0),U,2)[JL" D EN1^DIP
|
|---|
| 21 | Q
|
|---|
| 22 | ;
|
|---|
| 23 | KE S (FR,TO)=+XTLKY,DIC="^XT(8984.1,",(FLDS,BY)=$S(JLY="A":"[XTLK KEYWORD ALPHA]",1:"[XTLK KEYWORD CODES]"),DIS(0)="I $P(^XT(8984.1,D0,0),U,2)[JL" D EN1^DIP
|
|---|
| 24 | Q
|
|---|
| 25 | ;
|
|---|
| 26 | SY S DIC="^XT(8984.3,",(FLDS,BY)="[XTLK SYNONYM ALPHA]",DIS(0)="I $P(^XT(8984.3,D0,0),U,2)="_+XTLKY D EN1^DIP
|
|---|
| 27 | Q
|
|---|
