| 1 | TIUMSYN ; SLC/JER - TIU Mapping Synonyms ;7/6/06 16:13
|
|---|
| 2 | ;;1.0;TEXT INTEGRATION UTILITIES;**211**;Jun 20, 1997;Build 26
|
|---|
| 3 | MAIN(TIUFN) ; Controls looping and subroutine calls
|
|---|
| 4 | N TIUY W !
|
|---|
| 5 | F D FINDEDIT(TIUFN) Q:TIUY'>0
|
|---|
| 6 | Q
|
|---|
| 7 | FINDEDIT(TIUFN) ; Calls ^DIC to look-up entry, ^DIE to edit
|
|---|
| 8 | N DA,DIC,X,Y,DIE,DR,DLAYGO,FILENM
|
|---|
| 9 | 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:"")
|
|---|
| 10 | S (DIC,DLAYGO)=TIUFN
|
|---|
| 11 | S DIC("A")="Please Enter "_FILENM_" Synonym: ",DIC(0)="AEMQL"
|
|---|
| 12 | D ^DIC W !
|
|---|
| 13 | S (DA,TIUY)=+Y
|
|---|
| 14 | Q:+Y'>0
|
|---|
| 15 | S DIE=DIC,DR=".01;.02"
|
|---|
| 16 | D ^DIE W !
|
|---|
| 17 | ; If .02 field is empty, DELETE record
|
|---|
| 18 | I $S(+$G(DA)'>0:1,+$P($G(@("^TIU("_TIUFN_",DA,0)")),U,2)>0:1,1:0) Q
|
|---|
| 19 | W !,"You MUST associate your synonym with a ",$S(FILENM="SMD":"Subject Matter Domain",1:FILENM),".",!!,"Deleting synonym record.."
|
|---|
| 20 | S DR=".01///@" D ^DIE W ".",!
|
|---|
| 21 | Q
|
|---|
