XTLKPRT.m

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 ---XTLKPRT   1210     printed  Apr 09, 2024@21:41:36                                                                                                                                                                                                     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