PVTEL ; Opsporen vn telefoonnummers in de databank [ 11/08/2003   8:27 PM ]
 S Q="K" D ^cA604
 Set %J=$$%J^vhRtn1()
 Set Cnt=0
 Kill ^HULP(%J)
 S KLId=0
 Write !,"Klanten"
 For  Set KLId=$O(^KKL(KLId)) Quit:KLId=""  Do
 .For I="0;13","0;14","1;24","2;20" Do
 ..Set Tel=$$TRIMN^vhRtn1($P(^KKL(KLId,$P(I,";",1)),D,$P(I,";",2)))
 ..Quit:Tel=""
 ..Set Tel=$$BLDTEL(Tel)
 ..Quit:Tel=""
 ..Set ^HULP(%J,Tel)=$P(^KKL(KLId,0),D,1,2)
 Write !,"Derde"
 Set Node="K" Do
 .Set DNr=""
 .For  Set DNr=$O(^PERS(Node,DNr)) Quit:DNr=""  Do
 ..Set VolgNr=""
 ..For  Set VolgNr=$O(^PERS(Node,DNr,VolgNr)) Quit:VolgNr=""  Do
 ...Set Rec=^(VolgNr)
 ....For I=15:1:20 Do
 .....Set Code=$P($P(Rec,D,I),";")
 .....Quit:Code'="T"&(Code'="F")&(Code'="G")
 .....Set Tel=$$TRIMN^vhRtn1($P($P(Rec,D,I),";",2))
 .....Quit:Tel=""
 .....Set Tel=$$BLDTEL(Tel)
 .....Quit:Tel=""
 .....Set ^HULP(%J,Tel)=KLNr_D_$P(^KKL(^KK1(KLNr),0),D,2)
 ;Wegschrijven
 Set Dev=$$OPEN^vhDEV(,"TELMOB.doc","W")
 Use Dev
 Set Key=""
 Write $TR("Tel,Fout,Ref,Naam",",",$C(9))
 For  Set Key=$O(^HULP(%J,Key)) Quit:Key=""  Do
 .Set Rec=^HULP(%J,Key)
 .Set Land=$P(Key,";")
 .Set Zone=$P(Key,";",2)
 .Set Tel=$P(Key,";",3)
 .Set Fout=$P(Key,";",4)
 .Set Nr=$P(Rec,D,1)
 .Set Nm=$P(Rec,D,2)
 .Quit:$L(Fout)
 .If Zone="" Do  ; Buitenland
 ..Write !,"00 "_Land_Tel,$C(9),Fout,$C(9),Nr,$C(9),Nm
 ..Write !,Land_" "_Tel,$C(9),Fout,$C(9),Nr,$C(9),Nm
 .Else  Do  ; Belgie
 ..Write !,"00 "_Land_Zone_Tel,$C(9),Fout,$C(9),Nr,$C(9),Nm
 ..Write !,Land_" "_Zone_Tel,$C(9),Fout,$C(9),Nr,$C(9),Nm
 Close:0'[Dev Dev
 Quit
 
BLDTEL(Tel) 
 New Land,Zone,I,Fout
 Set Fout=""
 If $E(Tel,1,3)="001" Do  ; America
 .Set Land=$E(Tel,3,3)
 .Set Zone=""
 .Set Tel=$E(Tel,4,99)
 Else  If $E(Tel,1,2)="00" Do  ; Andere landen
 .Set Land=$E(Tel,3,4)
 .Set Zone=""
 .Set Tel=$E(Tel,5,99)
 Else  If $E(Tel,1)="0",";479;496;495;497;486;471;497;475;478;477;470;476;498;"[(";"_$E(Tel,2,4)_";") Do  ;GSM Zone in Belgie
 .Set Land=32
 .Set Zone=$E(Tel,2,4)
 .Set Tel=$E(Tel,5,99)
 .Set:$L(Tel)'=6 Fout="Geen 6"
 Else  If $E(Tel,1)="0",";58;59;50;57;51;56;55;53;52;54;68;67;65;64;69;60;61;63;71;81;82;83;84;85;86;80;87;19;12;10;16;13;11;89;14;15;70;75;"[(";"_$E(Tel,2,3)_";") Do  ;Kleine Zone in Belgie
 .Set Land=32
 .Set Zone=$E(Tel,2,3)
 .Set Tel=$E(Tel,4,99)
 .Set:$L(Tel)'=6 Fout="Geen 6"
 Else  If $E(Tel,1)="0",";2;3;4;9;"[(";"_$E(Tel,2)_";") Do  ;Grote Zone in Belgie
 .Set Land=32
 .Set Zone=$E(Tel,2)
 .Set Tel=$E(Tel,3,99)
 .Set:$L(Tel)'=7 Fout="Geen 7"
 Else  Do  ; Default Zone Antwerpen in Belgie
 .Set Land=32
 .Set Zone=3
 .Set:$L(Tel)'=7 Fout="Geen 7"
 If $L(Tel)<6 Set Fout="Tekort"
 Write:$L(Fout) Land," ",Zone," ",Tel," ",Fout,!
 Quit Land_";"_Zone_";"_Tel_";"_Fout
 
VERKORT Set Id=0
 Write "Naam",$C(9),"Verkort",$C(9),"Tel",!
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"TEL.TXT","W") Use Dev
 For  Set Id=$O(^KKL(Id))  Quit:Id=""  Do
 .Quit:$P(^KKL(Id,2),D,1)=""
 .Write $P(^KKL(Id,0),D,2),$C(9),$TR($P(^KKL(Id,2),D,1),"*","7"),$C(9),"=""",$$TRIMN^vhRtn1($P(^KKL(Id,0),D,13)),"""",!
 Set Id=0
 For  Set Id=$O(^KLE(Id))  Quit:Id=""  Do
 .Quit:$P(^KLE(Id,2),D,1)=""
 .Write $P(^KLE(Id,0),D,2),$C(9),$TR($P(^KLE(Id,2),D,1),"*","7"),$C(9),"=""",$$TRIMN^vhRtn1($P(^KLE(Id,0),D,13)),"""",!
 Close Dev
 Q