cANSYN(DMS,LN,LOC,Z,LOCZ,BI,FLT,TIT,ZZ) ;Synoniemen ;%ANSYN ; [ 01/04/01  11:55 AM ]
 G 1
 ;
T0 ;Synoniemen ;
 ;
T0F ;Synonymes ;
 ;
T0E ;Synonyms ;
 ;
 ; std. synoniemen op bestand
S1 S P1="K",P2=$G(LN),P3="",P4=DMS,P5=$G(LOC),P6=$S($G(Z):'$G(LOCZ),1:$G(BI)),P7=$G(FLT),P8=$G(TIT),P9=$G(ZZ) S:'P2 P2=16 I $G(Z)&'P6 S P6=""
S1A N OUT,RSLN,RSQ,RSDMS,RSX,RSB,RSFLT,RSTAB,RSTIT,RSZ
S1B I '$G(Z) D ^cAN101(P1,P2,P3,P4,P5,P6,P7,P8,P9) G S1Z
S1C D Z^cAN101(P1,P2,P3,P4,P5,P6,P7,P8,P9)
S1Z Q
 ;
 ; std. synoniemen op codes
S2 S P1="K",P2=$G(LN),P4=DMS,P5=$G(LOC),P6=$S($G(Z):$G(LOCZ),1:""),P7=$G(TIT),P8=$G(FLT),P9=$G(ZZ) S:'P2 P2=16
S2A N OUT,RSLN,UQC,USC,RSX,RSTAB,RSTIT,RSFLT,RSZ
S2B I '$G(Z) D ^cAN106(P1,P2,P3,P4,P5,P6,P7,P8,P9) G S2Z
S2C D Z^cAN106(P1,P2,P3,P4,P5,P6,P7,P8,P9)
S2Z Q
 ;
 ; algemene initialisatie
1 N P1,P2,P3,P4,P5,P6,P7,P8,P9
11 S $ZT="TRAP^cAN000"
13 I $G(DMS)="" G Y
 ;
 ; spec. synoniemen via DMS
2 I $L($G(^DMS(Q,DMS,"SYN"))) G 23
21 I '$L($G(^DMS(0,DMS,"SYN"))) G 3
23 I DMS'="DMS" G Y:'$D(^(0)),Y:$P(^(0),D,30)
25 X ^("SYN") G YZ
 ;
 ; std. synoniemen op bestand
3 I $D(^DMS(Q,DMS,0)) G 33
31 I '$D(^DMS(0,DMS,0)) G 4
33 I DMS'="DMS" G Y:$P(^(0),D,30)
35 D S1 G YZ
 ;
 ; std. synoniemen op codes
4 S P3="~" F  S P3=$O(^DMC(P3),-1) Q:P3=""  Q:$D(^(P3,DMS))
41 I P3="" G Y
43 D S2 G YZ
 ;
Y S K=""
YZ Q K
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84