XTLKPRT ;ALB/JLU,SFISC/JC;PRINT ROUTINE ;07/22/93 15:49
;;7.3;TOOLKIT;;Apr 25, 1995
KL K DIC,XTLKY,XTLKPF,XTLKUTL,FLDS,BY,DIS,L,JL,JLF,DIR,X,Y,XTLKOPP,JLY,XTLKUT,DHD
Q
;
A ;ENTRY POINT
S DIR(0)="S^SH:Shortcuts;KE:Keyword;SY:Synonyms",DIR("A")=" Print which file?" D ^DIR K DIR
S XTLKOPP=$S(Y["SH":"Shortcuts",Y["KE":"Keywords",1:"Synonyms")
I Y="^"!(Y="") D KL Q
S JLF=Y
;
SB I Y'="SY" S DIR(0)="S^A:Alphabetic;C:Code",DIR("A")=" Sort By?" D ^DIR I Y="^"!(Y="") D KL Q
S JLY=Y
;
D QU^XTLKEFOP() I '$D(XTLKY) D KL Q
S JL=$P(^DIC(+XTLKY,0,"GL"),U,2)
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:".")
S L=0 D @JLF,KL G A
;
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
Q
;
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
Q
;
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTLKPRT 1210 printed Sep 23, 2025@20:17:46 Page 2
XTLKPRT ;ALB/JLU,SFISC/JC;PRINT ROUTINE ;07/22/93 15:49
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
KL KILL DIC,XTLKY,XTLKPF,XTLKUTL,FLDS,BY,DIS,L,JL,JLF,DIR,X,Y,XTLKOPP,JLY,XTLKUT,DHD
+1 QUIT
+2 ;
A ;ENTRY POINT
+1 SET DIR(0)="S^SH:Shortcuts;KE:Keyword;SY:Synonyms"
SET DIR("A")=" Print which file?"
DO ^DIR
KILL DIR
+2 SET XTLKOPP=$SELECT(Y["SH":"Shortcuts",Y["KE":"Keywords",1:"Synonyms")
+3 IF Y="^"!(Y="")
DO KL
QUIT
+4 SET JLF=Y
+5 ;
SB IF Y'="SY"
SET DIR(0)="S^A:Alphabetic;C:Code"
SET DIR("A")=" Sort By?"
DO ^DIR
IF Y="^"!(Y="")
DO KL
QUIT
+1 SET JLY=Y
+2 ;
+3 DO QU^XTLKEFOP()
IF '$DATA(XTLKY)
DO KL
QUIT
+4 SET JL=$PIECE(^DIC(+XTLKY,0,"GL"),U,2)
+5 SET DHD=$SELECT(JLF="SH":"Shortcuts",JLF="SY":"Synonyms",1:"Keywords")_" of the "_$PIECE(^DIC(+XTLKY,0),U)_" file"_$SELECT(JLY="A":" sorted by Name.",JLY="C":" sorted by Code.",1:".")
+6 SET L=0
DO @JLF
DO KL
GOTO A
+7 ;
SH SET DIC="^XT(8984.2,"
SET (FLDS,BY)=$SELECT(JLY="A":"[XTLK SHORT ALPHA]",1:"[XTLK SHORT CODE]")
SET DIS(0)="I $P(^XT(8984.2,D0,0),U,2)[JL"
DO EN1^DIP
+1 QUIT
+2 ;
KE SET (FR,TO)=+XTLKY
SET DIC="^XT(8984.1,"
SET (FLDS,BY)=$SELECT(JLY="A":"[XTLK KEYWORD ALPHA]",1:"[XTLK KEYWORD CODES]")
SET DIS(0)="I $P(^XT(8984.1,D0,0),U,2)[JL"
DO EN1^DIP
+1 QUIT
+2 ;
SY SET DIC="^XT(8984.3,"
SET (FLDS,BY)="[XTLK SYNONYM ALPHA]"
SET DIS(0)="I $P(^XT(8984.3,D0,0),U,2)="_+XTLKY
DO EN1^DIP
+1 QUIT
