persistent 1 VHOpslag %Persistent vanhoecke.be \\Notes01\Shared %Boolean 1 set {*}=$D(^vhUSER("D",{ID},"M")) 1 %Boolean 1 set {*}=##class(Res.InternePersoon).%OpenId({ID}).IsPersoonActief 1 %String %Boolean %Boolean 1 1 ID 1 %Integer %String %String %String %String %String %String %String %String %String 1 set {*}=##class(Res.InternePersoon).%OpenId({ID}).WindowsLoginNaam 1 %String Gebruikt in de Ugly Picking (incl. Receptie) Makova apps. Staat bewust private, om niet onnodig naar boven te komen in queries. %String 1 1 = standaard ? = via andere 0 of "" = nooit %String %Boolean %String %Boolean Geeft een lijst van regios als externe vertegenwoordiger 1 ExterneVertegenwoordigerVhUserID:%Integer %List Geeft een lijst van regios als internen vertegenwoordiger 1 InterneVertegenwoordigerVhUserID:%Integer %List Geeft de firma NV, BV, HALUX 1 IPNr %String 1 ID:%String %Boolean 1 ID:%String %Boolean 1 UserID:%String,KlantNr:%String %String 1 ID:%String %Boolean 1 ID:%String,MagKennisAnkerAanmaken:%Boolean 1 ID:%String,MagKennisAnkerVerwijderen:%Boolean 1 Device 0 1 Initialen 1 Initialen %String Name Waarde: zie definitie van de bijhorende property. Voorbeeldcalls: Do ##class(Res.InternePersoon).OpenByInitialen("JRO").ZetStandaardOpgenomenInPopupKlachtverantw("") Do ##class(Res.InternePersoon).OpenByInitialen("HMO").ZetStandaardOpgenomenInPopupKlachtverantw("1") Waarde:%String %SQLQuery select %ID as ID, Naam, Active, MagKennisAnkerAanmaken, MagKennisAnkerVerwijderen, Initialen, eMail, SharedMap, NaamKort, GeoDevice, WindowsLoginNaamPersoonlijk from Res.InternePersoon order by Naam %SQLQuery select %ID,Naam from Res.InternePersoon where Active=1 order by Naam %SQLQuery select %ID,Naam from Res.InternePersoon where MagKennisAnkerAanmaken=1 order by Naam 1 0 %Boolean %Save method to provide notification that the object is being saved. It is called before any data is written to disk.

insert will be set to 1 if this object is being saved for the first time.

If this method returns an error then the call to %Save will fail.]]> insert:%Boolean 1 %Status 1 %String 1 %String 1 %String %CacheSQLStorage ^Res.InternePersoonS data ^vhUSER delimited "D" {ID} "\" 16 "\" 8 "\" 4 "\" "K" 2 "\" 13 "\" 14 "\" 15 "\" 5 "\" 2 "\" 2 "\" 17 "\" 6 "\" 7 "\" "M" 13