Index: vhPOPUP.mac.rou
===================================================================
diff -u -r948 -r1911
--- vhPOPUP.mac.rou	(.../vhPOPUP.mac.rou)	(revision 948)
+++ vhPOPUP.mac.rou	(.../vhPOPUP.mac.rou)	(revision 1911)
@@ -456,4 +456,42 @@
  If sR Set sR=POPUP("D",sR),sVal=$P(sR,D)
  Else  Set:sR="-" zb="CANC"
  Kill ^DMC("LVH",%J),^DPAR(0,"PAR.DMS",%J,QU)
- Quit
\ No newline at end of file
+ Quit
+ ;
+ ; sOptie zie bovenaan
+ ; + : Uitgebreide versie bij ISO (standaard beperkte versie)
+ ;
+ ;Tonen van een popup gedefinieerd ^ISO
+ISO(sPos,sOptie,sTitel,sIso,sOldSel,sCB,sNoRefr) 
+ New sI,sVal,sKey,sRec,sIncl
+ Set sPos=$G(sPos),sOptie=$G(sOptie),sTitel=$G(sTitel),sOldSel=$G(sOldSel),sNoRefr=$G(sNoRefr)
+ For sI=1:1:$L(sOldSel) Do
+ .Set sKey=$P(sOldSel,";",sI)
+ .Quit:sKey=""
+ .Set sRec=$G(^ISO(0,"ISO."_sIso,sKey,0))
+ .Quit:sRec=""
+ .Set $P(sOldSel,";",sI)=$P(sRec,D)
+ If sOptie'["+" Do
+ .If sIso="MUNT" Do
+ ..Set sIncl=""
+ ..For  Set sIncl=$O(^KBA(11,sIncl)) Quit:sIncl=""  Do
+ ...Set sRec=^KBA(11,sIncl),sKey=$P(sRec,D,13) Set:sKey sIncl(sKey)=""
+ .If sIso="LAND" For sI="BE","NL","FR","DE","LU","GB" Set sIncl($$LAND^vhRtn1(sI,"I"))=""
+ Set sKey=""
+ For  Set sKey=$O(^ISO(0,"ISO."_sIso,sKey)) Quit:sKey=""  Do
+ .If sOptie'["+",'$D(sIncl(sKey)) Quit
+ .Set sRec=^ISO(0,"ISO."_sIso,sKey,0),sIso($P(sRec,D))=$TR($P(sRec,D,1,2),D,"`")_"`"_sKey
+ Set sIso($C(15))="`"_$S(sOptie["+":"Beperkt",1:"Volledig")_" overzicht",sIso($C(15)_$C(15))="&S"
+ Set sVal=$$WILD(sPos,sOptie,sTitel,.sIso,sOldSel,.sCB,sNoRefr)
+ If sVal="",zb'="CANC" Do
+ .If sOptie["+" Set sOptie=$TR(sOptie,"+","")
+ .Else  Set sOptie=sOptie_"+"
+ .Set sVal=$$ISO(sPos,sOptie,sTitel,sIso,sOldSel,.sCB,sNoRefr)
+ For sI=1:1:$L(sVal) Do
+ .Set sKey=$P(sVal,";",sI)
+ .Quit:sKey=""
+ .Set sRec=$G(sIso(sKey))
+ .Quit:sRec=""
+ .Set $P(sVal,";",sI)=$P(sRec,"`",3)
+ Quit sVal
+ ;
\ No newline at end of file