RESCONV ;Resource conversie [ 11/07/2001  11:50 AM ]
LD(Naam) 
 New D
 Quit:'$D(^LD("D",Naam))
 Set sGrp=$$ASK^vhINP("Groep : ",8,Naam)
 Quit:"-,()"[sGrp
 Set sIdK=""
 Set:$E(Naam,1,$L(sGrp))=sGrp sIdK=$E(Naam,$L(sGrp)+1,99)
 Set sIdK=$$ASK^vhINP("Id voor Kolom : ",8,sIdK)
 Quit:"-,()"[sIdK
 Set sIdP=$$ASK^vhINP("Id voor Link naar kolom : ",8,sIdK,"Gebruikt in programma")
 Quit:"-,()"[sIdP
 Set sIdD=$$ASK^vhINP("Id voor Definitie : ",8,sIdK,"Kreatie of Bijvoegen bij bestaande of Geen")
 Quit:$L(sIdD)&("-,()"[sIdD)
 Set D="`"
 If $L(sIdD),'$D(^RES(sGrp,"LD",sIdD)) Do
 .Set sRec=^LD("D",Naam)
 .Set CB=$P(sRec,D,11)
 .Set NRec=""
 .Set $P(NRec,D,1)=$P(sRec,D,1)
 .Set $P(NRec,D,2)=$H
 .Set $P(NRec,D,5)=$P(sRec,D,9)_";1;"_$S($P(sRec,D,10):$P(sRec,D,10),1:24)
 .Set $P(NRec,D,6)=$P(sRec,D,2)
 .Set $P(NRec,D,7)=1 ; Positiemarkering
 .Set $P(NRec,D,9)="BU" ; SelectAttrib
 .Set $P(NRec,D,10)=sIdP ; DefaultFormat
 .Set $P(NRec,D,11)=$P(sRec,D,7)
 .Set ^RES(sGrp,"LD",sIdD)=NRec
 .Set:$D(^LD("L",Naam,"H")) ^RES(sGrp,"LD",sIdD,"HO",1)="T"_D_"I"_D_^LD("L",Naam,"H")
 .Set ^RES(sGrp,"LD",sIdD,"F")="@"_D_$P(sRec,D,8)
 .Set:$D(^LD("L",Naam,"E")) ^RES(sGrp,"LD",sIdD,"CF")="X"_D_^LD("L",Naam,"E")_$S($P(CB,"\")="":"",1:" D "_$P(CB,"\")_"(sSelect,sRec)")
 .Set:'$D(^LD("L",Naam,"E"))&$L($P(CB,"\")) ^RES(sGrp,"LD",sIdD,"CF")="X"_D_"D "_$P(CB,"\")_"(sSelect,sRec)"
 .Set:$L($P(CB,"\",2)) ^RES(sGrp,"LD",sIdD,"CM")="X"_D_"D "_$P(CB,"\",2)_"(sMax,sLen,sRec)"
 .Set:$L($P(CB,"\",3)) ^RES(sGrp,"LD",sIdD,"CS")="X"_D_"D "_$P(CB,"\",3)_"(sSelect,sRec)"
 ; Kolom definitie
 Kill ^RES(sGrp,"LK",sIdK)
 For I=1:1:$O(^LD("D",Naam,"F",""),-1) Do
 .Set sRec=^LD("D",Naam,"F",I)
 .Set sRec=$P(sRec,D,12)_D_$P(sRec,D,1,10)
 .Set ^RES(sGrp,"LK",sIdK,I)=sRec
 Set:$L(sIdD) ^RES(sGrp,"LD",sIdD,"L",sIdP)=sGrp_D_sIdK
 S ^RES(sGrp,"LK",sIdK)=$P(^LD("D",Naam),"`",1)_D_$H
 Quit
 
ASK(Naam) 
POP(Naam) 
 New D
 Quit:'$D(^POP(Naam))
 Set sGrp=$$ASK^vhINP("Groep : ",8,Naam)
 Quit:"-,()"[sGrp
 Set sId=""
 Set:$E(Naam,1,$L(sGrp))=sGrp sId=$E(Naam,$L(sGrp)+1,99)
 Set sId=$$ASK^vhINP("Id voor Kolom : ",8,sId)
 Quit:"-,()"[sId
 Set D="`"
 Kill ^RES(sGrp,"PI",sId)
 Set ORec=^POP(Naam)
 Set NRec=""
 Set $P(NRec,D,1)=$P(ORec,"\",1)
 Set $P(NRec,D,2)=$H
 Set $P(NRec,D,5,6)="" ; Detail scherm
 Set $P(NRec,D,7)=$P(ORec,"\",6) ; Taalafhankelijk
 Set $P(NRec,D,7)=$P(ORec,"\",3) ; Unieknummer
 Set ^RES(sGrp,"PI",sId)=NRec
 Set IO=$P(ORec,"\",4)
 ; Parameter
 Set sRec="``L```" 
 Set $P(sRec,D,1)="U"_$S($P(NRec,D,7):"",1:"V")
 Set $P(sRec,D,4)=$S($P(NRec,D,7):5,1:$P(ORec,"\",5))
 Set $P(sRec,D,2)=$S($P(NRec,D,7):"N+",1:"C")
 Set ^RES(sGrp,"PI",sId,"P","K")=sRec
 Set sRec="`C`L```" 
 Set $P(sRec,D,1)=$S(IO:"I",1:"")_"V"
 Set $P(sRec,D,4)=$P(ORec,"\",6)
 Set ^RES(sGrp,"PI",sId,"P","O")=sRec
 For sI=1:1:3 Do:$L($P(ORec,"\",6+sI))
 .Set sRec="V`C`L`10``" 
 .Set $P(sRec,D,6)=$P(ORec,"\",6+sI)
 .Set ^RES(sGrp,"PI",sId,"P",sI)=sRec
 ; Kolom definitie
 Set sKey=""
 For  Set sKey=$O(^POP(Naam,"D",sKey)) Quit:sKey=""  Do
 .Set sRec=$TR(^POP(Naam,"D",sKey),"\",D)
 .Set ^RES(sGrp,"PI",sId,"D",sKey)=sRec
 .Quit:'IO
 .Set sOms=$$UPTRIMAN^vhRtn1($P(sRec,"\",2))
 .Quit:'$L(sOms)
 .Set ^RES(sGrp,"PI",sId,"IO",sOms,sKey)=""
 .Set Taal=""
 .If $P(NRec,D,6) For  Set Taal=$O(^POP(Naam,"D",sKey,Taal)) Quit:Taal=""  Do
 ..Set ^RES(sGrp,"PI",sId,"D",sKey,Taal)=^(Taal)
 Quit