TIUMSYN.m

TIUMSYN ; SLC/JER - TIU Mapping Synonyms ;7/6/06  16:13

 ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26

MAIN(TIUFN) ; Controls looping and subroutine calls

 N TIUY W !

 F  D FINDEDIT(TIUFN) Q:TIUY'>0

 Q

FINDEDIT(TIUFN) ; Calls ^DIC to look-up entry, ^DIE to edit

 N DA,DIC,X,Y,DIE,DR,DLAYGO,FILENM

 S FILENM=$S(TIUFN=8926.72:"SMD",TIUFN=8926.73:"ROLE",TIUFN=8926.74:"SETTING",TIUFN=8926.75:"SERVICE",TIUFN=8926.76:"DOCUMENT TYPE",1:"")

 S (DIC,DLAYGO)=TIUFN

 S DIC("A")="Please Enter "_FILENM_" Synonym: ",DIC(0)="AEMQL"

 D ^DIC W !

 S (DA,TIUY)=+Y

 Q:+Y'>0

 S DIE=DIC,DR=".01;.02"

 D ^DIE W !

 ; If .02 field is empty, DELETE record

 I $S(+$G(DA)'>0:1,+$P($G(@("^TIU("_TIUFN_",DA,0)")),U,2)>0:1,1:0) Q

 W !,"You MUST associate your synonym with a ",$S(FILENM="SMD":"Subject Matter Domain",1:FILENM),".",!!,"Deleting synonym record.."

 S DR=".01///@" D ^DIE W ".",!

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---TIUMSYN   906     printed  Apr 09, 2024@21:46:04                                                                                                                                                                                                      Page 2

TIUMSYN   ; SLC/JER - TIU Mapping Synonyms ;7/6/06  16:13

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26

MAIN(TIUFN) ; Controls looping and subroutine calls

 +1        NEW TIUY

           WRITE !

 +2        FOR 

               DO FINDEDIT(TIUFN)

               if TIUY'>0

                   QUIT 

 +3        QUIT 

FINDEDIT(TIUFN) ; Calls ^DIC to look-up entry, ^DIE to edit

 +1        NEW DA,DIC,X,Y,DIE,DR,DLAYGO,FILENM

 +2        SET FILENM=$SELECT(TIUFN=8926.72:"SMD",TIUFN=8926.73:"ROLE",TIUFN=8926.74:"SETTING",TIUFN=8926.75:"SERVICE",TIUFN=8926.76:"DOCUMENT TYPE",1:"")

 +3        SET (DIC,DLAYGO)=TIUFN

 +4        SET DIC("A")="Please Enter "_FILENM_" Synonym: "

           SET DIC(0)="AEMQL"

 +5        DO ^DIC

           WRITE !

 +6        SET (DA,TIUY)=+Y

 +7        if +Y'>0

               QUIT 

 +8        SET DIE=DIC

           SET DR=".01;.02"

 +9        DO ^DIE

           WRITE !

 +10      ; If .02 field is empty, DELETE record

 +11       IF $SELECT(+$GET(DA)'>0:1,+$PIECE($GET(@("^TIU("_TIUFN_",DA,0)")),U,2)>0:1,1:0)

               QUIT 

 +12       WRITE !,"You MUST associate your synonym with a ",$SELECT(FILENM="SMD":"Subject Matter Domain",1:FILENM),".",!!,"Deleting synonym record.."

 +13       SET DR=".01///@"

           DO ^DIE

           WRITE ".",!

 +14       QUIT