cANR22 ;Doorsturen offertes prospecten naar word; %ANR22 [ 08/31/00  10:56 AM ]
 ;
 G YZ
 ;
 ;  Opzoeken hoofdinggegevens
HOOFD S HEADER=$$SG^cAFA1("NP",KC,109)
 S ^HULP(boot,$J+.01,"HEADER")=HEADER
 S $P(^HULP(boot,$J+.01,"HEADER"),D,2)=$$SG^cAFA1("NP",KC,102)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,3)=$$SG^cAFA1("NP",KC,103)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,4)=$$SG^cAFA1("NP",KC,105)_D_$P(^(0),D,6)_D_$P(^(0),D,7)
 S LAND=$$SG^cAFA1("NP",KC,108)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,7)=$$SIG^cAFA1("ISO.LAND",LAND,102)
 I $$SIG^cAFA1("ISO.LAND",LAND,101)=$P(@("^"_Q_"BA(39)"),D,3) S $P(^HULP(boot,$J+.01,"HEADER"),D,7)=""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,8)=KC
HOOFDZ Q
 ;
 ;  Opzoeken interludium
INTER S U5=@("^"_Q_UGL_"(KC,US,UR,""1"")")
 S $P(^HULP(boot,$J+.01,"HEADER"),D,9)=$P(U5,D,27)_" "_$E(UR,1,($L(UR)-3))_"."_$E(UR,($L(UR)-2),$L(UR))
 S $P(^HULP(boot,$J+.01,"HEADER"),D,10)=": "_$P(U5,D,2)_D_": "_$P(U5,D,3)
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="1" S $P(^HULP(boot,$J+.01,"HEADER"),D,12)=$S($L($P(U5,D,19))>0:": "_$P(U5,D,19),1:"")
 I $P(^DPAR(Q,"PAR",UGL_"."_US_".EXT",0),D,9)="" S $P(^HULP(boot,$J+.01,"HEADER"),D,12)=""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,13)=""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,14)=": "_$$SG^cAFA1("NP",KC,113)
 S $P(^HULP(boot,$J+.01,"HEADER"),D,15)=": "_$$SG^cAFA1("NP",KC,213)_D_""
 S $P(^HULP(boot,$J+.01,"HEADER"),D,16)=$$SG^cAFA1("NP",KC,104)
 S ^HULP(boot,$J+.01,"THEADER")=$S(HEADER="N":"Datum",1:"Date")_D_$S(HEADER="N":"Referte",1:"Référence")
 S $P(^HULP(boot,$J+.01,"THEADER"),D,3)=$S($L($P(^HULP(boot,$J+.01,"HEADER"),D,12))>0:$S(HEADER="N":"Lev. datum",1:"Date liv."),1:"")
 S $P(^HULP(boot,$J+.01,"THEADER"),D,4)=D_$S(HEADER="N":"Telefoon",1:"Téléphone")_D_$S(HEADER="N":"Fax",1:"Fax")
INTERZ Q
 ;
 ;  Ophalen van de slotteksten
SLOT S AANTL=@("^"_Q_"BA(""%F"",15,US,0,0)")
 S COT=$$SG^cAFA1("NP",KC,109)
 I '$L($G(AANTL)) G SLOTZ
 F I1=1:1:AANTL D
 . S ^HULP(boot,$J+.01,"SLOT",I1)=$G(@("^"_Q_"BA(""%F"",15,US,COT,I1)"))
SLOTZ Q
 ;
YZ	Q
 
ZZ ; 05.02.01 - 16 u 23 * V7.84